Welcome back to my blog arybyan
Beranda
VB6

CAFE OF YUNFA

1 min read
Membuat form Kasir CAFE OF YUNFA Dengan VB6

Listing Code nya :

Private Sub Form_Load()
cmbmenu.AddItem ("Sarapan Pagi")
cmbmenu.AddItem ("Makan Siang")
cmbpaket.AddItem ("Paket 1")
cmbpaket.AddItem ("Paket 2")
End Sub

Private Sub Option1_Click()
txthrgfasilitas = 5000
End Sub
Private Sub Option2_Click()
txthrgfasilitas = 0
End Sub

Private Sub txtjumbel_KeyPress(keyascii As Integer)
If keyascii = 13 Then
txttotbay = Val(txtjumbel) * (Val(txthrgmenu) + Val(txthrgfasilitas) + Val(txthrgminum))
txtubay.SetFocus
End If
End Sub

Private Sub cmbpaket_Click()
If cmbmenu.Text = "Sarapan Pagi" Then
Select Case (cmbpaket.Text)
Case "Paket 1"
List1.Clear
List1.AddItem ("Nasi Uduk")
List1.AddItem ("Telur")
List1.AddItem ("Tempe Orek")
txthrgmenu = 5000
Case Else
List1.Clear
List1.AddItem ("Nasi Goreng")
List1.AddItem ("Telur Mata Sapi")
List1.AddItem ("Tempe goreng")
txthrgmenu = 7000
End Select
Else
Select Case (cmbpaket.Text)
Case "Paket 1"
List1.Clear
List1.AddItem ("Nasi Putih")
List1.AddItem ("Ayam Bakar")
List1.AddItem ("Lalapan")
txthrgmenu = 8000
Case Else
List1.Clear
List1.AddItem ("Nasi Putih")
List1.AddItem ("Rendang")
List1.AddItem ("Sayur")
List1.AddItem ("Sambal Ijo")
txthrgmenu = 10000
End Select
End If
End Sub

Private Sub Check1_Click()
If Check1 = 1 And Check2 = 1 Then
txthrgminum = 3000
ElseIf Check1 = 1 And Check2 = 0 Then
txthrgminum = 2500
ElseIf Check1 = 0 And Check2 = 1 Then
txthrgminum = 500
Else
txthrgminum = 0
End If
End Sub

Private Sub Check2_Click()
If Check1 = 1 And Check2 = 1 Then
txthrgminum = 3000
ElseIf Check1 = 1 And Check2 = 0 Then
txthrgminum = 2500
ElseIf Check1 = 0 And Check2 = 1 Then
txthrgminum = 500
Else
txthrgminum = 0
End If
End Sub

Private Sub txtubay_change()
txtukem = Val(txtubay) - (txttotbay)
End Sub


vb6
Cafe Of Yunfa VB6

Anda mungkin menyukai postingan ini

  • CAFE OF YUNFA
    Membuat form Kasir CAFE OF YUNFA Dengan VB6 Listing Code nya : Private Sub Form_Load() cmbmenu.AddItem ("Sarapan Pagi") cmbmenu.AddItem ("Makan Siang") cmbpaket.AddItem ("Pake…
  • GHOZALI COURSE
    Membuat form input pendaftaran " GHOZALI COURSE " Program ghozali course vb6 Logika Program : 1. Prosedur aktif, non aktif, bersih 2. Saat dijalankan tampil tanggal secar…
  • Kalkulator Model klasik VB6
    Kalkulator Model klasik VB6   Desain awal Buatlah ketentuan seperti ini :    Text1.Text  Name = Text1 Command1 Name    = Cmd_0 Cap…
  • Visual Basic 6 - Fungsi Operator
    Visual Basic 6 - Fungsi Operator  Listing Code : Private Sub cmddiv_Click()txthasil = Val(txtnil1.Text) & Val(txtnil2.Text)End SubPrivate Sub cmdtambah_Click…
  • Kalkulator Sederhana Visual Basic 6
    Visual Basic 6 - Fungsi Operator  Listing Code : Private Sub Command1_Click() Text4.Text = Val(Text2.Text) + Val(Text3.Text) End Sub Private Sub Command2_Click() Te…

Posting Komentar