Logika Visual Basic Daftar Harga Dan Password

Berikutt adalah langkah-langkah untuk membuat daftar menu pada VISUAL BASIC :

Private Sub Check1_Click()
If Check1.Value = False Then
txttotal.Text = Val(txttotal.Text - 10000)
Else
txttotal.Text = Val(txttotal.Text + 10000)
End If
End Sub
Untuk menampilkan nilai pada kotak dialog checkbox1, apabila diklik nilai yang keluar adalah 10000

Private Sub Check2_Click()
If Check2.Value = False Then
txttotal.Text = Val(txttotal.Text - 6000)
Else
txttotal.Text = Val(txttotal.Text + 6000)
End If
End Sub
Untuk menampilkan nilai pada kotak dialog checkbox2, apabila diklik nilai yang keluar adalah 6000

Private Sub Check3_Click()
If Check3.Value = False Then
txttotal.Text = Val(txttotal.Text - 7000)
Else
txttotal.Text = Val(txttotal.Text + 7000)
End If
End Sub
Untuk menampilkan nilai pada kotak dialog checkbox3, apabila diklik nilai yang keluar adalah 7000

Private Sub Check4_Click()
If Check4.Value = False Then
txttotal.Text = Val(txttotal.Text - 3000)
Else
txttotal.Text = Val(txttotal.Text + 3000)
End If
End Sub
Untuk menampilkan nilai pada kotak dialog checkbox4, apabila diklik nilai yang keluar adalah 3000

Private Sub Check5_Click()
If Check5.Value = False Then
txttotal.Text = Val(txttotal.Text - 3000)
Else
txttotal.Text = Val(txttotal.Text + 3000)
End If
End Sub

Untuk menampilkan nilai pada kotak dialog checkbox5, apabila diklik nilai yang keluar adalah 3000

Private Sub Check6_Click()
If Check5.Value = False Then
txttotal.Text = Val(txttotal.Text - 500)
Else
txttotal.Text = Val(txttotal.Text + 500)
End If
End Sub
Untuk menampilkan nilai pada kotak dialog checkbox6, apabila diklik nilai yang keluar adalah 500

Private Sub Check7_Click()
If Check5.Value = False Then
txttotal.Text = Val(txttotal.Text - 2000)
Else
txttotal.Text = Val(txttotal.Text + 2000)
End If
End Sub
Untuk menampilkan nilai pada kotak dialog checkbox7, apabila diklik nilai yang keluar adalah 2000

Private Sub Command1_Click()
txtkembalian.Text = Val(txtbayar.Text - txttotal.Text)
End Sub
untuk mengisi kondisi pada command button1, yang bermaksud jika tombol OK diklik maka HARGA dari kembalian akan muncul yang nilai nya diambil dari bayar dikurangi nilai total.

Private Sub Command2_Click()
Check1.Value = Clear
Check2.Value = Clear
Check3.Value = Clear
Check4.Value = Clear
Check5.Value = Clear
Check6.Value = Clear
Check7.Value = Clear
txtbayar.Text = 0
txtkembalian.Text = 0
txttotal.Text = 0
End Sub
untuk mengisi kondisi pada commandbutton2, jika tombol batal diklik makan semua harga akan hilang

Private Sub txtbayar_Change()
End Sub
untuk mengisi kondisi pada textbox bayar yang berarti, nilai akan muncul dan akan berganti sesuai dengan perintah-perintah yang telah lebih dulu dimasukkan

Private Sub txtkembalian_Change()
End Sub
untuk mengisi kondisi pada textbox kembalian yang berarti, nilai akan muncul dan akan berganti sesuai dengan perintah-perintah yang telah lebih dulu dimasukkan

Private Sub txttotal_Change()
End Sub
untuk mengisi kondisi pada textbox total yang berarti, nilai akan muncul dan akan berganti sesuai dengan perintah-perintah yang telah lebih dulu dimasukkan

Berikut adalah hasil dari langkah-langkah diatas:

Berikut adalah langkah-langkah untuk membuat password pada VISUAL BASIC:

Private sub command1_click()
User = text1.text
Password = text2.text
if user = “cinta” and passwors = “sayang” then
msgbox “horee!!!”, vb information
form2.show
else
msgbox “makan belao!!”, vbinformation
end if
endsub

Berarti, jika user yang dimasukan bernama cinta dan password yang dimasukkan saying. Maka message box vb information HOREE!! Akan muncul, tetapi jika username dan password yang dimasukkan salah maka messagebox vbinformation akan menampilkan MAKAN BELAO!!

Berikut adalah hasilnya: