Welcome to Abdul Malik Ikhsan’s Blog

Kita ambil contoh, aplikasi menghitung luas persegi panjang dengan function bentukan misalnya luaspp, contoh sebagai berikut :

Berikut source code-nya :
‘function hitung luas persegi panjang
Public Function luaspp(panjang As Integer, lebar As Integer) As Integer
luaspp = panjang * lebar
End Function

‘procedure button diklik
Private Sub Command1_Click()
If (Text1.Text = “”) Then
MsgBox “panjang harus diisi”
Text1.SetFocus
ElseIf (Text2.Text = “”) Then
MsgBox “lebar harus diisi”
Text2.SetFocus
Else

Dim panjang As Integer
Dim lebar As Integer
panjang = Int(Text1.Text)
lebar = Int(Text2.Text)
If (panjang < lebar) Then
MsgBox “panjang tidak boleh kurang dari lebar”
Text2.SetFocus
Else
‘panggil function
Label3.Caption = “Hasil Perhitungan = ” & luaspp(panjang, lebar)
End If
End If
End Sub

‘procedure text ditulisi
Private Sub Text1_keypress(keyascii As Integer)
‘tanda underscore untuk tampilkan seterusnya, tapi terusinnya
‘dibawah
If Not (keyascii >= Asc(“0″) And _
keyascii <= Asc(“9″)) Then
If keyascii <> vbKeyBack Then
keyascii = 0
End If
End If
End Sub

‘procedure text ditulisi
Private Sub Text2_keypress(keyascii As Integer)
‘tanda underscore untuk tampilkan seterusnya, tapi terusinnya
‘dibawah
If Not (keyascii >= Asc(“0″) And _
keyascii <= Asc(“9″)) Then
If keyascii <> vbKeyBack Then
keyascii = 0
End If
End If
End Sub