COUNTER PULSA DENGAN VISUAL BASIC

CODE PADA FORM DI ATAS SEBAGAI BERIKUT

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