Belajar Visual Basic 6. ( Contoh Program Kasir Swalayan )

Pertama belajar Visual Basic nampaknya sih bakal menguras otak, soalnya dari Namanya aja udah buat ngeri. Eh setelah di coba rupanya sungguh asyik bermain visual basic, nah berikut ini adalah program-program yang dibuat menggunakan Visual Basic 6.

   >>  Program Kasir Swalayan.

Gambar diatas merupakan Program Kasir Swalayan yang menggunakan Program Microsoft VB 6. Sedangkan dibawah ini adalah Scriptnya.


Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub

Private Sub Command2_Click()
pesan = MsgBox("Apakah Anda Yakin?", vbInformation + vbYesNo, "Perhatian")
If pesan = vbYes Then End
End Sub

Private Sub Text3_Change()
If Text2.Text = "" Then
Text2.SetFocus
Else
If Text3.Text = "" Then
Text3.SetFocus
Else
Text4.Text = Format(Text2.Text * Text3.Text, "####,###,###,#0")
End If
End Sub

Private Sub Text5_Change()
If Text5.Text = "" Then
Text5.SetFocus
Else
Text6.Text = Format(Text5.Text - Text4.Text, "###,###,###,#0")
End If
End Sub


Selamat Mencoba. Berjuanglah sampai anda menguasainya.
download script : Program Kasir Swalayan