Membuat Billing System Sederhana

Tampilan Sebelum Running

Tampilan  Running

Listing :

Private Sub cmdkeluar_Click()
k = MsgBox(” YAKIN INGIN KELUAR BRO…??? “, vbQuestion + vbYesNo, “K3Lu4R”)
If k = vbYes Then
End
End If
End Sub

Private Sub cmdmulai_Click()
On Error Resume Next
If txtbiaya.Text = 0 Then
p = MsgBox(“Masukan Biaya Perjam”, vbCritical + vbYesNo, “ULan9 L4g! D0n9 Br0”)
ElseIf cmdmulai.Enabled = True Then
Timer1.Enabled = True
Timer2.Enabled = True
Timer3.Enabled = True
txtjamselesai.Text = 0
txtmenitselesai.Text = 0
txtdetikmulai = 0
cmdreset.Enabled = False
cmdmulai.Enabled = False
End If
If p = vbNo Then
End
End If
End Sub

Private Sub cmdreset_Click()
lblj = 0
lblm = 0
lbld = 0
Lbljamdurasi = 0
lblmenitdurasi = 0
lbldetikdurasi = 0
lbldetikselesai = 0
lblmenitselesai = 0
txtbiaya = “”
lbltotbi = 0
txtjamselesai.Text = “”
txtmenitselesai.Text = “”
txtdetikmulai = “”
End Sub

Private Sub cmdstop_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
cmdreset.Enabled = True
cmdmulai.Enabled = True
End Sub

Private Sub Form_Load()
Timer4.Interval = 700
Form1.Caption = ” ”
End Sub

Private Sub Timer1_Timer()
lbldetikdurasi.Caption = Val(lbldetikdurasi.Caption) + Val(1)
If lbldetikdurasi.Caption = 60 Then
lblmenitdurasi.Caption = Val(lblmenitdurasi.Caption) + Val(1)
lbldetikdurasi.Caption = 0
ElseIf lblmenitdurasi.Caption = 60 Then
Lbljamdurasi.Caption = Val(Lbljamdurasi.Caption) + Val(1)
lblmenitdurasi.Caption = 0
End If
End Sub

Private Sub Timer2_Timer()
lbldetikselesai = Val(lbldetikselesai) + Val(1)
If lbldetikselesai = 60 Then
lblmenitselesai = Val(lblmenitselesai) + Val(1)
lbltotbi = Val(txtbiaya) * Val(lblmenitselesai) \ Val(lbldetikselesai)
lbldetikselesai = 0
End If
End Sub

Private Sub Timer3_Timer()
lbld = Val(lbld) + Val(1)
If lbld = 60 Then
lblm = Val(lblm) + Val(1)
lbld = 0
ElseIf lblm = 60 Then
lblj = Val(lblj) + Val(1)
lblm = 0
End If
End Sub

Private Sub Timer4_Timer()
If Form1.Caption = “P3MROGR4M4N” Then
Form1.Caption = “B!LL!NG”
Else
If Form1.Caption = “B!LL!NG” Then
Form1.Caption = “SYST3M”
Else
If Form1.Caption = “SYST3M” Then
Form1.Caption = “S3D3RH4N4”
Else
Form1.Caption = “P3MROGR4M4N”
End If
End If
End If
Label4.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub

Keterangan :

Properti Timer 1, Timer2 & Timer 3 Interval = 1000

Untu Lebih jelas Silahkan Download Disini

Semoga bermanfaat…

Fungsi IF II

Listing :

Hasil Tampilan :

Fungsi If Majemuk

Listing :

Hasil Tampilan :

Fungsi IF I

Listing :

Hasil Tampilan :