Tutorial Membuat Kalkulator dengan VB (modul 2)

KONSEP THE IFD’S CALCULATOR

               

The IFD’S calculator adalah suatu alat hitung yang didalamnya memiliki beberapa button dengan fungsinya masing-masing yang dapat membantu kita dalam mengolah data dengan menggunakan fungsi aritmatika.

Beberapa simbol fungsi yang ada dalam produk kalkulator kami adalah

-          +  : untuk penjumlahan

-          -  : untuk pengurangan

-          * : untuk perkalian

-          / : untuk pembagian

-          +/- : untuk merubah data menjadi nominal negatif atau positif

-          % : untuk membagi data dengan 100

-          Sin , cos, tan : untuk menghitung sin cos tan pada data input

-          √ : untuk menghasilkan akar

-          ^ : untuk menghitung pangkat

-          L square, triangle, dan round : masing masing untuk menghitung luas persegi, segitiga, dan lingkaran

-          V cube, ball, beam : masing – masing untuk menghitung volume kubus, bola, dan balok

-          Clear : untuk menghapus data yang muncul pada textbox

-          On : untuk menghidupkan fungsi semua button

-          Off : untuk menon-fungsikan semua button

FLOWCHART THE IFD'S CALCULATOR

TOTORIAL THE IFD’S CALCULATOR

Berikut merupakan contoh form design kalkulatornya :

Dibawah ini merupakan langkah-langkah pembuatannya menggunakan visual basic 2010:

1.        Buka Visual Basic 2010 >> New Project >> Windows Forms Application >> OK.

2.        Buat desain seperti gambar dengan memasukkan komponen button dan textbox dari toolbox ke dalam form design

3.        Ubah nama komponen button yang telah dibuat pada bagian properties seperti berikut:

komponen	Properties	Keterangan
Form1	Name Text	Form1 IFD’S Kalkulator
Textbox1	Name Text TextAlign Font	Textbox1 Right Microsoft Sans Serif, 21.75pt
Button 1	Name Text	Button1 1
Button 2	Name Text	Button2 2
Button 3	Name Text	Button3 3
Button 4	Name Text	Button4 4
Button 5	Name Text	Button5 5
Button 6	Name Text	Button6 6
Button 7	Name Text	Button7 7
Button 8	Name Text	Button8 8
Button 9	Name Text	Button9 9
Button 10	Name Text	Button10 0
Button 11	Name Text	Button11 .
Button 12	Name Text	Button12 +/-
Button 13	Name Text	Button13 +
Button 14	Name Text	Button14 -
Button 15	Name Text	Button15 *
Button 16	Name Text	Button16 /
Button 17	Name Text	Button17 =
Button 18	Name Text	Button18 ^
Button 19	Name Text	Button19 √
Button 20	Name Text	Button20 Sin
Button 21	Name Text	Button21 Cos
Button 22	Name Text	Button22 Tan
Button 23	Name Text	Button23 Clear
Button 24	Name Text	Button24 On
Button 25	Name Text	Button25 Off
Button 26	Name Text	Button26 00
Button 27	Name Text	Button27 000
Button 28	Name Text	Button28 %
Button 29	Name Text	Button29                 Log
Button 30	Name Text	Button30 Ln
Button 31	Name Text	Button31 L SQUARE
Button 32	Name Text	Button32 L TRIANGLE
Button 34	Name Text	Button34 n!
Button 35	Name Text	Button35 V BALL
Button 36	Name Text	Button36 L ROUND
Button 37	Name Text	Button37 V CUBE
Button 38	Name Text	Button38 V BEAM

4.        Masukkan listing code untuk form 1 sebagai berikut :

5.        Masukkan listing code untuk tiap komponen button pada form 1 sebagai berikut :

a.        Pada button angka :

Button angka yang terdiri dari 10 button antara angka 0-9. Untuk memasukkan listing, dapat dilakukan dengan double click pada button yang igin dibuat listing codenya. Listig code pada button angka dapat kita lihat di bawah ini:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        TextBox1.Text = TextBox1.Text & "1"

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox1.Text = TextBox1.Text & "2"

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        TextBox1.Text = TextBox1.Text & "3"

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        TextBox1.Text = TextBox1.Text & "4"

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        TextBox1.Text = TextBox1.Text & "5"

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        TextBox1.Text = TextBox1.Text & "6"

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        TextBox1.Text = TextBox1.Text & "7"

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        TextBox1.Text = TextBox1.Text & "8"

    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        TextBox1.Text = TextBox1.Text & "9"

    End Sub

  Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

        TextBox1.Text = TextBox1.Text & "0"

    End Sub

Keterangan :

apabila button 1 di click, maka pada textbox 1 akan muncul angka 1. Apabila button 2 di click, maka textbox 1 akan muncul angka 2. Dan seterusnya

b.        Pada button operasi

button operasi  berisi operasi penjumlahan, pengurangan, pembagian, perkalian, perpangkatan, akar kuadrat, sin, cos, tan, plus minus, logaritma, persen, dan faktorial.

·         Listing code pada tombol penjumlahan, pengurangan, perkalian dan pembagian:

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click

      FirstNumber = Val(TextBox1.Text)

        TextBox1.Text = ""

        ArithmeticProcess = "+"

    End Sub

Keterangan :

 Apabila button 13 (+) diclick, maka text pada textbox 1 akan hilang dan arithmeticprocess yang terjadi adalah (+)

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click

        FirstNumber = Val(TextBox1.Text)

        TextBox1.Text = ""

        ArithmeticProcess = "-"

    End Sub

Keterangan :

Apabila button 14 (-) diclick, maka text pada textbox 1 akan hilang dan arithmeticprocess yang terjadi adalah (-) 

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click

        FirstNumber = Val(TextBox1.Text)

        TextBox1.Text = ""

        ArithmeticProcess = "x"

    End Sub

Keterangan :

Apabila button 15 (x) diclick, maka text pada textbox 1 akan hilang dan arithmeticprocess yang terjadi adalah (x)

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click

        FirstNumber = Val(TextBox1.Text)

        TextBox1.Text = ""

        ArithmeticProcess = "/"

    End Sub

Keterangan :

Apabila button 16 (/) diclick, maka text pada textbox 1 akan hilang dan arithmeticprocess yang terjadi adalah (/)

·         Listing code pada button operasi sin, cos, tan :

Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click

        TextBox1.Text = Math.Sin(TextBox1.Text * (phi / 180))

    End Sub

    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click

        TextBox1.Text = Math.Cos(TextBox1.Text * (phi / 180))

    End Sub

    Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click

        TextBox1.Text = Math.Tan(TextBox1.Text * (phi / 180))

    End Sub

Keterangan :

 Apabila button 20 (sin) diclick maka padatextbox 1 akanterjadi proses perhitungan seperti rumus pada listing. Sama halnya pada button cos dan tan

·         Listing code pada button samadengan (=) :

Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click

        SecondNumber = Val(TextBox1.Text)

        If ArithmeticProcess = "+" Then

            AnswerNumber = FirstNumber + SecondNumber

        End If

        If ArithmeticProcess = "-" Then

            AnswerNumber = FirstNumber - SecondNumber

        End If

        If ArithmeticProcess = "x" Then

            AnswerNumber = FirstNumber * SecondNumber

        End If

        If ArithmeticProcess = "^" Then

            AnswerNumber = FirstNumber ^ SecondNumber

        End If

        If ArithmeticProcess = "log" Then

            AnswerNumber = Math.Log10(TextBox1.Text)

        End If

        If ArithmeticProcess = "ln" Then

            AnswerNumber = Math.Log(TextBox1.Text)

        End If

        If ArithmeticProcess = "n!" Then

            A = 1

            For i = 1 To FirstNumber

                A = A * i

            Next

            TextBox1.Text = Str(A)

            AnswerNumber = TextBox1.Text

        End If

        If ArithmeticProcess = "/" Then

            If SecondNumber = "0" Then

                MsgBox("cannot devide by zero", 0, "warning")

                TextBox1.Text = ""

                Exit Sub

            End If

            AnswerNumber = FirstNumber / SecondNumber

        End If

        TextBox1.Text = AnswerNumber

    End Sub

Keterangan : 
Apabila Button (=) di click, maka  pengoperasian angka akan diproses dengan memasukkan kode listing seperti di atas. Pada arithmetic Prosess pembagian, apabila sebuah bilangan dibagi dengan angka 0, maka akan muncul messagebox “cannot devide by zero”

·         Listing code pada ln, log, dan n! :

   Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click

        FirstNumber = Val(TextBox1.Text)

        TextBox1.Text = ""

        ArithmeticProcess = "log"

    End Sub

    Private Sub Button30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button30.Click

        FirstNumber = Val(TextBox1.Text)

        TextBox1.Text = ""

        ArithmeticProcess = "ln"

    End Sub

    Private Sub Button34_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button34.Click

        FirstNumber = Val(TextBox1.Text)

        TextBox1.Text = ""

        ArithmeticProcess = "n!"

    End Sub

Keterangan :
Listing code pada button log, ln dan faktorial dapat dilihat pada listing code di atas

·         Listing code pada button ON

Untuk menyalakan kalkulator, double click button ON lalu masukkan listing sebagai berikut :

Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click

        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

        Button21.Enabled = True

        Button22.Enabled = True

        Button23.Enabled = True

        Button26.Enabled = True

        Button27.Enabled = True

        Button28.Enabled = True

        Button29.Enabled = True

        Button30.Enabled = True

        Button31.Enabled = True

        Button32.Enabled = True

        Button34.Enabled = True

        Button35.Enabled = True

        Button36.Enabled = True

        Button37.Enabled = True

        Button38.Enabled = True

        TextBox1.Text = ""

Keterangan :

Apabila button ON di click, maka fungsi button-button yang ada di kalkulator dapat dijalankan

·         Listing code pada button OFF

Untuk mematikan kalkulator, double click button OFF lalu masukkan listing sebagai berikut :

Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click

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

        Button21.Enabled = False

        Button22.Enabled = False

        Button23.Enabled = False

        Button26.Enabled = False

        Button27.Enabled = False

        Button28.Enabled = False

        Button29.Enabled = False

        Button30.Enabled = False

        Button31.Enabled = False

        Button32.Enabled = False

        Button34.Enabled = False

        Button35.Enabled = False

        Button36.Enabled = False

        Button37.Enabled = False

        Button38.Enabled = False

        TextBox1.Text = ""

    End Sub

Keterangan :
Apabila button OFF diclick, maka fungsi tombol pada kalkulator tidak dapat dijalankan

·         Listing  code pada button luas dan volume :

    Private Sub Button31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button31.Click

        Form2.Show()

        Me.Hide()

    End Sub

    Private Sub Button36_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button36.Click

        Form3.Show()

        Me.Hide()

    End Sub

    Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button32.Click

        Form4.Show()

        Me.Hide()

    End Sub

    Private Sub Button37_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button37.Click

        Form5.Show()

        Me.Hide()

    End Sub 

Keterangan :  apabila button untuk perhitungan luas dan volume di click, maka akan muncul form baru yang  ditujukan untuk perhitungan luas dan volume secara spesifik

6.        Buat form baru yang berisi tentang proses penghitungan luas dan volume benda menggunakan  label, butto da textbox. Conto design nya dapat dilihat pada gambar di bawah ini :

1.        L SQUARE

Listing codenya sebagai berikut :

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Form1.Show()

        Me.Hide()

    End Sub

Keterangan :
Button 3 (back) apabila di click maka akan kembali ke form 1 dan form 2 akan tersembunyi secara otomatis

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

    End Sub

Keterangan :

  Button 2 (clear) apabila di click maka text yang ada pada textbox 1 dan 2 akan hilang

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim input As Integer

        Dim luas As Integer

        input = Val(TextBox1.Text)

        luas = input * input

        TextBox2.Text = luas

      End Sub

Keterangan :

Button 1 (hitung) apabila di click maka akan terjadi proses pehitungan pada angka yang di inputkan pada textbox 1 dan hasilnya akan muncul di textbox 2

2.        L ROUND

Listing codenya sebagai berikut :

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Form1.Show()

        Me.Hide()

    End Sub

Keterangan :
 Button 3 (back) apabila di click maka akan kembali ke form 1 dan form 3 akan tersembunyi secara otomatis

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

    End Sub

Keterangan :

Button 2 (clear) apabila di click maka text yang ada pada textbox 1 dan 2 akan hilang

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim radius As Integer

        Dim luas As Integer

        radius = Val(TextBox1.Text)

        luas = 3.14 * radius * radius

        TextBox2.Text = luas

End Sub

Keterangan :

Button 1 (hitung) apabila di click maka akan terjadi proses pehitungan pada angka yang di inputkan pada textbox 1 dan hasilnya akan muncul di textbox 2

3.        L TRIANGLE

Listing codenya sebagai berikut :

Public Class Form4

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Form1.Show()

        Me.Hide()

    End Sub

Keterangan :
 Button 3 (back) apabila di click maka akan kembali ke form 1 dan form 4 akan tersembunyi secara otomatis

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

    End Sub

Keterangan :
Button 2 (clear) apabila di click maka text yang ada pada textbox 1, 2, dan 3 akan hilang

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim alas As Integer

        Dim tinggi As Integer

        Dim luas As Integer

        alas = Val(TextBox1.Text)

        tinggi = Val(TextBox2.Text)

        luas = 1 / 2 * alas * tinggi

        TextBox3.Text = luas

    End Sub

End Class

Keterangan :

Button 1 (hitung) apabila di click maka akan terjadi proses pehitungan pada angka yang di inputkan pada textbox 1 dan 2, hasilnya akan muncul di textbox 3

4.        V CUBE

Listing codenya sebagai berikut:

Public Class Form5

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Form1.Show()

        Me.Hide()

    End Sub

Keterangan :

 Button 3 (back) apabila di click maka akan kembali ke form 1 dan form 5 akan tersembunyi secara otomatis

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

    End Sub

Keterangan :

   Button 2 (clear) apabila di click maka text yang ada pada textbox 1 dan 2 akan hilang

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim sisi As Integer

        Dim volume As Integer

        sisi = Val(TextBox1.Text)

        volume = sisi * sisi * sisi

        TextBox2.Text = volume

    End Sub

End Class

Keterangan :

Button 1 (hitung) apabila di click maka akan terjadi proses pehitungan pada angka yang di inputkan pada textbox 1 dan hasilnya akan muncul di textbox 2

5.        V BALL

Listing codenya sebagai berikut:

Public Class Form6

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Form1.Show()

        Me.Hide()

    End Sub

Keterangan :

 Button 3 (back) apabila di click maka akan kembali ke form 1 dan form 6 akan tersembunyi secara otomatis

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

    End Sub

Keterangan :
Button 2 (clear) apabila di click maka text yang ada pada textbox 1 dan 2 akan hilang

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim radius As Integer

        Dim volume As Integer

        radius = Val(TextBox1.Text)

        volume = 4 / 3 * 3.14 * radius * radius * radius

        TextBox2.Text = volume

    End Sub

End Class

Keterangan :

Button 1 (hitung) apabila di click maka akan terjadi proses pehitungan pada angka yang di inputkan pada textbox 1 dan hasilnya akan muncul di textbox 2

6.        V BEAM

Listing codenya sebagai berikut :

Public Class Form7

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Form1.Show()

        Me.Hide()

    End Sub

Keterangan :

 Button 3 (back) apabila di click maka akan kembali ke form 1 dan form 7 akan tersembunyi secara otomatis

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

    End Sub

Keterangan :
Button 2 (clear) apabila di click maka text yang ada pada textbox 1 dan 2 akan hilang

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim lebar As Integer

        Dim panjang As Integer

        Dim tinggi As Integer

        Dim volume As Integer

        lebar = Val(TextBox1.Text)

        panjang = Val(TextBox2.Text)

        tinggi = Val(TextBox3.Text)

        volume = lebar * panjang * tinggi

        TextBox4.Text = volume

    End Sub

Keterangan :

Button 1 (hitung) apabila di click maka akan terjadi proses pehitungan pada angka yang di inputkan pada textbox 1, 2, dan 3, hasilnya akan muncul di textbox 4

7. Jika semua listing code sudah diisikan, tekan F5 untuk menjalankan program kasir. Jika terjadi error, mungkin ada kesalahan dalam memasukkan listing code.
8. File > Save All, untuk menyimpan program secara keseluruhan.