Private Sub tambah_Click()
Text3.Text = Val(Text1) + Val(Text2)
End Sub
• Coding Pengurangan
Private Sub kurang_Click()
Text3.Text = Val(Text1) - Val(Text2)
End Sub
• Coding Perkalian
Private Sub kali_Click()
Text3.Text = Val(Text1) * Val(Text2)
End Sub
• Coding Pembagian
Private Sub Bagi_Click()
Text3.Text = Val(Text1) / Val(Text2)
End Sub
Download Project Kalkulator Sederhana
0 komentar:
Posting Komentar