Pert.10 (pascal Procedure dan array)

Buat Tampilan sebagai berikut setelah dijalankan, disini akan menggunakan pemanggilan procedure garis dan menggunakan array.

Tampilan Input Data :

Tampilan Output Data :

Listing Program :

uses crt;

procedure garis;
begin
writeln(‘————————————————-’);
end;

var i,j : integer;
kode:array[1..5] of integer;
nama,jabatan:array[1..5] of string;
gapok,tunj:array[1..5] of real;

begin
clrscr;
writeln(‘ PENGGAJIAN PT. OGAH MAJU’);
garis;
writeln;
write(‘Masukan jumlah data karyawan : ‘);readln(j);

for i:=1 to j do
begin
writeln(‘Data ke-’, i);
write(‘Masukan Nama Karyawan : ‘);readln(nama[i]);
write(‘Masukan Kode Jabatan [1/2/3] : ‘);readln(kode[i]);
garis;
case kode[i] of
1:
begin
jabatan[i]:=’Direktur’;
gapok[i]:=1000000;
end;
2:
begin
jabatan[i]:=’Manajer’;
gapok[i]:=800000;
end;
3:
begin
jabatan[i]:=’Staff’;
gapok[i]:=700000;
end;
end;
if jabatan[i] = ‘Direktur’ then
tunj[i]:=20/100*gapok[i]
else
tunj[i]:=10/100*gapok[i];
end;
clrscr;
writeln(‘Informasi Gaji Karyawan’);
for i:=1 to j do
begin
garis;
writeln(‘Nama Karyawan : ‘,nama[i]);
writeln(‘Jabatan : ‘,jabatan[i]);
writeln(‘Gaji Pokok : ‘,gapok[i]:8:0);
writeln(‘Tunjangan : ‘,tunj[i]:8:0);
garis;
end;
readln;
end.

Silakan Anda Modifikasi….

Pascal (Fungsi hitung sederhana)

Fungsi dalam pascal, contoh sederhana :

uses crt;
function hitung(var a,b:integer):integer;
begin
hitung:=a+b;
end;
var
x,y:integer;
begin
write(‘Nilai X ? ‘);readln(x);
write(‘Nilai Y ? ‘);readln(y);
writeln;
writeln(x,’+',Y,’=',Hitung(x,y));
readln;
end.

Maka Akan tampil :

Nilai X ? 5
Nilai Y ? 6

5 + 6 = 11

Pert.11 (Visual Basic)

Jangan lupa untuk koneksi database kita menggunakan database yang pertamakali kita buat, yaitu database pembelian.

Tampilan Disain :

Tampilan Setelah dijalankan :

Listing Program :
Jangan Lupa terlebih dahulu kamu buat prosedure aktif, nonaktif, bersih

Dim x As Control

Private Sub Cmdnew_Click()
Data1.Recordset.AddNew
Text1.MaxLength = 5 ——–> Menentukan panjang kode adalah 5
bersih
aktif
Text1.SetFocus
End Sub

Private Sub nonaktif()
For Each x In Me
If TypeName(x) = “TextBox” Then
x.Enabled = False
End If
Next
End Sub

Private Sub aktif()
For Each x In Me
If TypeName(x) = “TextBox” Then
x.Enabled = True
End If
Next
End Sub

Private Sub bersih()
For Each x In Me
If TypeName(x) = “TextBox” Then
x.Text = “”
End If
Next
End Sub

Private Sub Cmdcari_Click()
Dim mkode As String * 5
mkode = InputBox(“Masukan Kode Barang”, “Pencarian Data Barang”)
msyarat = “Kode = ‘” & mkode ‘”
Data1.Recordset.Index = “barangdex” –> pastikan data1 (properties) recordsettype 0-Table
Data1.Recordset.Seek “=”, mkode
If Data1.Recordset.NoMatch Then
MsgBox “Data Belum Ada”, vbOKOnly, “Informasi”
Data1.Recordset.MoveFirst
End If
End Sub

Private Sub Cmdsave_Click()
Data1.Recordset.Update
nonaktif
End Sub

Private Sub Cmdedit_Click()
Data1.Recordset.Edit
aktif
Data1.Recordset.Update
End Sub

Private Sub Cmddelete_Click()
Data1.Recordset.Delete
Data1.Recordset.MoveFirst
End Sub

Private Sub Cmdexit_Click()
Unload Me
End Sub

Private Sub Cmdprevious_Click()
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then
MsgBox “Data sudah diawal record”, vbOKOnly, “info”
Data1.Recordset.Movefirst
End If
End Sub

Private Sub Cmdlast_Click()
Data1.Recordset.MoveLast
End Sub

Private Sub Cmdtop_Click()
Data1.Recordset.MoveFirst
End Sub

Private Sub Cmdnext_Click()
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
MsgBox “Data sudah diakhir record”, vbOKOnly, “info”
Data1.Recordset.MoveLast
End If
End Sub

Private Sub Form_Load()
nonaktif
End Sub

Private Sub Timer1_Timer()
Me.BackColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)
End Sub

Coba dikembangkan lagiiiii……..