Tutorial :: Membuat Kalkulator sederhana dengan Function

Berikut akan dipaparkan sebuah tutorial (lihat judul) dengan menggunakan visual Basic 2008. Tidak sulit, tapi sedikit ribet bagi yang baru pertama coding dengan Visual Basic 2008. Menurut saya, coding ini bisa diterapkan pada Visual Basic 2005, Karena tidak beda-beda jauh (soalnya bersaudara sih).

Langsung saja, tidak perlu bertele-tele lagi. Ikuti langkah-langkah di bawah ini...
1. Buat sebuah project baru di VB2008 dengan memilih menu File -> New project
2. Pada window Templates pilih Windows Application.
3. Pada textbox nama isikan "Kalkulator Sederhana" lalu klik OK.
4. Kemudian akan muncul sebuah tampilan/window Form Project yang baru saja dibuat.
5. Pada jendela ToolBox, drag 2 buah Textbox, 1 command button dan 1 combo box ke dalam form.
6. Kreasikanlah propertinya seperti pada gambar.
7. Untuk combo box, atur property Items dengan Menginput
     [*] Penjumlahan
     [*] Pengurangan
     [*] Pembagian
     [*] Perkalian
     [*] Perpangkatan
8. Jika sudah, maka waktu CODING... Copy-paste source code berikut...

    Function Konversi(ByVal N1 As Integer, ByVal N2 As Integer) As Integer
        Select Case ComboBox1.Text
            Case "Penjumlahan"
                MsgBox("Hasilnya adalah = " & N1 + N2, MsgBoxStyle.Information, "Kalkulator")
            Case "Pengurangan"
                MsgBox("Hasilnya adalah = " & N1 - N2, MsgBoxStyle.Information, "Kalkulator")
            Case "Pembagian"
                MsgBox("Hasilnya adalah = " & N1 / N2, MsgBoxStyle.Information, "Kalkulator")
            Case "Perkalian"
                MsgBox("Hasilnya adalah = " & N1 * N2, MsgBoxStyle.Information, "Kalkulator")
            Case "Perpangkatan"
                MsgBox("Hasil dari " & N1 & " pangkat " & N2 & " adalah = " & N1 ^ N2, _
                       MsgBoxStyle.Information, "Kalkulator")
            Case Else
                MsgBox("Value tidak sesuai... " & vbCrLf & "Pilih jenis konversi yang tepat", _
                       MsgBoxStyle.Critical, "Oops")
        End Select
    End Function

9. Souce code untuk Button1_click di bawah ini...

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Nilai1 As Integer = Val(TextBox1.Text)
        Dim Nilai2 As Integer = Val(TextBox2.Text)
        Konversi(Nilai1, Nilai2)
    End Sub

10.Jika Sudah Run project tersebut. dan TreeeeeNg,, Anda Sudah bisa membuat sebuah program kecil-kecilan dari VB2008 yakni kalkulator sederhana. Untuk Download project-nya di sini...