TUTORIAL CONTOH OPERATOR ARITMATIKA MENGGUNAKAN MICROSOFT VISUAL BASIC 2010
(PROGAM KALKULATOR SEDERHANA)
Operator aritmatika merupakan perintah fungsi kontrol dasar pada microsoft Visual Basic 2010. Operator aritmatika adalah operator yang sering digunakan dalam suatu proses perhitungan matematis, baik berupa perhitungan bulat maupun pecahan. Contoh penggunaan operator aritmatika ini adalah dalam progam kalkulator sederhana. Dalam progam kalkulator sederhana ini terdapat beberapa fungsi matematis seperti pertambahan, pengurangan, perkalian, pembagian, akar kuadrat dan lain-lain.
Dibawah ini adalah tutorial pembuatan kalkulator sederhana menggunakan Visual Basic 2010:
- Pertama-tama buatlah desain interface kalkulator sederhana yang akan dibuat misalnya seperti di bawah ini:
- Dalam Form ini kita memerlukan button untuk memberi nama pada operasi matematis yang akan kita jalankan pada aplikasi yang telah kita buat. Dari toolbox ,pilih button kemudian atur letaknya ,lakukan sebanyak 22 kali.
- Kemudian buatlah label dari toolbox ,pilih label kemudian atur letaknya ,lakukan sebanyak 3 kali.
- Kemudian buatlah paneh sebagai layar kalkulatornya,lalu beri warna putih atau sesuka anda agar jelas
.
- Kemudian button, dan label kita atur dan kita ganti namanya sehingga interfacenya dapat menjadi seperti ini:
- Pada public form 1 kita masukkan listing berikut:
Public Class Form1
Dim number As Integer
Dim hitungan As String
Dim adalah untuk mendeklarasikan tipe suatu data. Dalam hal ini dim mendeklarasikan number sebagai double yaitu tipe data yang dapat berupa bilangan pecahan. Sedangkan hitungan sebagai tipe data yang berupa karakter.
- Pada button 1 kita dobel klik dan masukkan listing berikut:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Label1.Text = “” Then
Label1.Text = “7”
Else
Label1.Text = Label1.Text & “7”
End If
End Sub
Maksud dari listing diatas adalah :
Menyatakan apabila pada label1.text kosong dan tombol 7 di klik, maka tulisan pada ,label1 akan berubah dari kosong menjadi 7.
- Pada button 2 kita dobel klik dan masukkan listing berikut:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Label1.Text = “” Then
Label1.Text = “8”
Else
Label1.Text = Label1.Text & “8”
End If
End Sub
Maksud dari listing diatas adalah :
Menyatakan apabila pada label1.text kosong dan tombol 8 di klik, maka tulisan pada ,label1 akan berubah dari kosong menjadi 8.
- Pada button 3 kita dobel klik dan masukkan listing berikut:
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If Label1.Text = “” Then
Label1.Text = “9”
Else
Label1.Text = Label1.Text & “9”
End If
End Sub
Maksud dari listing diatas adalah :
Menyatakan apabila pada label1.text kosong dan tombol 9 di klik, maka tulisan pada ,label1 akan berubah dari kosong menjadi 9.
- Pada button 4 kita dobel klik dan masukkan listing berikut:
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Label1.Text = “” Then
Label1.Text = “4”
Else
Label1.Text = Label1.Text & “4”
End If
End Sub
Maksud dari listing diatas adalah :
Menyatakan apabila pada label1.text kosong dan tombol 4 di klik, maka tulisan pada ,label1 akan berubah dari kosong menjadi 4.
- Pada button 5 kita dobel klik dan masukkan listing berikut:
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If Label1.Text = “” Then
Label1.Text = “5”
Else
Label1.Text = Label1.Text & “5”
End If
End Sub
Maksud dari listing diatas adalah :
Menyatakan apabila pada label1.text kosong dan tombol 5 di klik, maka tulisan pada ,label1 akan berubah dari kosong menjadi 5.
- Pada button 6 kita dobel klik dan masukkan listing berikut:
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
If Label1.Text = “” Then
Label1.Text = “6”
Else
Label1.Text = Label1.Text & “6”
End If
End Sub
Maksud dari listing diatas adalah :
Menyatakan apabila pada label1.text kosong dan tombol 6 di klik, maka tulisan pada ,label1 akan berubah dari kosong menjadi 6.
- Pada button 7 kita dobel klik dan masukkan listing berikut:
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
If Label1.Text = “” Then
Label1.Text = “1”
Else
Label1.Text = Label1.Text & “1”
End If
End Sub
Maksud dari listing diatas adalah :
Menyatakan apabila pada label1.text kosong dan tombol 1 di klik, maka tulisan pada ,label1 akan berubah dari kosong menjadi 1.
- Pada button 8 kita dobel klik dan masukkan listing berikut:
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
If Label1.Text = “” Then
Label1.Text = “2”
Else
Label1.Text = Label1.Text & “2”
End If
End Sub
Maksud dari listing diatas adalah :
Menyatakan apabila pada label1.text kosong dan tombol 2 di klik, maka tulisan pada ,label1 akan berubah dari kosong menjadi 2.
- Pada button 9 kita dobel klik dan masukkan listing berikut:
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
If Label1.Text = “” Then
Label1.Text = “3”
Else
Label1.Text = Label1.Text & “3”
End If
End Sub
Maksud dari listing diatas adalah :
Menyatakan apabila pada label1.text kosong dan tombol 3 di klik, maka tulisan pada ,label1 akan berubah dari kosong menjadi 3.
- Pada button 10 kita dobel klik dan masukkan listing berikut:
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
If Label1.Text = “” Then
Label1.Text = “0”
Else
Label1.Text = Label1.Text & “0”
End If
End Sub
Maksud dari listing diatas adalah :
Menyatakan apabila pada label1.text kosong dan tombol 0 di klik, maka tulisan pada ,label1 akan berubah dari kosong menjadi 0.
- Pada button 11 kita dobel klik dan masukkan listing berikut:
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
If Label1.Text = “” Then
Label1.Text = “.”
Else
Label1.Text = Label1.Text & “.”
End If
End Sub
Maksud dari listing diatas adalah :
Menyatakan apabila pada label1.text kosong dan tombol “.” di klik, maka tulisan pada ,label1 akan berubah dari kosong menjadi 0.
- Pada button 19 kita dobel klik dan masukkan listing berikut:
Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
Label1.Text = Math.Sqrt(Label1.Text)
End Sub
Maksud dari coding Label1.Text = Math.Sqrt(Label1.Text) adalah Menyatakan apabila tanda “akar” di klik, maka nilai yang kita tulis pada Label akan menjadi di pangkatkan ½ atau akar dari angka tadi yang kita tulis pada Label.
- Pada button 18 kita dobel klik dan masukkan listing berikut:
Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
number = Label1.Text
Label2.Text = Label1.Text & ” ” & “^”
Label1.Text = “”
hitungan = “^”
End Sub
Fungsi dari coding ini adalah untuk memangkatkan bilangan yang sudah kita ketikkan padaLabel.
- Pada button 14 kita dobel klik dan masukkan listing berikut:
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
number = Label1.Text
Label2.Text = Label1.Text & ” ” & “*”
Label1.Text = “”
hitungan = “*”
End Sub
Maksud dari coding di atas adalah untuk menyatakan apabila tombol * pada kalkulator kita click maka ini akan berfungsi sebagai pengkali pada bilangan atau angka yang sudah kita tulis sebelumnya pada Label.
- Pada Button 16 kita dobel klik dan masukkan listing berikut:
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
number = Label1.Text
Label2.Text = Label1.Text & ” ” & “+”
Label1.Text = “”
hitungan = “+”
End Sub
Maksud dari coding diatas adalah menyatakan apabila tombol / pada kalkulator kita click maka ini akan berfungsi sebagai pertambahan untuk bilangan atau angka yang sudah kita tulis pada Label.
- Pada button 15 kita dobel klik dan masukkan listing berikut:
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
number = Label1.Text
Label2.Text = Label1.Text & ” ” & ” / ”
Label1.Text = “”
hitungan = “/”
End Sub
Maksud dari coding diatas adalah menyatakan apabila tombol / pada kalkulator kita click maka ini akan berfungsi sebagai pembagi untuk bilangan atau angka yang sudah kita tulis pada Label.
- Pada button 17 kita dobel klik dan masukkan listing berikut:
Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
number = Label1.Text
Label2.Text = Label1.Text & ” ” & “-”
Label1.Text = “”
hitungan = “-”
End Sub
Maksud dari coding diatas adalah apabila tombol – pada kalkulator di click maka ini akan berfungsi sebagai pengurangan pada bilangan sebelumnya pada Label yang sudah kita ketik sebelumnya.
- Pada button 13 kita dobel klik dan masukkan listing berikut:
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
If hitungan = “+” Then
Label3.Text = number + Label1.Text
ElseIf hitungan = “-” Then
Label3.Text = number – Label1.Text
ElseIf hitungan = “*” Then
Label3.Text = number * Label1.Text
ElseIf hitungan = “/” Then
Label3.Text = number / Label1.Text
ElseIf hitungan = “^” Then
Label3.Text = number ^ Label1.Text
End If
End Sub
Maksud dari coding di atas adalah apabila tombol button “=” di klik maka hasil dari hitungan pada Label akan keluar.
- Pada button 12 dobel klik dan masukkan listing berikut:
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
number = “0”
hitungan = “0”
Label1.Text = “”
Label2.Text = “”
Label3.Text = “”
End Sub
Listing di atas adalah untuk merefresh label 1, label 2 , dan label 3.
- Pada button 20 dobel klik dan masukkan listing berikut:
Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
Label1.Enabled = True
Label2.Enabled = True
Label3.Enabled = True
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Button7.Enabled = True
Button8.Enabled = True
Button9.Enabled = True
Button10.Enabled = True
Button11.Enabled = True
Button12.Enabled = True
Button13.Enabled = True
Button14.Enabled = True
Button15.Enabled = True
Button16.Enabled = True
Button17.Enabled = True
Button18.Enabled = True
Button19.Enabled = True
Button20.Enabled = True
End Sub
Maksud dari coding ini adalah apabila tombol ON pada kalkulator di click maka fungsi semua tombol pada kalkulator akan kembali hidup, atau enable dengan sendirinya.
- Pada button 21 dobel klik dan masukkan listing berikut:
Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
Label1.Enabled = False
Label2.Enabled = False
Label3.Enabled = False
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
Button10.Enabled = False
Button11.Enabled = False
Button12.Enabled = False
Button13.Enabled = False
Button14.Enabled = False
Button15.Enabled = False
Button16.Enabled = False
Button17.Enabled = False
Button18.Enabled = False
Button19.Enabled = False
Button20.Enabled = False
End Sub
Maksud dari coding ini adalah apabila tombol OFF pada kalkulator di click maka fungsi semua tombol pada kalkulator akan mati, atau disable dengan sendirinya.
- Pada button 22 dobel klik dan masukkan listing berikut:
Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
Close()
End Sub
Listing berikut sebagai tombol keluar.
Hasil tampilan akhirnya bila dijalankan adalah seperti dibawah ini:
Ini adalah contoh operasi perkalian.
FLOW CHART nya adalah seperti dibawah ini:
