Membuat Aplikasi Kalkulator Dengan Bahasa Pemrograman VB.net

Assalamu’alaikum Wr Wb

Selamat datang di sibukngoding.com. Pada kesempatan kali ini saya akan memberikan tutorial cara membuat aplikasi kalkulator menggunakan VB.net. Aplikasi ini saya buat dengan menggunakan microsoft Visual Studio 2010, Untuk versi lain insya Allah masih bisa.

Di era ini, setiap orang pasti mengenal aplikasi kalkulator. Aplikasi ini sudah banyak di gunakan di komputer maupun di Hp. Contoh aplikasi Kalkulator di PC saya seperti di bawah ini.

Walaupun tidak sekomplit aplikasi di atas, kita coba buat yang sederhana dulu yang hanya terdiri dari tambah, kurang, bagi, dan kali. Teman-teman nanti bisa kembangkan agar lebih komplit lagi.

Silahkan teman-teman buka visual Studio nya dan buat form seperti dibawah ini:
Untuk Propertisnya, diatur seperti berikut:
Tool Control
Propertis
Value
Form
Name
frm_kalkulator
-
Text
Kalkulator
Textbox1
Name
txtangka
-
Enabled
False
Button1
Name
btn1
-
Text
1
Button2
Name
btn2
-
Text
2
Button3
Name
btn3
-
Text
3
Button4
Name
btn4
-
Text
4
Button5
Name
btn5
-
Text
5
Button6
Name
btn6
-
Text
6
Button7
Name
btn7
-
Text
7
Button8
Name
btn8
-
Text
8
Button9
Name
btn9
-
Text
9
Button10
Name
btn0
-
Text
0
Button11
Name
btnclear
-
Text
C
Button12
Name
btnmin
-
Text
-
Button13
Name
btnkali
-
Text
X
Button14
Name
btnbagi
-
Text
/
Button15
Name
btnplus
-
Text
+
Button16
Name
btnhasil
-
Text
=
Button17
Name
btnkoma
-
Text
.

Setelah itu kita akan coba masukkan source code nya. 

Langkah Pertama masuk ke view code dan masukkan scrip dibawah ini. Letakkan dibawahnya Public Class frm_kalkulator

Dim ops As String
Dim num1 As Double
Dim num2 As Double

Langkah Kedua, Kembali Ke Form lalu masuk ke btn1 dengan event Click. Atau klik 2x pada btn1. Setelah itu masukkan source code seperti di bawah ini:
txtangka.Text = txtangka.Text & 1

Langkah Ketiga, Kembali ke Designer lalu masuk ke btn2 dengan Event Click. Atau klik 2x pada btn2. Setelah itu masukkan source code seperti di bawah ini
txtangka.Text = txtangka.Text & 2
Ulangi langkah ini pada btn3, btn4, btn5, btn6, btn7, btn8, btn9, dan btn0

Langkah keempat, Setelah sampai btn0, kembali ke Designer lalu masuk ke btnkoma dengan event Click. Atau klik 2x pada btnkoma, Setelah itu masukkan source code seperti dibawah ini:
If txtangka.Text = "" Then
   txtangka.Text = "0"
End If
If InStr(txtangka.Text, ".") > 0 Then
   Exit Sub
Else
   txtangka.Text = txtangka.Text & "."
End If

Langkah Kelima, Masukkan source code di btnplus, btnmin, btnbagi dan btnkali seperti di bawah ini:

Source code di btnplus:
If txtangka.Text = "" Then
  txtangka.Text = "0"
End If
num1 = Val(txtangka.Text())
txtangka.Text = ""
ops = "+"

Source code di btnmin:
If txtangka.Text = "" Then
  txtangka.Text = "0"
End If
num1 = Val(txtangka.Text())
txtangka.Text = ""
ops = "-"

Source code di btnkali:
If txtangka.Text = "" Then
  txtangka.Text = "0"
End If
num1 = Val(txtangka.Text())
txtangka.Text = ""
ops = "*"

Source code di btnbagi:
If txtangka.Text = "" Then
  txtangka.Text = "0"
End If
num1 = Val(txtangka.Text())
txtangka.Text = ""
ops = "/"

Langkah ke Enam, Masukkan source code di btnhasil seperti berikut:
If txtangka.Text = "" Then
  num2 = 0
Else
  num2 = Val(txtangka.Text())
End If
'Fungsi untuk memproses operasi aritmatika
If ops = "*" Then
   txtangka.Text = num1 * num2
ElseIf ops = "+" Then
   txtangka.Text = num1 + num2
ElseIf ops = "-" Then
   txtangka.Text = num1 - num2
ElseIf ops = "/" Then
   txtangka.Text = num1 / num2
Else
   txtangka.Text = "Tidak dikenal"
End If

Langkah Terakhir, Masukkan juga di btnclear untuk menghapus angka dalam kalkulator. Untuk source codenya sebagai berikut:
txtangka.Text = ""

Secara keseluruhan, Source codenya sebagai berikut:
 Public Class frm_kalkulator
    Dim ops As String
    Dim num1 As Double
    Dim num2 As Double
'--------------------
    Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
        txtangka.Text = txtangka.Text & 1
    End Sub
'--------------------
    Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click
        txtangka.Text = txtangka.Text & 2
    End Sub
'--------------------
    Private Sub btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3.Click
        txtangka.Text = txtangka.Text & 3
    End Sub
'--------------------
    Private Sub btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn4.Click
        txtangka.Text = txtangka.Text & 4
    End Sub
'--------------------
    Private Sub btn5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn5.Click
        txtangka.Text = txtangka.Text & 5
    End Sub
'--------------------
    Private Sub btn6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn6.Click
        txtangka.Text = txtangka.Text & 6
    End Sub
'--------------------
    Private Sub btn7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn7.Click
        txtangka.Text = txtangka.Text & 7
    End Sub
'--------------------
    Private Sub btn8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn8.Click
        txtangka.Text = txtangka.Text & 8
    End Sub
'--------------------
    Private Sub btn9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn9.Click
        txtangka.Text = txtangka.Text & 9
    End Sub
'--------------------
    Private Sub btn0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn0.Click
        txtangka.Text = txtangka.Text & 0
    End Sub
'--------------------
    Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click
        txtangka.Text = ""
    End Sub
'--------------------
    Private Sub btnkoma_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkoma.Click
        If txtangka.Text = "" Then
            txtangka.Text = "0"
        End If
        If InStr(txtangka.Text, ".") > 0 Then
            Exit Sub
        Else
            txtangka.Text = txtangka.Text & "."
        End If
    End Sub
'--------------------
    Private Sub btnmin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmin.Click
        If txtangka.Text = "" Then
            txtangka.Text = "0"
        End If
        num1 = Val(txtangka.Text())
        txtangka.Text = ""
        ops = "-"
    End Sub
'--------------------
    Private Sub btnkali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkali.Click
        If txtangka.Text = "" Then
            txtangka.Text = "0"
        End If
        num1 = Val(txtangka.Text())
        txtangka.Text = ""
        ops = "*"
    End Sub
'--------------------
    Private Sub btnbagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbagi.Click
        If txtangka.Text = "" Then
            txtangka.Text = "0"
        End If
        num1 = Val(txtangka.Text())
        txtangka.Text = ""
        ops = "/"
    End Sub
'--------------------
    Private Sub btnplus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnplus.Click
        If txtangka.Text = "" Then
            txtangka.Text = "0"
        End If
        num1 = Val(txtangka.Text())
        txtangka.Text = ""
        ops = "+"
    End Sub
'--------------------
    Private Sub btnhasil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhasil.Click
        If txtangka.Text = "" Then
            num2 = 0
        Else
            num2 = Val(txtangka.Text())
        End If
        'Fungsi untuk memproses operasi aritmatika
        If ops = "*" Then
            txtangka.Text = num1 * num2
        ElseIf ops = "+" Then
            txtangka.Text = num1 + num2
        ElseIf ops = "-" Then
            txtangka.Text = num1 - num2
        ElseIf ops = "/" Then
            txtangka.Text = num1 / num2
        Else
            txtangka.Text = "Tidak dikenal"
        End If
    End Sub
End Class

Setelah semua dimasukkan, kita coba jalankan. Jika berhasil akan tampil seperti dibawah ini:

Selanjutnya kita coba lakukan perhitungan dengan kalkulator yang kita buat tadi.

Dan akhirnya selesai sudah kalkulator yang telah kita buat tadi. Dan seperti yang saya bilang sebelumnya bahwa kalkulator ini masih sederhana, silahkan dimodifikasi agar menjadi kalkulator yang sesuai dengan yang kita inginkan. Jika ada pertanyaan, bisa ditanyakan lewat kolom komentar. Dan jangan lupa untuk kunjungi web sibukngoding.com untuk mendapatkan tutorial pemrograman lainnya.

Terimakasih atas kunjungannya, Selamat Belajar dan jangan mudah menyerah

Wassalamu’alaikum Wr Wb

Comments

Post a Comment

- Berkomentarlah dengan bijak, Komentar akan di moderasi dahulu sebelum ditampilkan.