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