Pertama buka lah visual basic dan buatlah desain seperti ini
keterangan
keterangan
|
Objek
|
Property
|
Nilai
|
|
Form 1
|
Caption
|
PENJUMLAHAN |
|
label1
|
Caption
|
nilai1
|
|
label2
|
Caption
|
nilai2
|
|
TextBox1
|
Text
|
kosongkan
|
|
TextBox2
|
text
|
kosongkan
|
|
command1
|
Caption
|
PENJUMLAHAN
|
|
Command2
|
caption
|
Exit
|
Dan masukkan perintah dibawah ini,
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
MsgBox penjumlahan(a, b)
End Sub
Dim a As Integer
Dim b As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
MsgBox penjumlahan(a, b)
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Unload Me
End Sub
Public Function perkalian(nilai1 As
Integer, nilai2 As Integer) As Integer
Dim hasil As Integer
hasil = nilai1 + nilai2
penjumlahan= hasil
End Function
Dim hasil As Integer
hasil = nilai1 + nilai2
penjumlahan= hasil
End Function
setelah selesai memasukkan perintas
tsb, maka cek lagi apakah perintah yang kita masukkan telah benar atau tidak,
jika msih salah maka perkaliannya tidak mau berfungsi
jalankan
akan muncul seperti dibawah ini
masukkan angka di textbox 1 dan
textbox2
dan klik PENJUMLAHAN
Maka akan muncul hasil penjumlahannya
nahhh... bagaimana?? mudahkan???
SEMOGA BERMANFAAT
