TUGAS VISUAL BASIC

Kode Programnya:

Private Sub Command1_Click()
If TJABATAN.Text = "MANAGER" Then
TGAPOK.Text = "3000000"
Else
If TJABATAN.Text = "DIREKTUR" Then
TGAPOK.Text = "2000000"
Else
If TJABATAN.Text = "BENDAHARA" Then
TGAPOK.Text = "1500000"
Else
If TJABATAN.Text = "SEKRETARIS" Then
TGAPOK.Text = "1200000"
Else
If TJABATAN.Text = "OPERATOR" Then
TGAPOK.Text = "1000000"
End If
End If
End If
End If
End If
TPPH.Text = TGAPOK * 0.1
LGAJIBERSIH.Caption = "GAJI BERSIH: " & (TGAPOK.Text - TPPH.Text)
End Sub

Private Sub Command2_Click()
TNIK.Text = ""
TNAMA.Text = ""
TJABATAN.Text = ""
TGAPOK.Text = ""
TPPH.Text = ""
LGAJIBERSIH.Caption = ""
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Timer1_Timer()
Label7 = Time
End Sub

TUGAS STRUKTUR DATA

PROGRAM LINKED LIST

?html>
?head>
?title>Stuktur Data LinkedList?/title>?/head>
?body>
?script language="javascript">
?!--
function LinkedList()
{
this._panjang=0;
this._kepala=null;
}
LinkedList.prototype=
{
construktor:
LinkedList,
Tambah,
Item,
Buang,
Ukuran,
toString,
toArray;
}

//Membuat Metode Untuk Menambah Data kedalam List
Tambah:function (data)
{
//Membuat Node List
var node={data:data, next:null},NodeTanda;
//Periksa Isi List
if (this._kepala===null)
{
this._kepala=node;
}
else
{
NodeTanda=this._kepala;
while(NodeTanda.next)
{
NodeTanda=NodeTanda.next;
}
NodeTanda.next=node;
}
this._panjang++;
},

//Membuat Metode Untuk Menunjuk Item Data
Item:function(index)
{
if (index > -1 && index ? this._panjang)
{
var NodeTanda=this._kepala,
i=0;
while(i++ ? index)
{
NodeTanda= NodeTanda.next;
}
return NodeTanda.data;
}
else
{
return null;
}
},

//Membuat Metode Untuk Membuang Element List
Buang:function (index)
{
if (index > -1 && index ? this._panjang)
{
var NodeTanda=this._kepala,previous,i=0;
if (index===0)
{
this._kepala=NodeTanda.next;
}
else
{
while(i++ ? index)
{
previous=NodeTanda;
NodeTanda=NodeTanda.next;
}
previous.next=NodeTanda.next;
}
this._panjang--;
return NodeTanda.data;
}
else
{
return null;
}
},

//Membuat Metode Untuk Mengetahui Jumlah Element List
Ukuran:function()
{
return this._panjang;
},

//Membuat Metode Untuk Membentuk Array
toArray:function()
{
var result=[],
NodeTanda=this._kepala;
while(NodeTanda){
result.push(NodeTanda.data);
NodeTanda=NodeTanda.next;
}
return result;
},

//Membuat Metode Untuk Konversi ke String
toString:function()
{
return this.toArray().toString();
};

var list=new LinkedList();

list.Tambah("Teknik Informatika");
list.Tambah("Teknik Komputer");
list.Tambah("Komputerisasi Akuntansi");
list.Tambah("Computer Networking");

document.write("Isi LinkedList?br>");
document.write("-----------------?br>");
for (i=0; i?4; i++)
{
document.write(list.Item(i)+"?br>");
}
document.write("-----------------?br>");

alert("Isi LinkedList Awal="+list.Item(0));
alert("Item 1 pada Linkedlist dibuang, yaitu ="+list.Item (1));
list.buang(1);

document.write("Isi LinkedList Terakhir ?br>");
document.write("-----------------?br>");
for (i=0; i?4; i++)
{
document.write(list.Item(i)+"?br>");
}
document.write("-----------------?br>");


//-->
?/script>
?/body>
?/html>

TUGAS STRUKTUR DATA

PROGRAM KONVERSI ANTAR SISTEM BILANGAN:

?HTML>
?HEAD>
?TITLE>Konversi Antar Sistem Bilangan?/TITLE>
?/HEAD>
?BODY>
?SCRIPT LANGUAGE = "JavaScript">
?!--

var bil = new Number(25);
document.write("Bilangan Desimal: " +bil + "?BR>");
document.write("?HR>");

document.write("Biner : " + bil.toString(2) + "?BR>");
document.write("Oktal : " + bil.toString(8) + "?BR>");
document.write("Heksa : " + bil.toString(16));

//-->
?/SCRIPT>
?/BODY>
?/HTML>


PROGRAM FIBONACCI:

?HTML>
?HEAD>
?SCRIPT>
?!--
function fibonacci (n){
var i
var array_fib = new Array();

array_fib.push(0);
array_fib.push(1);

for (i=0; i?n; i++) {
array_fib.push(array_fib[0] + array_fib[1];
array_fib.shift();
}
return array_fib[0];
}
for (i=0; i?=20; i++)
document.write("Fibonacci (" + i + ") = " + fibonacci (i) + "?BR>");

//-->
?/SCRIPT>
?/HEAD>
?BODY>
?/BODY>
?/HTML>

TUGAS STRUKTUR DATA

PROGRAM ENTRI DATA PEGAWAI:

?HTML>
?HEAD>
?TITLE>Memanipulasi Data Pegawai?/TITLE>
?SCRIPT LANGUAGE ="JacaScript" type="text/JavaScript">
?!--

var DBPegawai = new Array();
function Pegawai (Fields_NIP,
Fields_Nama,
Fields_Gaji_Per_Jam,
Fields_Jam_Kerja,
Fields_Gaji_Total){
this.NIP =Fields_NIP;
this.Nama =Fields_Nama;
this.Gaji_Jam =Fields_Gaji_Per_Jam;
this.Jam_Kerja =Fields_Jam_Kerja;
this.Gaji_Total =Fields_Gaji_Total;}

function inputPegawai() {
var Nama,Gaji_Per_Jam,Jam_Kerja,Gaji;
while(NIP=window.prompt("Ketikkan NIP (Nomor Induk Pegawai)\n\n Click 'cancel'untuk
berhenti!!."))
{
Nama =window.prompt("Nama Pegawai :");
Gaji_Per_Jam =parseInt(window.prompt("Gaji Per Jam :"));
Jam_Kerja =parseInt(window.prompt("Jumlah Jam Kerja :"));
Gaji =Gaji_Per_Jam * Jam_Kerja;
DBPegawai[DBPegawai.length] = new Pegawai(NIP,Nama,Gaji_Per_Jam,Jam_Kerja,Gaji);}

ShowPegawai();
}
function ShowPegawai() {
document.write("?table border='1'>" +
"?tr>" +
"?th>NIP?/th>?th>Nama?/th>?th>Gaji Per Jam?/th>?th>Jam Kerja?/th>"+
"?th>Gaji Total?/th>"+ "?/tr>");

for(i=0; i?DBPegawai.length; i++) {
document.write("?tr>" +
"?td>" + DBPegawai[i].NIP +"?/td>" +"?td>" + DBPegawai[i].Nama +"?/td>" +
"?td align='right'>" + DBPegawai[i].Gaji_Jam + "?/td>" +
"?td align='right'>" + DBPegawai[i].Jam_Kerja + "?/td>" +
"?td align='right'>" + DBPegawai[i].Gaji_Total + "?/td>" +"?/tr>");}
document.write ("?/table>");}
//-->
?/SCRIPT>
?/HEAD>
?BODY ONLOAD="inputPegawai();">
?/BODY>
?/HTML>

TUGAS STRUKTUR DATA

PROGRAM MEMBUAT RECORD MAHASISWA:
?html>
?/head>
?title>Membuat Rekaman Objek?/title>
?/head>
?body>
?script language="JavaScript">
?!--
var record = new Array();
function Mahasiswa(NPM,Nama,Prodi,Jenjang) {
//properti
this.NPM =NPM;
this.Nama =Nama;
this.Prodi =Prodi;
this.Jenjeng=Jenjang;
//metode
this.lihatRecordMahasiswa=lihatRecordMahasiswa;
}
function lihatRecordMahasiswa()
{
document.write("?td>" +this.NPM+ "?/td>");
document.write("?td>" +this.Nama+ "?/td>");
document.write("?td>" +this.Prodi+ "?/td>");
document.write("?td>" +this.Jenjang+ "?/td>");
}
//mengisi data
record[0]=new Mahasiswa ("43E001", "deni", "TI", "S1");
record[1]=new Mahasiswa ("43E001", "dani", "TI", "S1");
record[2]=new Mahasiswa ("43E001", "dina", "TI", "S1");
record[3]=new Mahasiswa ("43E001", "dini", "TI", "S1");
//menampilkan data
document.write("?table border ='1'>");
document.write("?th>NPM?/th> ?th>Nama?/th>");
document.write("?th>Prodi?/th> ?th>Jenjang?/th> ?br>");
for (i=0; i?Record.length; i++)
{
document.write("?tr>");
Record[i].lihatRecordMahasiswa();
document.write("?/tr>");
}
document.write("?/table> ?br>");
document.write("?table border ='1'>");
document.write("?th>NPM?/th> ?th>Nama?/th>");
document.write("th>Prodi?/th> ?th>Jenjang?/th> ?br>");

for (i=0; i?Record; i++)
{
document.write("?tr>");
Record[i].NPM
document.write("?/tr>");
document.write("?/table>");
//-->
?/script>
?body>
?/html>

PROGRAM PRAK PA NAWIN (STACK 2) :
?html>
?head>
?title>Struktur Data Stack?/title>
?script language="JavaScript">
var stack = new Array;
function Input_ke_Stack(data) {
stack.push(data);
}
function Ambil_dari_Stack() {
var data_dari stack = stack.pop();
if (data_dari_stack==undefined)
return" stack Sudah Kosong";
else return data_dari_stack;
}
function TampilkanStack(list) {
list.options.length = 0;
for (var i=0;i?stack.length; i++) {
var data = new Option(stack[i]);
list.options[list.options.length] = data;
}
}
?/script>
?/head>
?/body>
?form>
?input type=text name=textSimpan>
?input type=button value="Masukkan ke Stack"
onClick='input_ke_Stack(textSimpan.value);textSimpan.value="";TampilkanStack(mediaList);'>
?select name="mediaList" size=12>
?option>Tampilan data...
/select>
?input type=text name=textAmbil size=20>
?input type=button value="Ambil dari Stack"
onClick="textAmbil.value=Ambil_dari_Stack();TampilkanStack(mediaList);">
?/form>
?/body>
?/html>

PROGRAM PRAK PA NAWIN (STACK 1) :
?html>
?head>
?title>Contoh Implementasi Push dan Pop pada Stack?/title>
?/head>
?body>
?script type="text/javascript">
var stack = new Array;
stack.push ("A");
stack.push ("B");
stack.push ("C");
document.write("stack:" +stack.tostring() +"?br>");
var YangDiambil = stack.pop();
document.write("Data Yang Diambil:" +YangDiambil);
document.write("?br>");
document.write("Isi Stack Terakhir:" +stack.toString());
?/script>
?/body>
?/html>

PROGRAM PRAK PA NAWIN(DATA GAJI PEGAWAI) :
?!-- STMIK Kharisma Karawang 2009
by fnfCreator
//-->
?html>
?head>
?title>Mencoba Memanipulasi Data?/title>
?script language="JavaScript" type="text/javascript">
?!--
var DBPegawai = new Array();
function Pegawai(NIPValue, NameValue, Gaji_jam, Jam_kerja, Gaji)
{
his.NIP=NIPValue;
this.Name=NameValue;
this.Gaji_jam=Gaji_jam;
this.Jam_kerja=Jam_kerja;
this.Gaji=Gaji;
}
function inputPegawai()
{
var Name,age;
while(NIK=window.prompt("Ketikan NIK\n Click 'cancel'untuk Berhenti !!."))
{
Nama =window.prompt("Nama");
Gaji_jam =parseInt(window.prompt("Gaji Per Jam"));
Jam_kerja=parseInt(window.prompt("Jumlah Jam Kerja"));
Gaji =Gaji_jam * Jam_kerja;
DBPegawai[DBPegawai.length] = new Pegawai(NIK,Nama,Gaji_jam,Jam_kerja,Gaji);
}
ShowPegawai();
}
function ShowPegawai()
{
document.write("?table border='1'>" +
"?tr>" +
" ?th>NIP?/th>" +
" ?th>Nama?/th>" +
" ?th>Gaji Per Jam?/th>" +
" ?th>Jam kerja?/th>" +
" ?th>Gaji Seminggu?/th>" + "?/tr>");
for(i=0; i?DBPegawai.length; i++) {
document.write("?tr>" +
" ?td>" + DBPegawai[i].NIP + "?/td>" +
" ?td>" + DBPegawai[i].Name + "?/td>" +
"?td align='right'>" + DBPegawai[i].Gaji_jam + "?/td>" +
"?td align='right'>" + DBPegawai[i].Jam_kerja + "?/td>" +
"?td align='right'>" + DBPegawai[i].Gaji + "?/td>" +
"?/tr>");
}
document.write("?/table>");
}
//-->
?/script>
?/head>
?body onload="inputPegawai();">
?/body>
?/html>

PROGRAM PRAK PA NAWIN 2 (RECORD MAHASISWA) :
?!-- STMIK KHARISMA KARAWANG 2009
by fnfCreator
//-->
?html>
?/head>
?title>Membuat Rekaman Objek?/title>
?/head>
?body>
?script language ="JavaScript">
?!--
var Record = new Array();
function Mahasiswa(npm, nama, prodi, jenjang) {
//Properti
this.npm =npm;
this.nama =nama;
this.prodi =prodi;
this.jenjang =jenjang;
// Metode
this.LihatRecordMahasiswa = LihatRecordMahasiswa ;
}
function LihatRecordMahasiswa() {
document.write("?td>" + this.npm + "?/td>");
document.write("?td>" + this.nama + "?/td>");
document.write("?td>" + this.prodi + "?/td>");
document.write("?td>" + this.jenjang + "?/td>");
}

//Mengisi data
Record[0] = new Mahasiswa("43E001", "Rini", "KA", "D3");
Record[1] = new Mahasiswa("43E002", "Ria", "KA", "D3");
Record[2] = new Mahasiswa("43E003", "Susi", "KA", "D3");
Record[3] = new Mahasiswa("43E004", "Wiwi", "KA", "D3");
//menampilkan data
document.write("?table border='1'>");
document.write("?th>NPM?/th> ?th>Nama?/th>");
document.write("?th>Prodi?/th> ?th>Jenjang?/th> ?br>");

for(i=0; i?Record.length; i++)
{
document.write("?tr>");
Record[i].LihatRecordMahasiswa();
document.write("?/tr>");
}
document.write("?/table> ?br>");

document.write("?table border ='1'>");
document.write("?th>NPM?/th> ?th>Nama?/th>");
document.write("?th>Prodi?/th> ?th>Jenjang?/th> ?br>");

for(i=0; i?Record.length; i++)
{
document.write("?tr>");
Record[i].npm
document.write("?/tr>";
}
document.write("?/table>");
//-->
?/script>
?/body>
?/html>

PROGRAM MENGISI ARRAY DENGAN CARA MENGENTRI DARI KOTAK PESAN :
?HTML>
?HEAD>
?TITLE>Parameter Array?/TITLE>
?/HEAD>
?BODY>
?SCRIPT LANGUAGE = "JavaScript">
?!--
var tempat = ([]);
var data = prompt ("ketik Jumlah Maksimum Array :");
for (m=1; m?=data; m++)
{
var bil = prompt ("Masukkan Bilangan :")
tempat [m]= bil;
}
for (n=1; n?=data; n++)
{
document.write("Element Array ("+n+") =" +tempat [n] + "?BR>");
}
//-->
?/SCRIPT>
?/BODY>
?/HTML>

PROGRAM MENAMPILKAN ISI ARRAY :
?HTML>
?HEAD>
?TITLE>Belajar Array?/TITLE>
?/HEAD>
?BODY>
?SCRIPT LANGUAGE = "JavaScript">
?!--
var DATA_KU =new Array ("Saya","Sedang","Senang");
for (i=0; i?3; i++)
{
document.write(DATA_KU[i] +"?BR>");
}
alert ("Selamat Belajar Struktur Data");
alert ("Semoga Memperoleh Ilmu Yang Bermanfaat");
//-->
?/SCRIPT>
?/BODY>
?/HTML>

PROGRAM MENAMBAHKAN 2 BILANGAN :
?HTML>
?HEAD>
?TITLE>Type Bilangan?/TITLE>
?/HEAD>
?BODY>
?SCRIPT LANGUAGE = "JavaScript">
?!--
var a = 15;
b = 14;

tambah = a + b;
kali = a * b;
document.write("penambahan (" +a+ " + " +b+ ") = " + tambah);
document.write("?BR>");
document.write("perkalian (" +a+ " * " +b+ ") = " + kali);
document.write("?BR>");
//-->
?/SCRIPT>
?/BODY>
?/HTML>

PROGRAM MEMBUAT TABEL :
?html>
?head>
?title>belajar stuktur data?/title>
?script language ="JavaScript">
?!--
alert ("Selamat Datang");
//-->
?/script>
?head>
?body BGcolor = "red">
?HR>
?P>
?HR>
?Font color="blue">
?H1>STMIK KHARISMA KARAWANG?/h1>
?HR>
?Font color ="yellow">
?marquee>HELLO.........WELCOME IN STMIK KHARISMA KARAWANG?/marquee>
?BR>
?BR>
?table border ="2">
?tr>
?th>NPM?/th>
?th>Nama?/th>
?th>Prodi?/th>
?/tr>
?tr>
?td>43E57067083013?/td>
?td>Rini Riantini?/td>
?td>KA?/td>
?/tr>
?tr>
?td>43E57067083015?/td>
?td>Susi Estri?/td>
?td>KA?/td>
?/tr>
?/table>
?/body>
?/html>