Membuat Kalkulator di VB 2010

Kali ini saya akan berbagi bagaimana cara membuat sendiri aplikasi kasir dengan menggunakan visual basic 2010.

 langkah  Pertama buka VB 2010

lalu pilih New Project
Setelah itu akan muncul :

Setelah itu ganti nama menjadi Kalkulator

Setelah itu klik OK

 Dan 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

Setelah selesai mengetik semua coding coba jalankan dengan tekan F5.

Demikian cara membuat Aplikasi Kalkulator  semoga bermanfaat……