Membuat Kalkulator di VB 2010

Pertama buka VB 2010

lalu pilih New Project
Setelah itu akan muncul :

Setelah itu ganti nama menjadi Kalkulator

Setelah itu klik OK

Ini adalah tampilan awal di VB 2010 

Setelah itu buatlah form sebanyak 4 form

Cara membuatnya :

Klik kanan di Kalkulator, pilih add, lalu pilih windows form, lalu klik

Setelah di klik akan muncul seperti ini, lalu tekan add

Buatlah sepeti cara diatas sampai 4 kali 

Setelah sudah selesai, tampilannya akan seperti ini 

Kembali ke form 1 

Buatlah radiobutton dan beri text Operator dan ganti nama menjadi rboperator

Setelah itu buat lah combobox text nya dikosongkan dan ganti name menjadi cboperator

Masukan kode berikut :

Public Class Form1

 Private Sub cboperator_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboperator.SelectedIndexChanged

        If cboperator.Text = "Tambah" Then

            Form2.Show()

        ElseIf cboperator.Text = "Kurang" Then

            Form2.Show()

        ElseIf cboperator.Text = "Kali" Then

            Form2.Show()

        ElseIf cboperator.Text = "Bagi" Then

            Form2.Show()

        End If

       Me.Hide()

    End Sub

End Class

Setelah itu ke form 2

Buatlah radio button sebanyak 4 buah dan 1 buah button

Pada gambar diatas terdapat 4 buah radiobutton dengan text tambah, kurang, kali, bagi

Masing-masing radio button diubah menjadi:
Radiobutton1 = text : tambah name : rbtambah
Radiobutton2 = text : kurang name : rbkurang
Radiobutton3 = text : kali name : kali
Radiobutton4 = text : bagi name : bagi
Button1 = text : next name : btnhitung

Setelah itu masukan kode berikut :
Public Class Form2
 Private Sub btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhitung.Click
        Form3.Show()

 
    End Sub

Ke Form3
Buatlah 3 buat text box, 2 buah label, dan 1 buah button

Ganti:
Textbox1 = text : kosongkan name : txt1
Textbox2 = text : kosongkan name : txt2
label1 = text : Perhitungan
label2 = text : kosongkan name : label4
button2 = text : hitung name : btnhitung

Masukkan code berikut :
Public Class Form3
Private Sub btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhitung.Click
        If Form2.rbtambah.Checked = True Then
txthasil.Text = Val(txt1.Text) + Val(txt2.Text)
        ElseIf Form2.rbkurang.Checked = True Then
            txthasil.Text = Val(txt1.Text) - Val(txt2.Text)
        ElseIf Form2.rbkali.Checked = True Then
            txthasil.Text = Val(txt1.Text) * Val(txt2.Text)
        ElseIf Form2.rbbagi.Checked = True Then
            txthasil.Text = Val(txt1.Text) / Val(txt2.Text)
        End If
        Form4.Label2.Text = txthasil.Text
        Form4.Show()
        Me.Hide()
    End Sub

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Form2.rbtambah.Checked = True Then
            Label4.Text = "+"
        ElseIf Form2.rbkurang.Checked = True Then
            Label4.Text = "-"
        ElseIf Form2.rbkali.Checked = True Then
            Label4.Text = "*"
        ElseIf Form2.rbbagi.Checked = True Then
            Label4.Text = ":"
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Form4.Show()

    End Sub

End Class

Ke form4
Buatlah 2 buah label, dan 2 buah button

Ganti :
Label2 = text : Perhitungan
Label1 = text : Label1 name : label2
button1 = text : ulang name : btnulang
button1 = text : tidak name : btntidak

Masukan kode sebagai berikut :
Public Class Form4

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
        If Form3.txthasil.Text = True Then
        End If
    End Sub

    Private Sub btnulang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnulang.Click
        Form1.Show()

       Me.Hide()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
End Class

Setelah selesai coba jalankan dengan tekan F5