Membuat Calculator pada Visual Basic 6.0

Bismillah....

Assalamu'alaikum kawan blogger semua, kali ini saya akan flash back ke beberapa tahun yang lalu tepatnya sekitar tahun 2005, ketika saya belajar pertama kali tentang bahasa pemrograman dari seorang suhu yang sekarang beliau aktif menjadi seorang programmer handal (gak saya sebutkan namanya takut GR). Awal-awal perkuliahan saya pada jenjang diploma satu jurusan Manajemen Informatika saat itu, kami para mahasiswanya dibekali kemampuan untuk bisa menguasai beberapa Bahasa Pemrograman yang antara lain: Visual Fox Pro, M Foxplus, dan Visual Basic 6.0. Dengan berbagai keterbatasan sarana yang ada, kami sangat bersemangat untuk menggali ilmu-ilmu pemrograman dari guru kami tersebut. Dari beberapa bahasa pemrograman yang kami pelajari pada saat itu, yang intens kami pelajari adalah bahasa pemrograman Visual Basic 6.0. Kami diajari dari mulai mengenal objek-objek pada Visual Basic 6.0 sampai pada pemrograman tingkat dewa (bahasa beliau) yang kadang otak kami gak sampe. (hehehe....maaf lemot)

Ada beberapa hal menarik dalam proses belajar pemrograman Visual Basic 6.0 yang kami lakukan, dan juga mungkin lumrah bagi para pemula yang baru pertama kali belajar tentang bahasa pemrograman, yaitu kami dituntut untuk ngoprek (bahasa beliau) untuk bisa lebih mendalami materi tentang Visual Basic 6.0 yang beliau sampaikan. Maka "ngalong" pun (red: belajar hingga larut malam) sering kami lakukan di kampus. Dari sekian banyak proses awal yang kami ikuti dalam mempelajari bahasa pemrograman Visual Basic 6.0 ini, ada materi-materi yang pada saat itu, kami sangat antusias sekali dalam mempelajarinya, satu diantaranya adalah materi tentang penerapan fungsi Aritmatika pada Visual Basic 6.0.  Seperti yang sudah kita pahami bahasa dalam pemrograman ada beberapa Fungsi yang mesti kita pahami salah satunya adalah Fungsi Aritmatika.

Bagi yang belum tahu, sedikit saya jelaskan tentang apa itu Fungsi Aritmatika?

Fungsi Aritmatika adalah salah satu fungsi dalam bahasa pemrograman yang di dalamnya terdapat proses perhitungan matematika dengan operasi hitung semisal penjumlahan, pengurangan, perkalian, pembagian, perpangkatan dll. 

Apa yang kami buat saat itu, sehingga membuat kami sangat antusias?

CALCULATOR. Ya Membuat Calculator pada VB 6.0 menjadi hal yang sangat luar biasa menurut kami pada saat itu, karena kita bisa membuat kalkulator sendiri dengan design sesuai selera dan lain sebagainya.

Baiklah agar tidak terlalu lama melihat masa lalu, karena hawatir ada hal-hal lain yang melintas (yang bikin baper) kita akan coba langsung praktekkan bagaimana cara membuat Calculator pada VB 6.0 seperti apa yang sudah kami pelajari saat itu. 

Silahkan ikuti langkah-langkahnya berikut ini:

      1. Buka aplikasi Visual Basic 6.0

      2. Siapkan  Form untuk design interface, seperti terlihat pada contoh gambar di bawah ini:

      3. Penjelasan gambar dan setting properties:

Kotak putih di atas = Textbox, Name = TxtHasil

Tombol angka 0 – 9 = CommandButton, Caption = 0 s/d 9, Name = CmdAngka  à (Tombolnya dijadikan Array dengan cara buat tombol angka nol (0) saja, kemudian di copy sehingga masing-masing button memiliki name yang sama dan berindex, menjadi seperti CmdAngka(0), CmdAngka(1), CmdAngka(2), dst.)

Tombol Operator (+, -, ^, *, /) = CommandButton, Caption = dirubah sesuai simbol operator, Name = CmdOperator à (Tombolnya dijadikan Array dengan cara buat tombol dengan simbol penjumlahan (+) saja, kemudian di copy sehingga masing-masing button memiliki name yang sama dan berindex, menjadi seperti CmdOperator(0), CmdOperator(1), CmdOperator(2), dst.)

Tombol sama dengan (=) = CommandButton, Caption = simbol (=), Name = CmdHasil

Tombol reset (tombol C) = CommandButton, Caption = huruf C, Name = CmdReset

4    Setelah design dan setting properties selesai dilakukan, maka selanjutnya kita masukkan codingnya di bagian view code, silahkan ketikkan coding di bawah ini:

Ketik dibagian atas pada bagian view code

  'Pendeklarasian Variabel Operator dan variabel array Angka

  Dim Angka(1 To 2) As Single

  Dim Operator As String

Doble Click pada CmdAngka (boleh yang mana saja karena kita menggunakan Array), lalu ketik code di bawah ini:

  'Ketika cmdAngka di klik akan menampilkan angka pada txtHasil

  'sesuai caption cmdAngka yang di klik

  Private Sub cmdAngka_Click(Index As Integer)

     TxtHasil.Text = TxtHasil.Text + CmdAngka(Index).Caption

  End Sub

Doble Click pada CmdOperator(boleh yang mana saja karena kita menggunakan Array), lalu ketik code di bawah ini:

      'Menentukan Operator yang digunakan

    'berdasarkan caption cmdOperator yang di klik

    Private Sub cmdOperator_Click(Index As Integer)

    If TxtHasil.Text = "" Then Exit Sub

          Angka(1) = CSng(TxtHasil.Text)

          Operator = CmdOperator(Index).Caption

          TxtHasil.Text = ""

    End Sub

Double Click pada CmdHasil (tombol sama dengan), kemudian ketik code di bawah ini:

   'Proses perhitungan

   'pendeklarasian variabel Hasil

   'melakukan operasi sesuai caption cmdOperator yang diklik

   'menampilkan hasilnya di txtHasil

   Private Sub cmdHitung_Click()

      Dim Hasil As Single

      If TxtHasil.Text = "" Then Exit Sub

          Angka(2) = CSng(TxtHasil.Text)

          Select Case Operator

             Case "+"

               Hasil = Angka(1) + Angka(2)

             Case "-"

               Hasil = Angka(1) - Angka(2)

             Case "*"

               Hasil = Angka(1) * Angka(2)

             Case "/"

               Hasil = Angka(1) / Angka(2)

             Case "^"

               Hasil = Angka(1) ^ Angka(2)

      End Select

      TxtHasil.Text = Hasil

   End Sub

Double Click pada CmdReset (Tombol C), lalu ketik code di bawah ini:

   'Mengosongkan txtHasil

   Private Sub cmdReset_Click()

      TxtHasil.Text = ""

   End Sub

            5. Setelah pengetikan coding selesai, silahkan coba Runing / di jalankan dan lakukan perhitungan.

Baca juga : Cara menyimpan gambar pada VB.NET

Demikian postingan tentang Membuat Calcualtor pada VB 6.0, semoga bermanfaat dan dapat membantu dalam proses belajar pemrograman, khususnya bahasa pemrograman Visual Basic 6.0.