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.