Tutorial Membuat Kalkulator dalam VBnet

Pertama buka VB 2010 apa aja.

lalu pilih New Project
Setelah itu akan muncul gambar seperti dibawah ini lalu
Ganti nama nya 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 itu hasil nya 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 untuk menjalankan program nya.

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 kode itu di masukan klik form2

Buatlah radio button sebanyak 4 buah dan 1 buah button click.

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 : rbkali
Radiobutton4 = text : bagi/name : rbbagi
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

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

Ganti:
Textbox1 = text : di kosongkan/name : txtbox1
Textbox2 = text : di kosongkan/name : txtbox2
label1 = text : Perhitungan
label2 = text : di 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

Lalu Klik Ke form4.
Buatlah 2 buah label, dan 2 buah button

Ganti Lagi:
Label2 = text : Perhitungan
Label1 = text : Label1/name : label2
button1 = text : Ulang/name : btnulang
button1 = text : Tidak/name : btntidak

Masukan kode 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






                                            Selamat Mencoba