Daim angka
(1 to 2) As integer
Dim
ooperatos As string
Private sub
cmd_clik (As integer)
Text1.text
= text1.text & cmd (index). Caption
End sub
Private sub
file1_click ()
End sub
Private sub
hitung_click ()
Dim hasil As
single
If text 1. Text = “ ” then exit sub
Angka (2) = (text 1.text)
Select case ooperator
Case “+”
Hasil = angka (1) +
angka (2)
Case “-”
Hasil = angka (1) -
angka (2)
Case “x”
Hasil = angka (1) x
angka (2)
Case “/”
Hasil = angka (1) / angka
(2)
End select
Text 1. Text
= hasil
End sub
Private sub
operator_clik (index as integer)
If text.1 text =”” then exit sub
Angka (1) = (sng (text.1 text )
Operator = operator (index) . caption
Text.1 text = ” “
End sub
Private sub command_clik
()
End sub
Private sub
command2_clik ()
End.
0 komentar:
Posting Komentar