artikel 21. KALKULATOR SEDERHANA dengan Visual Basic.NET

KALKULATOR SEDERHANA dengan Visual Basic.NET

Component yang akan kita gunakan :

Name                Text
Label1           Angka Pertama
Label2           Operator
Label3           Angka Kedua
Label4           Hasil
Label5           KALKULATOR SEDERHANA
Label6           Perbandingan
TextBox1       Kosongkan
TextBox2       Kosongkan
TextBox3       Kosongkan
ComboBox1    Kosongkan
ComboBox2    Kosongkan
Button1          Hitung
Button2          Perbandingan
Button3          Quit

Berikut desaign formnya :

Logika untuk tombol Perbandingan : jika kita masukan nilai pada textbox Angka Pertama dan Angka Kedua kemudian kita pilih combobox Perbandingan ( =, <>, <, >, <=, dan >= ), dan klik tombol / button Perbandingan, maka akan tampil MsgBox Benar atau Salahnya hasil perbandingan.

Logika untuk tombol Hitung : jika kita masukan nilai pada textbox Angka Pertama dan Angka Kedua kemudian kita pilih combobox Operator (+, -, / , ^, dan mod), dan klik tombol / button HITUNG, maka proses akan ditampilkan hasilnya pada textbox Hasil

Berikut saya tuliskan view code dari program aplikasi kalkulator sederhana tersebut :

Public Class kalkulator

    Private Sub kalkulator_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Items.Add("+")
        ComboBox1.Items.Add("*")
        ComboBox1.Items.Add("-")
        ComboBox1.Items.Add("/")
        ComboBox1.Items.Add("^")
        ComboBox1.Items.Add("Mod")
        ComboBox1.Items.Add("&")
        ComboBox2.Items.Add("=")
        ComboBox2.Items.Add("<>")
        ComboBox2.Items.Add("<")
        ComboBox2.Items.Add(">")
        ComboBox2.Items.Add(">=")
        ComboBox2.Items.Add("<=")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a, b, c As Integer
        a = TextBox1.Text
        b = TextBox2.Text
        Select Case ComboBox1.Text
            Case "+"
                c = a + b
            Case "*"
                c = a * b
            Case "-"
                c = a - b
            Case "/"
                c = a / b
            Case "^"
                c = a ^ b
            Case "Mod"
                c = a Mod b
            Case Else
                c = a & b
        End Select
        TextBox3.Text = c
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim a, b As Integer
        Dim c As Boolean
        Dim d As String
        TextBox3.Clear()
        a = TextBox1.Text
        b = TextBox2.Text
        Select Case ComboBox2.Text
            Case "="
                c = a = b
            Case "<>"
                c = a <> b
            Case "<"
                c = a < b
            Case ">"
                c = a > b
            Case ">="
                c = a >= b
            Case Else
                c = a <= b
        End Select
        If c = "True" Then d = "Benar" Else d = "Salah"
        MsgBox("Pernyataan operator perbandingan adalah ? " & d & "", MsgBoxStyle.Information, "Tri Aprila S.Kom")
        TextBox3.Clear()
    End Sub

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

End Class

sumber:http://mugi.or.id/blogs/tri_aprila/archive/2012/01/10/kalkulator-sederhana-dengan-visual-basic-net.aspx