Membuat Kalkulator menggunakan M.Visual Studio 2010

Berbagi sedikit yang bisa :)
Buka M.Visual Studio nya seperti biasa...
Setelah terbuka M.Visual Studio pilih New Project -> Windows forms applications.
Setelah itu buat seperti contoh gambar di bawah ini. menggunakan "Textbox" dan "Button" yg ada di "Toolbox".
-Text "button" di ubah. contohnya 1,exit,+,mod,dll.
-Name "button" di ubah juga depannya menggunakan bt_ / bt supaya lebih gampang membedakannya. contohnya bt_1, bt_exit.

1. Selanjutnya buka jendela coding. bisa menggunakan F7
-Isikan coding yg saya beri tanda warna merah berikut.



Public Class Form1
    Dim Nilai1, Nilai2, Hasil As Double
    Dim sharedoperator As String
End Class

2. Selanjutnya kembali ke jendela [Desain]
-Double klik pada "Button" nomor 0 dan isikan yang seperti yg sudah saya beri tanda warna berikut.

Private Sub Button0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "0" Then
            TextBox1.Text = "0"
        Else : TextBox1.Text = TextBox1.Text & "0"
        End If
End Sub

-Lakukan berulang-ulang seperti nomor 0-9. ubah yang saya beri tanda warna biru sesuai nomer yang anda klik contohnya.


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

3. Selanjutnya masuk ke coding " +, -, /, *, dan Mod"
-Double Klik lagi pada "Button" Mod dan isikan coding berikut.

Private Sub bt_mod_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_mod.Click
        Nilai1 = Val(TextBox1.Text)
        sharedoperator = "Mod"
        TextBox1.Text = ""
    End Sub
-berikut untuk coding Tambah.
 Private Sub bt_tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_tambah.Click

        Nilai1 = Val(TextBox1.Text)
        sharedoperator = "+"
        TextBox1.Text = ""
    End Sub
-ini untuk coding Kurang
    Private Sub bt_kurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_kurang.Click
        Nilai1 = Val(TextBox1.Text)
        sharedoperator = "-"
        TextBox1.Text = ""
    End Sub
-dan ini untuk coding Bagi
    Private Sub bt_bagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_bagi.Click
        Nilai1 = Val(TextBox1.Text)
        sharedoperator = "/"
        TextBox1.Text = ""
    End Sub
-ini untuk coding Pangkat
    Private Sub bt_pangkat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_pangkat.Click
        Nilai1 = Val(TextBox1.Text)
        sharedoperator = "^"
        TextBox1.Text = ""
    End Sub
-yg terkahir untuk coding Kali
    Private Sub bt_kali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_kali.Click
        Nilai1 = Val(TextBox1.Text)
        sharedoperator = "*"
        TextBox1.Text = ""
    End Sub


4.Selanjutnya "Button" Titik (.) dan Clear ( C )
-Double klik pada "Button" titik (.) dan isikan coding seperti ini

Private Sub bt_titik_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_titik.Click
        TextBox1.Text = TextBox1.Text + "."
        TextBox1.Focus()
    End Sub
-double klik juga pada "Button" C dan isikan coding seperti ini

Private Sub bt_clear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_clear.Click
        TextBox1.Text = ""
        Nilai1 = "0"
        sharedoperator = ""
    End Sub
5. Tahap selanjutnya mengisi coding "Button" = , -(negatif), dan Exit
-sama seperti yang lainnya double klik pada "Button" =, -(negatif), dan Exit. berikut coding yang harus di isi.
Private Sub bt_exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_exit.Click
        Me.Close() <- coding untuk close
    End Sub


Private Sub bt_negatif_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_negatif.Click
        TextBox1.Text = "-" & Val(TextBox1.Text)  <- coding untuk Negatif
    End Sub


Private Sub bt_samadengan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_samadengan.Click
        If sharedoperator = "+" Then  <- coding untuk Samadengan dari sini
            Hasil = Nilai1 + Val(TextBox1.Text)
            TextBox1.Text = Hasil
        ElseIf sharedoperator = "-" Then
            Hasil = Nilai1 - Val(TextBox1.Text)
            TextBox1.Text = Hasil
        ElseIf sharedoperator = "*" Then
            Hasil = Nilai1 * Val(TextBox1.Text)
            TextBox1.Text = Hasil
        ElseIf sharedoperator = "/" Then
            Hasil = Nilai1 / Val(TextBox1.Text)
            TextBox1.Text = Hasil
        ElseIf sharedoperator = "^" Then
            Hasil = Nilai1 ^ Val(TextBox1.Text)
            TextBox1.Text = Hasil
        ElseIf sharedoperator = "Mod" Then
            Hasil = Nilai1 Mod Val(TextBox1.Text)
            TextBox1.Text = Hasil
        ElseIf sharedoperator = "Div" Then
            Hasil = Nilai1 ^ 2.5
            TextBox1.Text = Hasil
        End If   <- sampai sini
    End Sub

Dan Hasil di Run
Selamat Mencoba :)