Membuat Kalkulator dengan VB

Membuat kalkulator dengan kemampuan penjumlahan dan pengurangan, dapat
dilakukan dengan memanfaatkan control array pada tombol-tombol yang digunakan.
(1)  Buat project baru dengan StandardEXE. Untuk form, isi porperty [Name] dengan
       formLatihan64.
(2)  Tambahkan komponen TextBox, atur property [Font] dengan size 18 dan bold,
       atur property alignment dengan 1-Right Justify. Isi property [Text] dengan 0
       (nol).
(3)  Tambahkan command Button, atur property [Font] dengan size 14 dan bold.
        Buatlah 14 buah command button dengan cara meng-copy dan jadikan control
        array sehingga menjadi command1(0), command1(1), command1(2) sampai
        dengan command1(13).
(4)   Atur posisinya seperti gambar 6.4 berikut :

 
(5)   Pada jendela code, tambahkan kode program sebagai operasi kalkulator sebagai
         berikut:

% Definisi variabel global
Dim kal, operasi As String
Dim bil As Integer

Private Sub Command1_Click(Index As Integer)
% Penambahan kerakter setiap tombol angka ditekan
kal = kal + Trim(Str(Index))
Text1 = kal
End Sub

Private Sub Command2_Click()
% Membersihkan memory dan text1
Text1 = "0"
kal = ""
End Sub

Private Sub Command3_Click(Index As Integer)
Select Case Index
Case 0:
          % Operasi perhitungan bila tombol = ditekan
          bil2 = Val(kal)
          If operasi = "+" Then bil = bil + bil2
          If operasi = "-" Then bil = bil - bil2
          Text1 = bil
          kal = Trim(Str(bil))

Case 1:
          %Penampungan variabel dan operator untuk penjumlahan
           bil = Val(kal)
           operasi = "+"
           kal = ""
Case 2:
          %Penampungan variabel dan operator untuk pengurangan
          bil = Val(kal)
          operasi = "-"
          kal = ""
          End Select
End Sub

(6)   Simpan project dengan nama projectLatihan64. Cobalah lakukan proses
        perhitungan seperti kalkulator biasa. Kalkulator ini memang masih sederhana,
        dan bisa ditambah fasilitasnya dengan menambah command button dan setiap
        eventnya.