twitter dan facebook

daftar isi

Labels

Recent Post

My Ping in TotalPing.com
Free Music Online
Free Music Online

free music at divine-music.info

Selasa, 24 April 2012

COUNTER PULSA DENGAN VISUAL BASIC




Ini diletakkan di "Ulang"
Private Sub Command1_Click()
Combo1.Text = ""
lsnom.Text = ""
Text1.Text = ""
Text2.Text = ""
End Sub

Ini diletakkan di "Print"
Private Sub Command2_Click()
MsgBox "Sobat Beli Pulsa" & Combo1.Text & " = " & Text2.Text
End Sub

Ini diletakkan di "Keluar" 
Private Sub Command3_Click()
Unload Me
End Sub

Ini diletakkan di "Tri Again"
Private Sub Command5_Click()
Combo1.Text = ""
Text1.Text = ""
Text2.Text = ""
End Sub

Ini diletakkan di "Form"
Private Sub Form_Load()
Combo1.AddItem "M3"
Combo1.AddItem "Esia"
Combo1.AddItem "XL"
Combo1.AddItem "As"
Combo1.AddItem "Simpati"
Isnom.AddItem "5000"
Isnom.AddItem "11000"
Isnom.AddItem "21000"
Isnom.AddItem "50000"
Isnom.AddItem "90000"
End Sub

Ini diletakkan di "Text Jumlah Pembelian"
Private Sub Text1_Change()
Text2.Text = Val(Isnom.Text) * Val(Text1.Text)
End Sub

ok selesai deh mudahkan...
terimakasih telah membaca artikel COUNTER PULSA DENGAN VISUAL BASIC semoga bermanfaat dan jangan lupa di share keteman-teman ok soba

1 comments

akumasihbelajar24@gmail.com 6 Oktober 2013 01.25

pak apakah saya bisa ikut belajar dengan bapak ??

Poskan Komentar