Silaturahim Yukk!!!!!!!

Record atau lebih mudah kita sebut sebagai tempat penyimpanan.
Bentuk Umum :
type
namarecord=record
nama variabel;
end;

Buat Tampilan sebagai berikut :

Listing Program :
program pembuatan_record;
uses crt;
procedure garis;
begin
writeln(’==============================================’);
end;

type
reckaryawan=record
jab,nip,nama:string;
gol:integer;
gapok,tunj:real;
end;

var pegawai:reckaryawan;
total:real;

begin
clrscr;
writeln(’ LAPORAN PERHITUNGAN GAJI KARYAWAN’);
garis;
writeln;
write(’Masukan NIP Karyawan : ‘);readln(pegawai.nip);
write(’Masukan Nama Karyawan : ‘);readln(pegawai.nama);
write(’Golongan[1/2/3] : ‘);readln(pegawai.gol);
garis;
case pegawai.gol of
1:
begin
pegawai.jab:=’Staf dan Tetap’;
pegawai.gapok:=900000;
end;
2:
begin
pegawai.jab:=’Staf dan Kontrak’;
pegawai.gapok:=700000;
end;
3:
begin
pegawai.jab:=’Kontrak’;
pegawai.gapok:=500000;
end;
end;

if pegawai.jab=’Staf dan Tetap’ then
pegawai.tunj:=25/100*pegawai.gapok
else
if pegawai.jab=’Staf dan Kontrak’ then
pegawai.tunj:=10/100*pegawai.gapok
else
pegawai.tunj:=0;
total:=(pegawai.gapok)+(pegawai.tunj);

writeln(’Jabatan Karyawan : ‘,pegawai.jab);
writeln(’Gaji Pokok : ‘,pegawai.gapok:8:0);
writeln(’Tunjangan : ‘,pegawai.tunj:8:0);
garis;
writeln(’Total Gaji Karyawan : ‘,total:8:0);
readln;
end.

Coba Dikembangkan lagi…..

SQL = Struktur Query Language (Sebuah bahasa yang dirancang khusus untuk dapat berkomunikasi dengan database). Buatlah Tampilan Seperti dibawah ini :

Buat Tampilan Sebagai berikut :
Tampilan Data Supplier :

Tampilan Browse Data Supplier :

Listing Program :
Sebelumnya Anda buat terlebih dahulu procedure aktif, nonaktif, bersih, dan tampil.

Dim x As Control
Private Sub tampil()
With Datasup.Recordset
If .RecordCount 0 Then
txtKoSup.Text = !kosup —> Field harus sesuai dengan field yang ada di tabel supplier
txtNaSup.Text = !nasup
txtAlamat.Text = !alamat
txtTelp.Text = !telpsup
txtCP.Text = !cpsup
End If
End With
End Sub

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

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

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

Private Sub cmdCari_Click()
Datasup.Recordset.FindFirst “nasup= ‘ ” & Trim(txtCari.Text) & ” ‘ “
If Not Datasup.Recordset.NoMatch Then —-> Jika Datanya Ada
tampil
Else
MsgBox “Data TIDAK ADA”, vbOKOnly, “Informasi”
txtCari.Text = “”
txtCari.SetFocus
End If
End Sub

Private Sub cmdEdit_Click()
Datasup.Recordset.Edit
aktif
End Sub

Private Sub cmdHapus_Click()
P = MsgBox(”Yakin Mau Di Hapus ?”, vbYesNo + vbQuestion, “Hapus Record”)
If P = vbYes Then
Datasup.Recordset.Delete
Datasup.Recordset.MoveFirst
End If
End Sub

Private Sub cmdKeluar_Click()
K = MsgBox(”Anda Ingin Keluar ?”, vbYesNo + vbInformation, “Konfirmasi”)
If K = vbYes Then
Unload Me
End If
End Sub

Private Sub cmdSimpan_Click()
With Datasup.Recordset
.AddNew
!kosup = txtKoSup.Text
!nasup = txtNaSup.Text
!alamat = txtAlamat.Text
!telpsup = txtTelp.Text
!cpsup = txtCP.Text
.Update
End With
Datasup.Refresh
nonaktif
End Sub

Private Sub cmdTambah_Click()
Datasup.Recordset.AddNew
txtKoSup.MaxLength = 6 —-> Membatasi Penginputan sebanyak 6
aktif
bersih
End SubPrivate Sub Form_Activate()
txtCari.Enabled = True
txtCari.BackColor = &H80000005
tampil

Tipe data skalar = tipe data yang urutannya sudah pasti.
Set = Kumpulan dari objeck yang mempunyai urutan yang dianggap sebagai satu kesatuan, tiap objek disebut anggota (elemen of set).
Contoh tipe data skalar : 1. Mencetak hanya satu data yang sama

Rekursi (recursion) adalah proses dari suatu sub program baik fungsi maupun prosedure yang memanggil dirinya sendiri.

Contoh :

Program Rekursi_pascal;
uses Crt;
procedure rekursi(A:integer);
begin
if A < 10 then
begin
write(’Pascal’);
A:=A+1;
rekursi(A);
end;
end;

var
x:integer;
begin
clrscr;
x:=3; ———> nilai X dapat kita tentukan sendiri
rekursi(x);
readln;
end.

akan menghasilkan :

Contoh faktorial menggunakan rekursi :

Program Faktorial_pascal;
function Faktorial(a:integer):longint;
begin
if (A=1)then
Faktorial:=1
else
Faktorial:=a*faktorial(a-1);
end;
var
x:integer;
begin
writeln(’Faktorial sequence’);
write(’Berapa Faktorial :’);readln(x);
writeln(x,’faktorial ‘,’=',faktorial(x));
readln;
end.

Hasil Tampilan :

Contoh untuk indefinite dalam pascal merupakan proses rekursi yang dilakukan tanpa berhenti atau rekursi yang tidak berujung.

Program rekursi_indefinite;
procedure rekursi;
begin
write(’Pascal’);write;
rekursi;
end;
begin
rekursi;
readln;
end.

Tampilan hasil :

Selamat Mencoba…..