Ujian Matrikulasi Pemrograman Visual Basic

Aplikasi yang dibuat adalah "seperti" Billing Wartel, dengan tampilan dibawah ini :

Adapun ketentuan dari aplikasi ini adalah :
1. Button 0 s/d 9 digunakan untuk menampilkan nomer tujuan pada textbox Display.
2. Jika Button Mulai diklik, maka akan muncul durasi dan biaya pada textbox Display, sesuai dengan tarif-nya.
3. Button Selesai digunakan untuk menghentikan perhitungan pulsa, dan data-nya dimasukkan ke listbox Hasil.
4. Berikut ini ketentuan Durasi dan Tarif-nya :

• Interlokal : Awalan 0, Durasi(detik) 60, Tarif (Rp) 915
• GSM : Awalan 08, Durasi(detik) 60, Tarif (Rp) 1000
• International : Awalan 007 Durasi(detik) 60, Tarif (Rp) 8300
• Lokal : Awalan 1s/d9, Durasi(detik) 120, Tarif (Rp) 195

Berikut ini koding-nya :
Dim detik As Integer
Dim harga As Integer
Dim total As Integer
Dim arrTarif(3, 2) As String
Dim idx As Integer
Dim noTelpon As String

Private Sub btn0_Click()
tbDisplay.Text = tbDisplay.Text & btn0.Caption
End Sub

Private Sub btn1_Click()
tbDisplay.Text = tbDisplay.Text & btn1.Caption
End Sub

Private Sub btn2_Click()
tbDisplay.Text = tbDisplay.Text & btn2.Caption
End Sub

Private Sub btn3_Click()
tbDisplay.Text = tbDisplay.Text & btn3.Caption
End Sub

Private Sub btn4_Click()
tbDisplay.Text = tbDisplay.Text & btn4.Caption
End Sub

Private Sub btn5_Click()
tbDisplay.Text = tbDisplay.Text & btn5.Caption
End Sub

Private Sub btn6_Click()
tbDisplay.Text = tbDisplay.Text & btn6.Caption
End Sub

Private Sub btn7_Click()
tbDisplay.Text = tbDisplay.Text & btn7.Caption
End Sub

Private Sub btn8_Click()
tbDisplay.Text = tbDisplay.Text & btn8.Caption
End Sub

Private Sub btn9_Click()
tbDisplay.Text = tbDisplay.Text & btn9.Caption
End Sub

Private Sub Form_Load()
idx = -1
arrTarif(0, 0) = "0"
arrTarif(0, 1) = "60"
arrTarif(0, 2) = "915"
arrTarif(1, 0) = "08"
arrTarif(1, 1) = "60"
arrTarif(1, 2) = "915"
arrTarif(2, 0) = "007"
arrTarif(2, 1) = "60"
arrTarif(2, 2) = "8300"
arrTarif(3, 0) = "1/s9"
arrTarif(3, 1) = "120"
arrTarif(3, 2) = "195"
End Sub

Private Sub btnMulai_Click()
noTelpon = tbDisplay.Text
detik = 0
harga = 0
total = 0
JenisPulsa
Timer1.Enabled = True
End Sub

Private Sub btnSelesai_Click()
Timer1.Enabled = False
lvHasil.AddItem (noTelpon & vbTab & vbTab & detik & vbTab & vbTab & harga)
tbDisplay.Text = ""
total = total + harga
lbTotal.Caption = CStr(total)
End Sub

Private Sub Timer1_Timer()
detik = detik + 1
harga = (detik \ arrTarif(idx, 1) + 1) * arrTarif(idx, 2)
tbDisplay.Text = detik & vbTab & vbTab & CStr(harga)
End Sub

Sub JenisPulsa()
idx = -1
Dim i As Integer
For i = 0 To 2
If Mid(tbDisplay.Text, 1, Len(arrTarif(i, 0))) = arrTarif(i, 0) Then
idx = i
End If
Next
If idx = -1 Then
idx = 3
End If
End Sub

Untuk source code dapat diambil di sini

Selamat mencoba dan tetap semangat :)