Cara membuat kalkulator dengan banyak Form di VB2010

Disini kita akan membuat sebuah kalkulator dengan banyak Form yang saling berhubungan. Berikut adalah contohnya :

1. Pertama-tama buka VB anda, seperti biasa buat sebuah project baru dengan nama yang anda inginkan.
 2. Setelah muncul sebuah form, tambahkan beberapa tool seperti radio button dan combobox. seperti di bawah ini.

3. Setelah itu buat form yang ke-2, dan tambahkan beberapa tool juga yaitu 4 radio button untuk 4 Operator.

4. Untuk Form yang ke-3, tambahkan 3 Textbox, 2 label, dan 1 Button. seperti dibawah ini

6.

5. Dan untuk Form yang terakhir, tambahkan 2 Label dan 2 Button

6. Langkah selanjutnya adalah menambahkan kode pada setiap form agar dapat terhubung satu dengan yang lain. Untuk Form1 kita dapat mengisi kode dibawah ini setelah mengklik double pada Radio Button. untuk MouseClick anda dapat klik di bagian atas yang bertuliskan Clik, lalu pilih dengan MouseClick

Private Sub RadioButton1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RadioButton1.MouseClick
        If RadioButton1.Checked Then
            Form2.Show()
            Me.Hide()
        End If
    End Sub

7. Untuk yang Form2 anda harus mengklik pada setiap radio buttonnya
Private Sub Radiobutton1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RadioButton1.MouseClick
        Form3.Show()
        Form3.Lbloperator.Text = " + "
        Me.Hide()
    End Sub

    Private Sub RadioButton2_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RadioButton2.MouseClick
        Form3.Show()
        Form3.Lbloperator.Text = " - "
        Me.Hide()
    End Sub

    Private Sub RadioButton3_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RadioButton3.MouseClick
        Form3.Show()
        Form3.Lbloperator.Text = " * "
        Me.Hide()
    End Sub

    Private Sub RadioButton4_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RadioButton4.MouseClick
        Form3.Show()
        Form3.Lbloperator.Text = " / "
        Me.Hide()
    End Sub

Lbloperator adalah sebuah Name label untuk operator apa yang ingin kita gunakan

8. Untuk yang Form3 berikut kodenya
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Form2.RadioButton1.Checked = True Then
            TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
        ElseIf Form2.RadioButton2.Checked = True Then
            TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
        ElseIf Form2.RadioButton3.Checked = True Then
            TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
        ElseIf Form2.RadioButton4.Checked = True Then
            TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
        End If
        Form4.Show()
        Me.Close()
    End Sub
9. Untuk yang Form4 berikut kodenya
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.Show()
        Me.Close()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label2.Text = Form3.TextBox3.Text
    End Sub