Setelah 5 kali membuat program latihan dari
Microsoft visual basic 6.0, di harapkan saudara sudah mulai memiliki pemahaman
mengenai bahasa pemograman ini. Untuk latihan selanjutnya anda dituntut untuk
mulai mencoba menganalisa program yang akan dibuat tanpa harus dituntut dengan
tabel properties.
Berikut kita akan membuat sebuah aplikasi pada
system billing internet di sebuah warnet. Di sini kita akan menggunakan sebuah
object yang baru, namanya Timer. Timer ini kita gunakan untuk menghitung waktu
pemakaian.
Ikuti langkah kerja berikut :
Langkah Kerja
Click
Start > Program > Microsoft Visual Studio > Microsoft Visual Basic 6.0
Click
Standard Exe dan click Open
Simpan
latihan ini dengan nama
o
Form : Frm_latihan6.Frm
o
Project : P_Latihan6.VBP
Desain Form Seperti tampilan ini
Dim s, m, h As Integer
Dim total, tarif As Currency
Private Sub cmdClear_Click()
txtnama.Text
= ""
cbo1.Text =
""
lbljam.Caption = ""
lblcounter.Caption = ""
lbltotal.Caption = ""
lblbiaya.Caption = ""
lblnama.Caption = ""
lblkate.Caption
= ""
lbltarif.Caption = ""
lblmulai.Caption = ""
lblselesai.Caption = ""
s = 0
m = 0
h = 0
txtnama.SetFocus
End Sub
Private Sub cmdExit_Click()
pesan = MsgBox("Anda mau keluar dari program
aplikasi ini", vbYesNo, "Pesan")
If pesan = vbYes Then
Unload Me
End If
End Sub
Private Sub cmdMulai_Click()
waktu = Time
If
cmdMulai.Caption = "&Mulai" Then
cmdMulai.Caption = "&Selesai"
Timer2.Enabled = True
Timer1.Enabled = True
lblmulai.Caption = Time
s = 2
m = 0
h = 0
Else
cmdMulai.Caption = "&Mulai"
Timer1.Enabled = False
Timer2.Enabled = False
lblselesai.Caption = Time
lbltotal.Caption = lblbiaya.Caption
End If
End Sub
Private Sub Cbo1_Click()
lblkate.Caption
= cbo1.Text
Select Case
Trim(cbo1.Text)
Case
"Umum"
tarif = 5000
Case
"Mahasiswa"
tarif = 3500
Case
"Pelajar"
tarif = 2500
End Select
lbltarif.Caption = tarif
End Sub
Private Sub Form_Load()
cbo1.AddItem
"Umum"
cbo1.AddItem
"Mahasiswa"
cbo1.AddItem
"Pelajar"
lbltanggal.Caption = Format(Date, "dd")
lblbulan.Caption = Format(Date, "MMMM")
lbltahun.Caption = Format(Date, "yyyy")
s = 2
m = 0
h = 0
End Sub
Private Sub txtnama_Lostfocus()
lblnama.Caption
= txtnama.Text
End Sub
Private Sub Timer1_Timer()
lbljam.Caption = Time()
lblcounter.Caption = h & ":" & m & " :"
& s
s = s + 1
If s >= 60
Then
total =
total + Val(tarif / 60)
lblbiaya.Caption = Format(total, "###,###.#0")
s = 0
m = m + 1
End If
If m >= 59
Then
m = 0
h = h + 1
End If
If h >= 23 Then
h = 0
End If
End Sub
0 comments:
Post a Comment