MEMBUAT APLIKASI KALKULATOR DENGAN VB.net

Nama Komponen	Properties	Value
Form1	Text	Kalkulator
TextBox1	Text	Kosong
Button1	Text	1
Button2	Text	2
Button3	Text	3
Button4	Text	4
Button5	Text	5
Button6	Text	6
Button7	Text	7
Button8	Text	8
Button9	Text	9
Button10	Text	0
Button11	Text	.
Button12	Text	=
Button13	Text	+
Button14	Text	-
Button15	Text	*
Button16	Text	/
Button17	Text	Pi
Button18	Text	Riset

1.       Buka VB.net Anda è File è New èProject è Visual Vasic Project èWindows Aplication. Namenya boleh di rubah sesuan nama programa Anda( name tidak Sensitif )

2.       Ketika Form1 untuk Windows Aplication telah terbuka, Liat Table di atas dan kemudan Masukan TextBox1 dan button1 – button18 ke dalam Form1. Klik Kanan Pada Texbok atau Button untuk menyeting Valuenya. Untuk Valuenya liat di table atas. Caranya klik kanan mouse andaèproperti è Cari  kata Text è Ganti Valuenya, seperti yang ada di table value.

3.       Setelah Selesai  melakukan pengeditan Value Textnya, naahhh ini waktunya untuk mengisi Script Programnya.

4.       Double Click pada Form1, Nanti akan muncul source code seperti berikut, di bawa code ini anda boleh mendeklarasikan Variabelnya

Public Class Form1

    Inherits System.Windows.Forms.Form

    'deklarasi constanta

    Const pi As Single = 3.14

    'deklarasi variable global

    Public hasil As Single

    Public operator As Byte

    Double Click Button pi dan masukan code yang di beri huruf Tebal.

Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click

        TextBox1.Text = TextBox1.Text & pi

    End Sub

Double Click Button Reset dan masukan code yang di beri huruf Tebal.

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click

        TextBox1.Text = " "

        hasil = 0

        TextBox1.Focus()

    End Sub

Double Click Button Tambah dan masukan code yang di beri huruf Tebal.

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click

        operator = "1"

        hasil = Single.Parse(TextBox1.Text)

        TextBox1.Text = " "

        TextBox1.Focus()

    End Sub

Double Click Button Kurang dan masukan code yang di beri huruf Tebal.

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click

        operator = "2"

        hasil = Single.Parse(TextBox1.Text)

        TextBox1.Text = " "

        TextBox1.Focus()

    End Sub

Double Click Button Kali(*) dan masukan code yang di beri huruf Tebal.

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click

        operator = "3"

        hasil = Single.Parse(TextBox1.Text)

        TextBox1.Text = " "

        TextBox1.Focus()

    End Sub

Double Click Button Bagi(/) dan masukan code yang di beri huruf Tebal.

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click

        operator = "4"

        hasil = Single.Parse(TextBox1.Text)

        TextBox1.Text = " "

        TextBox1.Focus()

    End Sub

    Double Click Button Samadengan dan masukan code yang di beri huruf Tebal.

Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click

        If operator = 1 Then

            hasil = hasil + Single.Parse(TextBox1.Text)

            TextBox1.Text = hasil

        ElseIf operator = 2 Then

            hasil = hasil - Single.Parse(TextBox1.Text)

            TextBox1.Text = hasil

        ElseIf operator = 3 Then

            hasil = hasil * Single.Parse(TextBox1.Text)

            TextBox1.Text = hasil

        ElseIf operator = 4 Then

            hasil = hasil / Single.Parse(TextBox1.Text)

            TextBox1.Text = hasil

        End If

    End Sub

Double Click Button 1 dan masukan code yang di beri huruf Tebal.

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

        TextBox1.Text = TextBox1.Text & "1"

    End Sub

Double Click Button 2 dan masukan code yang di beri huruf Tebal Begitu seterusnya sampai Buton ke 9(yang diganti 1 – 9 dalam tanda petik ganda).

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

        TextBox1.Text = TextBox1.Text & "2"

    End Sub

Double Click Button Koma(.) dan masukan code yang di beri huruf Tebal.

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click

        TextBox1.Text = TextBox1.Text + "."

        TextBox1.Focus()

    End Sub

    End Sub

End Class

5.      Program Selesai, program bias anda jalankan dengan menekan tobol F5, atau bias di compile menjadi program .exe, dengan menekan ( ctrl + shift + B) atau ke Buil di atas toolbar VB.net anda dan cari kata Build. Sekian dan terimah kasi kalo masi ada kekurangan Mohon di Maafkan. SEMOGA BERMANFAAT. JAH BLESS