Tugas 02 Visual Basic

akhirnya selesai juga nih tugas,, terima kasih banyak kepada teman2 yang sudah membantu dan langsung aja kita ke TKP yaitu dengan membuka program Visual Basic 6.0 pada komputer anda,Selanjutnya kita membuat tampilannya dahulu .

berikut adalah Tampilan Output yang akan kita kerjakan...

<<----------->>
Setelah selesai kita ubah propertiesnya Dahulu....
<<----------->>
Label 1  Caption : Kode kue
Label 2  Caption : Jenis kue
Label 3 Caption : Harga Kue

Text 1  Name : txtkode  Caption : Text : dikosongkan
Text 2  Name : txtjenis  Caption : Text : dikosongkan
Text 3  Name : txtharga  Caption : Text : dikosongkan
Text 4  Name : txtdate  Caption : Text : dikosongkan
Text 5  Name : txttime  Caption : Text : dikosongkan
Text 6  Name : txtjubel  Caption : Text : dikosongkan
Text 7  Name : txtbayar  Caption : Text : dikosongkan
Text 8  Name : txtpot  Caption : Text : dikosongkan
Text 9  Name : txtppn  Caption : Text : dikosongkan
Text 10  Name : txttobay  Caption : Text : dikosongkan
Text 11  Name : txtubay Caption : Text : dikosongkan
Text 12  Name : txtkem  Caption : Text : dikosongkan

Command 1 Nama :  cmdhitung  Caption  : HITUNG
Command 2 Nama :  cmdbersih  Caption  : BERSIH
Command 3 Nama :  cmdexit  Caption  : EXIT
 <<----------->>
Jika sudah mengedit Properties Silahkan teman2 tulis scrip dibawah ini... 
<<----------->>
 Private Sub cmdbersih_Click()
txtkode.Text = ""
txtjenis.Text = ""
txtharga.Text = ""
txtjubel.Text = ""
txtbayar.Text = ""
txtpot.Text = ""
txttobay.Text = ""
txtubay.Text = ""
txtkem.Text = ""
txtppn.Text = ""
End Sub

Private Sub cmdexit_Click()
Unload Me
End Sub

Private Sub cmdhitung_Click()
txtbayar.Text = (Val(txtharga.Text) * Val(txtjubel.Text))
txtpot.Text = (Val(txtbayar.Text)) * 0.05
txtppn.Text = (Val(txtbayar.Text)) * 0.01
txttobay.Text = (Val(txtbayar.Text) - ((Val(txtpot.Text) + Val(txtppn.Text))))
End Sub


Private Sub Form_Load()
txttime.Text = Time
txtdate.Text = Date
End Sub

Private Sub txtubay_Change()
txtkem.Text = (Val(txtubay.Text) - Val(txttobay.Text))
End Sub

Berikut Tampilan yang akan keluar pertama x.....

  selanjutnya kerjakan sendiri dan kita lihat nanti tampilan Outputnya.....   

Hasilnya sudah di uji coba loh oleh si pemilik blog n hasilnya oke...