Pages

February 19, 2013

Membuat Aplikasi Kalkulator dengan Visual Basic 6.0



Bagaimana Cara membuat Suatu Aplikasi yang bisa digunakan sebagai alat bantu kita ??











Caranya :

Buatlah Design tsb dengan menggunakan VB 6.0

lalu Copykan Code berikut :

Dim angka(1 To 2) As Single
Dim operator As String

Private Sub cmdAngka_Click(Index As Integer)
    Text1.Text = Text1.Text & cmdAngka(Index).Caption
End Sub

Private Sub cmdHapus_Click()
    Text1.Text = ""
End Sub

Private Sub cmdoff_Click()
End
End Sub

Private Sub cmdOperator_Click(Index As Integer)
    If Text1.Text = "" Then Exit Sub
    angka(1) = CSng(Text1.Text)
    operator = cmdOperator(Index).Caption
    Text1.Text = ""
End Sub

Private Sub cmdHitung_Click()
    Dim hasil As Single
    If Text1.Text = "" Then Exit Sub
    angka(2) = CSng(Text1.Text)
    Select Case operator
    Case "+"
        hasil = angka(1) + angka(2)
    Case "-"
        hasil = angka(1) - angka(2)
    Case "*"
        hasil = angka(1) * angka(2)
    Case "/"
        hasil = angka(1) / angka(2)
    End Select
    Text1.Text = hasil
End Sub

2 comments: