Tugas Bebas Visual Basic

Tampilan Form Waroeng Coffe Sederhana

Ketentuan Soal Waroeng Coffe Sederhana

11. Buat Sub Aktif, Non Aktif dan Bersih

22. Ketika Form dijalankan form dalam keadaan nonaktif. Tanggal muncul berdasarkan settingan hari ini (Kamis, 19 April 2012). Pilihan pada kode coffe : CS, CC, CM

33. Kilik Tombol Input, maka textbox & combobox dalam keadaan bersih dan aktif, kursor berada pada Combo Kode Coffe. Untuk tanggal  biarkan nonaktif dan tidak usah dibersihkan.

44. Jenis Coffe ditentukan berdasarkan Combo Kode Coffe, dengan ketentuan sbb :

Kode Coffe	Jenis Coffe	Harga
CS	Coffe Susu	5000
CC	Coffe Capucino	8000
CM	Coffe Mix	10000

Kode Coffe dipilih Kemudian kursor berada pada jumlah beli

55. Jumlah Beli diinput, tekan enter maka :

Total Bayar = Harga x jumlah beli

66. Uang bayar hanya diinput oleh angka, tekan enter maka :

Uang kembali = Uang bayar – Total bayar

Jika uang bayar < total bayar, maka akan tampil pesan :

17.  Klik tombol cancel kembali ke awal form (form activate)

Tampilan Code Waroeng Coffe Sederhana

Sub aktif()

cmbkode.Enabled = True

txtjumbel.Enabled = True

txtubay.Enabled = True

End Sub

Sub nonaktif()

txttgl.Enabled = False

cmbkode.Enabled = False

txtjenis.Enabled = False

txtharga.Enabled = False

txtjumbel.Enabled = False

txttobay.Enabled = False

txtubay.Enabled = False

txtukem.Enabled = False

End Sub

Sub bersih()

txttgl.Text = ""

cmbkode.Text = ""

txtjenis.Text = ""

txtharga.Text = ""

txtjumbel.Text = ""

txttobay.Text = ""

txtubay.Text = ""

txtukem.Text = ""

End Sub

Private Sub cmbkode_Click()

If cmbkode.Text = "CS" Then

txtjenis.Text = "Coffe Susu"

txtharga.Text = 5000

ElseIf cmbkode.Text = "CC" Then

txtjenis.Text = "Coffe Capucino"

txtharga.Text = 8000

Else

txtjenis.Text = "Coffe Mix"

txtharga.Text = 10000

End If

End Sub

Private Sub cmdcancel_Click()

Call Form_Activate

bersih

End Sub

Private Sub cmdclose_Click()

Unload Me

End Sub

Private Sub cmdinput_Click()

aktif

bersih

cmbkode.Text = "-Daftar Coffe-"

cmbkode.SetFocus

cmdinput.Enabled = False

cmdcancel.Enabled = True

cmdclose.Enabled = False

End Sub

Private Sub Form_Activate()

aktif

bersih

txttgl.Text = Format(Date, "dd-mmmm-yyyy")

cmbkode.AddItem "CS"

cmbkode.AddItem "CC"

cmbkode.AddItem "CM"

cmbkode.SetFocus

cmdinput.Enabled = True

cmdcancel.Enabled = False

cmdclose.Enabled = True

End Sub

Private Sub txtjumbel_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttobay.Text = ((Val(txtharga.Text)) * Val(txtjumbel))

txtubay.SetFocus

End If

End Sub

Private Sub txtubay_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

If Val(txtubay.Text) < Val(txttobay.Text) Then

MsgBox "Maaf Uang Bayar Kurang Rp." & (Val(txttobay.Text) - Val(txtubay.Text)) & "," & "Silahkan Input Kembali", vbOKOnly + vbInformation, "informasi"

txtubay.Text = ""

txtubay.SetFocus

txtukem.Text = ""

Else

txtukem.Text = Val(txtubay.Text) - txttobay.Text

End If

cmdinput.Enabled = True

cmdcancel.Enabled = False

End If

If Not (KeyAscii <= Asc("9") And KeyAscii >= Asc("0") Or KeyAscii = vbKeyBack) Then

KeyAscii = 0

End If

End Sub

Tampilan Running Waroeng Coffe Sederhana