Hitung Pembayaran Pulsa VB 6.0

Assalamualaikum......Gan,

Ane mampir bentaran nih ke sini....ketemu lagi nih kite yeee....Lagi Main VB 6.0 yang buka counter sederhana gak kalah gengsi ama yang dah nanjak counternya....nih utak - atik aja sih eeeh..gak tau nya nge Run Bro...Ane buang dah di sini sapa tau berguna buat yang mampir kesini...

          Ane bikin belum sempurna sih tapi mayan daaah buat asah..., asih..., asuh...., otak kite yang dari tadi gak ke tarik hehehehe...

          Langsung aja ya Gan.....nih Previewnya.....

Nah ini Source Code nya...cobain aja yaaa Copas ... semoga bisa dimengerti...

Lain waktu Ane buat dah Tutorialnya...Tapi gak Janji yaaaa....hehehehehe

Private Sub Combo1_Click()

Combo2.Clear

Select Case Combo1.Text

    Case "Simpati"

    Combo2.AddItem 5000

    Combo2.AddItem 10000

    Combo2.AddItem 20000

    Combo2.AddItem 50000

    Case "As"

    Combo2.AddItem 5000

    Combo2.AddItem 10000

    Combo2.AddItem 20000

    Combo2.AddItem 50000

    Case "Mentari"

    Combo2.AddItem 5000

    Combo2.AddItem 10000

    Combo2.AddItem 20000

    Combo2.AddItem 50000

    Case "IM3"

    Combo2.AddItem 5000

    Combo2.AddItem 10000

    Combo2.AddItem 20000

    Combo2.AddItem 50000

    Case "Three"

    Combo2.AddItem 5000

    Combo2.AddItem 10000

    Combo2.AddItem 20000

    Combo2.AddItem 50000

    Case "Axis"

    Combo2.AddItem 5000

    Combo2.AddItem 10000

    Combo2.AddItem 20000

    Combo2.AddItem 50000

    Case "Esia"

    Combo2.AddItem 5000

    Combo2.AddItem 10000

    Combo2.AddItem 20000

    Case "Flexi"

    Combo2.AddItem 5000

    Combo2.AddItem 10000

    Combo2.AddItem 20000

    Case "Freen"

    Combo2.AddItem 5000

    Combo2.AddItem 10000

    Combo2.AddItem 20000

End Select

End Sub

Private Sub Combo2_Click()

Select Case Combo2.Text

Case 5000

Text1.Text = 6500

Case 10000

Text1.Text = 11500

Case 20000

Text1.Text = 21500

Case 50000

Text1.Text = 51500

End Select

End Sub

Private Sub Command1_Click()

hargajual = Val(Text1.Text)

jumlah_bayar = Val(Text2.Text)

kembali = jumlah_bayar - hargajual

Text3.Text = kembali

Label8.Caption = " Thank You "

Label8.FontSize = 16

End Sub

Private Sub Command2_Click()

Combo1.Clear

Combo2.Clear

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text1.SetFocus

End Sub

Private Sub Command3_Click()

Pesan = MsgBox(" NGGAK NYESEL MAU KELUAR ?", vbYesNo + vbQuestion, "Keluar")

If Pesan = vbYes Then

Unload Me

End If

End Sub

Private Sub Form_Load()

Combo1.Clear

Combo2.Clear

Combo1.AddItem "Simpati"

Combo1.AddItem "As"

Combo1.AddItem "Mentari"

Combo1.AddItem "IM3"

Combo1.AddItem "Three"

Combo1.AddItem "Axis"

End Sub

      Wassalam......Sampai Ketemu di Postingan yang akan datang.....