Program VB 8

Latihan Membuat Prosedur

Sub Hitung_Gaji()
Gaji = InputBox("Masukkan Gaji Pokok!", "Input Gaji!")
Tunj = InputBox("Masukkan Tunjangan!", "Input Tunjangan!")
Gaber = Val(Gaji) + Val(Tunj)
If Gaji = "" Or Tunj = "" Then
MsgBox ("Tidak Ada Angka yang Dimasukkan.")
Exit Sub
Else
MsgBox ("Gaji Bersih = Rp" & Str(Gaber))
End If

End Sub

Private Sub Cmddah_Click()
Hitung_Gaji
End Sub

Private Sub Cmdmah_Click()
Hitung_Gaji
End Sub

Private Sub Cmdzah_Click()
Hitung_Gaji
End Sub

=========================================

Latihan Membuat Function

Private Function Luas_Segitiga(a As Double, t As Double) As Double
Luas_Segitiga = (a * t) / 2

End Function

Private Sub Cmdhit_Click()
Dim a As Double
Dim t As Double
Dim hasil As Double
a = Val(Txta.Text)
t = Val(Txtt.Text)
hasil = Luas_Segitiga(a, t)
Txth.Text = hasil
End Sub

Private Sub Cmdout_Click()
Unload Me
End Sub

========================================

Latihan Membuat Function (Cont...)

Function Grade(Rata As Integer) As String

Select Case Rata
Case 95 To 100
Ket = "Sangat Memuaskan"
Case 85 To 94
Ket = "Memuaskan"
Case 60 To 84
Ket = "Cukup Memuaskan"
Case 45 To 59
Ket = "Tidak Memuaskan"
Case Else
Ket = "Mengecewakan"
End Select
Grade = Ket
End Function

Private Sub Form_Activate()
Dim N As Integer
N = 90
Print "Nilai Rata-rata: " & Str(N)
Print "Keterangan: " & Grade(N)
End Sub