Perhitungan Upah Buruh (Visual Basic)

Untuk membuat program sederhana Perhitungan Upah Buruh yang pertama harus dilakukan adalah membuka Visual Basic dan kemudian mengetikkan mengikuti langkah-langkah dibawah ini :

1. Membuat form seperti gambar berikut :

2. Ketikkan/copy paste source code berikut

Private Sub Command1_Click()
Dim bil1 As String
bil1 = Text1
Dim bil2 As Integer
bil2 = JK
Dim bil3 As Integer
bil3 = L
Dim bil4 As Integer
bil4 = JA
Dim bil5 As Variant
bil5 = Text5
Dim bil6 As Variant
bil6 = Text6
Text5.Text = (10000 * JK.Text) + (2000 * L.Text) + (50000 * JA.Text)
Text6.Text = (10000 * JK.Text) + (2000 * L.Text) + (50000 * JA.Text) * 95 / 100
If JA > 3 Then a
If L > 20 Then b
End Sub

Private Sub Command2_Click()
Text1 = ""
JK = ""
L = ""
JA = ""
Text5 = ""
Text6 = ""
Text1.SetFocus
End Sub

Private Sub Command3_Click()
jawab = MsgBox("Anda yakin ingin keluar?", _
vbInformation + vbYesNo, "INFO")
If jawab = vbYes Then
Unload Me
If jawab = vbNo Then
FrmUpahBuruh.Show
End If
End If
End Sub
Sub a()
If JA > 3 Then
jawab = MsgBox("Jumlah Anak tidak boleh lebih dari 3!!", _
vbInformation + vbYesNo, "WARNING!!")
If jawab = vbNo Then
End
ElseIf jawab = vbYes Then
JA = ""
Text5 = ""
Text6 = ""
JA.SetFocus
FrmUpahBuruh.Show
End If
End If
End Sub

Sub b()
If L > 20 Then
jawab = MsgBox("Jumlah Lembur tidak boleh lebih dari 20!!", _
vbInformation + vbYesNo, "WARNING!!")
If jawab = vbNo Then
End
ElseIf jawab = vbYes Then
Text1 = ""
JK = ""
L = ""
JA = ""
Text5 = ""
Text6 = ""
Text1.SetFocus
FrmUpahBuruh.Show
End If
End If
End Sub

3. Setelah selesai kemudian jalankan program