Posted on

TUTORIAL CONTOH OPERATOR ARITMATIKA MENGGUNAKAN MICROSOFT VISUAL BASIC 2010 (PROGAM KALKULATOR SEDERHANA)

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:

  1. 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:
  1. 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.

  1. 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.

  1. 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.

  1. 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.

  1. 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.

  1. 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.

  1. 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.

  1. 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.

  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.

  1. 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.

  1. 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.

  1. 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.

  1. 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.

  1. 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.

  1. 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.

  1. 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.

  1. 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.

  1. 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.

  1. 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.

  1. 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.

  1. 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.

  1. 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.

  1. 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:

 

 

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s