Kamis, 20 Oktober 2011

Membuat Visual Basic Kakulator

Script :
Command1 : Tambah
MsgBox (Val(Text1.Text) + (Text2.Text))

Command2 : Kali
MsgBox (Val(Text1.Text) * (Text2.Text))

Command3 : Bagi
MsgBox (Val(Text1.Text) / (Text2.Text))

Command4 : Kurang
MsgBox (Val(Text1.Text) - (Text2.Text))

Command5 : Pangkat
MsgBox (Val(Text1.Text) * (Text1.Text))

Command6 : CE
Text1.Text = ""
Text2.Text = ""

Command7 : End
End