1. buka Visual Basic-nya dan pilih Standard EXE
2. lalu design seperti ini
Label (di bikin 2)
name : Label1.
caption : angka pertama.
name : Label2.
caption : angka kedua.
TextBox (di bikin 3)
name: text1
caption:(di kosongkan)
name: text2
caption:(di kosongkan)
name: text3
caption:0(nol angka)
CommandButton (di bikin 5)
name:cmdplus
caption:+
name:cmdmin
caption:-
name:cmdbagi
caption:/
name:cmdkali
caption:*
name:cmdclear
caption:Clear
name:cmdexit
caption:Exit
dan kodenya
Private Sub cmdplus_Click()
Text3 = Val(Text1) + Val(Text2)
End Sub
Private Sub cmdmin_Click()
Text3 = Val(Text1) - Val(Text2)
End Sub
Private Sub cmdbagi_Click()
Text3 = Val(Text1) / Val(Text2)
End Sub
Private Sub cmdkali_Click()
Text3 = Val(Text1) * Val(Text2)
End Sub
Private Sub cmdclear_Click()
Text1 = ""
Text2 = ""
Text3 = "0"
End Sub
Private Sub cmdexit_Click()
p = MsgBox("Yakin Mau Keluar?", vbQuestion + vbOKCancel, "INFORMASI")
If p = vbOK Then
End If
End
End Sub
kalo kurang jelas?lihat Video ini!!! :-) selamat menikmatiText3 = Val(Text1) + Val(Text2)
End Sub
Private Sub cmdmin_Click()
Text3 = Val(Text1) - Val(Text2)
End Sub
Private Sub cmdbagi_Click()
Text3 = Val(Text1) / Val(Text2)
End Sub
Private Sub cmdkali_Click()
Text3 = Val(Text1) * Val(Text2)
End Sub
Private Sub cmdclear_Click()
Text1 = ""
Text2 = ""
Text3 = "0"
End Sub
Private Sub cmdexit_Click()
p = MsgBox("Yakin Mau Keluar?", vbQuestion + vbOKCancel, "INFORMASI")
If p = vbOK Then
End If
End
End Sub


owh seperti itu cara nya untuk membuat aplikasi kalkulator, lumayan buat nambah pengetahuan, terima kasih gan
ReplyDeleteSama2 Bang
Deletethanks infonya sangat bermanfaat
ReplyDeleteMakasih gan
Delete