PENJUMLAHAN VISUAL BASIC

Pertama buka lah visual basic dan buatlah desain seperti ini


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

Private Sub Command2_Click()
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

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