Membuat Kalkulator Sederhana

Kali ini untuk menjawab permintaan teman – teman, saya akan memberikan tips membuat kalkulator sederhana menggunakan pemrograman Visual Basic ato bahasa VB, berikut langkah – langkahnya:

1. Desain form baru dengan pertama kali meletakkan sebuah textbox dan CommandButton. Copy dan faste CommandButton tersebut dan jadikan sebagai fungsi array sebanyak 10 buah.
2. Kemudian tambahkan Command2 sampai dengan Command8 dan letakkan sesuai dengan gambar
   
3. Buka jendela kode editor dan ketik listing program berikut

   Dim intKiri, intKanan, intProg, intPrev As Integer

   Dim intOper, intHapus As Integer

   Sub kalkulasi()

   If intProg = 0 Then

   intKiri = Int(Text1.Text)

   intProg = 1

   Text1.Text = “”

   intPrev = intOper

   Exit Sub

   Else

   intKanan = Int(Text1.Text)

   Text1.Text = “”

   End If

   Select Case intPrev

   Case 1

   intKiri = intKiri + intKanan

   intKanan = 0

   Text1.Text = intKiri

   Case 2

   intKiri = intKiri – intKanan

   intKanan = 0

   Text1.Text = intKiri

   Case 3

   intKiri = intKiri * intKanan

   intKanan = 0

   Text1.Text = intKiri

   Case 4

   intKiri = intKiri / intKanan

   intKanan = 0

   Text1.Text = intKiri

   End Select

   End Sub

   Private Sub Command1_Click(Index As Integer)

   If intHapus = 1 Then

   Text1.Text = “”

   intHapus = 1

   End If

   If Index <> 10 Then

   Text1.Text = Text1.Text & (Index + 1)

   Else

   Text1.Text = Text1.Text & “0″

   End If

   End Sub

   Private Sub Command2_Click()

   Text1.Text = “”

   intKiri = 0

   intKanan = 0

   intOper = 0

   intPrev = 0

   intProg = 0

   End Sub

   Private Sub Command3_Click()

   intOper = 1

   kalkulasi

   End Sub

   Private Sub Command4_Click()

   intOper = 2

   kalkulasi

   End Sub

   Private Sub Command5_Click()

   intOper = 3

   kalkulasi

   End Sub

   Private Sub Command6_Click()

   Text1.Text = Text1.Text & “.”

   End Sub

   Private Sub Command7_Click()

   intOper = 4

   kalkulasi

   End Sub

   Private Sub Command8_Click()

   intOper = 5

   kalkulasi

   End Sub

   Private Sub Form_Load()

   intProg = False

   Text1.Text = “”

   Text1.Alignment = 1

   Command1(0).Caption = “1″

   Command1(1).Caption = “2″

   Command1(2).Caption = “3″

   Command1(3).Caption = “4″

   Command1(4).Caption = “5″

   Command1(5).Caption = “6″

   Command1(6).Caption = “7″

   Command1(7).Caption = “8″

   Command1(8).Caption = “9″

   Command1(9).Caption = “0″

   Command2.Caption = “HAPUS”

   Command3.Caption = “+”

   Command4.Caption = “-”

   Command5.Caption = “*”

   Command6.Caption = “.”

   Command7.Caption = “/”

   Command8.Caption = “=”

   End Sub

   1. Jalankan program tersebut