Setelah kemarin
membuat progam penjualan dengan visual basic 2010 ternyata masih ada beberapa
kekurangan. sekarang saya akan melanjutkan progam yang kemarin lagi untuk
melengkapi kekurangan di progam yang kemarin. Perbaikan progam yang saya buat
antara lain :
- penambahan tombol isi data
- saat form dijalankan semuat isian, tombol isidata dan tutup aktif, sedangkan tombol clear tidak aktif
- saat ditekan tombol clear maka sama dengan saat form dijalankan.
Untuk membuat
progaram seperti diatas maka saya buat tampilan form seperti ini
Selanjutnya agarsaat
form dijalankan semuat isian, tombol isidata dan tutup aktif, sedangkan tombol
clear tidak aktif maka kita tambahkan coding berikut pada form load
PrivateSub Form1_Load(ByVal
sender AsSystem.Object,
ByVal e AsSystem.EventArgs) HandlesMyBase.Load
Dim Control AsWindows.Forms.Control
ForEach Control InMe.Controls
Control.Enabled = False
Next
Button2.Enabled = True ‘tombol isi data
bttutup.Enabled = True
maka tampilan saat progam dijalankan akan seperti ini
Agar dapat diisi maka isian harus aktif, maka
kita bisa menambahkan perintah di tombol isi data agar isian bisa aktif semua
dan tombol clear bisa berfungsi. Berikut coding yang saya gunakan untuk membuat
semua isian progam tersebut menjadi aktif lagi
PrivateSub Button2_Click(ByVal
sender AsSystem.Object,
ByVal e AsSystem.EventArgs) Handles
Button2.Click
Dim Control AsWindows.Forms.Control
ForEach Control InMe.Controls
Control.Enabled = True
Next
Button1.Enabled = True‘button 1 tombol clear
Button2.Enabled = False‘button 1 tombol isi data
EndSub
Dan tampilan progamnya saat dijalankan jadi seperti ini :
 |
| ketika tombol di klik |
 |
| ketika tombol sis data di klik |
Agar saat tombol
clear ditekan tampilan form sperti pada saat pertama progam dijalankan maka
perlu ditambahkan perintah pada tombol clear sebagai berikut
PrivateSub Button1_Click(ByVal
sender AsSystem.Object,
ByVal e AsSystem.EventArgs) Handles
Button1.Click
txtbayar.Clear()
txtdiskon.Clear()
txtharga.Clear()
txtjumlah.Clear()
txtnama.Clear()
Me.radiotunai.Checked = False
Me.radiokredit.Checked = False
cmbkode.Text = ""
Dim Control AsWindows.Forms.Control
ForEach Control InMe.Controls
Control.Enabled = False
Next
Button2.Enabled = True ‘tombol
bttutup.Enabled = True
EndSub
Ok demikia untuk
update dari tugas pemrogaman 3 yang kemarin sebagai tugas pemrogaman 3 yang
pertama. Untuk source kode selengkapnya
dibawah ini. Untuk tugas pemrogaman ke 3 yang ke dua tentang bagaimana membuat
puzzle dengan visual basic juga telah saya buat. Terimakasih.
Untuk source code selengkapnya bisa dilihat dibawa ini :
Untuk source code selengkapnya bisa dilihat dibawa ini :
PublicClassForm1
PrivateSub Form1_Load(ByVal
sender AsSystem.Object,
ByVal e AsSystem.EventArgs) HandlesMyBase.Load
Dim Control AsWindows.Forms.Control
ForEach Control InMe.Controls
Control.Enabled = False
Next
Button2.Enabled = True
bttutup.Enabled = True
cmbkode.Items.Add("SPT")
cmbkode.Items.Add("SND")
cmbkode.Items.Add("TST")
cmbkode.Items.Add("TOP")
cmbkode.Items.Add("TAS")
EndSub
PrivateSub Button1_Click(ByVal
sender AsSystem.Object,
ByVal e AsSystem.EventArgs) Handles
Button1.Click
txtbayar.Clear()
txtdiskon.Clear()
txtharga.Clear()
txtjumlah.Clear()
txtnama.Clear()
txttotal.Clear()
Me.radiotunai.Checked = False
Me.radiokredit.Checked = False
cmbkode.Text = ""
Dim Control AsWindows.Forms.Control
ForEach Control InMe.Controls
Control.Enabled = False
Next
Button2.Enabled = True
bttutup.Enabled = True
EndSub
PrivateSub TextBox1_TextChanged(ByVal
sender AsSystem.Object,
ByVal e AsSystem.EventArgs) Handlestxtjumlah.TextChanged
EndSub
PrivateSubcmbkode_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs)
Handlescmbkode.SelectedIndexChanged
Dimkdbarang, namabarangAsString
DimhargaAsInteger
kdbarang = cmbkode.Text
SelectCasekdbarang
Case"SPT"
namabarang = "
sepatu "
harga = 20000
Case"SND"
namabarang = "
sendal"
harga = 10000
Case"TST"
namabarang = "
T-Shirt "
harga = 15000
Case"TOP"
namabarang = "
topi "
harga = 50000
Case Else
namabarang = " -
"
harga = 0
EndSelect
txtjumlah.Text = 0
txtnama.Text = namabarang
txtharga.Text = harga
txttotal.Text = Val(txtharga.Text) *
Val(txtjumlah.Text)
EndSub
PrivateSubradiotunai_CheckedChanged(ByVal
sender AsSystem.Object,
ByVal e AsSystem.EventArgs) Handlesradiotunai.CheckedChanged
txtdiskon.Text = Val(txttotal.Text) * 10 / 100
txttotal.Text = Val(txtharga.Text) *
Val(txtjumlah.Text)
txtbayar.Text = Val(txttotal.Text) -
Val(txtdiskon.Text)
EndSub
PrivateSubradiokredit_CheckedChanged(ByVal
sender AsSystem.Object,
ByVal e AsSystem.EventArgs) Handlesradiokredit.CheckedChanged
txtdiskon.Text = 0
txttotal.Text = Val(txtharga.Text) *
Val(txtjumlah.Text)
txtbayar.Text = Val(txttotal.Text) -
Val(txtdiskon.Text)
EndSub
PrivateSubtxtbayar_TextChanged(ByVal
sender AsSystem.Object,
ByVal e AsSystem.EventArgs) Handlestxtbayar.TextChanged
EndSub
PrivateSubbttutup_Click(ByVal
sender AsSystem.Object,
ByVal e AsSystem.EventArgs) Handlesbttutup.Click
Me.Close()
EndSub
PrivateSubtxttotal_TextChanged(ByVal
sender AsSystem.Object,
ByVal e AsSystem.EventArgs) Handlestxttotal.TextChanged
EndSub
PrivateSub Button2_Click(ByVal
sender AsSystem.Object,
ByVal e AsSystem.EventArgs) Handles
Button2.Click
Dim Control AsWindows.Forms.Control
ForEach Control InMe.Controls
Control.Enabled = True
Next
Button1.Enabled = True
Button2.Enabled = False
EndSub
EndClass
