Membuat Calculator Sederhana menggunakan Visual Basic

Kali ini saya akan membuat program calculator sederhana menggunakan Aplikasi Microsoft Visual Studio. Disini saya menyediakan:

3  ( tiga ) LABEL

3  ( tiga ) TEXTBOX

20 ( dua puluh ) BUTTON

Sekarang kita mulai membuat calculator. Pertama - tama kita membuka Aplikasi Microsoft Visual Studio.

 

Kemudian Klik File --> New Project, Akan keluar kotak dialog seperti

gambar dibawah ini. Pilih Windows Forms Application -->ok

Kemudian pada Form masukan Label, Textbox, dan Button sesuai yang di sediakan diatas.

Kemudian kita beri nama pada label 1 sampai dengan 3. Klik pada label kemudian pada properties, cari Text: seperti gambar dibawah ini.

Label 1 kita beri nama: Input-1

Label 2 kita beri nama: Input-2

Label 3 kita beri nama: Output

Kemudian ganti nama Form, Label dan Button , sesuai contoh dibawah ini:

Kemudian kita masuk pada Syntax yang berfungsi untuk menjalankan program calculator ini.

Pada Button 1 ( + ) double click, kita masukan syuntax seperti dibawah ini sesuai urutan penempatan tanda.

TextBox3.Text = CSng(TextBox1.Text) + CSng(TextBox2.Text)

Dan untuk button lain sesuai contoh di bawah ini:

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        TextBox3.Text = CSng(TextBox1.Text) - CSng(TextBox2.Text)

    End Sub

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

        TextBox3.Text = CSng(TextBox1.Text) * CSng(TextBox2.Text)

    End Sub

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

        TextBox3.Text = CSng(TextBox1.Text) / CSng(TextBox2.Text)

    End Sub

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

        TextBox3.Text = CSng(TextBox1.Text) \ CSng(TextBox2.Text)

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        TextBox3.Text = CSng(TextBox1.Text) Mod CSng(TextBox2.Text)

    End Sub

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

        TextBox3.Text = CSng(TextBox1.Text) ^ CSng(TextBox2.Text)

    End Sub

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

        TextBox3.Text = CSng(TextBox1.Text) < CSng(TextBox2.Text)

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        TextBox3.Text = CSng(TextBox1.Text) > CSng(TextBox2.Text)

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        TextBox3.Text = CSng(TextBox1.Text) <= CSng(TextBox2.Text)

    End Sub

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

        TextBox3.Text = CSng(TextBox1.Text) >= CSng(TextBox2.Text)

    End Sub

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

        TextBox3.Text = CSng(TextBox1.Text) & CSng(TextBox2.Text)

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        TextBox3.Text = Math.Sin(CSng(TextBox1.Text) * 3.1416 / 180)

    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        TextBox3.Text = Math.Cos(CSng(TextBox1.Text) * 3.1416 / 180)

    End Sub

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

        TextBox3.Text = Math.Tan(CSng(TextBox1.Text) * 3.1416 / 180)

    End Sub

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click

        TextBox3.Text = Math.Log(CSng(TextBox1.Text)) / Math.Log(CSng(TextBox2.Text))

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        TextBox3.Text = Math.Log(CSng(TextBox1.Text))

    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

        TextBox3.Text = Math.Sqrt(CSng(TextBox1.Text))

    End Sub

 

    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click

        TextBox1.Clear()

        TextBox2.ResetText()

        TextBox3.Text = ""

        TextBox1.Focus()

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

End Class

Kemudian setelah selesai menginputkan syintax, kita jalankan program ini. Dengan menekan F5 atau pada Standard Toolbar klik tanda panah warna hijau ( Start Debugging).

Demikian program sederhana dari saya, semoga dapat bermanfaat.