Tutorial Membuat Kalkulator 2 layar dengan VB (modul 2)

KONSEP KALKULATOR 2 LAYAR

               

Kalkulator 2 layar ini merupakan suatu aplikasi untung mengolah suatu perhitungan sederhana 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 menampilkan hasil hitungan

-          Clear : untuk menghapus data yang muncul pada textbox

                Perbedaan dengan kalkulator yang kami buat sebelumnya adalah, kalkulator 2 layar ini menggunakan 2 texbox sebagai komponen layarnya. textbox 1 menampilkan angka yang akan dihitung, sedangkan textbox 2 akan menghasilkan hasil dari perhitungan

TUTORIAL KALKULATOR 2 LAYAR

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
Textbox2	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 13	Name Text	Button13 +
Button 14	Name Text	Button14 -
Button 15	Name Text	Button15 *
Button 16	Name Text	Button16 /
Button 17	Name Text	Button17 =

4.       
Masukkan listing code untuk form 1 sebagai berikut :

Option Explicit On

Public Class Form1

    Dim FirstNumber As Single

    Dim SecondNumber As Single

    Dim AnswerNumber As Single

    Dim ArithmeticProcess As String

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"

        TextBox2.Text = TextBox2.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"

        TextBox2.Text = TextBox2.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"

        TextBox2.Text = TextBox2.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"

        TextBox2.Text = TextBox2.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"

        TextBox2.Text = TextBox2.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"

        TextBox2.Text = TextBox2.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"

        TextBox2.Text = TextBox2.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"

        TextBox2.Text = TextBox2.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"

        TextBox2.Text = TextBox2.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"

        TextBox2.Text = TextBox2.Text & "0"

    End Sub

Keterangan :

Apabila button angka di click maka pada textbox1 dan textbox 2 akan keluar angka tersebut tanpa menghilangkan text yang telah muncul sebelum button angka tersebut di click

b.        Pada button operasi

button operasi  berisi operasi penjumlahan, pengurangan, pembagian, perkalian dan sama dengan

Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click

        TextBox1.Text = TextBox1.Text & "."

        TextBox2.Text = TextBox2.Text & "."

    End Sub

Keterangan :                                     

Apabila button 11 (.) di click, maka text pada textbox 1 dan 2 akan muncul tanda (.)

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        TextBox1.Text = -1 * (TextBox1.Text)

        TextBox2.Text = -1 * (TextBox2.Text)

    End Sub

Keterangan :                                     

Apabila button 12 (+/-) di click, maka text pada textbox 1 dan 2 akan muncul tanda negatif pada angkanya

    Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

    End Sub

Keterangan :                                     

Apabila button 23 (CLEAR) di click, maka text pada textbox1 dan textbox2 akan hilang 

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

        FirstNumber = Val(TextBox1.Text)

        TextBox2.Text = ""

        TextBox1.Text = TextBox1.Text & "+"

        ArithmeticProcess = "+"

    End Sub

Keterangan :                                     

Apabila button 13 (+) di click, maka text pada textbox 2 akan hilang dan pada textbox 1 akan muncul tanda + tanpa menghilangkan text pada textbox 1 sebelum button (+) di click

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

        FirstNumber = Val(TextBox1.Text)

        TextBox2.Text = ""

        TextBox1.Text = TextBox1.Text & "-"

        ArithmeticProcess = "-"

    End Sub

Keterangan :

Apabila button 14 (-) di click, maka text pada textbox 2 akan hilang dan pada textbox 1 akan muncul tanda - tanpa menghilangkan text pada textbox 1 sebelum button (-) di click

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

        FirstNumber = Val(TextBox1.Text)

        TextBox2.Text = ""

        TextBox1.Text = TextBox1.Text & "/"

        ArithmeticProcess = "/"

    End Sub

Keterangan :                                     

Apabila button 16 (/) di click, maka text pada textbox 2 akan hilang dan pada textbox 1 akan muncul tanda / tanpa menghilangkan text pada textbox 1 sebelum button (/) di click

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

        FirstNumber = Val(TextBox1.Text)

        TextBox2.Text = ""

        TextBox1.Text = TextBox1.Text & "*"

        ArithmeticProcess = "*"

    End Sub

Keterangan :                                     

Apabila button 15 (*) di click, maka text pada textbox 2 akan hilang dan pada textbox 1 akan muncul tanda * tanpa menghilangkan text pada textbox 1 sebelum button (*) di click

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

        SecondNumber = Val(TextBox2.Text)

        If ArithmeticProcess = "+" Then

            AnswerNumber = FirstNumber + SecondNumber

            TextBox2.Text = AnswerNumber

        End If

        If ArithmeticProcess = "-" Then

            AnswerNumber = FirstNumber - SecondNumber

            TextBox2.Text = AnswerNumber

        End If

        If ArithmeticProcess = "*" Then

            AnswerNumber = FirstNumber * SecondNumber

            TextBox2.Text = AnswerNumber

        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

            TextBox2.Text = AnswerNumber

        End If

    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

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