Home | The Official fnfCreator BLOG: 2008

Sabtu, 15 November 2008

Modul PHP MySql Lanjutan

1. Simpan dalam FIle mycss.css

=style type ="text/css">
table { border-collapse: collapse; border: 1px solid #C0C0C0; }
td { border: 1px solid #C0C0C0; text-align: left; }
=/style>

2. Simpan dalam File lihatmahasiswa.php

^?php
include("mycss.css");
include("koneksi.php");

mysql_select_db("akademik");

$query=mysql_query("select * from mahasiswa") or die(mysql_error());

$baris_data=mysql_fetch_array($query);
echo "^tr>";

echo "^td width=950 valign=top>^h3 align=center>DATA MAHASISWA^/h3>";

$jmlmhs=mysql_num_rows($query);
echo "^table border=1 align=center>";

echo "^tr bgcolor=green align=center>";

echo "^td>^b>^font color=lime size = 2>Nomor^/font>";
echo "^td>^b>^font color=lime size = 2>NPM^/font>";

echo "^td>^b>^font color=lime size = 2>Nama Mahasiswa^/font>";

echo "^td>^b>^font color=lime size = 2>Program Studi^/font>";

echo "^td>^b>^font color=lime size = 2>Jenjang^/font>";

echo "^td>^b>^font color=lime size = 2>Tahun Masuk^/font> ^/b>";
echo "^td>^b>^font color=lime size = 2>Alamat^/font> ^/b>";

echo "^/tr>";
for ($i = 1; $i ^ $jmlmhs; $i++) {

$baris_data = mysql_fetch_array($query);
echo "^tr>";

echo "^td align = center bgcolor = lime>^font color = blue size = 1 >" .$i. ".^/td>";

echo "^td bgcolor = lime> ^font color = blue size = 1 > $baris_data[npm]^/td>";

echo "^td bgcolor = lime> ^font color = blue size = 1> $baris_data[nama]^/td>";
echo "^td align = center bgcolor = lime> ^font color = blue size = 1> $baris_data[prodi]^/td>";

echo "^td align = center bgcolor = lime> ^font color = blue size = 1> $baris_data[jenjang]^/td>";

echo "^td bgcolor = lime> ^font color = blue size = 1> $baris_data[tahun_masuk]^/td>";
echo "^td bgcolor = lime> ^font color = blue size = 1> $baris_data[alamat]^/td>";

echo "^/tr>";
}
echo "^/table>";
echo "^br>";

echo "^table>";
echo "^tr align = center>";

echo "^td bgcolor=white colspan=3>^font color=blue>Jumlah Total Mahasiswa = ^/font>";

$total = $jmlmhs - 1;
echo "^td bgcolor=white width = 20 align = left>^b>^font color=blue size = 2>$total^/font> ^/td>";

echo "^td bgcolor=white width = 20 align = left>^b>^font color=blue size = 2> Orang ^/font> ^/td>";

echo "^td> ";
echo "^td> ";

echo "^/tr>";
echo '^a href = "tambahmahasiswa.php"> Kembali ke form entri Data ^/a>';

echo "^/table>";

?>

Sabtu, 08 November 2008

Modul PHP


  Silahkan Copy Kode berikut !
1. simpan dengan nama file index.php 

 (html>
 (head>
 (meta name="author" content="root">
 (meta content="1;url=/fnf/index.php">
 (title>frameindex(/title>
 (frameset rows="20%,*" border= "1">
  (frame name="atas" src= "header.php">
  
  (frameset cols="30%,*" border= "1">
   (frameset rows="30%,*" border= "1">
    (frame name="kiriatas" src="pengguna.php">
    (frame name="kiribawah" src="menu.php">
   (/frameset>    
    (frame name="kananatas" src="tambahmahasiswa.php">
      
   
  (/frameset> 
 (/frameset>

 (/head>
 (body bgcolor=blue>

(/body>
(/html>
  
2. simpan dengan nama file header.php   
 
 (html>
 (head>
  (meta name="author" content="root">
  (meta content="1;url=/fnf/index.php">
 (/head>
 
 (body bgcolor=blue>
 (center>
  (h1>SELAMAT DATANG(/h1>
 (/center>
 (/body>
 (/html> 

3. simpan dengan nama file pengguna.php

 (html>
 (head>
  (meta name="author" content="root">
  (meta content="1;url=/fnf/index.php">
 (/head>
 (body bgcolor=blue>
 (?php 
  include("koneksi.php");
  $nama=($_POST["user"]);
   $katasandi=($_POST["password"]);
 
 function simpan()
 {
   $entrylogin = "INSERT INTO login " .
      "(pengguna, sandi)" .
      "VALUES ('$nama', $katasandi)";
 }
  
 ?>
 
 (form action="tamu.php" method="post" target = "kananatas">
 
    Username : (input name="user" type="text" /> (br> (br>
  Password : (input name="password" type="password" /> (br> (br>
       (input type = "submit" value="Masuk" onClick = simpan() > (br>

 (/form> 
 
(/body>
(/html>

3. simpan dengan nama file menu.php

 (html> 
 (head>(title>Menu(/title>(/head>
 (body>
 
 (?php 
 echo '(font face="verdana" size="2">';
 
 class submenu {
 var $urls;
 var $desps;
 var $cot;
 var $id;
 var $buka_menuSymbol = '(+)';
 var $tutup_menudSymbol = '(--)';
 var $itemBranch = '       |---';

 function buat($identitas) 
  {
   $this -> cot = 0;
   $this -> id  = $identitas;
  }
 
 function tambah($alamat_url, $desp) 
  {
   $this -> urls[$this -> cot] = $alamat_url;
   $this -> desps[$this -> cot] = $desp;
   $this -> cot++;
  }
 
 function buka_menu() 
  {
  $i = 0;
  while($i ($this -> cot) 
   {
    if ($i == 0) 
     {
      global $PHP_SELF;
      echo '(b>(a href="'.$PHP_SELF.'?kejadian = tutup_menu&id=">'.$this->tutup_menudSymbol.$this->desps[0].'(/a>(/b>(br>';
     }
    else  {
       echo $this->itemBranch.'(a href="'.$this->urls[$i].'" target ="kananatas">'.$this->desps[$i].'(/a>(br>';
      }
     $i++;
   }
  }
  
  function tutup_menu() {
   global $PHP_SELF;
   if (! $this->id){
   } else {
     echo '(b>(a href="'.$PHP_SELF.'?kejadian=buka_menu&id='.$this->id.'">'.$this->buka_menuSymbol.$this->desps[0].' (/a>(/b>(br>';
     }
     }
   }
  class menu {
  var $submenus;
  var $cot;
  var $id;
  function buat() {
   $this->cot=0;
   $this->id=2;
   }
  function tambah($submenu) {
   $this->submenus[$this->cot]=new submenu;
   $this->submenus[$this->cot]=$submenu;
   $this->cot++;
   }
  function tampilkan() {
   $i=0;
   $tmp = new submenu;
   while ($i($this->cot) {
    $tmp=$this->submenus[$i];
    if ($tmp->id==(string)$this->id) {
     $tmp->buka_menu();
     }
    else {
     $tmp->tutup_menu();
    }
    
   $i++;
   }
  }
  function hide() {
   $tmp = new submenu;
   $tmp->tutup_menu();
   }
   }
   
   $sm_1 = new submenu;
   $sm_1->buat('1');
   $sm_1->tambah('',' Download File');
   $sm_1->tambah('http://vb92kharisma.blogspot.com','Blog');
   $sm_1->tambah('modul.php','modul');   
    
   $sm_2=new submenu;
   $sm_2->buat('2');
   $sm_2->tambah('',' Search Engine');
   $sm_2->tambah('http://www.google.com','Google');
   $sm_2->tambah('http://www.yahoo.com','Yahoo');
   $sm_2->tambah('http://www.Altavista.com','Altavista');
   $sm_2->tambah('http://www.searchindonesia.com','Search Indonesia');   
   
   $sm_3=new submenu;
   $sm_3->buat('3');
   $sm_3->tambah('',' Berita');
   $sm_3->tambah('http://www.detik.com','Detik');
   $sm_3->tambah('http://www.detikinet.com','Detikinet');
   $sm_3->tambah('http://www.kompas.com','Kompas');
   $sm_3->tambah('http://www.Astaga.com','Astaga');
    
   $sm_4= new submenu;
   $sm_4->buat('3');
   $sm_4->tambah('',' Entri Data');
   $sm_4->tambah('tambahmahasiswa.php','Mahasiswa');
   $sm_4->tambah('','Nilai');
      
   $m_1 = new menu;
   $m_1->buat();
   $m_1->tambah($sm_1);
   $m_1->tambah($sm_2);
   $m_1->tambah($sm_3);
   $m_1->tambah($sm_4);  
   
    
   if ($kejadian=='') {
    $m_1->tampilkan();
    }    
   if ($kejadian=='buka_menu') {
    $m_1->id=$id;    
    $m_1->tampilkan();
    }    
   if ($kejadian=='tutup_menu') {   
    $m_1->id=$id;
    $m_1->hide();
    $m_1->tampilkan();   
       }   
   echo '(/font>';
   ?>   
 (/body>
(/html>



4. Simpan dengan Nama FIle tambahmahasiswa.php

 (HTML>
 (head>
  (TITLE>Menambah Data Mahasiswa(/TITLE>
   (meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

  (script language="JavaScript">
  (!--
  function trim(str)
  {
     return str.replace(/^\s+|\s+$/g,'');
  }

   
  function checkForm()
  {
      var cnpm, cnama, cprodi, cjenjang, calamat;
     with(window.document.msgform)
    {
       cnpm     = textnpm;
       cnama    = textnama;
       cprodi = comboprodi;
       cjenjang = combojenjang; 
       calamat = textalamat;
      
      }
      
   if(trim(cnpm.value) == '')
   {
      alert('Silakan isi dulu NPM, jangan sampai kosong ');
      cnpm.focus();
      return false;      
   }
   
   else if (trims(cnpm.value).length != 14)
   {
    alert('Silakan isi dengan Benar, perlu diingat...panjang karakter harus = 14 !! ');
      cnpm.focus();
      return false;  
   } 
   
   else if(trim(cnama.value) == '')
   {
      alert('Jangan lupa, SEtiap mahasiswa pasti punya nama');
      cnama.focus();
      return false;
   }  
   
   
   else if(trim(calamat.value) == '')
   {
      alert('Tulis dulu Alamat Mahasiswa dengan lengkap');
      calamat.focus();
      return false;      
   }
   
   else
   {
      cnpm.value    = trim(cnpm.value);
      cnama.value   = trim(cnama.value);
      cprodi.value   = trim(cprodi.value);
      cjenjang.value   = trim(cjenjang.value);
      calamat.value   = trim(calamat.value);
      return true;
   }
}
//-->(/script>

(/head>

(BODY>

(CENTER>
(H1>Menambah Data Mahasiswa(/H1>
(HR>

(FORM  ACTION = "simpanmahasiswa.php" onsubmit="return checkForm();" METHOD = "POST" name="msgform" ENCTYPE="MULTIPART/FORM-DATA">
 (TABLE>
 (pre>
  (TR>(TD align ="right">(font size="2">NPM :(/font>(/TD>(TD>(INPUT id = "textnpm" NAME = "textnpm" TYPE = "TEXT" onKeypress = "focusnama()"MAXLENGTH = "14" SIZE = "15">(/TD>(/TR>
  (TR>(TD align ="right">(font size="2">Nama :(/font(/TD>(TD>(INPUT id = "textnama" NAME = "textnama" TYPE = "TEXT" MAXLENGTH = "30" SIZE = "32">(/TD>(/TR>
  (TR>(TD align ="right">(font size="2">Prodi :(/font(/TD>(TD>(SELECT id = "comboprodi" NAME = "comboprodi">
          (OPTION VALUE = "TI" SELECTED >Teknik Informatika (/OPTION>       
          (OPTION VALUE = "SI" >Sistem Informasi(/OPTION>
          (OPTION VALUE = "MI" >Manajemen Informatika(/OPTION>
          (OPTION VALUE = "TK" >Teknik Komputer(/OPTION>
          (OPTION VALUE = "KA" >KOmputerisasi Akuntansi(/OPTION>
  (TR>(TD align ="right">(font size="2">Jenjang :(/font(/TD>(TD>(SELECT id = "combojenjang" NAME = "combojenjang">
          (OPTION VALUE = "1" SELECTED>D1(/OPTION>
          (OPTION VALUE = "2" >D2(/OPTION>
                    (OPTION VALUE = "3" >D3(/OPTION>
          (OPTION VALUE = "4" >S1(/OPTION>
          (OPTION VALUE = "5" >S2(/OPTION>
          (OPTION VALUE = "5" >S3 (/OPTION>         

  (TR>(TD align ="right">(font size="2">ALamat :(/TD>(TD>(TEXTAREA id = "textalamat" NAME = "textalamat" ROWS = "4" COLS = "40">(/TEXTAREA>(/TD>(/TR>
(/pre>
 (/TABLE>
(HR>
(INPUT   NAME = "tombolSimpan" TYPE = "Submit" VALUE = "Simpan" >

(/CENTER>
(/BODY>
(/HTML>


5.  simpanmahasiswa.php
 (?php
 include ("koneksi.php");
 
 mysql_select_db("akademik", $koneksi);
 $sql= " INSERT INTO mahasiswa (npm, nama, prodi, jenjang, alamat)
   VALUES ('$_POST[textnpm]','$_POST[textnama]','$_POST[comboprodi]','$_POST[combojenjang]','$_POST[textalamat]')";   
 if (!mysql_query($sql,$koneksi))
    {   
     die('Error: ' . mysql_error());
    }
      echo "1 sudah ditambahkan....";
   
    mysql_close($koneksi);
    echo '(form action= "lihatmahasiswa.php" method="post">';
    echo '(input type = "submit" value = "lihat mahasiswa" name="cmdlihat">'; 
  echo '(/form>'
 ?>


6. FIle koneksi.php

 (?php
  $namaserver="localhost";
  $username="root";
  $password="";
  $koneksi = mysql_connect($namaserver,$username,$password);
  if (!$koneksi)
     {
      die('Titak dapat melakukan Koneksi: ' . mysql_error());
   } 
 ?>

Kamis, 06 November 2008

Modul WEB Java Script 2

?html>
?head>
?title>Mencoba Validasi XXX?/title>
?/head>
?body>
?form name = "Mahasiswa" method ="GET" >
?script language = "JavaScript">
?!--

function periksa() {
if (document.Mahasiswa.textNPM.value == '" "' ){
alert ("NPM Jangan Kosong \n" + "Karena Bukan Null Value");
Mahasiswa.textNPM.focus();
return;
}
else

window.location.href = "Ftest.html";

}
document.write(" ?pre>NPM : ?input type = 'text' size = '14' name = 'textNPM'> ?/pre>");
document.write(" ?pre>Nama : ?input type = 'text' size = '20' name = 'textNama'>?/pre>");
document.write(" ?pre>NPM : ?input type = 'text' size = '35' name = 'textAlamat'> ?/pre>");
//-->

?/script>

?input type = "button" name = "btnsimpan" value = "Simpan" onClick = "periksa()">

?/form>

?/body>

?/html>

Modul Praktek WEB Java Script

?html>
?head>
?title>Mencoba Validasi?/title>
?/head>
?body>
?script language = "JavaScript">
?!--
document.write("Hallo");
window.defaultStatus ="Belajar Menggunakan JavaScript"

var hari=new Array("", "Senin","Selasa","Rabu","Kamis","Jum'at","Sabtu","Minggu")
var bulan=new Array("","Januari","Pebruari","Maret","April","Mei","Juni","Juli","Agustus","September","Oktober","Nopember","Desember")

var waktu=new Date()

var hari_ini=hari[waktu.getDay()]

var tanggal=waktu.getDate()

var bulan_ini=bulan[waktu.getMonth()]

var tahun=waktu.getYear()

var nilai = prompt("Masukan Nilai =");
var hasil1 = "Lulus"
var hasil2 = "Belum Lulus"
if (nilai >=60)
hasil = hasil1
else
hasil = hasil2
document.write("Keputusannya Anda... " + hasil);
document.write("?br>");
document.write("Hari ini adalah hari " + hari_ini);
document.write("?br>");
document.write("Bulan ini adalah hari " + bulan_ini +"?br>");

var i =1
while (i ?=12)
{
document.write(i + " Nama Bulan = " + bulan[i] + "?br>");
i++;
}
document.write("?br>");
for (j=1; j?=7; j++)
{
document.write(j + " Nama hari = " + hari[j] + "?br>");
}

//-->

?/script>

?/form>
?/body>
?/body>
?/html>

Selasa, 28 Oktober 2008

Modul V.isual_Basic Tentang Database

Desain Formulir


Source Code :

Dim akademik As Database
Dim tbMahasiswa As Recordset

Private Sub cmdlihatmahasiswa_Click()
  TABMAHASISWA.Visible = False
  mnutabel_Click
End Sub

Private Sub Form_Load()
Set akademik = OpenDatabase(App.path & "\Akademik.mdb")
Set tbMahasiswa = akademik.OpenRecordset("mahasiswa")
tbMahasiswa.Index = "indexnpm"

TABMAHASISWA.Visible = False
tabtabelmahasiswa.Visible = False

Combojk.AddItem "L"
Combojk.AddItem "P"

Combojurusan.AddItem "Teknik Informatika"
Combojurusan.AddItem "Sistem Informasi"
Combojurusan.AddItem "Manajemen Informatika"
Combojurusan.AddItem "Komputer Akuntansi"
Combojurusan.AddItem "Teknik Komputer"

Combojenjang.AddItem "D1"
Combojenjang.AddItem "D2"
Combojenjang.AddItem "D3"
Combojenjang.AddItem "S1"
Combojenjang.AddItem "S2"
Combojenjang.AddItem "S3"

End Sub

Private Sub CmdSimpan_Click()
Dim p As String
If (Textnpm.Text = "") Then
    p = MsgBox("Npm harus diisi", vbOKOnly)
    Textnpm.SetFocus
    Exit Sub
End If

If (textnama.Text = "") Then
    p = MsgBox("Nama harus diisi", vbOKOnly)
    textnama.SetFocus
    Exit Sub
End If

If (textalamat.Text = "") Then
    p = MsgBox("Alamat Jangan dikosongkan", vbOKOnly)
    textalamat.SetFocus
    Exit Sub
End If

If (Combojk.Text = "") Then
    p = MsgBox("Jenis kelamin Jangan dikosongkan", vbOKOnly)
    Combojk.SetFocus
    Exit Sub
End If

If (Combojurusan.Text = "") Then
    p = MsgBox("Jurusan kelamin Jangan dikosongkan", vbOKOnly)
    Combojurusan.SetFocus
    Exit Sub
End If

If (Combojenjang.Text = "") Then
    p = MsgBox("Jenjang Jangan dikosongkan", vbOKOnly)
    Combojenjang.SetFocus
    Exit Sub
End If

If (Texttahun.Text = "") Then
    p = MsgBox("Tahun masuk Jangan dikosongkan", vbOKOnly)
    Texttahun.SetFocus
    Exit Sub
End If

tbMahasiswa.AddNew
tbMahasiswa!npm = Textnpm.Text
tbMahasiswa!nama = textnama.Text
tbMahasiswa!alamat = textalamat.Text
tbMahasiswa!jenis_kel = Combojk.Text
tbMahasiswa!jurusan = Combojurusan.Text
tbMahasiswa!jenjang = Combojenjang.Text
tbMahasiswa!tahun_masuk = Texttahun.Text
tbMahasiswa.Update

End Sub



Private Sub mnukeluar_Click()
End
End Sub

Private Sub mnumahasiswa_Click()
Tabmahasiswa.Visible = True
End Sub

Private Sub mnutabel_Click()
tabtabelmahasiswa.Visible = True

End Sub

Membersihkan Virus yang ada di Flash disk



Salah satu Cara membersihkan Virus di Flashdisk dengan Linux

Pada Tulisan singkat berikut ini akan diuraikan cara-cara membersihkan Virus yang ada di Flashdisk 
dengan menggunakan ubuntu Feisty,Gutsy atau Versi distro Linux yang lainnya yang sudah diinstall 
DOS emulator DOSEMU (ada di repository default tinggal install atau melalui Terminal), apabila 
belum diinstall dapat dilakukan diterminal seperti berikut :

 $ sudo su, lalu tekan enter
 kemudian ketikan Password sebagai root
 # sudo apt-get install dosemu , lalu tekan enter
 kemudian DOSEMU akan terinstall, cara memanggilnya sebagai berikut :
 # dosemu , lalu tekan enter
 

Berikut ini langkah-langkah membersihkan virus, setelah DOSEMU terinstall:
A.Pilah file *.exe

  Didalam flasdisk yang terkena virus akan  banyak sekali file *.exe setiap satu folder/file ada 
  duplikat yang beresktension *.exe jadi akan membuang waktu kalau mencari satu persatu, dan belum 
  tentu semua *.exe itu virus bisa jadi memang ada file data yang berekstension *.exe di flasdisk 
  tersebut, untuk menghindari kesalahan kita akan mensortirnya terlebih dahulu. 

B.Kelompokan File *.exe kedalam satu Folder khusus
  1.Anggap saja flasdisk saat ini dimounting di /media/disk :
  2.Buat folder tempat penampungan sementara dengan kode sebagai berikut :
    mkdir ~/data

  3.Cari file berekstension *.exe dengan ukuran dibawah 100 kb (dalam kasus ini file virus 
    berukuran 38kb) di flasdisk dan pindahkan ke folder ~/data, dengan kode seperti berikut :
    find /media/disk -name "*.exe" -size -100k | xargs -i mv {} ~/data

  4.Periksa ulang lagi file-file di ~/data dengan beberapa pertimbangan yang anda miliki dan hapus   
    jika memang benar-benar virus, sampai saat ini belum pernah saya temui virus yang berukuran 
    besar sampai ratusan kilobyte.

  5. Hapus file lainnya misal autorun.inf file *.dll vb dan lainnya
  6. Normalkan attribut file, karena attribut file di linux dan windows berbeda kita akan 
     menggunakan DOSEMU untuk menetralisir attribut file-file yang diubah oleh virus, berikut cara
     mengaktifkan DOSEMU :
     /usr/bin/dosemu, atau ketikan  
     $ dosemu pada terminal

  7.Redirect /media/disk ke drive x:
    lredir x: linux\fs\media/disk/

  8.alu dari drive x: normalisasikan attribut file
    x:
    x:\>attrib -rhs /s /d


Perlu diperhatikan, 
masalah sebenarnya adalah terletak di komputer user yang terjangkit Virus, 
jika flasdisk diakses dari komputer yang terjangkit virus lagi, maka file-file 
akan kembali ter-hidden, sebaiknya system users yang menggunakan windows tersebut dibersihkan 
lebih dahulu sebelum mengakses flashdisk. !!!!

Contoh Judul TA/Skripsi Teknik Informatika




Hanya Untuk REFERENSI, bukan untuk diduplikasi......
A.KELOMPOK ALGORITMA DAN KRIPTOGRAFI /ENKRIPSI

1.PENINGKATAN KINERJA ALGORITMA SMITH WATERMAN UNTUK PENDETEKSIAN PLAGLARISME PADA DOKUMEN TEKS

2.PENERAPAN KRIPTOGRAFI KUNCI PUBLIK UNTUK MENGAMANKAN MULTIMEDIA MESSAGING SERVICE (MMS) 

3.STUDI DAN IMPLEMETASI ENKRIPSI,DEKSIPSI DAN TANDATANGAN DIGITAL MENGGUNAKAN ALGORITMA ELGAMAL

4.PENINGKATAN PERFORMASI INFORMATION RETRRIEVAL DENGAN MENERAPKAN RETEVANCE FEEBACK BERBASIS ALGORITMA GENETIKA

5.PERBANDINGAN PROSES ENKRIPSI DAN DESKRIPSI DENGAN MENGGUNAKAN ALGORITMA RSA DAN ELGAMAL CRYPTOSYSTEM PADA FILE TEKS

6.PENGAMANAN DATA XML DENGAN KRIPTOGRAFI KUNCI PUBLIK MENGGUNAKAN SKEMA ENKRIPSI ELGAMAL

7.PEMAKAIAN KRIPTOGRAFI KUNCI PUBLIK DENGAN ALGORITMA RSA UNTUK KEAMANAN DATA XML

8.PERBANDINGAN PROSES ENKRIPSI DAN DESKRIPSI DENGAN MENGGUNAKAN ALGORITMA RSA DAN ELGAMAL CRYPTOSYSTEM PADA FILE TEKS

9.IMPLEMENTASI AUDIO SECURITY DENGAN MENGGUNAKAN ALGORITMA ENKRIPSI DES (DATA ENCRYPTION STANDARD)


B.KELOMPOK ALGORITMA GENETIK

1.PENYELESAIAN MASALAH OPTIMISASI KOMBINATORIAL DENGAN ALGORITMA KENETIK

2.MPLEMENTASI ALGORITMA GENETIKA UNTUK KRIPTOANALISIS KNAPSACK CIPER

3.PENERAPAN ALGORITMA GENETIK DALAM PENYELESAIAN DALAM MASALAH PEWARNAAN GRAF

4.PENERAPAN ALGORITMA GENETIK DALAM PENJADWALAN KOMPETISI SEPAK BOLA

5.IMPLEMENTASI ALGORITMA GENETIKA UNTUK PENGENALAN BENTUK SEBAGIAN UNTUK BENTUK YANG BERTUMPANG TINDIH

6.MPLEMENTASI ALGORITMA GENETIK UNTUK PENCARIAN ARSITEKTUR OPTIMAL JARINGAN SYARAF TIRUAN STUDI KASUS PREDISKI VALUTA ASING EURO/USD

7.MULTIPLE PERSON DECISION MAKING MENGGUNAKAN FUZZY PREFERENCE RELATIONS, ALGORITMA GENETIK DAN METODE SAW (SIMPLE ADDITIVE WEIGHTING)

8.PENERAPAN ALGORITMA GENETIK UNTUK MENYELESAIKAN MASALAH KNAPSACK 0-1

9.MERANCANG DAN MENGIMPLEMENTASIKAN JARINGAN RUTE TERPENDEK MENGGUNAKAN ALGORITMA GENETIKA

10.APLIKASI ALGORITMA GENETIKA UNTUK MENYELISAIKAN MASALAH PENEMPATAN KONSETRATOR PADA JARINGAN STAR

11.APLIKASI ALGORITMA GENETIKA UNTUK MENYELISAIKAN MASALAH TRANSPORTASI KRITERIA GANDA DENGAN PARAMETER BIAYA FUZZY

12.CLUSTERING DENGAN ALGORITMA GENETIKA UNTUK SISTEM PENGENALAN POLA KELUARAN MULTISENSOR PENCIUMAN PADA PENGIDENTIFIKASIAN AROMA KOP
13.SIMULASI TRAFFIC LIGHT MENGGUNAKAN ALGORITMA GENETIKA

14.PENYELESAIAN MASALAH PENJADWALAN MATA KULIAH DENGAN MENGGUNAKAN ALGORITMA GENETIKA

15.PENCOCOKAN MINUTIAE SIDIK JARI MENGGUNAKAN ALGORITMA GENETIK DAN LOGIKA SAMAR


C.KELOMPOK ALGORITMA GENETIK DAN LOGIKA FUZZY

1.SISTEM PENDUKUNG KEPUTUSAN KLASIFIKASI AGEN MAJALAH BERDASARKAN KINERJA DENGAN MENGGUNAKAN ALGORITMA FUZZY C-MEANS

2.IDENTIFIKASI TANAMAN PADI PADA CITRA SATELIT MENGGUNAKAN ALGORITMA COMPLETE-LINK DAN FUZZY C-MEANS CLUSTERING

3.PENGGUNAAN ALGORITMA FUZZY SIMULATED ANNEALING DALAM OPTIMISASI PENJADWALAN MULTI CONSTRAIN
4.PENGGUNAAN ALGORITMA GENETIK PADA PROGRAM GOAL BILANGAN BULAT CAMPURAN NONLINEAR FUZZY UNTUK MENYELESAIKAN MASALAH OPTIMASI RELIABILITAS SISTEM

5.ALGORITMA GENETIK UNTUK MASALAH PROGRAM BILANGAN BULAT MULTI OBYEKTIF FUZZY

D.KELOMPOK ALGORITMA DENGAN METODE CAMPURAN

1.MODIFIKASI ALGORITMA TURBO RESERVE FACTOR UNTUK MENINGKATKAN PANJANG PERGESERAN POLA

2.PENGGUNAAN ALGORITMA FLAY-WAR SHEL DALAM PENCARIAN LINTASAN BELANJA TERPENDEK DI SWALAYAN

3.PENENTUAN MINIMUM SPAMMING TREE DENGAN ALGORITMA PRIM

4.ALGORITMA TANDA TANGAN DIGITAL

5.ALGORITMA ROUTING JARINGAN SEMU UNTUK JARINGAN KOMUNIKASI DATA

6.ALGORITMA OPTIMASI PEMBUATAN PERMUKAAN OBJEK 3 DIMENSI

7.PENERAPAN ALGORITMA DALA PENYELESAIAN MASALAH OPTIMAS DISKRIT

8.PENYELESAIAN MASALAH PENJADWALAN MATA KUIAH DI FMIPA DENGA ALGORITMA TABU SEARCH

9.PEMROGRAMAN EQUALISER 10. BAND STEREO DIGITAL DENGAN ALGORITMA PENAPIS

10.IMPLEMENTASI METODE FORWARD ERROR CORRECTION MENGGUNAKAN ALGORITMA REED-SOLOMON UNTUK OPTIMALISASI TRANSMISI FILE PADA APLIKASI FILE SHARING

11.PENERAPAN ALGORITMA STRATEGI EVOLUSI PADA PENYELESAIAN MASALAH WIRANIAGA

12.TERRAIN RENDERING DENGAN MENGGUNAKAN ALGORITMA LEVEL OF DETAIL BERDASARKAN STRUKTUR DATA QUADTREE

13.PENERAPAN ALGORITMA A* UNTUK MENCARAI LINTASAN ANTARA DUA TITIK DALAM APLIKASI PERMAINAN STRATEGI

14.PEMBUATAN RANDOM FRACTAL LANDSCAPE DENGAN ALGORITMA DIAMOND-SQUARE

15.PENERAPAN ALGORITMA PARAREL UNTUK PROSES PELATIHAN PADA JARINGAN SYARAF TIRUAN

16.MULTIPLE ATTRIBUTE DETISION MAKING MENGGUNAKAN ALGORITMA GENETIKA DALAM PENENTUAN BOBOT MELALUI PENDEKATAN SUBJEKTIF, OBJEKTIF DAN INTEGRASI SUBJEKTIF – OBJEKTIF

17.ANALISIS DATA TRANSAKSI PENJUALAN OBAT DI APOTEK MENGGUNAKAN ALGORITMA FP GROWTH DALAM DATA MINING

18.KLASIFIKASI DAN PREDIKSI RESIKO KREDIT PERBANKAN MENGGUNAKAN ALGORITMA NAVE BAYES DALAM DATA MINING

19.MPLEMENTASI ALGORITMA PENCOCOKAN STRING UNTUK PENGENALAN MUTASI GEN

20.APLIKASI KOMPRESI TEKS SMS DENGAN MENGGUNAKAN ALGORITMA HOFFMAN KANONIK DAN LZW

21.IMPLEMENTASI ALGORITMA DETEKSI TEPI SOBEL DALAM XILINX FPGA DENGAN DESKRIPSI VHDL

22.ALGORITMA HEURISTIK UNTUK MASALAH PENUGASAN DALAM SISTEM TERDISTRIBUSI

23.EVALUASI DAN PERBANDINGAN BEBERAPA ALGORITMA KLUSTERING UNTUK MENENTUKAN TITIK AWAL ITERASI PENCAIRAN NILAI MINIMUM FUNGSI

24.PRIMAL DUAL ALGORITMA DALAM PROGRAM LINEAR SIMPLEX VERSUS INTERIOR POINT

25.ALGORITMA PENYISIPAN DAN PENGAMBILAN WATERMARK CITRA DIGITAL DALAM DOMAIN FREKUENSI DENGAN DISCETE COSINE TRTANSFORM

26.SOLUSI OPTIMASI DENGAN ALGORITMA TITIK INTERIOR

27.KAJIAN TENTANG FAKTOR-FAKROT REPRODUKSI PADA ALGORITMA GENETIK UNTUK PENYELESAIAN MASALAH MAKSIMUM FUNGSI NONLINEAR DENGAN VARIABEL TERBATAS

28.ADAPTASI ALGORITMA VIGENEGERE CIPHER UNTUK KEAMANA DATA IMAGE

29.PEMBUATAN PROTOTIPE MESIN PELUBANG PCB BERBASIS KOMPUTER DAN OPTIMISASI KINERJANYA MENGGUNAKAN ALGORITMA NNH

30.ANALISIS PERBANDINGAN ALGORITMA STEEPEST DESCENT DENGAN ALGORITMA MARQUARDT UNTUK PENDUGAAN KOEFISIEN REGRESI NON LINIER

31.PENYELESAIAN MATCHING PROBLEM DENGAN MENGGUNAKAN ALGORITMA ARUS MAKSIMAL PADA SEBUAH NETWORK

32.ALGORITMA PENCARIAN INFORMASI PADA WORLD WIDE WEB BERBASIS ISI HALAMAN WEB DAN STRUKTUR LINK

33.ANALISA PERBANDINGAN BEBERAPA ALGORITMA QUASI NEWTON UNTUK PENCARIAN NILAI MINIMUM FUNGSI

34.SIMULASI SISTEM KESEIMBANGAN PASAR DENGAN MENGGUNAKAN ALGORITMA GENET

35.PERBANDINGAN BEBERAPA METODE PEMBANGKITAN BOBOT UNTUK JARINGAN SYARAF TIRUAN DENGAN ALGORITMA FUNGSI BOOLEAN

36.IMPLEMENTASI TEKNIK KRIPTOGRAFI KUNCI ASIMETRIK DENGAN ALGORITMA EL-GAMAL PADA CITRA DIGITAL

37.RESTORASI CITRA DIGITAL DENGAN ALGORITMA INPAINTING

38.SPEAKER RECOGNITION DENGAN MENGGUNAKAN FITUR CEPSTRUM DAN ALGORITMA LBG VECTOR QUANTIZATION

39.MERANCANG BANGUN PRESENSI KARYAWAN BERBASIS PENGENALAN WAJAH DENGAN ALGORITMA EIGENFACE (STUDI KASUS PADA STMIK NAMA INSTANSI)

40.PENERAPAN ALGORITMA VEKTOR UNTUK MENCOCOKKAN STRING (STRING MATCHING) PADA FINITE AUTOMATA

41.IMPLEMENTASI ALGORITMA APRIORI UNTUK MENENTUKAN POLA PESERTA KEGIATAN DIKLAT STUDI KASUS : UNIT PELAKSANA TEKNIS BALAI PENGEMBANGAN KEGIATAN BELAJAR PROPINSI NAMA PROPINSI


E.KELOMPOK TEKNOLOGI JARINGAN KOMPUTER  DAN KOMUNIKASI DATA

1.PLIKASI BASISDATA SISKAMAYA KHUSUSNYA APLIKASI KABEL JARINGAN METAL DAERAH CATUAN LANGSUNG PT. TELKOM USNIT KSO IV SEMARANG

2.PENERAPAN BASISDATA TERDISTRIBUSI PADA SISTEM INFORMASI PERPUSTAKAAN MENGGUNAKAN MODEL THREE TIER

3.MEMBANGUN ANTARMUKA PENGGUNA TWO-TIER UNTUK MENGATASI PERSOALAN TRANSAKSI BASISDATA KARENA TERJADI SISTEM CRASH

4.RANCANGAN WEB AKADEMIK DENGAN BASISDATA TERDISTRIBUSI

5.ANALISIS FILE TRANSFER PROTOCOL (FTP) SERVER UNTUK PENGIRIMAN DATA DALAM JARINGAN KOMPUTER DI PERUSAHAAN INTRACO GROUP JAKARTA UTARA -INDONESIA

6.SISTEM INFERENSI SAMAR BERBASIS JARINGAN ADAPTIF 

7.ALGORITMA ROUTING JARINGAN SEMU UNTUK JARINGAN KOMUNIKASI DATA

8.MEMPELAJARI DESAIN MONITORING JARINGAN UNTUK KABEL MODEM BERBASIS DOCSIS DAN SMMP DIJOGJA MEDIA NET

9.IMPLEMENTASI VOIP MENGGUNAKAN H.323 UNTUK JARINGAN MELALUI XY SERVER

10.IMPLEMENTASI JARINGAN SYARAF TIRUAN METODE FEEDFORWARD/BACKPROPAGATION UNTUK MEMPREDIKSI HARGA SAHAM

11.TRANSMISI DATA DALAM JARINGAN GSM DENGAN GPRS

12.IMPLEMENTASI VOIP PADA JARINGAN LOKAL DENGAN MENGGUNAKAN SIEMENS HIPA PADA TAHUN 2000

13.PREDIKSI HARGA SAHAM MENGGUNAKAN JARINGAN SYARAF REGRESI UMUM

14.RAMALAN HUJAN DENGAN JARINGAN SYARAF TIRUAN FEEDFOR WAR D BACK PROPAGATION

15.PENGELOLAAN BANDWITCH PADA INTERNET SERVICE PROVIDER (ISP) PT. JARINGAN LINTAS UTARA (JATARA)

16.PEMBUATAN PETA PEMANTAU STATUS ONLINE JARINGAN KAMPUS

17.INTERAKSI MANUSIA -KOMPUTER MENGGUNAKAN JARINGAN SYARAF TIRUAN MELALUI PELACAKAN TATAPAN MATA

18.DIRECT PRINTING PRINTER DOT MATRIX PADA JARINGAN DENGAN JAVA-RMI

19.IMPLEMENTASI DAN MONITORING JARINGAN BERBASIS MULTICAST PADA APLIKASI VIDEO CONVERENCE

20.ANALISIS APLIKASI TELEKONFERENSI MEMAKAI IP MULTICAST PADA JARINGAN LAN

21.IMPLEMENTASI SHOREWALL FIREWALL PADA SISTEM KEAMANAN JARINGAN PT: TELKOM

22.IMPLEMENTASI JARINGAN SYARAF TIRUAN MENGGUNAKAN METODE BACKPROPAGATION UNTUK PREDEKSI PENJUALAN "FLAT RATE"

23.SISTEM CERDAS UNTUK PREDIKSI NILAI VALUTA ASING STUDI KASUS EURO/USD BERBASIS JARINGAN SYARAF TIRUAN

24.APLIKASI LAYANAN BERBASIS LOKASI PADA JARINGAN GSM MENGGUNAKAN PYTHON FOR SERIES GO

25.IMPLEMENTASI WEB SERVICE UNTUK MONITORING JARINGAN

26.PENERAPAN ALGORITMA PARAREL UNTUK PROSES PELATIHAN PADA JARINGAN SYARAF TIRUAN

27.PENGEMBANGAN PERANGKAT LUNAK NELP DESK PT. ASTRA OTOSPART TBK JAKARTA

28.PROSES PENGETESAN PERANGKAT LUNAK DENGAN RATIONAL PURCOVE REGE DN RATIONAL QUANTITIFY

29.DESAIN DAN IMPLEMENTASI SISTEM PENGENDALI PERANGKAT LUNAK JARAK JAUH MENGGUNAKAN TELEPON GENGGAM

30.IMPLEMENTASI SMS DAN WAP DALAM SISTEM INFORMASI AKADEMIK

31.VISUALISASI STRUKTUR DATA R-TREE MENGGUNAKAN SPATIAL INDEX LIBRARY BERBASIS JAVA 2 STANDARD EDITION

32.WEB TEMPLATE SISTEM INFORMASI PROMOSI PERUSAHAN FURNITUR 

33.WEB ADMINISTRASI UNTUK KONFIGURASI SQUID PROXY PADA LINUX

34.VISUALISASI TAMAN WISATA CANDI PRAMBANAN BERBASIS MULTIMEDIA

35.VISUALISASI REPRODUKSI PADA TANAMAN BERBIJI DENGAN MENGGUNAKAN BAHASA PEMROGRAMAN DELPHI SEBAGAI ALAT BANTU PENGAJARAN

36.VISUALISASI REAKSI KIMIA DASAR UNTUK ALAT AJAR SMU TINGKAT PERTAMA

37.VISUALISASI PENJUMLAHAN BILANGAN DESIMAL YANG DIKONVERSIKAN KE BILANGAN BINER MENGGUNAKAN BORLAND DELPHI 

38.VISUALISASI PENJADWALAN PROSES PADA CPU OLEH SISTEM OPERASI DENGAN FLASH DAN VISUAL BASICVISUALISASI PARIWISATA SUMATRA UTARA BERBASIS MULTIMEDIA

39.VISUALISASI GRAFIK DUA DIMENSI FUNGSI TRIGONOMETRI, INTEGRAL DAN TURUNANNYA DENGAN MATLAB 

40.VISUALISASI ALGORITMA TRAVELLING SALESMAN UNJUK KERJA PERCEPTRON DALAM KASUS PENGENALAN POLA ANGKA DENGAN BERBAGAI NILAI LEARNING RATE 

41.UNJUK KERJA PERCEPTRON DALAM KASUS PENGENALAN POLA ANGKA DENGAN BERBAGAI NILAI LEARNING 

42.TRAVELLING SALESMAN PROBLEM (TSP) MENGGUNAKAN ALGORITMA ANT COLONY SYSTEM 

43.TRANSFORMASI GAMBAR 3D DENGAN MENGGUNAKAN METHODE MORPHING  

44.TEKNIK ANIMASI GRAFIS CONTOUR TIGA DIMENSI DENGAN OPENGL

45.STUDI DAN PENGEMBANGAN VIRUS MAKSTO WORD

46.SSITEM PAKAR BERBASIS WEB UNTUK MENDIAGNOSA KESEHEHATAN KULIT WAJAH 


F.KELOMPOK PENGAMBILAN KEPUTUSAN

1.SPK PENENTUAN HARGA CETAK PADA INDUSTRI PERCETAKAN

2.SPK PENENTUAN CALON TKI MENGGUNAKAN LOGIKA FUZZY MENGGUNAKAN METODE AHP

3.SPK PENDETEKSIAN KERUSAKAN UMUM PADA BARANG BARANG ELEKTRONIK BERBASIS WEB

4.SISTEM REQUEST NON STOP MUSIC BERBASIS SHORT MESSAGE SERVICE STUDY KASUS 95 .8 FM PRAMBORS RADIO 

5.SISTEM PENDUKUNG KEPUTUSAN UNTUK PEMILIHAN LOKASI PABRIK DENGAN METODE BROWN -GIBSON  

6.SISTEM PENDUKUNG KEPUTUSAN UNTUK PEMBORAN SUMUR MINYAK BERDASARKAN PERHITUNGAN EKONOMI

7.SISTEM PENDUKUNG KEPUTUSAN PEMILIHAN MATA KULIAH PILIHAN DENGAN METODE FUZZY

8.SISTEM PENDUKUNG KEPUTUSAN PELUNCURAN PRODUK PAKAIAN WANITA DENGAN METODE ANALYTIC HIERARCHY PROCESS

G.KELOMPOK INTELEJENSI BUATAN /SISTEM PAKAR 

1.SISTEM PAKAR UNTUK MENGANALISIS KERUSAKAN HARDWARE PADA KOMPUTER

2.SISTEM PAKAR UNTUK MENENTUKAN DIET MENURUT GOLONGAN DARAH

3.SISTEM PAKAR UNTUK MENDIAGNOSIS PENYAKIT DEMAM BERDARAH SECARA ONLINE

4.SISTEM PAKAR PEMBAGIAN HARTA WARISAN TANAH MENURUT HUKUM KUHPERDATA

5.SISTEM PAKAR MENGGUNAKAN SMS GATEWAY UNTUK DIAGNOSA PENYAKIT PADA KUCING

6.ISTEM PAKAR IDENTIFIKASI ORDO, FAMILI, GENUS PADA TUMBUHAN MONOKOTIL

7.SISTEM PAKAR BERBASIS WEB UNTUK MEDIAGNOSA PENYAKIT TUBERKOLUSIS PADA ANAK 

8.SISTEM PAKAR BERBASIS WEB UNTUK IDENTIFIKASI JENIS TANAMAN ADENIUM DAN DIAGNOSA PENYAKIT TANAMANADENIUM SERTA CARA PENAGGULANGANNYA 
H.KELOMPOK TEKNOLOGI INFORMASI

1.VISTEM PENGANALISIS DATA LAPORAN KEUANGAN DENGAN METODE RASIO PADA ORGANISASI NIRLABA BHMN

2.SITEM INFORMASI PERSEWAAN VCD /DVD FILM BERBASIS WEB DAN WAP

3.SISTEM LAYANAN RESERVASI HOTEL, PAKET WISATA DAN TIKET PESAWAT SECARA ON-LINE PADA DEWATA TOUR DAN TRAVEL

4.SISTEM LAYANAN PEMBAYARAN PAJAK BUMI DAN BANGUNAN (PBB) BERBASIS SMS

5.SISTEM LAYANAN IZIN GANGGUAN HO (HIRDINATE ORDONANTE) BERBASIS WEB

6.PENDEKATAN NATURAL LANGUAGE PROCESSING PADA SISTEM TEMU BALIK INFORMASI DENGAN MENGGUNAKAN LINGUISTICALLY-MOTIVATED INDEXING

7.KAJIAN PEMBANGUNAN ONTOLOGI SECARA OTOMATIS PADA KOLEKSI DOKUMEN DALAM SISTEM TEMU BALIK INFORMASI

8.CLUSTERING PADA KOLEKSI DOKUMEN LAYANAN PESAN SINGKAT TELEPON SELULER

9.APLIASKI E-LEARNING DALAM PEMBELAJARAN INTERAKTIF SISTEM OPERSI

10.ANALISIS DAN IMPLEMENTASI INTERPRETER BERBASISKAN BAHASA GPSS PADA PC

11.KAJIAN DYNAMIC SOURCE ROUTING SEBAGAI PROTOKOL ROUTING UNTUK BLUETOOTH SCATTERNET

12.PEMBANGUNAN APLIKASI MOBILE TICKETING DENGAN MENGGUNAKAN BARCODE DATAMATRIX

13.IMPLEMENTASI WIRELESS WEB SERVICE UNTUK MENDUKUNG LAYANAN PADA MOBILE-BANKING

14.PERANCANGAN ARSITEKTUR SISTEM INFORMASI OBAT BERBASIS TEKNOLOGI WEB SERVICE (KASUS: UNTUK USER DENGAN MOBILE DEVICE)

15.SISTEM LAYANAN AKADEMIK BERBASIS SHORT MESSAGE SERVICE (SMS)

16.PEMBANGUNAN DIGITAL LIBRARY BERBASIS KONSEP KNOWLEDGE MANAGEMENT MENGGUNAKAN CONCEPT MAPPING SEBAGAI METODE VISUALISASI PENGETAHUAN
17.PENGEMBANGAN ELEARNING DENGAN MATERI YANG ADAFTIF
18.ARSITEKTUR SISTEM LELANG ONLINE BERBASIS SISTEM MULTI-AGEN
19.PERANCANGAN FRAMEWORK SEKURITI SISTEM INFORMASI LAYANAN MEDIK

I.KELOMPOK REKAYASA PERANGKAT LUNAK

1)PEMBANGUNAN PERANGKAT LUNAK PEMBANGKIT SIMULASI MODEL KOMPUTER

2)PENGEMBANGAN PTOTOTIPE MODEL VIRTUAL REALITY INTERAKTIF

3)PENGEMBANGAN PROTOTIPE APLIKASI UNTUK MODEL

4)PERANCANGAN MODEL ANIMASI PERILAKU INTERAKTIF YANG DINAMIS DAN FLEKSIBEL

5)PENGINDENTIFIKASI BAHASA MENGGUNAKAN METODE N-GRAM

6)PEMBANGUNAN SISTEM PERANGKAT AJAR SIMULASI ANTRIAN

7)PREDIKSI HARGA SAHAM DENGAN METODE RANDOM WALK

8)ANALISIS VALUE AT RISK (VAR) PORTOFOLIO DENGAN MENGGUNAKAN METODE VARIANSI KOVARIANSI

9)PENGEMBANGAN PERANGKAT LUNAK UNTUK PREDIKSI HARGA SAHAM

10) DENGAN MENGGUNAKAN MODEL AUTOREGRESSIV UNTEGRATED MOVINO AVERAGE (ARIMA)

11)PENGEMBANGAN PERANGKAT LUNAK UNTUK PENENTUAN HARGA OPION SAHAM DENGAN MENGGUNAKAN MODEL BLAKSHOCK

12)STUDI DAN APLIKASI SIMULASI UNTUK MENCARI SOLUSI JOB-SHOP SCHEDULLING PROBLEM DENGNA WAKTU PENYELESAIAN TERKECIL

13)PENGEMBANGAN PERANGKAT LUNAK PERIKLANAN KEPADA PELANGGAN TELEPON GENGGAM

14)PEMBANGUNAN MOBILE FILE SERVICE YANG MENGGUNAKAN GENERAL PACKET RADIO SERVICE (GPRS)

15)PROTOTIPE PERANGKAT LUNAK PENJADWALAN PRODUKSI PADA LINGKUNGAN MESIN JOB SHOP DENGAN OPTIMASASI RATA WAKTU TUNGGU


J.KELOMPOK WEB, GRAFIK DAN MULTIMEDIA

1)PENGEMBANGAN PERANGKAT LUNAK UNTUK MELAKUKAN KONVERSI FILE AUDIO MP3

2)PEMEROSESAN TEKS BERBASISKAN STANDAR UNICODE AKSARA BALI

3)STUDI DAN IMPLEMENTASI WATERMATING VIDEO TERKOMPRESI PADA DOMAIN BISTREAM MPEG-2

4)PERLINDUNGAN HAK CIPTA PADA DATA AUDIO MENGGUNAKAN TEKNIK WATERMARKING PHASE CODING

5)PENGISIAN FORM APLIKASI TERTULIS DENGAN MENGGUNAKAN PENGENALAN SUARA

6)STUDI DAN IMPLEMENTASI WATERMARKING CITRA DIGITAL DENGAN MENGGUNAKAN FUNGSI HASH

7)STUDI DAN IMPLEMENTASI STEGANOGRAFI PADA BERKAS MIDI

8)IMAGE ENHANCEMENT DENGAN METODE MULTI SCALE RETINEX

9)STUDI DAN IMPLEMENTASI PENYEMBUNYIAN DATA DI DALAM FILE VIDEO DIGITAL

10)WATERMARKING PADA AUDIO BERFORMAT WAV DENGAN TEKNIK TIME BASE MODULATION

11)IMPLEMENTASI FRAMEWORK MANAJEMEN INSTRUSION DETECTION SYSTEM MENGGUNAKAN NETWORK MANAGEMENT SYSTEM UNTUK STUDI KASUS PADA JARINGAN DEPARTEMEN INFORMATIKA

12)PERANCANGAN ANTARMUKA APLIKASI E-LEARNING BERBASIS WEB STUDI KASUS: PENDEKATAN ASYNCHRONOUS JAVA SCRIPT AND XML (AJAX) PADA ANTARMUKA APLIKASI E-LEARNING

Kamis, 23 Oktober 2008

Modul FORm

1. Simpan dengan Nama File index.html

?HTML>

?HEAD>

?TITLE>Halaman Utama?/TITLE>

?/HEAD>
?frameset rows = "20%, *" border ="0">
?frame src = "Judul.html" scrolling ="no">
?frameset cols = "20%, *, 30%" border ="1">
?frame src = "kiri.html">
?frame src = "Entridata.html">
?frame src = "tabelmahasiswa.html">
?/frame>

?BODY>
?bgsound src = "/home/jurusan2/Music/Damien_Rice-The_Blowers_Daughter.mp3" loop = "true">

?/BODY>

?/HTML>

2. Simpan dengan Nama File Judul.html

?HTML>

?HEAD>

?TITLE>Contoh Judul?/TITLE>

?/HEAD>

?BODY bgcolor="grey">

?TABLE border =1 valign ="center">

?font color="red">

?TR>?TH width ="120">Logo?/TH>

?TH width ="900" align="left">
?H3>SEKOLAH TINGGI MANAJEMEN INFORMATIKA DAN KOMPUTER?/H3>?P>
?H1>STMIK KHARISMA KARAWANG?/H1>?P>
?/TH>?/TR>

?/TABLE>

?/BODY>

?/HTML>

3. Simpan dengan Nama File Entridata.html

?HTML>

?HEAD>

?TITLE>Contoh Penggunaan Formulir?/TITLE>

?/HEAD>

?BODY>

?FORM ACTION = "info.htm" METHOD = "GET">

?h4>ENTRI DATA MAHASISWA STMIK KHARISMA KARAWANG ?/H4>
?HR>
?pre>
NPM : ?INPUT TYPE = "TEXT" NAME = "npm" SIZE = "14"MAXLENGTH = "14">

Nama : ?INPUT TYPE = "TEXT" NAME = "nama" SIZE = "30"MAXLENGTH = "30">

Gender : ?INPUT TYPE = "RADIO" NAME = "sex" CHECKED>Pria
?INPUT TYPE = "RADIO" NAME = "sex">Wanita

Prodi : ?SELECT NAME = "prodi">

?OPTION VALUE = "TI" selected>Teknik Informatika

?OPTION VALUE = "SI">Sistem Informasi

?OPTION VALUE = "MI">Manajemen Informatika

?OPTION VALUE = "KA">Komputerisasi Akuntansi

?OPTION VALUE = "TK">Teknik Komputer

?/SELECT>

Jenjang : ?SELECT NAME = "jenjang">

?OPTION VALUE = "D1" selected>D1

?OPTION VALUE = "D2">D2

?OPTION VALUE = "D3">D3

?OPTION VALUE = "S1">S1

?OPTION VALUE = "S2">S2

?OPTION VALUE = "S3">S3
?/SELECT>

Hobby : ?INPUT TYPE = "CHECKBOX" NAME = "musik" CHECKED>Main Musik
?INPUT TYPE = "CHECKBOX" NAME = "komputer">Membuat Program Komputer
?INPUT TYPE = "CHECKBOX" NAME = "olahraga">Olah Raga

Komentar Anda:?BR>

?TEXTAREA NAME = "komentar"

ROWS = "5" COLS = "40"

WRAP>Tulis Komentar disni

?/TEXTAREA>

?BR>
?/pre>

?INPUT TYPE = "BUTTON" NAME = "btnsimpan" VALUE = "Simpan">
?INPUT TYPE = "BUTTON" NAME = "btnPerbaiki" VALUE = "Perbaiki">

?INPUT TYPE = "BUTTON" NAME = "btnhapus" VALUE = "Hapus">
?INPUT TYPE = "BUTTON" NAME = "btncari" VALUE = "Cari">
?INPUT TYPE = "BUTTON" NAME = "btnkembali" VALUE = "Kembali">

?hr>

?/FORM>

?/BODY>

?/HTML>

4. Simpan dengan Nama File Kiri.html

?HTML>

?HEAD>

?TITLE>Menampilkan Password?/TITLE>

?/HEAD>

?BODY BACKGROUND = "nada.jpg">

?pre>
Silahkan Login terlebih dahulu
NPM : ?INPUT TYPE = "TEXT" NAME = "usernpm" SIZE = "14" MAXLENGTH = "14">

Password : ?INPUT TYPE = "PASSWORD" NAME = "password" SIZE = "8" MAXLENGTH = "8">

?BR>

?INPUT TYPE = "SUBMIT" VALUE = "Aktifkan">

?INPUT TYPE = "RESET" VALUE = "Kosongkan">

?/pre>
?/BODY>

?/HTML>

Simpan dengan Nama File Tabelmahasiswa.html
?HTML>

?HEAD>

?TITLE>Tabel Sederhana?/TITLE>

?/HEAD>

?BODY>

?pre>
?TABLE border =1 valign ="center">

?CAPTION>Daftar Mahasiswa?/CAPTION>

?TR>?TH>NPM?/TH> ?TH>Nama?/TH> ?TH>Gender?/TH> ?TH>Prodi?/TH> ?TH>Jenjang?/TH> ?TH>Hobby?/TH>?/TR>

?TR>?TD>43E570260?/DH> ?TD>A?/TD> ?TD>A?/TD> ?TD>A?/TD> ?TD>A?/TD> ?TD>A?/TD>?/TR>
?TR>?TD>43E570261?/DH> ?TD>B?/TD> ?TD>B?/TD> ?TD>B?/TD> ?TD>B?/TD> ?TD>B?/TD>?/TR>
?TR>?TD>43E570262?/DH> ?TD>C?/TD> ?TD>C?/TD> ?TD>C?/TD> ?TD>C?/TD> ?TD>C?/TD>?/TR>

?/TABLE>
?/pre>

?/BODY>

?/HTML>

Kamis, 04 September 2008

Kisi-Kisi UTS September 2008

A. Kisi-kisi Soal Ujian Praktek Pemrograman Vis_Basic MI dan KA Semester 5 Pagi

Component yang dibutuhkan,soal meliputi :
1. Pengubahan Properties tiap Component
2. Menulis Kode Program
3. Desain Formulir

B. Kisi-kisi Soal Ujian Praktek Pemrograman Vis_Basic TI dan SI Semester 5 Pagi

Disediakan Kode Program dan FLowChart untuk dianalisis, kemudian rancanglah atau Desain
Formulir yang paling cocok berikut pengubahan semua Properties dari Component yang dibutuhkan

C. Kisi-kisi Soal Ujian Praktek Pemrograman WEB dan Multimedia TI dan SI Semester 7 Malam

Materi meliputi :
1. TAG Dasar
2. Link
3. CSS
4. Tabel
5. Frame
6. Form

Jumat, 22 Agustus 2008

GNU General Public License



Apa itu Lisensi Publik Umum GNU (GNU General Public License)

[ GNU GPL Asli | Original GNU GPL ]

This is an unofficial translation of the GNU General Public License into Indonesian.
It was not published by the Free Software Foundation, and does not legally state the
distribution terms for software that uses the GNU GPL
only the original English text of the GNU GPL does that. 
However, we hope that this translation will help Indonesian speakers
understand the GNU GPL better.

(Ini merupakan terjemahan tidak resmi dari Lisensi Publik Umum GNU 
(GNU General Public License) kedalam bahasa Indonesia. 
Terjemahan ini tidak dipublikasikan oleh Free Software Foundation (FSF, Yayasan Perangkat Lunak Bebas), 
serta tidak menyatakan secara hukum ketentuan dari perangkat lunak yang menggunakan GNU GPL--
hanyalah versi bahasa Inggris yang resmi yang memiliki kekuatan hukum. 
Namun, kami harapkan bahwa terjemahan ini akan membantu yang berbahasa Indonesia 
memahami GNU GPL secara lebih baik).

Yang harus dilakukan jika melihat kemungkinan terjadi pelanggaran GPL

Terjemahan dari GPL

Lisensi Publik Umum GNU (The GNU General Public License, GPL) dalam bentuk teks biasa

Lisensi Publik Umum GNU (The GNU General Public License, GPL) dalam bentuk Texinfo



Daftar Isi

LISENSI PUBLIK UMUM GNU (GNU GENERAL PUBLIC LICENSE)

Mukadimah

KETENTUAN DAN PERSYARATAN UNTUK MENYALIN, MENDISTRIBUSIKAN DAN MEMODIFIKASI

Cara Menerapkan ketentuan-ketentuan Ini dalam Program Baru Anda


GNU GENERAL PUBLIC LICENSE

LISENSI PUBLIK UMUM GNU

Version 2, Juni 1991.

Hak cipta (C) 1989, 1991 Free Software Foundation, Inc. 

59 Temple Place - Suite 330, Boston, MA  02111-1307, USA


Semua orang diperbolehkan untuk menyalin dan mendistribusikan salinan sama persis 
dari dokumen lisensi ini, tetapi mengubahnya tidak diperbolehkan.


Mukadimah

Hampir semua lisensi dari perangkat lunak dirancang untuk merebut kebebasan anda 
dan mengubahnya. Sebaliknya, Lisensi Publik Umum GNU (GNU General Public License)
 bertujuan untuk menjamin kebebasan anda untuk berbagi dan mengubah perangkat lunak bebas -- 
untuk menjamin bahwa perangkat lunak tersebut tetap bebas bagi penggunanya. 
General Public License ini dapat diberlakukan terhadap hampir semua perangkat lunak Free Software Foundation 
dan program lain apa pun yang penciptanya mau menggunakan Lisensi ini. 
(Beberapa perangkat lunak Free Software Foundation lainnya menggunakan GNU Library Public License.) 
Anda dapat memberlakukannya terhadap program Anda juga.

Ketika kita berbicara tentang perangkat lunak bebas, kita mengacu kepada kebebasan, 
bukan harga. Lisensi Publik Umum kami dirancang untuk menjamin bahwa Anda memiliki kebebasan untuk 
mendistribusikan salinan dari perangkat lunak bebas (dan memberi harga untuk jasa tersebut jika Anda mau), 
mendapatkan source code atau bisa mendapatkannya jika Anda mau, mengubah suatu perangkat lunak atau 
menggunakan bagian dari perangkat lunak tersebut dalam suatu program baru yang juga bebas; dan mengetahui bahwa Anda dapat melakukan semua hal ini.


Untuk melindungi hak-hak Anda, kami perlu membuat batasan-batasan yang melarang orang lain 
untuk dapat menolak hak-hak Anda atau membuat Anda menyerahkan hak-hak Anda tersebut. 
Batasan-batasan ini diterjemahkan menjadi beberapa tanggung jawab bagi Anda jika Anda 
mendistribusikan salinan dari suatu perangkat lunak, atau memodifikasinya.


Sebagai contoh, jika Anda mendistribusikan salinan dari suatu program, baik secara gratis atau
 dengan biaya, Anda harus memberi semua hak-hak Anda kepada si penerima. 
Anda juga harus menjamin bahwa si penerima tersebut mendapatkan atau bisa mendapatkan source code-nya.


Kami melindungi hak-hak Anda dengan dua langkah:

(1)hak cipta terhadap perangkat lunak tersebut, dan

(2)Menawarkan Lisensi ini kepada Anda yang memberi Anda izin legal untuk menyalin, 
mendistribusikan dan/atau memodifikasi perangkat lunak tersebut.


Demi perlindungan bagi si pencipta dan kami juga, kami ingin memastikan bahwa semua orang
 mengerti bahwa tidak ada garansi bagi perangkat lunak bebas. Jika perangkat lunak tersebut 
dimodifikasi oleh orang lain dan didistribusikan, kami ingin sang penerimanya mengetahui 
bahwa apa yang mereka punyai bukanlah perangkat lunak yang aslinya, sehingga masalah apa pun 
yang ditimbulkan oleh orang lain tidak mencerminkan reputasi pencipta perangkat lunak yang 
asli.

Terakhir, program bebas apa pun terancam terus menerus oleh hak paten perangkat lunak. Kami ingin
 menghindari bahaya yang memungkinkan redistributor program yang bebas bisa mendapatkan
 hak paten untuk dirinya sendiri, yang mengakibatkan program tersebut menjadi tak 
bebas. Untuk mencegah hal ini, kami telah menyatakan dengan jelas bahwa hak paten apa pun 
harus dilisensikan bagi semua orang, atau tidak sama sekali.


Berikut adalah ketentuan dan persyaratan yang tepat untuk menyalin, mendistribusikan dan 
memodifikasi.

KETENTUAN DAN PERSYARATAN UNTUK MENYALIN, MENDISTRIBUSIKAN DAN MEMODIFIKASI


Lisensi ini berlaku untuk program apa pun atau karya lain yang memuat pemberitahuan yang 
ditempatkan oleh pemegang hak cipta memberitahukan bahwa program atau karya tersebut boleh 
didistribusikan di bawah persyaratan dari General Public License ini. Sang "Program", di 
bawah, mengacu pada program atau karya apa pun seperti yang telah disebutkan, dan "karya 
berdasarkan si Program" berarti si Program itu sendiri atau karya turunan apa pun di bawah 
hukum hak cipta: yang artinya, suatu karya yang memuat si Program atau bagian darinya, baik 
itu sama persis atau dengan modifikasi dan/atau diterjemahkan ke dalam bahasa lain. (Mulai 
dari sekarang, penerjemahan dimasukkan tanpa batas dalam ketentuan "modifikasi".) Setiap 
pemegang lisensi disebut sebagai "Anda".


Kegiatan selain menyalin, mendistribusikan dan memodifikasi tidak dilingkupi oleh Lisensi ini;
 kegiatan tersebut berada di luar ruang lingkup Lisensi ini. Kegiatan menjalankan si Program tidak
 dibatasi, dan keluaran dari si Program dilingkupi hanya jika isinya mempunyai dasar 
karya yang berbasis si Program tersebut (terlepas dari keluarannya dibuat dengan cara 
menjalankan si Program atau tidak). Benar atau tidaknya tergantung pada apa yang dilakukan si Program.

1.Anda boleh menyalin dan mendistribusikan sama persis dari source code si Program sebagaimana 
Anda menerimanya, dalam media apa pun, dengan syarat Anda menaruh pemberitahuan yang pantas 
tentang hak cipta dan penyangkalan terhadap garansi dengan jelas dan sepatutnya pada setiap 
salinan; menyimpan secara utuh semua pemberitahuan yang mengacu kepada Lisensi ini dan kepada 
ketiadaan garansi apa pun; dan memberi kepada penerima lainnya sebuah salinan dari Lisensi ini
 bersama si Program. Anda boleh memberi harga untuk kegiatan memindahkan salinan secara 
fisik, dan Anda boleh, sesuai pilihan Anda, menawarkan perlindungan garansi untuk harga tertentu.


2.Anda boleh memodifikasi satu atau lebih salinan si Program atau bagian dari si Program 
yang Anda miliki, sehingga membentuk suatu karya yang berdasarkan si Program, dan menyalin serta 
mendistribusikan modifikasi atau karya seperti yang telah disebutkan dalam ketentuan pada 
Bagian 1 di atas, dengan syarat Anda juga memenuhi semua persyaratan ini:

(a).Anda harus membuat agar berkas-berkas yang termodifikasi membawa pemberitahuan menyolok yang 
memberitahukan bahwa Anda telah mengubah berkas-berkas tersebut dan tanggal perubahan tersebut.


(b).Anda harus menghasilkan karya yang Anda sebarkan atau edarkan, baik seluruhnya atau sebagian 
atau di hasilkan dari suatu program atau dari berbagai bagian, untuk dilisensikan secara 
keseluruhan tanpa biaya kepada seluruh partai ketiga di bawah lisensi tersebut.


(c).Jika program yang dimodifikasi saat dijalankan dapat membaca perintah-perintah secara 
interaktif, Anda harus dapat mewujudkannya, saat memulai menjalankan sesuatu interaktif 
dengan cara yang paling wajar, mencetak atau menampilkan suatu pengumuman termasuk pemberitahuan hak cipta dan tidak adanya garansi (atau lainnya, yang mengatakan kalau Anda 
menyediakan garansi, dan pemakai boleh mengedarkan program tersebut berdasarkan suatu 
kondisi/persyaratan, dan beritahukan kepada mereka bagaimana caranya melihat salinan dari 
lisensi tersebut. (Pengecualian : Jika program itu sendiri adalah interaktif tapi tidak 
mencetak pemberitahuan seperti di atas, karya Anda yang berdasarkan program tersebut juga 
tidak diharuskan mencetak pemberitahuan tersebut.)


Persyaratan-persyaratan ini diperuntukkan untuk karya yang dimodifikasi secara keseluruhan. Jika bagian yang dapat diidentifikasi dari karya tersebut tidak berasal dari suatu program, dan dapat dinyatakan berdiri sendiri dan suatu karya yang terpisah, maka Lisensi ini, dan bagian-bagiannya, tidak berlaku untuk bagian tersebut saat Anda mengedarkannya sebagai suatu karya yang terpisah. Namun, saat Anda mengedarkan bagian yang sama sebagai bagian dimana karya tersebut merupakan bagian dari program, pengedaran dari yang keseluruhan harus berdasarakan lisensi tersebut, yang perizinannya untuk lisensi yang lain diperluas ke seluruhnya, dan pada setiap bagian tidak peduli siapa yang menulisnya.

Maka, bukanlah tujuan dari bagian ini untuk mengklaim hak-hak atau memamerkan hak-hak Anda untuk bekerja menulis seluruhnya oleh Anda; daripada, tujuannya adalah untuk melatih hak untuk mengendalikan pendistribusian dari karya turunan atau kolektif berdasarkan si Program tersebut. Sebagai tambahan, agregasi belaka dari karya yang lain tidak berdasarkan dari si Program dengan si Program (atau dengan suatu karya berdasarkan si Program) pada kapasitas penyimpanan atau media pendistribusian tidak membawa karya lainnya di bawah lingkup dari Lisensi tersebut.

3.Anda boleh menyalin dan menyalurkan si Program (atau karya yang berdasarkan si Program tersebut, tercantum pada Bagian 1 dan 2) dalam object code atau bentuk yang dapat dijalankan seperti pada ketentuan yang tercantum pada Bagian 1 dan 2 di atas, dengan syarat Anda juga melakukan salah satu dari hal berikut:
(a).Menyertakannya dengan source code bersangkutan yang lengkap dan dapat dibaca, yang harus didistribusikan di bawah ketentuan yang tercantum pada Bagian 1 dan 2 di atas pada suatu media yang dipergunakan secara khusus untuk pertukaran perangkat lunak; atau,

(b).Menyertakannya dengan penawaran tertulis, yang berlaku untuk setidaknya tiga tahun, untuk memberi pihak ketiga mana pun, dengan suatu harga yang tidak melebihi biaya untuk melakukan pendistribusian sumber, source code bersangkutan yang lengkap dan dapat dibaca, untuk didistribusikan di bawah ketentuan dari Bagian 1 dan Bagian 2 di atas pada suatu media yang dipergunakan secara khusus untuk pertukaran perangkat lunak; atau,

(c).Menyertakannya dengan informasi yang Anda terima berhubungan dengan penawaran untuk mendistribusikan source code yang bersangkutan. (Alternatif ini diperbolehkan hanya untuk distribusi non-komersil dan hanya jika Anda memperoleh program dalam bentuk object code atau bentuk yang dapat dijalankan dengan penawaran seperti yang telah disebutkan, menurut Subbagian b di atas.)

Source code dari sebuah karya berarti bentuk yang diinginkan dari pekerjaan untuk memodifikasinya. Untuk sebuah karya yang dapat dijalankan, source code lengkap artinya semua source code untuk semua modul yang dikandungnya, ditambah berkas-berkas definisi yang berhubungan, ditambah script yang digunakan untuk mengendalikan kompilasi dan instalasi dan bentuk yang dapat dijalankannya. Bagaimanapun, sebagai pengecualian, pendistribusian source code tidak diperlukan untuk memasukkan semua komponen yang biasanya didistribusikan (dalam bentuk source atau biner) bersama dengan komponen utama (kompilator, kernel, dan sebagainya) dari sistem operasi dimana program tersebut berjalan, kecuali komponen tersebut mendampingi bentuk yang dapat dijalankannya. Jika pendistribusian dari bentuk yang dapat dijalankannya dan object code dibuat dengan penawaran akses untuk menyalin dari tempat yang telah ditentukan, maka penawaran akses untuk menyalin source code dari tempat yang sama dihitung sebagai pendistribusian dari source code, walaupun pihak ketiga tidak diharuskan untuk menyalin source code bersama-sama dengan object code.

4.Anda tidak boleh menyalin, mengubah, mensublisensikan, atau mendistribusikan si Program tersebut kecuali sebagaimana telah diterangkan pada Lisensi ini. Segala usaha untuk menyalin, mengubah, mensublisensikan, atau mendistribusikan si Program tersebut adalah tidak sah, dan secara otomatis akan membatalkan hak-hak Anda di bawah Lisensi ini. Akan tetapi, mereka yang sudah mendapatkan salinan, atau hak-hak dari Anda di bawah Lisensi ini tidak akan dibatalkan lisensinya selama mereka tetap mematuhi Lisensi ini.

5.Anda tidak diharuskan menerima Lisensi ini, karena anda belum menyetujuinya. Tetapi, tidak ada lisensi lain yang memberi anda izin untuk memodifikasi atau mendistribusikan Program tersebut atau turunannya. Kegiatan tersebut dilarang oleh hukum jika anda tidak menerima Lisensi ini. Oleh karena itu, dengan memodifikasi atau mendistribusikan program tersebut (atau hasil kerja berdasarkan program tersebut), berarti Anda menerima Lisensi ini, dan semua ketentuan serta kondisi untuk menyalin, mendistribusikan atau memodifikasi program tersebut atau hasil kerja berdasarkan program tersebut.

6.Setiap kali anda mendistribusikan si Program tersebut (atau hasil kerja lain berdasarkan Program tersebut), penerima secara otomatis menerima lisensi dari pemberi lisensi untuk menyalin, mendistribusikan atau memodifikasi si Program tersebut berdasarkan persyaratan dan kondisi yang ada. Anda tidak boleh memberikan pembatasan lain terhadap perilaku penerima terhadap hak-hak yang telah diberikan . Anda tidak bertanggung jawab untuk memaksakan penyesuaian pihak ketiga terhadap Lisensi ini.

7.Jika sebagai konsekuensi dari keputusan pengadilan atau pelanggaran paten atau hal yang lainnya (tidak terbatas kepada permasalahan paten), kondisinya tergantung pada anda (jika ada suruhan dari pengadilan, kesepakatan atau yang lainnya) yang berbeda dari Lisensi ini, mereka tidak menerima kesepakatan Lisensi ini. Jika kita tidak bisa menyebarkan agar dapat secara simultan terpuaskan kesepakatan di bawah Lisensi ini dan kesepakatan yang lainnya, kemudian sebagai konsekuensi nya kita tidak dapat mengedarkan seluruh program sama sekali. Sebagai contoh, jika lisensi paten tidak membolehkan pembayaran royalti (hak pakai) dari program dimana pengguna menerima salinannya secara langsung atau tidak langsung dari Anda, maka satu-satunya jalan untuk Anda memuaskan antara yang menerima salinan dan Lisensi ini adalah untuk menjelaskan keseluruhan distribusi program.
Jika ada bagian dari sini termasuk tidak sah atau tidak dapat diterapkan di bawah keadaan tertentu apa pun juga, keseimbangan dari bagian ini bertujuan untuk menerapkan dan bagian ini sebagai keseluruhan adalah diperuntukkan untuk menerapkan hal yang lainnya.
Ini bukan bermaksud untuk mempengaruhi Anda untuk melanggar paten tertentu atau klaim hak kepemilikan yang lain atau untuk mengadu keabsahan klaim hak kepemilikan apa pun; bagian ini mempunyai maksud dan tujuan untuk melindungi integritas dari sistem pendistribusian perangkat lunak bebas, dimana perangkat lunak itu diimplementasikan oleh praktek lisensi umum. Banyak orang sekarang telah dapat membuat kontribusi umum untuk mendistribusikan penggunaan perangkat lunak dalam sebuah sistem yang terbuka; hal ini tergantung dari si pencipta/penderma jika ia punya keinginan untuk menyebarkan/tidak menyebarkan aplikasi yang ia buat ke masyarakat luas tanpa mengikuti sistem yang berlaku dan pemegang lisensi tidak dapat menentukan pilihan tersebut. Bagian ini bertujuan untuk membuat sebuah pemahaman yang jelas tentang apa yang dipercayai sebagai akibat dari sisa Lisensi ini.

8.Jika distribusi dan/atau penggunaan si Program dibatasi di negara-negara tertentu saja melalui paten atau hak cipta antar muka, pemegang hak cipta orisinil yang menempatkan si Program di bawah Lisensi ini boleh menambahkan batasan pendistribusian geografis secara ekplisit terkecuali negara-negara yang disebut di atas, sehingga distribusi hanya terdapat di dalam atau di antara negara-negara yang diperbolehkan. Dalam kasus semacam itu, Lisensi ini menyertakan limitasi di atas sebagaimana tertulis di dalam tubuh Lisensi ini.

9.Free Software Foundation diperbolehkan menerbitkan versi revisi atau versi baru dari General Public License dari waktu ke waktu. Versi baru semacam itu akan tetap memiliki semangat yang sama dengan versi sebelumnya, tapi dapat berbeda detil untuk menangani problem baru atau perhatian baru. Setiap versi diberikan nomor versi yang berbeda-beda. Jika si Program menyatakan nomor versi dari Lisensi ini yang diberlakukan dalam Program tersebut dan versi-versi berikutnya dari Program tersebut, Anda memiliki pilihan untuk mengikuti syarat dan kondisi dari versi ini atau salah satu versi berikutnya yang diterbitkan oleh Free Software Foundation. Jika Program tidak menyatakan nomor versi dari Lisensi ini, Anda boleh memilih sembarang versi yang diterbitkan oleh Free Software Foundation.

10.Jika Anda menginginkan untuk menyertakan bagian dari Program ke dalam program bebas yang lain yang kondisi distribusinya berbeda, Anda harus menanyakan kepada penulis program. Untuk software yang dihakciptakan oleh Free Software Foundation, anda harus menanyakan ke Free Software Foundation; kami kadang kala membuat pengecualian dalam hal ini. Keputusan kami akan ditentukan oleh dua hal yaitu untuk menjaga status bebas dari semua turunan perangkat lunak bebas kami dan untuk mempromosikan pengunaan bersama dan penggunaan kembali dari perangkat lunak secara umum.

11.TIDAK ADA GARANSI
KARENA IZIN PROGRAM BEBAS BIAYA, TAK ADA JAMINAN TAMBAHAN UNTUK PROGRAM SAMPAI BATASAN YANG DITENTUKAN OLEH HUKUM YANG ADA. KECUALI JIKA ADA TULISAN YANG DISEBUTKAN OLEH PEMEGANG HAK CIPTA DAN ATAU KELOMPOK LAIN YANG MENYEDIAKAN PROGRAM SEBAGAI TANPA JAMINAN JENIS APAPUN, BAIK SECARA LANGSUNG MAUPUN TIDAK LANGSUNG, TERMASUK, TAPI TAK TERBATAS, JAMINAN DAYA JUAL DAN TUJUAN-TUJUAN TERTENTU. SEMUA RESIKO DARI KUALITAS DAN KEHANDALAN PROGRAM DITANGGUNG ANDA SENDIRI, JIKA TERJADI PROGRAM TERNYATA CACAT ATAU KURANG SEMPURNA, ANDA MEMBUAT ASUMSI DARI BIAYA PERBAIKAN, PEMBETULAN DAN KOREKSI SEPERLUNYA.

12.TIDAK DALAM KEADAAN APA PUN KECUALI DIBUTUHKAN OLEH HUKUM YANG ADA ATAU DISETUJUI DALAM TULISAN PEMEGANG HAK CIPTA, ATAU PIHAK LAIN YANG MEMODIFIKASI DAN MENDISTRIBUSIKAN PROGRAM SEPERTI YANG DIIZINKAN DI ATAS, ANDA BERTANGGUNG JAWAB ATAS KERUSAKAN , TERMASUK SECARA UMUM, KERUSAKAN KHUSUS, SENGAJA MAUPUN TIDAK DISENGAJA, YANG MENYEBABKAN PROGRAM TAK BISA DIGUNAKAN (TERMASUK, TAPI TAK TERBATAS HANYA PADA HAL TERSEBUT KEHILANGAN DATA ATAU DATA MENJADI TIDAK AKURAT, DISEBABKAN OLEH ANDA ATAU PIHAK KETIGA, ATAU KEGAGALAN PROGRAM UNTUK BEKERJASAMA DENGAN PROGRAM LAIN ), WALAU BAHKAN JIKA PEMEGANG HAK CIPTA ATAU PIHAK LAIN TELAH DIPERINGATKAN TENTANG KEMUNGKINAN KERUSAKAN TERSEBUT.

AKHIR KETENTUAN SERTA PERSYARATANNYA

Cara Menerapkan Ketentuan Ini dalam Program Baru Anda
Jika Anda mengembangkan suatu program baru, dan Anda menginginkan program tersebut menjadi hal yang paling mungkin berguna untuk digunakan oleh masyarakat, jalan paling baik untuk mencapai hal ini adalah dengan membuat program Anda menjadi perangkat lunak bebas dimana semua orang dapat mendistribusikannya kembali dan mengubahnya di bawah ketentuan-ketentuan ini.
Untuk melakukan hal itu, tambahkan pemberitahuan berikut ke program tersebut. Tindakan yang paling aman adalah untuk menambahkan pemberitahuan tersebut ke awal setiap berkas sumber agar dapat dengan efektif menyampaikan tidak termasuknya garansi; dan setiap berkas harus mempunyai setidaknya baris "hak cipta" dan petunjuk dimana pemberitahuan seluruhnya dapat ditemukan.
satu baris untuk nama program serta ide singkat tentang fungsinya.
Hak cipta (C) tahun  nama pencipta

Program ini adalah perangkat lunak bebas; Anda dapat menyebarluaskannya dan/atau memodifikasinya di bawah ketentuan-ketentuan dari GNU General Public License seperti yang diterbitkan oleh Free Software Foundation; baik versi 2 dari Lisensi tersebut, atau (dengan pilihan Anda) versi lain yang lebih tinggi.


Program ini didistribusikan dengan harapan bahwa program ini akan berguna, tetapi TANPA GARANSI; tanpa garansi yang termasuk dari DAGANGAN atau KECOCOKAN UNTUK TUJUAN TERTENTU sekalipun. Lihat GNU General Public License untuk rincian lebih lanjut.


Anda seharusnya menerima sebuah salinan GNU General Public License beserta program ini; jika tidak, tulis ke Free Software Foundation, Inc.,
59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

Tambahkan juga informasi untuk menghubungi Anda melalui surat elektronik atau surat biasa.
Jika programnya interaktif, buatlah agar program tersebut mengeluarkan pemberitahuan singkat seperti berikut ketika mode interaktif dimulai:
  Gnomovision versi 69, Hak cipta (C) tahun nama pencipta
  Gnomovision TIDAK MEMILIKI GARANSI APA PUN; untuk rincian ketik 'lihat g'.
Program ini adalah perangkat lunak bebas, dan Anda diperbolehkan untuk  menyebarluaskannya dengan syarat-syarat tertentu; ketik 'lihat s' untuk rincian.

Perintah-perintah hipotetis `lihat g' dan `lihat s' seharusnya menunjukkan bagian-bagian yang tepat dari General Public License. Tentu saja, perintah-perintah yang Anda gunakan dapat dipanggil melalui hal yang lain selain `lihat g' dan `lihat s'; perintah-perintah tersebut dapat berupa klik pada tombol mouse atau menu -- apa pun yang menurut Anda sesuai.
Anda juga seharusnya mendapatkan tanda tangan atasan Anda (jika Anda bekerja sebagai pemrogram) atau izin sekolah Anda, jika ada, tentang "penyangkalan hak cipta" untuk program tersebut, jika perlu. Berikut adalah contoh; ubah namanya:

Yoyodyne, Inc., dengan ini menyanggah kepentingan semua hak cipta di dalam program 'Gnomovision' (yang melakukan pass-pass pada kompilator) yang diprogram oleh James Hacker.

Tanda tangan Ty Coon, 1 April 1989
Ty Coon, Wakil Presiden Direktur

General Public License ini tidak mengizinkan memasukkan program Anda ke dalam program tak bebas. Jika program Anda adalah library subrutin, Anda boleh saja berpikir bahwa akan lebih berguna jika program tak bebas diperbolehkan untuk di-link ke library tersebut. Jika ini adalah apa yang Anda kehendaki, maka gunakanlah GNU Library General Public License daripada Lisensi ini.

Kembali ke halaman utama GNU.
Diterjemahkan ke bahasa Indonesia oleh Kelompok Kerja F/KOMAS 2001 serta disunting oleh Rahmat M. Samik-Ibrahim. Halaman ini dikelola oleh Kelompok Kerja Penterjemah Web Proyek GNU. Jika anda berminat untuk menjadi relawan penterjemah, atau ingin memberikan masukan dalam bahasa Indonesia, atau hanya sekedar ingin tahu lebih lanjut, silakan mengunjungi laman tersebut.
Silakan mengirimkan permintaan & pertanyaan (berbahasa Inggris) perihal FSF & GNU ke  gnu@gnu.org. Terdapat berbagai cara lain untuk menghubungi FSF. Silakan mengirimkan komentar (berbahasa Inggris) terhadap halaman-halaman ini ke webmasters@gnu.org. Kirimkan pertanyaan lainnya ke gnu@gnu.org.
Copyright notice above

Rabu, 20 Agustus 2008

Modul_IV_Vis_Basic

Modul Praktek IV Vis_Basic

A.Fungsi DateAdd
Adalah fungsi yang disediakan oleh Visual Basic untuk menambah data tanggal baik menambah harin bulan atau tahun. Adapunt penulisan secara umum sebagai berikut :

Syntax : DateAdd(interval, number, date)

B.Fungsi DateDiff

Digunakan untuk mencari jarak / perbedaan antara 2 tanggal.
Syntax :
DateDIff(interval,date1,date2[, firstdayofweek[, firstweekofyear]])

C.Fungsi DatePart
Syntax

DatePart(interval, date[,firstdayofweek[, firstweekofyear]])

Fungsi DatePart dapat digunakan untuk menentukan angka hari, bulan, tahun dari sebuah data tanggal. Misalkan kita mau mencari Hari apa tanggal 17 Juli 2006, dapat menggunakan contoh berikut:
DatePart("w", 17/07/2006, vbSunday)
W : menunjukan interval yang digunakan adalah dalam hitungan satu minggu(week)
17/07/2006 : Adalah data tanggal yang akan dicari harinya
VbSunday : Menunjukan hari pertama diseting pada hari minggu
DatePart memberikan hasil angka Numeric, hasil dari kode program diatas adalah angka 2 (dua) berarti tanggal 17 Juli 2006 jatuh pada hari senin( Minggu = 1, senin = 2, dst...).

PRAKTEK :
Rancanglah Formulir Berikut ini !!

Kode Program :


Private Sub CommandHitung_Click()
  Dim TanggalA, tanggalB As Date
  Dim UsiaTH 

  TanggalA = DTPicker1.Value
  tanggalB = DTPicker2.Value



  UsiaTH = DateDIff("yyyy", TanggalA, tanggalB)

  Textth.Text = UsiaTH


End Sub



Private Sub DTPicker1_Change()
  Dim Tanggal As Date
  Dim Angkahari
  Dim hari
  
  nhari = Array("", "Minggu", "Senin", "Selasa", "Rabu", "Kamis", "Jumat", "Sabtu")

    Tanggal = DTPicker1.Value
    Angkahari = DatePart("w", Tanggal, vbSunday)
    hari = nhari(Angkahari)

    Labelnamahari.Caption = hari
End Sub

Kamis, 14 Agustus 2008

Modul_Pemrograman_WEB_2

a.Link Relative
Buatlah Kkode HTML Pertama dan simpan dengan nama Menu.HTML
Sebagai berikut:

?HTML>
?HEAD>
?TITLE>Halaman Utama?/TITLE>
?/HEAD>
?BODY>
?H1>Halaman Utama?/H1>
?h2>
Silakan klik pada link-link berikut:?BR>
?A HREF = "halPertama.html">Halaman Pertama?/A>?BR>
?A HREF = "halkedua.html">Halaman Kedua?/A>?BR>
?/BODY>
?/HTML>

Kemudian Ketikan kode berikut, dan simpan dengan nama halpertama.html

?HTML>
?HEAD>
?TITLE>Halaman Satu?/TITLE>
?/HEAD>
?BODY>
?H1>Halaman Pertama dari Link Pertama?/H2>
?/BODY>
?/HTML>

Kemudian Ketikan kode berikut, dan simpan dengan nama halkedua.html

?HTML>
?HEAD>
?TITLE>Halaman dua?/TITLE>
?/HEAD>
?BODY>
?H1>Halaman Kedua dari Link Kedua?/H2>
?/BODY>
?/HTML>

b.Link Absolut:
?HTML>
?HEAD>
?TITLE>Halaman Utama?/TITLE>
?/HEAD>
?BODY>
?H1>Halaman Utama?/H1>
?h2>
Silakan klik pada link-link berikut:?BR>
?A HREF = "http:\\labkomp.krw">Masuk ke Situs Labkomp?/A>?BR>

?/BODY>
?/HTML>

c.Link Dengan Gambar
?HTML>
?HEAD>
?TITLE>Link dengan Gambar?/TITLE>
?/HEAD>
?BODY bgcolor = "blue">
?font color = "red" size = "18">
Klik
?ol type = "A">
?li>?A HREF = "image2.jpg">
?IMG SRC = "mtv.bmp" align = "center" width = 100 height = 100>
?/A>untuk melihat Gambar ke2
?li>?A HREF = "http:\\labkomp.krw">
Masuk ke Situs Labkomp
?/A>?BR>

?/BODY>
?/HTML>

d.Link Dalam Dokumen yang sama
?HTML>
?HEAD>
?TITLE> Memanggil Dokumen dalam Halaman Yang sama ?/TITLE>

?/HEAD>

?BODY bgcolor = "blue">
?p>
?a name = "BagianAtas">
?a href = #BagianBawah> Bagian Bawah?/a>?br>
?a href = #BagianTengah> Bagian Tengah?/a>?br>
?/a>
?/p>

?p>
?font color ="yellow" size = "3" style = "Bold">
?h3> Bagian Atas?/h3>
?pre>
Tulisan ini adalah Acak hanya untuk membedakan pemanggilan bagian dalam dokumen
Tulisan ini adalah Acak hanya untuk membedakan pemanggilan bagian alam dokumen
Tulisan ini adalah Acak hanya untuk membedakan pemanggilan bagian dalam dokumen
ulisan ini adalah Acak hanya untuk membedakan pemanggilan bagian dalam dokumen
Tulisan ini adalah Acak hanya untuk membedakan pemanggilan bagian dalam dokumen
Tulisan ini adalah Acak hanya untuk membedakan pemanggilan bagian dalam dokumen
Tulisan ini adalah Acak hanya untuk membedakan pemanggilan bagian alam dokumen
Tulisan ini adalah Acak hanya untuk membedakan pemanggilan bagian dalam dokumen
Tulisan ini adalah Acak hanya untuk membedakan
pemanggilan bagian dalam dokumen

Tulisan ini adalah Acak hanya untuk membedakan
pemanggilan bagian dalam dokumen
Tulisan ini adalah Acak hanya untuk membedakan
pemanggilan bagian dalam dokumen
?/pre>

?a name="BagianTengah">
?a href = "#BagianAtas">Bagian Atas?/a>?br>
?a href = "#BagianBawah">Bagian Bawah?/a>?br>
?/a>
?font color ="Red" size = "3" style = "Bold">

?h3> Bagian Tengah?/h3>
?pre>
Tulisan ini adalah Acak hanya untuk membedakan pemanggilan bagian dalam dokumen
Tulisan ini adalah Acak hanya untuk membedakan pemanggilan bagian dalam dokumen
Tulisan ini adalah Acak hanya untuk membedakan pemanggilan bagian dalam dokumen
pemanggilan bagian dalam dokumen
Tulisan ini adalah Acak hanya untuk membedakan pemanggilan

Tulisan ini adalah Acak hanya untuk membedakan

?/pre>

?a name="BagianBawah">
?a href = "#BagianAtas">Bagian Atas?/a>?br>
?a href = "#BagianTengah">Bagian TEngah?/a>?br>
?/a>
?font color ="Magenta" size = "3">
?h3> BagianBawah?/h3>
?pre>
Tulisan ini adalah Acak hanya untuk membedakan pemanggilan bagian Tulisan ini adalah Acak hanya untuk membedakan
pemanggilan bagian dalam dokumen

Tulisan ini adalah Acak hanya untuk membedakan
pemanggilan bagian dalam dokumen
Tulisan ini adalah Acak hanya untuk membedakan
pemanggilan bagian dalam dokumen
?/pre>
?/BODY>
?/HTML>

.: STMIK Kharisma Karawang :.

Rabu, 13 Agustus 2008

Logo STMIK Kharisma Warna

Background Putih

Background Hitam

.: STMIK Kharisma Karawang :.

Selasa, 12 Agustus 2008

Modul_3_V_B_Lanjutan

Rancangan Formulir

Source Code

Option Explicit
Public appexcel As Excel.Application
Public wbexcel As Excel.Workbook

Sub Setup()
On Error Resume Next
Set appexcel = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Set appexcel = CreateObject("Excel.Application")
End If
Err.Clear
On Error GoTo 0
Set wbexcel = appexcel.Workbooks.Open(App.Path & "\data2.xls")
End Sub

Sub Bersih()
Set appexcel = Nothing
Set wbexcel = Nothing
End Sub
Sub IsiWSheet()
Dim shtMahasiswa As Excel.Worksheet
For Each shtMahasiswa In wbexcel.Sheets
FBukaExcel.cmbSheet.AddItem shtMahasiswa.Name
Next
FBukaExcel.cmbSheet.Text = FBukaExcel.cmbSheet.List(0)
Set shtMahasiswa = Nothing
End Sub

Sub TAmpilpitur()
Dim shtexcel As Excel.Worksheet
Dim Rangefitur As Excel.Range
Dim kolompertama As Integer
Dim loop1 As Integer

FBukaExcel.LstExcel.Visible = True

Set shtexcel = wbexcel.Sheets(FBukaExcel.cmbSheet.Text)
Set Rangefitur = shtexcel.Rows(1)

If (Rangefitur.Cells(1, 1) = "") Then
kolompertama = 0
Else
kolompertama = Rangefitur.Find("").Column
End If

FBukaExcel.cmbKolom.Clear

For loop1 = 1 To kolompertama
FBukaExcel.cmbKolom.AddItem Rangefitur.Cells(1, loop1)
Next

FBukaExcel.cmbKolom.Text = FBukaExcel.cmbKolom.List(0)

Set shtexcel = Nothing
Set Rangefitur = Nothing
End Sub

Sub Listmaster()
Dim shtexcel As Excel.Worksheet
Dim Integerkolom As Integer
Dim rangeexcel As Excel.Range
Dim kolompertama As Integer
Dim loop1 As Integer

Set shtexcel = wbexcel.Sheets(FBukaExcel.cmbSheet.Text)
FBukaExcel.LstExcel.Clear
If (FBukaExcel.cmbKolom <> "") Then
Integerkolom = shtexcel.Rows(1).Find(FBukaExcel.cmbKolom.Text).Column
Set rangeexcel = shtexcel.Columns(Integerkolom)
If (rangeexcel.Cells(1, 1) = "") Then
kolompertama = 0
Else
kolompertama = rangeexcel.Find("").Row
End If
For loop1 = 2 To kolompertama
FBukaExcel.LstExcel.AddItem rangeexcel.Cells(loop1, 1)
Next
FBukaExcel.LstExcel.Visible = True

End If

Set shtexcel = Nothing
Set rangeexcel = Nothing
End Sub

Private Sub CMDKELUAR_Click()
End
End Sub

Sub Form_Load()
Setup
IsiWSheet
End Sub

Sub Form_Unload(Cancel As Integer)
Bersih
End Sub

Private Sub cmbSheet_Change()
FillFeaturesList
End Sub

Private Sub cmbKolom_Change()
Listmaster
End Sub

Sub cmbkolom_Click()
Listmaster
End Sub

Sub cmbsheet_Click()
TAmpilpitur
End Sub

.: STMIK Kharisma Karawang :.

Logo STMIK KHARISMA Transparan

Rabu, 06 Agustus 2008

Modul_3_V_B

MEMANGGIL APLIKASI(OBJECT)
Menggunakan GetObject dan CreateObject

a.Memanggil Aplikasi Mi_ crosoft word

Komponen yang dibutuhkan :
3 tombol Command

Rancanglah seperti tampilan Form berikut:
Properti yang diubah:
a.command1
Name : CMDBukaWord
Caption : &Buka m_i_crosoft word
b.command2
Name : CMDPutusWord
Caption : &Putus Koneksi
c.command3
Name : CMDKeluar
Caption : &Keluar

Source Code :

Option Explicit
Public appword As Word.Application
Public halword As Word.Document

Private Sub CMDKELUAR_Click()
End
End Sub

Private Sub CmdBukaWord_Click()
On Error Resume Next
Set appword = GetObject(, "word.Application")
If Err.Number <> 0 Then
Set appword = CreateObject("word.Application")
End If
Err.Clear
On Error GoTo 0
Set halword = appword.Documents.Open(App.Path & "\data.doc")
End Sub

Private Sub CmdPutusWord_Click()
Set appword = Nothing
Set halword = Nothing

End Sub

Sub Form_Unload(Cancel As Integer)
Set appword = Nothing
Set halword = Nothing
End Sub

Kamis, 31 Juli 2008

Modul_2_V_B

Catatan :
perancangan Antarmuka Program dilakukan saat praktek berlangsung

Component yang dibutuhkan :
- 5 Image
- 1 commandButton
- 1 shape
- 1 label
- 1 PictureBox

Source Code:

Option Explicit
Private Sub cmdKeluar_Click()
Unload Me
End Sub

Private Sub Form_Load()
shpkotak.Left = -500
End Sub

Private Sub img1_Click()
shpkotak.Left = img1.Left
StatusGB.Cls
StatusGB.Print "Anda memilih : Gambar 1"
End Sub

Private Sub img2_Click()
shpkotak.Left = img2.Left
StatusGB.Cls
StatusGB.Print "Anda memilih : Gambar2"
End Sub

Private Sub img3_Click()
shpkotak.Left = img3.Left
StatusGB.Cls
StatusGB.Print "Anda memilih : Gambar 3 "
End Sub

Private Sub img4_Click()
shpkotak.Left = img4.Left
StatusGB.Cls
StatusGB.Print "Anda memilih : Gambar 4"
End Sub

Private Sub img5_Click()
shpkotak.Left = img5.Left
StatusGB.Cls
StatusGB.Print "Anda memilih : Gambar 5"
End Sub

Modul 1 V_B

Catatan :
Rancangan Antarmuka Formulir dilakukan saat praktek berlangsung

Source Code :

Dim posisi As String
Dim warna As String

Private Sub Form_Load()
OptAwal.Value = True
optMErah.Value = True
posisi = "Default /Awal"
warna = "Merah"
Call TampilCaption
End Sub

Private Sub cmdClose_Click()
Unload Me
End Sub

Private Sub cmdReset_Click()
txttampil.Text = "Manipulasi Text Belum DiaktIfkan Silahkan Coba"
OptAwal.Value = True
End Sub

Sub TampilCaption()
lblketerangan.Caption = "Anda memilih " & _
posisi & " Dengan warna Font " & warna
End Sub

Private Sub optMerah_Click()
warna = "Merah"
Call TampilCaption
txttampil.ForeColor = &HFF&
End Sub

Private Sub optbiru_Click()
warna = "Biru"
Call TampilCaption
txttampil.ForeColor = &HFF0000
End Sub

Private Sub Awal()
txttampil.SelStart = 0
txttampil.SetFocus
posisi = "Setting Default"
Call TampilCaption
End Sub

Private Sub Akhir()
txttampil.SelStart = Len(txttampil.Text)
txttampil.SetFocus
posisi = "Kursor Diakhir"
Call TampilCaption
End Sub

Private Sub posisi5()
txttampil.SelStart = 5
txttampil.SetFocus
posisi = "Menyisipkan"
Call TampilCaption
End Sub

Private Sub seleksi()
txttampil.SelStart = 0
txttampil.SelLength = Len(txttampil.Text)
txttampil.SetFocus
posisi = " Memblok Seluruh isi Text"
Call TampilCaption
End Sub

Private Sub Tambahtext()
txttampil.SelText = "Tambah Text"
txttampil.SetFocus
posisi = "Menambah Text"
Call TampilCaption
End Sub

Private Sub Combo1_DropDown()
Combo1.AddItem "Awal"
Combo1.AddItem "Akhir"
Combo1.AddItem "posisi5"
Combo1.AddItem "Block"
Combo1.AddItem "TambahText"
End Sub

Private Sub Combo1_Click()
If Combo1.Text = "Awal" Then
Call Awal
End If
If Combo1.Text = "akhir" Then
Call Akhir
End If

If Combo1.Text = "posisi5" Then
Call posisi5
End If

If Combo1.Text = "Block" Then
Call seleksi
End If

If Combo1.Text = "TambahText" Then
Call Tambahtext
End If
End Sub

Private Sub OptAwal_Click()
Call Awal
End Sub

Private Sub optAkhir_Click()
Call Akhir
End Sub

Private Sub optseleksi_Click()
Call seleksi
End Sub

Private Sub optSisip5_Click()
Call posisi5
End Sub

Private Sub opttambahtext_Click()
Call Tambahtext
End Sub

Modul 1 Pemrogrman WEB (Tag Dasar)

MODUL I
MEMAHAMI TAG DASAR HTML

Mata Kuliah : Prt.Pemrograman WEB
SKS : 2 SKS
Jurusan / Sem : TI, SI / 7
Sub Bahasan : Dasar TAG HTML dan Format TEXT
Instruktur : Supriyadi, S.T.

//Program Ke 1:

?HTML>
?HEAD>
?TITLE> PEMROGRAMAN WEB 1 ?/TITLE>
?/HEAD>
?BODY>
?p align = "Right">Selamat Belajar Pemrograman WEB
?h1 align = "Center"> STMIK KHARISMA
?hr>
?H6>
?p>Ini adalah contoh penggunaan TAG Paragraph?/p>
?P>TAG Paragraph boleh diakhiri /p atau tidak
?p>Untuk pindah baris gunakanlah tag BR ?br> sehingga tulisan tampil dalam
baris yang berbeda
?/BODY>
?/HTML>

Program Ke 2:

?!--Komentar-->
// ?HTML >
?HEAD>
?TITLE > PEMROGRAMAN WEB 2 ?/TITLE>
?/HEAD>
?BODY >
?h1 align = "Center"> DASAR - DASAR PENGOLAHAN TEKS
?hr>?H6>
?B>
?p>Ini adalah contoh penggunaan TAG BOLD
?/B>
?I>
?p>Ini adalah contoh penggunaan TAG ITALIC
?/I>

?BIG>
?p>Ini adalah contoh penggunaan TAG BIG
?/BIG>

?H1>
?EM>
?p>Ini adalah contoh penggunaan TAG EMBOS
?/EM>
?H3 ALIGN="LEFT">
?/H>
?SMALL>
?p>Ini adalah contoh penggunaan TAG SMALL
?/SMALL>

?P> COBA ?SUP> Contoh Superscript ?br>
?P> COBA2 ?sub> Contoh SuBscript ?br>
?/BODY>
?/HTML>
Program ke 3 :

?HTML>
?HEAD>
?TITLE> PENGATURAN POSISI TEXT ?/TITLE>
?/HEAD>

?BODY>
?PRE>
Begin
for i := 1 25 do
begin
write('Selamat Memanipulasi text'>
Readln
end;
end;
?/pre>
?h1>
?code>
?p> ini adalah contoh Penggunaan TAG Code
?/code>

?h1>
?kbd>
?p> ini adalah contoh Penggunaan TAG Keyboard(kbd>
?/kbd>

?hr>
?h2>
?address>
STMIK Kharisma?br>
Jl. Pangkal Perjuangan km.1 ByPass Karawang
?/address>
?h1>
?bdo dir ="rtl">
contoh Bidirectional Ovveride?br>
?/bdo>

?abbr title = "Sekolah Tinggi Manajemen Informatika dan Komputer"> STMIK ?/abbr>?br>
?acronym title = "Sekolah Tinggi Manajemen Informatika dan Komputer"> STMIK ?/acronym> ?br>
?h6>
?BLOCKQUOTE>
ini adalah contoh pemakaian kutipan sebuah text yang panjang
ini adalah contoh pemakaian kutipan sebuah text yang panjang
ini adalah contoh pemakaian kutipan sebuah text yang panjang
ini adalah contoh pemakaian kutipan sebuah text yang panjang
ini adalah contoh pemakaian kutipan sebuah text yang panjang
ini adalah contoh pemakaian kutipan sebuah text yang panjang
ini adalah contoh pemakaian kutipan sebuah text yang panjang
ini adalah contoh pemakaian kutipan sebuah text yang panjang
ini adalah contoh pemakaian kutipan sebuah text yang panjang
ini adalah contoh pemakaian kutipan sebuah text yang panjang

?/BLOCKQUOTE>

?q>
ini adalah contoh pemakaian kutipan sebuah text yang pendek
?/q>
?/BODY>
?/HTML>

Latihan :

Buatlah Tampilan TEXT seperti Berikut :

Karawang, 20 Juli 2006

Kepada Yang terhormat :
PT. ANGKASA RAYA
Jl. Patriot 23, Karawang
40321
Dengan hormat,
Bersamaan dengan ini saya beritahukan, bahwa kutipan yang kami muat di majalah kami yaitu :
Negara Indonesia merupakan negara teritorial yang berada diantara 2 benua yaitu ASIA dan AFRIKA yang merupakan jalur strategis perdagangan dunia danmembutuhkan Sumber Daya Manusia yang handal untuk bersaing dengan pihak asing, dengan gambaran .

Adalah salah seharusnya ASIA dan Australia.
_________________________________________________________________
Serta tambahan kode program yang dikirim adalah sebagai berikut:
Var
I, j : integer;
Begin
Edit1.text := "selamat"
Edit2.text := "belajar"
End.

Demikian pemberitahuan ini saya kirimkan, dan harap jadi maklum.