Pert.9 Visual Basic (prosedur)

Ada studi kasus sederhana mengenai prosedur, prosedur dapat kita buat sendiri dengan mengetikan nama prosedur pada bagian coding form general. untuk lebih jelas bisa kita praktekan langsung.

Tampilan Awal Design

Ketentuan Soal :
kode : 001,002,003
judul : Conan Series, Doraemon Series, Sincan Series
harga : 45000, 35000, 25000

Fasilitas : Pack (5000), delivery (10000)

Total Bayar = (jumlah beli * harga film) + biaya fasilitas

Listing Program :
Private Sub Form_Load()
sembunyi
bersih
End Sub

Private Sub bersih()
txtnm.Text = “”
txthrg.Text = “”
txtjumbel.Text = “”
Check1 = 0
Check2 = 0
txtfas.Text = “0″
txttotbay.Text = “0″
End Sub

Private Sub muncul()
Label3.Visible = True
txtnm.Visible = True
Label4.Visible = True
txthrg.Visible = True
Label2.Visible = False
List1.Visible = False
End Sub

Private Sub sembunyi()
Label3.Visible = False
txtnm.Visible = False
Label4.Visible = False
txthrg.Visible = False
Label2.Visible = True
List1.Visible = True
End Sub

Private Sub List1_Click()
If List1.Text = “001″ Then
txtnm.Text = “Conan Series”
txthrg.Text = 45000
Else
If List1.Text = “002″ Then
txtnm.Text = “Doraemon Series”
txthrg.Text = 35000
Else
txtnm.Text = “Sincan Series”
txthrg.Text = 25000
End If
End If
muncul
txtjumbel.SetFocus
End Sub

Private Sub Check1_Click()
If Check1 = 1 And Check2 = 0 Then
txtfas.Text = 5000
Else
If Check1 = 0 And Check2 = 1 Then
txtfas.Text = 10000
Else
If Check1 = 1 And Check2 = 1 Then
txtfas.Text = 15000
Else
txtfas.Text = 0
End If
End If
End If
End Sub

Private Sub Check1_Click()
If Check1 = 1 And Check2 = 0 Then
txtfas.Text = 5000
Else
If Check1 = 0 And Check2 = 1 Then
txtfas.Text = 10000
Else
If Check1 = 1 And Check2 = 1 Then
txtfas.Text = 15000
Else
txtfas.Text = 0
End If
End If
End If
End Sub

Private Sub hitung()
Dim a, c As Currency
Dim b As Integer
a = txthrg.Text
b = txtjumbel.Text
c = Val(txtfas.Text)
txttotbay.Text = (a * b) + c
End Sub

Private Sub cmdhitung_Click()
hitung
End Sub

Private Sub cmdinput_Click()
sembunyi
bersih
End Sub

Private Sub cmdkeluar_Click()
MsgBox “Anda Ingin Keluar ?”, vbOKOnly, “Informasi”
Unload Me
End Sub

Tampilan Saat Dijalankan

Tampilan Saat DiCoba

SELAMAT MENCOBA….

Pert.4 Brancing Visual Basic 6.0

Brancing yang akan saya paparkan disini yaitu :
1. If…Else
Bu : If (kondisi-1 ) then
pernyataan-1
else
If (kondisi-2) then
pernyataan-2
else
pernyataan-n
endif
endif
2. Select Case
Bu : Select Case (pilihan/variabel)
case nilai
pernyataan-1
case nilai
pernyataan-2
case nilai
pernyataan-n
end select

Buatlah Tampilan Sebagai berikut :

Listing yang dapat anda gunakan :
Private Sub Form_Load()
Combo1.AddItem “ADS”
Combo1.AddItem “SPC”
Combo1.AddItem “RBX”
End Sub

Private Sub cmdbersih_Click()
Combo1.Text = “Pilih Kode”
txtnm.Text = “”
txthrg.Text = “0″
txtjumbel.Text = “”
txttotbay.Text = “0″
txtbonus.Text = “”
txtubay.Text = “”
txtukem.Text = “0″
End Sub

Private Sub Combo1_Click()
Select Case (Combo1.Text)
Case “ADS”
txtnm.Text = “Adidas”
txthrg.Text = 155000
Case “SPC”
txtnm.Text = “Spotec”
txthrg.Text = 200000
Case “RBX”
txtnm.Text = “ReeBox”
txthrg.Text = 250000
End Select
txtjumbel.SetFocus
End Sub

Private Sub cmdhitung_Click()
txttotbay.Text = Val(txtjumbel.Text) * txthrg.Text
If (txtjumbel.Text >= 2) Then
txtbonus.Text = “Yoyo Magic”
Else
txtbonus.Text = “Maaf lom Dapet”
End If
txtubay.SetFocus
End Sub

Private Sub txtubay_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtukem.Text = Val(txtubay.Text) – Val(txttotbay.Text)
End If
End Sub

Private Sub cmdkeluar_Click()
p = MsgBox(“Anda Ingin Keluar ??”, vbOKCancel + vbInformation, “Info”)
If p = vbOK Then
Unload Me
End If
End Sub

Selamat Mencoba…..

Pert.4 Pascal

Type, Label, Format Keluaran Dalam Pascal

Type ini dimaksud adalah merubah bentuk nama dari tipedata standar contoh tipedata : integer, real, string dan lain-lain.
Akan kita rubah menjadi nama yang kita inginkan : angka = integer. Label bepasangan dengan goto, berfungsi untuk menuju ke tempat yang kita inginkan, penulisannya : label Siti ; Untuk Format keluaran yang akan kita bahas adalah warna, delay (waktu tunggu).

Contoh Tampilan :
1. Bentuk tipe data standar :
Uses crt ;
var
  nama : string[20];
  nilai : integer;
begin
clrscr;
write (‘ Masukan Nama Anda : ‘); readln(nama);
write (‘ Masukan Nilai Anda : ‘); readln(nilai);
readln;
end.

2. Bentuk tipe data yang dirubah dengan Type
Uses crt ;
Type
  siti = string;
  angka = integer;
var
  nama : siti;
  nilai : angka;
begin
clrscr;
write (‘ Masukan Nama Anda : ‘); readln(nama);
write (‘ Masukan Nilai Anda : ‘); readln(nilai);
readln;
end.

3. Bentuk menggunakan label :
Uses crt ;
Type
  siti = string;
  angka = integer;
var
  nama : siti;
  nilai : angka;
  lagi : char;
label atas;
begin
atas :
clrscr;
write (‘ Masukan Nama Anda : ‘); readln(nama);
write (‘ Masukan Nilai Anda : ‘); readln(nilai);
write (‘ Anda Ingin Input Lagi [Y/N] ? ‘); readln(lagi);
if ( lagi = ‘Y’) or (lagi = ‘y’) then
goto atas ;
readln;
end.
Selamat Mencoba…