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 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() 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() 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

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

    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()

    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()
    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