Hai, hai. Ini adalah postingan pertama saya di blog ini. Karena blog ini dibuat dalam rangka tugas akhir Pemrograman Komputer maka saya akan banyak ngepost tentang VB.
Jadi langsung saja ini saya beri penampakan programnya dulu biar temen2 yang liat tau bayangan billingnya entar seperti apa
Jadi entar di formnya ada textbox sama label 4 buah terus sama buttonnya 3 biji.
Deskripsi program :
Program ini dibuat sebagai simulasi bagaimana sebuah billing warnet berjalan, logikanya adalah ketika detik telah mencapai angka 60 maka menit akan menambah 1, ketika menit telah mencapai angka 60 maka jam akan menambah satu, dan begitu seterusnya. Lalu harga digunakan untuk menentukan berapa harga perjamnya, ketika jam mulai bertambah satu maka harga akan bertambah sesuai kelipatan dari harga perjamnya. Sebenarnya simpel tapi jika kita tidak mencoba membuatnya kita tidak akan tahu benar2 dari program ini.
Metodologi :
1. Buat form seperti ini
Yang diperlukan
Label 4 buah dengan isi text : detik, menit, jam, dan harga
Textbox 4 buah dengan rincian :
Textbox 1 : untuk yang detik
Textbox 2 : untuk yang menit
Textbox 3 : untuk yang jam
Textbox 4 : untuk yang harga
2. Jangan lupa beri timer
Timer berguna untuk menjalankan detik. Jangan lupa untuk mengatur intervalnya di properties dari timer, interval 1000 sama dengan 1 detik.
Koding :
Kalau semua udah sesuai sama yang diatas tinggal masukin koding berikut
Public Class Form1
Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Me.CenterToScreen()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
TextBox1.Text = Val(TextBox1.Text + 1)
If TextBox1.Text = 60 Then
TextBox2.Text = Val(TextBox2.Text + 1)
TextBox1.Text = 0
End If
If TextBox2.Text = 60 Then
TextBox3.Text = Val(TextBox3.Text + 1)
TextBox4.Text = Val(TextBox4.Text + 3000)
TextBox2.Text = 0
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
If TextBox1.Text < 0 Or TextBox1.Text > 60 Then
Timer1.Stop()
MsgBox(" salah masukkan data, klik reset ")
End If
If TextBox2.Text < 0 Or TextBox2.Text > 60 Then
Timer1.Stop()
MsgBox(" salah masukkan data, klik reset ")
End If
If TextBox3.Text < 0 Then
Timer1.Stop()
MsgBox(" salah masukkan data, klik reset ")
ElseIf TextBox3.Text > 0 Then
TextBox4.Text = TextBox3.Text * 3000
End If
If TextBox4.Text < 0 Then
Timer1.Stop()
MsgBox(" salah masukkan data, klik reset ")
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Button1.Enabled = True
Timer1.Stop()
TextBox1.Text = "0"
TextBox2.Text = "0"
TextBox3.Text = "0"
TextBox4.Text = "0"
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If TextBox1.Text = "" Then
MsgBox("anda belum memasukkan nilai, klik reset atau masukkan nilai kembali")
Button1.Enabled = False
ElseIf TextBox1.Text <> "" Then
Button1.Enabled = True
End If
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
If TextBox2.Text = "" Then
MsgBox("anda belum memasukkan nilai, klik reset atau masukkan nilai kembali")
Button1.Enabled = False
ElseIf TextBox2.Text <> "" Then
Button1.Enabled = True
End If
End Sub
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
If TextBox3.Text = "" Then
MsgBox("anda belum memasukkan nilai, klik reset atau masukkan nilai kembali")
Button1.Enabled = False
ElseIf TextBox3.Text <> "" Then
Button1.Enabled = True
End If
End Sub
Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
If TextBox4.Text = "" Then
MsgBox("anda belum memasukkan nilai, klik reset atau masukkan nilai kembali")
Button1.Enabled = False
ElseIf TextBox4.Text <> "" Then
Button1.Enabled = True
End If
End Sub
End Class
Kesimpulan :
Udah selesai nih tutorial mengenai program billing kali ini, kalau ada yang ditanyakan langsung aja komen di bawah ya..
NB : kalau mau download filenya juga boleh, klik di sini
NB : kalau mau download filenya juga boleh, klik di sini
