Coding Penjumlahan

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

Popular Content

 
Top