Program Sederhana Penjualan Pulsa Dengan VB 06



Assalamu alaikum sobat.,, !!
postingan kali ini tentang PROGRAM PENJUALAN PULSA dengan menggunakan PROGRAM VB 06 
sobat pasti udah tau kan apa itu VB ? hehehe klo bulum tau selundur dlu geeeh sana di om gugel :D :D xixixixi .,, nah tahap pertama sobat buat dulu tampilan seperti di bawah ini.,., yaahhh tampa panjang lebar.,. mending langsung di simak aja deh sobb :) Cekidootttt .....!!!!


Listing

Private Sub Command2_Click()

Dim hapus As Integer



hapus = MsgBox("Apakah anda yakin ingin menghapus data ini?", vbQuestion + vbYesNo, "@Muzakkir_Idrus?")

If hapus = vbYes Then

Adodc1.Recordset.Delete

Adodc1.Recordset.MoveNext

If Adodc1.Recordset.EOF = True Then

Adodc1.Recordset.MovePrevious

End If

End If

End Sub

================================================================================

Private Sub Command5_Click()

If Command5.Caption = "Edit" Then

    Command5.Caption = "Update"

   

ElseIf Command5.Caption = "Update" Then

Adodc1.Recordset!NFaktur = Text1.Text

Adodc1.Recordset!Operator = Combo1.Text

Adodc1.Recordset!No_Hp = Text2.Text

Adodc1.Recordset!Nominal = Combo2.Text

Adodc1.Recordset!Saldo = Text3.Text

Adodc1.Recordset!Harga = Text4.Text

Adodc1.Recordset!Bayar = Text5.Text



Adodc1.Recordset.Update

MsgBox "data sudah di perbaharui", vbOKOnly, "@muzakkir_Idrus"

Combo1.Text = "--Pilih Operator--"

Text2.Text = ""

Combo2.Text = "--Pilih Nominal Pulsa"

Text3.Text = ""

Text4.Text = ""

End If

End Sub

=================================================================================

Private Sub form_load()

Combo1.Text = "--Pilih Operator --"

Combo2.Text = "--Pilih Nominal Pulsa--"

Text2.Text = ""

Text3.Text = 1000000

Text4.Text = ""

Text5.Text = ""

Text7.Text = ""

End Sub

Private Sub Combo2_Click()

Select Case LCase(Combo2.Text)



    Case "5rb"

        Text4.Text = 7000

    Case "10rb"

        Text4.Text = 12000

    Case "20rb"

        Text4.Text = 22000

    Case "50rb"

        Text4.Text = 52000

    Case "100rb"

        Text4.Text = 98000

    Case Else

        Text4.Text = ""

 End Select

 End Sub

==============================================================================

Private Sub Command1_Click()

Text3.Text = Val(Text3.Text) - Val(Text4.Text)

Text7.Text = FormatCurrency(Val(Text5.Text) - Val(Text4.Text), 2)

Adodc1.Recordset.AddNew

Adodc1.Recordset!NFaktur = Text1.Text

Adodc1.Recordset!Operator = Combo1.Text

Adodc1.Recordset!Nominal = Combo2.Text

Adodc1.Recordset!No_Hp = Text2.Text

Adodc1.Recordset!Saldo = Text3.Text

Adodc1.Recordset!Harga = Text4.Text

Adodc1.Recordset!Bayar = Text5.Text

Adodc1.Recordset!Tgl_Transaksi = Text6.Text

Adodc1.Recordset!kembalian = Text7.Text



Adodc1.Recordset.Update

MsgBox "Pulsa telah ditransfer ", vbInformation, "@Muzakkir_Idrus"

End Sub

==============================================================================

Private Sub Command3_Click()

Static faktur As String

Static inc As Integer



inc = inc + 1

faktur = Format(CStr(inc + 1), "0000")

Text1.Text = faktur



Combo1.Text = "--Pilih Operator --"

Combo2.Text = "--Pilih Nominal Pulsa--"

Text2.Text = ""

Text4.Text = ""

Text5.Text = ""

Text7.Text = ""

End Sub

==========================================================================

Private Sub Command4_Click()

MsgBox "anda ingin keluar ? ", vbQuestion + vbYesNo, "@muzakkir_idrus"

Unload Me

End Sub

=========================================================================

Private Sub Timer1_Timer()

 Text6.Text = Format(Date, "dd/MM/yyyy") & "  --  " & Format(Time, "hh:nn:ss AM/PM")



End Sub


Yah sekian dulu yah sob.,., sobat bisa tambahin klo listing/kodenya masih kurang , semoga membantu yah .,Ewako !! THE MACZ MAN  Sektor STMIK DIPANEGARA !!





 

0 komentar:

Posting Komentar

Powered By Blogger