Latihan Visual 1 (Vb6)

Oleh Eka Prazetya

Wednesday, February 12, 2014

Bagikan :

Tweet

Kali ini saya akan berbagi mengenai pembelajaran visual basic 6 yaitu membuat form Menu makanan pada WARUNG Pak Sueb :D, Latihan ini masih sangat sederhana / untuk pemula..
Berikut ini adalah petunjuknya sobat, langsung saja ke TKP

1. Ketika form dijalankan, form dalam keadaan nonaktif, Tombol INPUT dan EXIT aktif
2. Click tombol INPUT maka form Aktif,kursor berada pada kode makanan, tombol INPUT dalam keadaan nonaktif
3. Pilih kode makanan maka nama makanan dan harga otomatis terisi, kemudian kursor berada pada jumlah beli
4. Isikan jumlah beli yang di inginkan. Disini ada dua cara untuk menghitung total bayar, yaitu dengan meng-ENTER langsung atau menekan tombol HITUNG. Ketika mengenter atau menekan tombol HITUNG maka Total bayar terisi, kemudian kursor berada pada tombol EXIT, Tombol input dalam keadaan aktif dan tombol hitung dalam keadaan nonaktif
5. Untuk keluar dari form tekan tombol EXIT kemudian akan ada pesan pemberitahuan " Mau Keluar ?"

Tampilan form nya sbb :

Private Sub cexit_Click()
x = MsgBox("Mau Keluar ?", vbYesNo, "Konfirmasi")
If x = vbYes Then
Unload Me
End If
End Sub

Sub aktif()
Ckode.Enabled = True
tmakanan.Enabled = True
tjumbel.Enabled = True
tharga.Enabled = True
ttotbay.Enabled = True
End Sub

Sub nonaktif()
Ckode.Enabled = False
tmakanan.Enabled = False
tjumbel.Enabled = False
tharga.Enabled = False
ttotbay.Enabled = False
End Sub

Sub bersih()
Ckode.Text = ""
tmakanan.Text = ""
tjumbel.Text = ""
tharga.Text = ""
ttotbay.Text = ""
End Sub

Private Sub chitung_Click()
ttotbay.Text = Val(tharga.Text) * Val(tjumbel.Text)
cexit.SetFocus
chitung.Enabled = False
cinput.Enabled = True
End Sub

Private Sub cinput_Click()
aktif
bersih
Ckode.SetFocus
chitung.Enabled = True
cinput.Enabled = False
End Sub

Private Sub Ckode_Click()
If Ckode.Text = "STA" Then
tmakanan.Text = "Soto Ayam"
tharga.Text = "10000"
ElseIf Ckode = "STD" Then
tmakanan.Text = "Soto Daging"
tharga.Text = "12000"
ElseIf Ckode.Text = "BSR" Then
tmakanan.Text = "Baso Rudal"
tharga.Text = "13000"
Else
tmakanan.Text = "Mie Ayam Special"
tharga.Text = "11000"
End If
tjumbel.SetFocus
End Sub

Private Sub Form_activate()
nonaktif
cinput.SetFocus
chitung.Enabled = False
End Sub

Private Sub tjumbel_keypress(keyascii As Integer)
If keyascii = 13 Then
ttotbay.SetFocus
ttotbay.Text = Val(tharga.Text) * Val(tjumbel.Text)
cexit.SetFocus
chitung.Enabled = False
cinput.Enabled = True
End If
End Sub

Private Sub ttotbay_keypress(keyascii As Integer)
If keyascii = 13 Then
ttotbay.SetFocus ttotbay.Text = Val(tharga.Text) * Val(tjumbel.Text)
End If
End Sub

Tag : Visual Basic 6