Bermain Viusal Basic 6.0 - Membuat Cash Register Sederhana Restoran

Hallo teman - teman cyber setelah hampir vakum satu tahun tidak tidak menulis lagi di blog saya, rasanya kangen banget...ya malum lah sibuk ini itu lihat dulu so tahu lo laga lu tu muke mu jauh...he..he jadi nyanyi..! Saya mau berbagi neh cara bermain VB ( Visual Basic ) sederhana..lumayan lah daripada tidak belajar sama sekali..!







Langsung aja ya..tampilannya seperti ini :

 Nah sebagai name TextBox nya kamu lihat saja di gambar dan ini nama buat :
Cheklist : ayam, nasgor, gurame, cumi :

ComanButtton : Tanpa Minuman = cmdnone, input | reset = cmdinput, hitung = cmdcount, keluar = cmdexit.

Untuk source kodenya kamu lihat saja di bawah ini :

Dim hrg_hayam As Currency
Dim hrg_hnasgor As Currency
Dim hrg_hgurame As Currency
Dim hrg_hcumi As Currency

Private Sub cmdnone_Click()
    hminum.Text = ""
End Sub

Private Sub Form_Load()
    lminum.AddItem (" Jus Alpukat ")
    lminum.AddItem (" Jus Strobery ")
    lminum.AddItem (" Lemin Squash ")
    lminum.AddItem (" Moca Float ")
End Sub

Sub aktif()
nopesan.Enabled = True
nama.Enabled = True
ayam.Enabled = True
nasgor.Enabled = True
gurame.Enabled = True
cumi.Enabled = True
hayam.Enabled = True
hnasgor.Enabled = True
hgurame.Enabled = True
hcumi.Enabled = True
hmakan.Enabled = True
lminum.Enabled = True
hminum.Enabled = True
total.Enabled = True
bayar.Enabled = True
kembali.Enabled = True
End Sub

Sub mati()
nopesan.Enabled = False
nama.Enabled = False
ayam.Enabled = False
nasgor.Enabled = False
gurame.Enabled = False
cumi.Enabled = False
hayam.Enabled = False
hnasgor.Enabled = False
hgurame.Enabled = False
hcumi.Enabled = False
hmakan.Enabled = False
lminum.Enabled = False
hminum.Enabled = False
total.Enabled = False
bayar.Enabled = False
kembali.Enabled = False
End Sub

Sub kosong()
    nopesan.Text = ""
    nama.Text = ""
    ayam.Value = 0
    nasgor.Value = 0
    gurame.Value = 0
    cumi.Value = 0
    hayam.Text = ""
    hnasgor.Text = ""
    hgurame.Text = ""
    hcumi.Text = ""
    hmakan.Text = ""
    lminum.Text = ""
    hminum.Text = ""
    total.Text = ""
    bayar.Text = ""
    kembali.Text = ""
End Sub

Private Sub Form_Activate()
    mati
    cmdinput.SetFocus
End Sub

Private Sub cmdinput_Click()
    kosong
    aktif
    nopesan.SetFocus
End Sub

Private Sub ayam_Click()
If ayam.Value = 1 Then
    hrg_ayam = 9000
Else
    hrg_ayam = 0
End If
    hayam.Text = hrg_ayam
    hmakan.Text = hrg_ayam + hrg_nasgor + hrg_gurame + hrg_cumi
End Sub

Private Sub nasgor_Click()
If nasgor.Value = 1 Then
    hrg_nasgor = 8000
Else
    hrg_nasgor = 0
End If
    hnasgor.Text = hrg_nasgor
    hmakan.Text = hrg_ayam + hrg_nasgor + hrg_gurame + hrg_cumi
End Sub

Private Sub gurame_Click()
If gurame.Value = 1 Then
    hrg_gurame = 35000
Else
    hrg_gurame = 0
End If
    hgurame.Text = hrg_gurame
    hmakan.Text = hrg_ayam + hrg_nasgor + hrg_gurame + hrg_cumi
End Sub

Private Sub cumi_Click()
If cumi.Value = 1 Then
    hrg_cumi = 15000
Else
    hrg_cumi = 0
End If
    hcumi.Text = hrg_cumi
    hmakan.Text = hrg_ayam + hrg_nasgor + hrg_gurame + hrg_cumi
End Sub

Private Sub lminum_Click()
Select Case lminum.ListIndex
    Case 0
        hminum.Text = 5000
    Case 1
        hminum.Text = 5000
    Case 2
        hminum.Text = 5500
    Case 3
        hminum.Text = 6000
    End Select
End Sub

Private Sub cmdcount_Click()
    total.Text = Val(hmakan.Text) + Val(hminum)
End Sub

Private Sub cmdexit_Click()
    Unload Me
End Sub
Private Sub bayar_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        kembali.Text = Val(bayar.Text) - Val(total.Text)
    End If
End Sub


Atau kamu bisa Downloads Hasilnya Di Sini