Selasa, 26 Januari 2010

Program Kalkulator ( Visual Basic )


Beriku Logika pembuatannya :


Private Sub Bagi_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub


Private Sub Command1_Click()
'contoh tanpa variabel
Text3.Text = Val(Text1.Text) + Val(Text2.Text)


End Sub

Private Sub Command2_Click()
'Contoh menggunakan variabel
Dim bilangan1 As Integer
Dim bilangan2 As Integer
Dim hasil As Integer
bilangan1 = Text1.Text
bilangan2 = Text2.Text
hasil = bilangan1 - bilangan2
Text3.Text = hasil
End Sub

Private Sub Kali_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)

End Sub

Private Sub Label4_Click()

End Sub











Tidak ada komentar:

Poskan Komentar