Hello kawan... saya mau shering cara membuat kalkulator.
ini tahap-tahapnya:
1. buat lah Form Seperti Gambar Dibawah Ini:
(Soal Desain Terserah Anda :) )
2. Masukkan Codding-Codding Berikut :
Private Sub Command1_Click()
a = Val(Text1)
b = Val(Text2)
c = a + b
Text3 = c
End Sub
Private Sub Command2_Click()
a = Val(Text1)
b = Val(Text2)
c = a - b
Text3 = c
End Sub
Private Sub Command3_Click()
a = Val(Text1)
b = Val(Text2)
c = a * b
Text3 = c
End Sub
Private Sub Command4_Click()
a = Val(Text1)
b = Val(Text2)
c = a / b
Text3 = c
End Sub
Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Command6_Click()
End
End Sub
3. silahkan Run (Tekan f5)
SEMOGA BERMANFAAT...
Kalo Ada Yang Kurang Jelas Silahkan COmEnt ya...
Saling SHERing SAtu Sama Laen... :D
0 comments:
Post a Comment