Subscribe:

Saturday, October 16, 2010

Simple Calculator

Dibuat menggunakan VB.Net 2005, dalam materi ini berisikan contoh beberapa control seperti : textbox, label, combobox, listbox dan button. Materi ini juga menggunakan Variabel, yang digunakan untuk menampung data secara sementara

 
Code:

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
        'mengisi nilai ComboBox Operator
        cboOperator.Items.Add("+  ""Tambah""")
        cboOperator.Items.Add("-  ""Kurang""")
        cboOperator.Items.Add("*  ""Kali""")
        cboOperator.Items.Add("/  ""Bagi""")
    End Sub
 
    Private Sub btnProcess_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnProcess.Click
        'variabel -> berfungsi untuk menampung data sementara
        Dim sng1stNumber, sng2ndNumber, sngResult As Single
 
        'jika user mengisi TextBox txt1stNumber, txt2ndNumber
        'dengan karakter selain angka, maka tidak akan diproses
        If Not IsNumeric(txt1stNumber.Text) = True Then
            MessageBox.Show("Silahkan masukkan angka pada TextBox 1stNumber", _
                            "WARNING", MessageBoxButtons.OK, _
                            MessageBoxIcon.Warning)
            'memberikan nilai textbox menjadi 0 (nol)
            txt1stNumber.Text = 0
            'membuat cursor berada pada textbox 1stNumber
            txt1stNumber.Focus()
            'memberhentikan proses selanjutnya
            Exit Sub
        ElseIf Not IsNumeric(txt2ndNumber.Text) = True Then
            MessageBox.Show("Silahkan masukkan angka pada TextBox 2ndNumber", _
                            "WARNING", MessageBoxButtons.OK, _
                            MessageBoxIcon.Warning)
            txt2ndNumber.Text = 0
            txt2ndNumber.Focus()
            Exit Sub
        End If
 
        'mengisi nilai variabel berdasarkan yang input oleh user
        sng1stNumber = CSng(txt1stNumber.Text)
        sng2ndNumber = CSng(txt2ndNumber.Text)
        sngResult = 0
 
        'memilih index atau urutan item yang dipilih oleh user
        'pada ComboBox cboOperator
        Select Case cboOperator.SelectedIndex
            Case 0 'tambah
                sngResult = sng1stNumber + sng2ndNumber
            Case 1 'kurang
                sngResult = sng1stNumber - sng2ndNumber
            Case 2 'kali
                sngResult = sng1stNumber * sng2ndNumber
            Case 3 'bagi
                sngResult = sng1stNumber / sng2ndNumber
            Case Else 'jika user mengisi ComboBox cboOperator
                'dengan sembarangan maka akan menampilkan pesan
                MessageBox.Show("Operator tidak dikenal / Anda belum memilih", _
                                "WARNING", MessageBoxButtons.OK, _
                                MessageBoxIcon.Warning)
        End Select
        txtResult.Text = sngResult
    End Sub
 
End Class


Download Source Lengkap : DOWNLOAD 

No comments: