Cara Membuat Kalkulator Dengan Visual Basic.Net

Biasanya untuk sebuah kalkulator, kita sering menggunakan kode vb yang menggunakan banyak variabel dan tentunya sangat membingungkan bagi pemula yang baru bisa pemrograman VB.net

Dim A As Integer

Dim B As Integer

Dim Hasil As Integer

   Hasil = A * B

   Msgbox(Hasil.tostring)

Untuk memudahkan kita dan mempercanggih kalkulator yang kita buat kita bisa menggunakan sebuah control MSscript. Berikut ini langkah-langkah dalam membuat kalkulator dengan MSscript:

1. Aktifkan MSscript control. Pada toolbox, klik kanan lalu tekan "Choose items...". Pada kotak dialog Choose Items, carilah Script control lalu klik Ok

2. Pada Toolbox , akan terdapat kontrol baru "AxScriptControl".

 

3. Kemudian masukan control dan juga ScriptControlnya berikut, letak button nya bisa disesuaikan sesuai keinginan (Gambar ScriptControl akan disembunyikan)

       

4. DoubleKlik pada button "1", kemudian ketikan kode berikut (kode ini agar isi textbox sama dengan judul button nya kecuali button "=","X","CE","close")

 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button2.Click

        TextBox1.Text = TextBox1.Text & "1" `Untuk button lain bisa disesuaikan

    End Sub

5. Lakukan hal yang sama pada button lain, kecuali button kali(X) ketikan kode berikut

        TextBox1.Text = TextBox1.Text & "*"` Asterik pengganti kali

6. Untuk Button Clear (CE) bisa diketikan kode berikut(Gunanya agar isi textbox kosong/empty)

             TextBox1.Text = ""

7. Ketikan code "End" saja untuk button close

8. Dan yang paling penting ketikan kode berikut untuk button "=" 

  On Error GoTo errorhandler

        TextBox1.Text = AxScriptControl1.Eval(TextBox1.Text)

        Exit Sub

errorhandler:

        MsgBox("Angka salah")

        TextBox1.Text = ""

*Pada kode  On Error GoTo errorhandler Tersebut digunakan apabila terjadi Error / angka yang dimasukan salah, maka akan keluar kotak pesan "Angka salah". errorhandler Bisa ditukar dengan variabel lain.

*Pada kode  TextBox1.Text = AxScriptControl1.Eval(TextBox1.Text), Eval adalah method untuk memproses isi Textbox menjadi hasil dan hasil akan ditampilkan pada textbox.

*Pada kode Exit Sub digunakan untuk mengakhiri proses perhitungan

9. Tekan "F5" untuk menjalankan aplikasi

Berikut ini kode lengkapnya:

Public Class Form1

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        TextBox1.Text = TextBox1.Text & "1"

    End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        TextBox1.Text = TextBox1.Text & "2"

    End Sub

Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click

        TextBox1.Text = TextBox1.Text & "+"

    End Sub

Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click

        TextBox1.Text = TextBox1.Text & ":"

    End Sub

Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click

        TextBox1.Text = ""

    End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        End

    End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

        TextBox1.Text = TextBox1.Text & "3"

    End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

        TextBox1.Text = TextBox1.Text & "4"

    End Sub

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

        TextBox1.Text = TextBox1.Text & "5"

    End Sub

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click

        TextBox1.Text = TextBox1.Text & "6"

    End Sub

Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click

        TextBox1.Text = TextBox1.Text & "7"

    End Sub

Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click

        TextBox1.Text = TextBox1.Text & "8"

    End Sub

Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click

        TextBox1.Text = TextBox1.Text & "9"

    End Sub

Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click

        TextBox1.Text = TextBox1.Text & "*"

    End Sub

Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click

        On Error GoTo errorhandler

        TextBox1.Text = AxScriptControl1.Eval(TextBox1.Text)

        Exit Sub

errorhandler:

        MsgBox("Angka salah")

        TextBox1.Text = ""

    End Sub

Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click

        TextBox1.Text = TextBox1.Text & "0"

    End Sub

End Class

Aplikasi sederhana tersebut masih perlu pengembangan, silakan berkreasi sebagus mungkin.