Membuat Kalkulator Sederhana -Visual Basic

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 :

Kode:

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, maka jadilah Kalkulator Buatan Kita sendiri dari Visual - Basic