Aplikasi Kalkulator sederhana menggunakan Ms.Excel (Visual Basic)

  Untuk kali ini saya akan mempostingkan tentang kalkulator sederhana dengan menggunakan Visual Basic, Visual Basic ini terdapat dalam Ms. Excel yaitu terdapat dalam menu Developer tapi biasanya menu itu tidak muncul secara otomatis, oleh karena itu kita harus memunculkannya terlebih dahulu yaitu dengan cara Sebagai Berikut :

Pilih Option dalam menu file

Pilih Customize Ribbon dan ceklis Developer pada tabel yang kanan, lalu klik Ok.

Setelah itu akan muncul menu baru pada Ms.Excel, Setelah itu gunakan Visual Basic pada menu Developer . Sesuaikan Desain Kalkulator Yang diinginkan contohnya seperti ini :

Contoh Desain Kalkulator Sederhana

Ini desain yang saya buat dan disampingnya itu terdapat Toolbox yaitu alat untuk membantu dalam pembuatan desain, seperti commandbutton, textbox, label dll. Silahkan buat dengan kreatifitas anda sendiri, karena punya saya masih sederhana hanya ada Perkalian, Pembagian, Pertambahan, dan Pengurangan. 

Lalu Codingannya seperti apa ? berikut akan saya berikan contohnya dan lebih baik anda melihat referensi dalam youtube untuk mempermudah :-)

Private Sub CommandButton1_Click()
TextBox3.Text = Val(TextBox1) + Val(TextBox2)
End Sub

Private Sub CommandButton2_Click()
TextBox3.Text = Val(TextBox1) - Val(TextBox2)
End Sub

Private Sub CommandButton3_Click()
TextBox3.Text = Val(TextBox1) * Val(TextBox2)
End Sub

Private Sub CommandButton4_Click()
TextBox3.Text = Val(TextBox1) / Val(TextBox2)
End Sub

Private Sub CommandButton5_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox1.SetFocus
End Sub

Private Sub CommandButton6_Click()
End
End Sub

Private Sub CommandButton7_Click()
CommandButton1.Enabled = True
CommandButton2.Enabled = True
CommandButton3.Enabled = True
CommandButton4.Enabled = True
CommandButton5.Enabled = True
CommandButton6.Enabled = True
CommandButton7.Enabled = False
TextBox1.Enabled = True
TextBox2.Enabled = True
TextBox3.Enabled = True
TextBox1.SetFocus
End Sub




Private Sub UserForm_Click()
CommandButton1.Enabled = False
CommandButton2.Enabled = False
CommandButton3.Enabled = False
CommandButton4.Enabled = False
CommandButton5.Enabled = False
CommandButton6.Enabled = False
CommandButton7.Enabled = True
TextBox1.Enabled = False
TextBox2.Enabled = False
TextBox3.Enabled = False
End Sub

Lalu Hasilnya seperti apa ?

Contoh Hasil Kalkulator sederhana melakukan (Perkalian)

Itulah Kalkulator yang telah saya buat tapi masih membutuhkan perkembangan agar bisa memacahkan perhitungan lainnya.

Sekian dulu yah semoga bermanfaat !!