Pertemuan 2, 16 Februari 2015 : Tutorial Membuat Kalkulator Sederhana Menggunakan Microsoft Visual Basic 2010 Express

Kali ini saya akan berbagi sedikit ilmu mengenai cara membuat kalkulator sederhana menggunakan Visual Basic 2010 Express. Langkah-langkah pembuatannya adalah sebagai berikut :

1.      Bukalah program Microsoft Visual Basic 2010 Express , setelah  jendela Visual Basic terbuka , kemudian pilih File -> New Project -> Windows Form Aplication pada menu tab seperti gambar di bawah ini. Kemudian beri nama project sesuai keinginan .

2.      Setelah itu akan muncul from 1, kita dapat mengubah nama form 1 dengan cara mengubahnya  pada properties, kemudian kita beri nama “kalkulator”. Setelah itu untuk menambahkan tombol-tombol operasi dan juga input angka pada kalkulator yang akan kita buat, kita dapat menambahkan textbox untuk kotak masuka angka dan menggunakan button untuk tombol-tombol angka dan pengoperasian pada kalkulator. Sehingga tampilan menjadi seperti di bawah ini.

3.      Untuk ubah background color di window properties cari back color,lalu ubah warna sesuai keinginan.

4.      Jika design form sudah selesai kita tinggal masukkan kode programnya, kode programnya adalah sebagai berikut :

•   Buka jendela coding dengan F7 dan kemudian masukan deklarasi berikut :

Public Class Form1
    Dim input_angka, Hasil As Double
    Dim Rumus As String

•   Kemudian kode program untuk tombol angka seperti 1,2,3 dan seterusnya :

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        TextBox1.Text = TextBox1.Text & "0"
    End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = TextBox1.Text & "1"
    End Sub



Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.Text = TextBox1.Text & "3"

    End Sub
  
 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)   Handles Button2.Click
        TextBox1.Text = TextBox1.Text & "2"
    End Sub

 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox1.Text = TextBox1.Text & "4"

    End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        TextBox1.Text = TextBox1.Text & "5"

    End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        TextBox1.Text = TextBox1.Text & "6"

    End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        TextBox1.Text = TextBox1.Text & "7"

    End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        TextBox1.Text = TextBox1.Text & "8"

    End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        TextBox1.Text = TextBox1.Text & "9"

    End Sub

Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        TextBox1.Text = TextBox1.Text & "."
    End Sub

•   Masukan kode berikut untuk button “=”  :

Private Sub Button17_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click

        If Rumus = "+" Then

            TextBox1.Text = input_angka +
Val(TextBox1.Text)

        ElseIf Rumus = "-" Then

            TextBox1.Text = input_angka -
Val(TextBox1.Text)

        ElseIf Rumus = "*" Then

            TextBox1.Text = input_angka *
Val(TextBox1.Text)

  
     ElseIf Rumus = "/"
Then

            TextBox1.Text = input_angka /
Val(TextBox1.Text)

        ElseIf Rumus = "^" Then

            TextBox1.Text = input_angka ^
Val(TextBox1.Text)

        End If

    End Sub

•   Masukan kode berikut untuk operator aritmatika “+, -, / , * , ^”  :

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

        input_angka = Val(TextBox1.Text)

        Rumus = "+"

        TextBox1.Text = Nothing

    End Sub


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

        input_angka = Val(TextBox1.Text)

        Rumus = "-"

        TextBox1.Text = Nothing

    End Sub


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

        input_angka = Val(TextBox1.Text)

        Rumus = "*"

        TextBox1.Text = Nothing

    End Sub


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

        input_angka = Val(TextBox1.Text)

        Rumus = "/"

        TextBox1.Text = Nothing

    End Sub


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

        input_angka = Val(TextBox1.Text)

        Rumus = "^"

        TextBox1.Text = Nothing

    End Sub

•   Kode untuk button Clear atau “C” :

Private Sub Button19_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click

        TextBox1.Text = Nothing

        input_angka = Nothing

        Hasil = Nothing

        Rumus = Nothing

    End Sub

•   Kode untuk button Del :

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

        If TextBox1.Text.Length <> 0 Then

            TextBox1.Text =
TextBox1.Text.Remove(TextBox1.Text.Length - 1)

        End If

    End Sub

•   Kode untuk form1 , agar ketika pertama di run semua button yang ada menjadi tidak aktif :

Tampilannya menjadi seperti ini :

•   Kode untuk button ON, untuk mengaktifkan semua button yang ada :

Tampilannya menjadi seperti ini :

•   Kode untuk button OFF, untuk menonaktifkan semua button :

Tampilannya kembali menjadi seperti ini :

5.      Sebagai contoh saya ambil perkalian “ 20*5 “ , maka hasilnya sebagai berikut :

SELAMAT MENCOBA !!

Semoga tutorial diatas berguna dan bermanfaat …