Buat Kalkulator Sederhana - Visual Basic - Sort Code

Membuat kalkulator sederhana dengan visual basic 6.0 Sort Code, saya coba sering pengalam tugas kuliah mengenai program kalkulator sederhana.

Pertama Buatlah Form/layout nya seperti Gambar di Bawah ini :

 

Setalah Formnya sesuai serta pengatura properti-propertinya selanjutnya kita masuk ke penyusunan scriptnya.

buatlah seperti dibawah ini :

Private LastOperator  As String
Private FirstPart As String

Private Sub cmdClear_Click()
    FirstPart = ""
    LastOperator = ""
    text1.Text = ""
End Sub
Private Sub cmdEquals_Click()
Select Case LastOperator
    Case Is = "+"
        text1.Text = Val(FirstPart) + Val(text1.Text)
    Case Is = "-"
        text1.Text = Val(FirstPart) - Val(text1.Text)
    Case Is = "/"
        text1.Text = Val(FirstPart) / Val(text1.Text)
    Case Is = "*"
        text1.Text = Val(FirstPart) * Val(text1.Text)
End Select
    FirstPart = ""
    LastOperator = ""
End Sub

Private Sub cmdOp_Click(Index As Integer)
    LastOperator = cmdop(Index).Caption
   
    FirstPart = text1.Text
   
    text1.Text = ""
End Sub
Private Sub Cmdangka_Click(Index As Integer)
    text1.Text = text1.Text + cmdangka(Index).Caption
End Sub

jalankan programnya. so jadilah personal kalkulator buatan sendiri.