MODUL 2 Praktikum Teknik Informatika 2012 Aplikasi Kalkulator

1. Aplikasi Kalkulator

a. Konsep

Kalkultor adalah alat perhitungan untuk memudahkan manusia menghitung suatu bilangan yang terdiri dari angka. Pada aplikasi kalkulator ini memiliki kegunaan antara lain yaitu bagaimana cara melakukan perhitungan fungsi aritmatika yang dibuat pada software Visual Basic 2010 dengan memasukkan listing sebagai source code-nya. Tujuan pembuatan ini adalah untuk memudahkan pengguna dalam perhitungan aritmatika sebab dalam aplikasi kalkulator ini mempunyai fungsi aritmatika. Sasaran dalam pembuatan aplikasi kalkulator ini adalah untuk pengguna agar memudahkan dalam operasi perhitungan. Walaupun pada aplikasi kalkulator ini tentunya tidak lengkap seperti kalkulator yang telah ada saat ini yaitu kalkulator scientific. Fungsi aritmatika yang terdapat pada aplikasi kalkulator ini terdapat fungsi sin, cos, tan, pangkat, akar, plus minus, titik (sebagai desimal), faktorial, eksponensial, ln, dan fungsi log. Berikut merupakan simbol dan kegunaan dari fungsi aritmatika yang terdapat dalam aplikasi kalkulator ini.

1.       Fungsi sin

Fungsi ini untuk mengetahui nilai sin dari suatu bilangan

2.       Fungsi cos

Fungsi ini untuk mengetahui nilai cos dari suatu bilangan

3.       Fungsi tan

Fungsi ini untuk mengetahui nilai tan dari suatu bilangan

4.       Fungsi pangkat (^)

Fungsi ini untuk perpangkatan suatu bilangan

5.       Fungsi pengakaran ()

Fungsi ini untuk mengetahui nilai akar dari suatu bilangan

6.       Fungsi plus minus (±)

Fungsi ini sebenarnya sangat penting dalam perhitungan matematika, untuk merubah nilai positif dan negatif pada suatu bilangan

7.       Fungsi faktorial (!)

Fungsi ini untuk menghitung nilai faktorial dari suatu bilangan

8.       Fungsi eksponensial (e)

Fungsi ini untuk menghitung nilai eksponensial dari suatu bilangan

9.       Fungsi ln

Fungsi ini untuk menghitung nilai ln pada suatu bilangan

10.   Fungsi log

Fungsi untuk menghitung nilai log pada suatu bilangan

Cara kerja pada aplikasi ini yaitu pertama buka aplikasi kalkulator kemudian muncul menu utama yang sudah dapat digunakan untuk proses perhitungan. Kemudian tekan tombol angka yang diinginkan lalu tekan tombol fungsi matematikanya seperti yang telah disebutkan di atas, setelah itu tekan tombol sama dengan (=). Contohnya kita ingin menghitung hasil kuadrat dari 3. Maka yang harus dilakukan adalah tekan angka 3 pada tombol kemudian tekan fungsi matematika yaitu pangkat (^), lalu tekan tombol 2 setelah itu tekan tombol = maka akan keluar hasilnya.

  b. Tutorial Penggunaan Aplikasi Kalkulator

Sebelum menjelaskan bagaimana penggunaan aplikasi kalkulator yang kami buat, kami akan sedikit membahas mengenai fungsi aritmatika apa saja yang ada pada aplikasi ini. Pada menu utama, tampilan kalkulator sudah langsung bisa dioperasikan. Pada layar kalkulator yang merupakan menu utama, terdapat beberapa tombol berupa angka yang terdiri dari angka 0 sampai 9 serta tombol 00 dan fungsi aritmatika seperti titik (untuk tanda desimal), plus minus (±), sin, cos, tan, pengakaran (), pangkat (^), ln, faktorial (n!), log, dan eksponensial (eks), penjumlahan (+) pengurangan (-), perkalian (x), dan pembagian (/), serta tombol sama dengan (=) yang berfungsi sebagai perhitungan hasil akhir dari pengoperasian aritmatika. Selain itu juga ada rumus dasar matematika seperti bagaimana cara menghitung keliling, luas, dan volume.

Berikut langkah-langkah penggunaan kalkulator yang telah kelompok kami buat, selamat menikmati aplikasi ini... ^,^

1.     Saat dibuka aplikasi kalkulator ini, muncul menu utama yang sudah langsung dapat dipakai untuk pengoperasian aritmatika yang terdiri dari tombol-tombol berupa angka dan fungsi operator dan label sebagai layar yang berfungsi untuk menampilkan hasil perhitungan dan penginputan data berupa angka dan fungsi operator.

2.    Pada menu utama terdapat layar yang merupakan tempat untuk menampilkan data input berupa angka yang sudah tersedia dari angko 0 sampai 9 serta tombol 00 dan fungsi aritmatika yaitu ±, ^, , cos, sin, tan, .(untuk desimal), log, eks, ln, !, +, -, x, dan /.

3.    Misalnya saja kita ingin menghitung nilai sin dari 30. Maka langkahnya adalah tekan tombol 3 dan tekan tombol 0 lalu tekan tombol sin, untuk memunculkan hasil perhitungan maka tekan tombol sama dengan (=). Maka secara otomatis muncul hasil dari nilai sin 30.

4.      Lakukan langkah seperti  di atas untuk semua operasi perhitungan yang diinginkan.    Selain itu ada cara untuk menghitung keliling, luas, dan volume.

5.   Untuk menghitung keliling, pada menu utama tekan tombol keliling. Kemudian   ada tiga dimensi yang tersedia untuk mengitung keliling yaitu persegi, persegi panjang, dan lingkaran. Pilih dimensi yang diinginkan, misalnya persegi. Pada textbox 1 (sisi) masukan angka yang diinginkan lalu jika data valid (benar) maka tekan tombol hitung maka hasil akan muncul pada textbox 2 (hasil). Jika sudah selesai perhitungannya tekan tombol kembali maka akan kembali ke menu utama. Sama juga halnya dengan dimensi persegi panjang, pilih dimensi persegi panjang lalu masukan angka pada textbox 1 (panjang) dan textbox 2 (lebar). Jika data yang dimasukkan valid maka dapat mengitung hasilnya dengan cara menekan tombol hitung maka hasil akan muncul pada textbox 3 (hasil). Jika sudah selesai perhitungannya maka tekan tombol kembali untuk ke menu utama. Pada dimensi lingkaran masukan angka pada textbox diameter, jika angka yang dimasukan valid maka dapat menghitung hasilnya dengan cara menekan tombol hitung maka hasilnya akan muncul pada textbox 2. Selanjutnya jika ingin mengakhiri maka tekan tombol kembali, maka akan muncul menu utama.

6. Untuk menghitung luas, pada menu utama klik luas. Terdapat tiga dimensi dari luas yaitu, persegi, persegi panjang, dan segitiga. jika memilih untuk menghitung persegi maka masukan angka pada textbox sisi. Jika angka yang dimasukan valid maka dapat menghitung hasilnya dengan cara klik tombol hitung maka hasilnya akan muncul pada textbox hasil. Jika sudah selesai maka klik tombol kembali ke menu utama. Jika memilih dimensi persegi panjang, masukan angka pada textbox panjang dan lebar. Jika angka yang dimasukan valid maka dapat dihitung dengan cara menekan tombol hitung maka hasilnya akan muncul pada textbox hasil, namun jika angka yang dimasukan tidak valid maka harus memasukan angka lagi pada textbox panjang dan lebar. Jika ingin menyudahi perhitungan tekan tombol kembali. Jika ingin menghitung luas segitiga maka masukan angka pada alas dan tinggi, jika angka yang dimasukan valid maka dapat melakukan proses perhitungan dengan cara menekan tombol hitung maka hasilnya akan muncul pada textbox hasil. Jika angka yang dimasukan tidak valid maka masukan lagi angka yang valid pada textbox alas dan tinggi. Setelah selesai menghitung tekan tombol kembali, maka akan kembali ke menu utama.

7. Untuk menghitung volume, pada menu utama klik volume. Terdapat tiga dimensi untuk menghitung volume yaitu, kubus, balok, dan kerucut. Jika memilih dimensi kubus maka masukan angka pada textbox sisi. Jika angka yang dimasukan valid maka dapat menghitung dengan cara menekan tombol hitung maka hasilnya akan muncul pada textbox hasil, jika angka yang dimasukan tidak valid maka harus mengisi angka yang valid pada textbox sisi. Setelah selesai melakukan perhitungan maka tekan tombol kembali ke menu utama. Pada dimensi balok, masukan angka pada textbox panjang, lebar, dan tinggi. Jika angka yang dimasukan valid maka dapat melakukan proses perhitungan dengan cara menekan tombol hitung. Jika angka yang dimasukan tidak valid maka harus mengisi angka yang valid pada textbox panjang, lebar, dan tinggi. Setelah selesai melakukan perhitungan volume pada dimensi yang diinginkan maka tekan tombol kembali yang akan kembali pada menu utama.

Langkah-langkah di atas merupakan cara bagaimana menggunakan aplikasi perhitungan dengan menggunakan kalkulator. Intinya dalam penggunaan aplikasi kalkulator ini tinggal tekan tombol angka yang ingin dihitung lalu tekan tombol fungsi aritmatika yang dibutuhkan kemudian masukan angka kedua lalu tekan tombol sama dengan (=) maka secara otomatis pada layar akan muncul hasil dari pengoperasian aritmatika yang telah di-input-kan datanya tadi. 

c. Deskripsi Listing

FORM 1

Pada form 1 klik dua kali, lalu masukan listng berikut:

Public Class form1

    Dim number1, number2, answer As Single

    Dim aritmatikproses As String

Untuk menampilkan angka 1 klik button 1 dua kali, lalu masukan listing berikut

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

        Label1.Text = Label1.Text & "1"

    End Sub

Untuk menampilkan angka 2 klik button 2 dua kali, lalu masukan listing berikut

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

        Label1.Text = Label1.Text & "2"

    End Sub

Untuk menampilkan angka 3 klik button 3 dua kali, lalu masukan listing berikut

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

        Label1.Text = Label1.Text & "3"

    End Sub

Untuk menampilkan angka 4 klik button 4 dua kali, lalu masukan listing berikut

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

        Label1.Text = Label1.Text & "4"

    End Sub

Untuk menampilkan angka 5 klik button 5 dua kali, lalu masukan listing berikut

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

        Label1.Text = Label1.Text & "5"

    End Sub

Untuk menampilkan angka 6 klik button 6 dua kali, lalu masukan listing berikut

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

        Label1.Text = Label1.Text & "6"

    End Sub

Untuk menampilkan angka 7 klik button 7 dua kali, lalu masukan listing berikut

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

        Label1.Text = Label1.Text & "7"

    End Sub

Untuk menampilkan angka 8 klik button 8 dua kali, lalu masukan listing berikut

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

        Label1.Text = Label1.Text & "8"

    End Sub

Untuk menampilkan angka 9 klik button 9 dua kali, lalu masukan listing berikut

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

        Label1.Text = Label1.Text & "9"

    End Sub

Untuk menampilkan koma klik button 10 dua kali, lalu masukan listing berikut

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

        Label1.Text = Label1.Text & "."

    End Sub

Untuk mengosongkan layar tampilan klik button 12 dua kali lalu masukan listing berikut

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

        Label1.Text = ""

        Label2.Text = ""

    End Sub

Untuk menampilkan angka 0, klik button 11 dua kali lalu masukkan listing berikut:

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

        Label1.Text = Label1.Text & "0"

    End Sub

                     

Untuk menggunakan operasi penjumlahan, klik button 15 dua kali lalu masukkan listing berikut:

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

      

        number1 = Val(Label1.Text)

        Label2.Text = Label1.Text & " " & "+"

        Label1.Text = ""

        aritmatikproses = "+"

    End Sub

Untuk menggunakan operasi pengurangan, klik button 16 dua kali lalu masukkan listing berikut:

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

        number1 = Val(Label1.Text)

        Label2.Text = Label1.Text & " " & "-"

        Label1.Text = ""

        aritmatikproses = "-"

    End Sub

Untuk menggunakan operasi perkalian, klik button 14 dua kali lalu masukkan listing berikut:

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

        number1 = Val(Label1.Text)

        Label2.Text = Label1.Text & " " & "X"

        Label1.Text = ""

        aritmatikproses = "X"

    End Sub

Untuk menggunakan operasi pembagian, klik button 13 dua kali lalu masukkan listing berikut:

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

        number1 = Val(Label1.Text)

        Label2.Text = Label1.Text & " " & "/"

        Label1.Text = ""

        aritmatikproses = "/"

    End Sub

Untuk menggunakan operasi perhitungan sinus, klik button 20 dua kali lalu masukkan listing berikut:

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

        Label2.Text = "Sin" & " " & Label1.Text

        Label1.Text = Math.Sin(Label1.Text * (Math.PI / 180))

       

    End Sub

Untuk menggunakan operasi perhitungan cosinus, klik button 18 dua kali lalu masukkan listing berikut:

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click

        Label2.Text = "Cos" & " " & Label1.Text

        Label1.Text = Math.Cos(Label1.Text * (Math.PI / 180))

    End Sub

Untuk menggunakan operasi perhitungan tangen, klik button 17 dua kali lalu masukkan listing berikut:

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

        Label2.Text = "tan" & " " & Label1.Text

        Label1.Text = Math.Tan(Label1.Text * (Math.PI / 180))

    End Sub

Untuk menggunakan operasi perhitungan pangkat, klik button 21 dua kali lalu masukkan listing berikut:

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

        number1 = Val(Label1.Text)

        Label2.Text = Label1.Text & " " & "^"

        Label1.Text = ""

        aritmatikproses = "^"

    End Sub

Untuk menggunakan operasi perhitungan akar, klik button 22 dua kali lalu masukkan listing berikut:

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

        number1 = Val(Label1.Text)

        Label2.Text = "√" & " " & Label1.Text

        Label1.Text = Label1.Text ^ 0.5

        aritmatikproses = "√"

    End Sub

Untuk menggunakan operasi perhitungan log, klik button 23 dua kali lalu masukkan listing berikut:

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

        Label2.Text = "log" & " " & Label1.Text

        Label1.Text = Math.Log10(Label1.Text)

    End Sub

Untuk menggunakan operasi perhitungan ln, klik button 24 dua kali lalu masukkan listing berikut:

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

        number1 = Val(Label1.Text)

        Label2.Text = "ln" & " " & Label1.Text

        Label1.Text = ""

        aritmatikproses = "ln"

    End Sub

Untuk menggunakan operasi perhitungan exponential, klik button 27 dua kali lalu masukkan listing berikut:

    Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click

        number1 = Val(Label1.Text)

        Label2.Text = Label1.Text & " " & "e"

        Label1.Text = ""

        aritmatikproses = "exp"

    End Sub

Untuk mengubah angka dalam tampilan dari positif menjadi negatif, klik button 25 dua kali lalu masukkan listing berikut:

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

        Label1.Text = Label1.Text * -1

    End Sub

Untuk menampilkan angka  00, klik button 31 dua kali lalu masukkan listing berikut:

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

        Label1.Text = Label1.Text & "00"

    End Sub

untuk menggunakan operasi faktorial, klok button 26 dua kali dan masukkan listing berikut:

Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click

        Label2.Text = Label1.Text & "!"

        Dim A As Double

        Dim i As Double

        A = 1

        For i = 1 To Label1.Text

            A = A * i

            On Error Resume Next

            Label1.Text = Str(A)

            answer = Label1.Text

            Label1.Text = answer

        Next

    End Sub

Untuk menampilkan hasil perhitungan klik button 15 dua kali lalu masukan listing berikut

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click

        number2 = Val(Label1.Text)

        If aritmatikproses = "+" Then

            answer = number1 + number2

            Label1.Text = answer

            Label2.Text = Label2.Text & " " & number2 & "="

        End If

        If aritmatikproses = "-" Then

            answer = number1 - number2

            Label1.Text = answer

            Label2.Text = Label2.Text & " " & number2 & "="

        End If

        If aritmatikproses = "X" Then

            answer = number1 * number2

            Label1.Text = answer

            Label2.Text = Label2.Text & " " & number2 & "="

        End If

        If aritmatikproses = "/" Then

            answer = number1 / number2

            Label1.Text = answer

            Label2.Text = Label2.Text & " " & number2 & "="

        End If

        If aritmatikproses = "/" Then

            If number2 = 0 Then

                MsgBox("cann't devide by zero", 0, "ulang lagi")

                Label1.Text = "error"

            End If

        End If

      

        If aritmatikproses = "^" Then

            answer = number1 ^ number2

            Label2.Text = answer

            Label1.Text = ""

        End If

        If aritmatikproses = "√" Then

            answer = number1 ^ 0.5

            Label2.Text = answer

            Label1.Text = ""

        End If

        If aritmatikproses = "ln" Then

            answer = Math.Log(Label1.Text)

            Label2.Text = answer

            Label1.Text = ""

        End If

        If aritmatikproses = "exp" Then

            answer = number1 * (10 ^ number2)

            Label2.Text = answer

            Label1.Text = ""

        End If

      

    End Sub

Untuk menampilkan form 2 dan menghitung luas suatu benda, klik button 29 dua kali lalu masukkan listing berikut:

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

        Form2.Show()

    End Sub

Untuk menampilkan form 3 dan menghitung volume suatu benda, klik button 28 dua kali lalu masukkan listing berikut:

    Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.Click

        Form3.Show()

    End Sub

Untuk menampilkan form 4 dan menghitung keliling suatu benda, klik button 30 dua kali lalu masukkan listing berikut:

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

        Form4.Show()

    End Sub

    Untuk mengaktifasi semua button di aplikasi kalkulator, klik button 32 dua kali dan masukkan listing berikut:

   

    Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button32.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

        Button24.Enabled = True

        Button25.Enabled = True

        Button26.Enabled = True

        Button27.Enabled = True

        Button28.Enabled = True

        Button29.Enabled = True

        Button30.Enabled = True

        Button31.Enabled = True

        Button32.Enabled = True

        Label2.Text = "0"

    End Sub

Untuk men-non-aktifasi semua button yang ada di aplikasi kalkulator, klik button 33 dua kali lalu masukkan listing berikut:

    Private Sub Button33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button33.Click

        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

        Button24.Enabled = False

        Button25.Enabled = False

        Button26.Enabled = False

        Button27.Enabled = False

        Button28.Enabled = False

        Button29.Enabled = False

        Button30.Enabled = False

        Button31.Enabled = False

 Button34.Enabled = False

        Label1.Text = ""

        Label2.Text = ""

    End Sub

    Untuk menghapus angka dalam tampilan, klik button 34 dua kali lalu masukkan listing berikut:

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

         Label1.Text = Label1.Text.Remove(Label1.Text.Length - 1, 1)

    End Sub

Untuk menampilkan form2 yang yang berfungsi melakukan perhitungan luas, klik tool strip menu item luas dua kali lalu masukkan listing berikut:

    Private Sub luasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StandarToolStripMenuItem.Click

        Form2.Show()

    End Sub

Untuk menampilkan form3 yang yang berfungsi melakukan perhitungan luas, klik tool strip menu item volume dua kali lalu masukkan listing berikut:

    Private Sub VolumeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VolumeToolStripMenuItem.Click

        Form3.Show()

    End Sub

Untuk menampilkan form4 yang yang berfungsi melakukan perhitungan luas, klik tool strip menu item keliling dua kali lalu masukkan listing berikut:

    Private Sub KelilingToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KelilingToolStripMenuItem.Click

        Form3.Show()

    End Sub

Untuk keluar dari aplikasi, klik tool strip menu item exit dua kali lalu amsukkan listing berikut:

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click

        If MsgBox("Yakin mau keluar?", MsgBoxStyle.OkCancel, "Keyakinan") = MsgBoxResult.Ok Then

            Me.Close()

        End If

    End Sub

Untuk memberi pilihan bantuan pada aplikasi, klik tool strip menu item penggunaan dua kali lalu masukkan listing berikut:

    Private Sub PenggunaanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PenggunaanToolStripMenuItem.Click

        If MsgBox("Yakin Butuh Bantuan?", MsgBoxStyle.OkCancel, "Keyakinan") = MsgBoxResult.Ok Then

            Form5.Show()

        End If

    End Sub

fORM 2       

Untuk menghitung operasi perhitungan luas persegi, klik button1 dua kali lalu masukkan listing berikut:

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

        Dim sisi As Integer

        Dim hasil As Integer

        sisi = TextBox1.Text

        hasil = TextBox1.Text ^ 2

        TextBox2.Text = hasil

        If sisi < 0 Then

            TextBox2.Text = "Data Anda Salah"

        End If

             

    End Sub

Untuk kembali ke aplikasi kalkulator, klik button4 dua kali lalu masukkan listing berikut:

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

        form1.Show()

        Me.Hide()

    End Sub

untuk menghitung operasi perhitungan luas persegi panjang, klik button2 dua kali lalu masukkan listing berikut:

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

        Dim panjang As Integer

        Dim lebar As Integer

        Dim hasil As Integer

        panjang = TextBox3.Text

        lebar = TextBox4.Text

        hasil = panjang * lebar

        TextBox5.Text = hasil

        If TextBox3.Text < 0 Then

            TextBox5.Text = "Data Anda Salah"

        End If

        If TextBox4.Text < 0 Then

            TextBox5.Text = "Data Anda Salah"

        End If

    End Sub

Untuk kembali ke aplikasi kalkulator, klik button5 dua kali lalu masukkan listing berikut:

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

        form1.Show()

        Me.Hide()

    End Sub

Untuk menghitung operasi perhitungan luas segitiga, klik button3 dua kali lalu masukkan listing berikut:

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

        Dim alas As Integer

        Dim tinggi As Integer

        Dim hasil As Integer

        alas = TextBox6.Text

        tinggi = TextBox7.Text

        hasil = alas * tinggi * 0.5

        TextBox8.Text = hasil

        If TextBox6.Text < 0 Then

            TextBox8.Text = "Data Anda Salah"

        End If

        If TextBox7.Text < 0 Then

            TextBox8.Text = "Data Anda Salah"

        End If

    End Sub

Untuk kembali ke aplikasi kalkulator, klik button6 dua kali lalu masukkan listing berikut:

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

        form1.Show()

        Me.Hide()

    End Sub

FORM 3

Untuk menghitung operasi perhitungan volume kubus, klik button1 dua kali lalu masukkan listing berikut:

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

        Dim sisi As Integer

        Dim hasil As Integer

        sisi = TextBox1.Text

        hasil = sisi ^ 3

        TextBox2.Text = hasil

        If TextBox1.Text < 0 Then

            TextBox2.Text = "Data Anda Salah"

        End If

    End Sub

Untuk menampilkan aplikasi kalkulator klik button2 dua kali, lalu masukkan listng berikut:

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

        form1.Show()

        Me.Hide()

    End Sub

Untuk menghitung operasi perhitungan volume balok, klik button1 dua kali lalu masukkan listing berikut:

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

        Dim panjang As Integer

        Dim lebar As Integer

        Dim tinggi As Integer

        Dim hasil As Integer

        panjang = TextBox3.Text

        lebar = TextBox4.Text

        tinggi = TextBox5.Text

        hasil = panjang * lebar * tinggi

        TextBox6.Text = hasil

        If TextBox3.Text < 0 Then

            TextBox6.Text = "Data Anda Salah"

        End If

        If TextBox4.Text < 0 Then

            TextBox6.Text = "Data Anda Salah"

        End If

        If TextBox5.Text < 0 Then

            TextBox6.Text = "Data Anda Salah"

        End If

    End Sub

                        

Untuk menampilkan aplikasi kalkulator klik button4 dua kali, lalu masukkan listng berikut:

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

        form1.Show()

        Me.Hide()

    End Sub

Untuk menghitung operasi perhitungan volume kerucut, klik button1 dua kali lalu masukkan listing berikut:

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

        Dim R As Integer

        Dim tinggi As Integer

        Dim hasil As Integer

        R = TextBox7.Text

        tinggi = TextBox8.Text

        hasil = (((1 / 3) * (22 / 7)) * ((R ^ 2) * tinggi))

        TextBox9.Text = hasil

        If TextBox7.Text < 0 Then

            TextBox9.Text = "Data Anda Salah"

        End If

        If TextBox8.Text < 0 Then

            TextBox9.Text = "Data Anda Salah"

        End If

    End Sub

Untuk menampilkan aplikasi kalkulator klik button6 dua kali, lalu masukkan listng berikut:

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

        form1.Show()

        Me.Hide()

    End Sub

FORM 4

Untuk melakukan operasi perhitungan keliling persegi, klik button 1 dua kali, lalu masukkan listing berikut:

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

        Dim sisi As Integer

        Dim hasil As Integer

        sisi = TextBox1.Text

        hasil = TextBox1.Text * 4

        TextBox2.Text = hasil

        If TextBox1.Text < 0 Then

            TextBox2.Text = "Data Anda Salah"

        End If

    End Sub

Untuk menampilkan aplikasi kalkulator klik button2 dua kali, lalu masukkan listng berikut:

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

        form1.Show()

        Me.Hide()

    End Sub

Untuk melakukan operasi perhitungan keliling persegi panjang, klik button 1 dua kali, lalu masukkan listing berikut:

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

        Dim panjang As Integer

        Dim lebar As Integer

        Dim hasil As Integer

        panjang = TextBox3.Text

        lebar = TextBox4.Text

        hasil = (panjang * 2) + (lebar * 2)

        TextBox5.Text = hasil

        If TextBox3.Text < 0 Then

            TextBox5.Text = "Data Anda Salah"

        End If

        If TextBox4.Text < 0 Then

            TextBox5.Text = "Data Anda Salah"

        End If

    End Sub

Untuk menampilkan aplikasi kalkulator klik button4 dua kali, lalu masukkan listng berikut:

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

        form1.Show()

        Me.Hide()

    End Sub

Untuk melakukan operasi perhitungan keliling lingkaran, klik button 1 dua kali, lalu masukkan listing berikut:

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

        Dim Diameter As Integer

        Dim hasil As Integer

        Diameter = TextBox6.Text

        hasil = (22 / 7) * (Diameter)

        TextBox7.Text = hasil

        If TextBox6.Text < 0 Then

            TextBox7.Text = "Data Anda Salah"

        End If

    End Sub

Untuk menampilkan aplikasi kalkulator klik button6 dua kali, lalu masukkan listng berikut:

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

        form1.Show()

        Me.Hide()

    End Sub

FORM 5

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

        Dim sisi As Integer

        Dim hasil As Integer

        sisi = TextBox1.Text

        hasil = TextBox1.Text * 4

        TextBox2.Text = hasil

        If TextBox1.Text < 0 Then

            TextBox2.Text = "Data Anda Salah"

        End If

    End Sub

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

        form1.Show()

        Me.Hide()

    End Sub

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

        Dim panjang As Integer

        Dim lebar As Integer

        Dim hasil As Integer

        panjang = TextBox3.Text

        lebar = TextBox4.Text

        hasil = (panjang * 2) + (lebar * 2)

        TextBox5.Text = hasil

        If TextBox3.Text < 0 Then

            TextBox5.Text = "Data Anda Salah"

        End If

        If TextBox4.Text < 0 Then

            TextBox5.Text = "Data Anda Salah"

        End If

    End Sub

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

        form1.Show()

        Me.Hide()

    End Sub

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

        Dim Diameter As Integer

        Dim hasil As Integer

        Diameter = TextBox6.Text

        hasil = (22 / 7) * (Diameter)

        TextBox7.Text = hasil

        If TextBox6.Text < 0 Then

            TextBox7.Text = "Data Anda Salah"

        End If

    End Sub

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

        form1.Show()

        Me.Hide()

    End Sub

  d. Flowchart Aplikasi Kalkulator

Flowchart Aplikasi Kalkulator

Gambar Flowchart Aplikasi Kalkulator

Berikut penjelasan mengenai flowchart (diagram aliran) pada aplikasi kalkulator:

1.       Start : Memulai aplikasi

2.       Ada tiga proses yaitu,

·         Keliling: untuk menghitung keliling

·         Luas: untuk menghitung luas

·         Volume: untuk menghitung volume

Sedangkan pada perhitungan biasa yaitu kalkulator digunakan untuk menghitung fungsi aritmatika yang terdiri dari sin, cos, tan, ln, n!, ±, ^, , log, dan eksponensial, serta +, -, /, dan x (operasi dasar matematika) yang mempunyai peranan sebagai menu utama, di mana ketika pertama kali membuka aplikasi ini langsung dapat memasukan data.

3.       Pada kalkulator (menu utama), pertama inputkan data berupa angka yang tersedia pada tombol, kemudian tekan tombol operator yang diinginkan lalu masukan data yang berupa angka kedua (second number) setelah itu tekan tombol sama dengan (=) yang merupakan proses. Setelah hasilnya keluar maka dapat menekan tombol clear yang merupakan proses yang akan kembali pada menu utama untuk melanjutkan perhitungan kembali atau dapat juga mengakhiri program setelah hasil perhitungan muncul.

4.       Kedua adalah keliling. Ada tiga benda untuk menghitung keliling yaitu, persegi, persegi panjang, dan lingkaran. Pilih dimensi yang dibutuhkan, kemudian masukan angka yang diinginkan berupa sisi, panjang, lebar, dan diameter  yang merupakan input data hingga muncul angkanya, kemudian akan dihadapkan pada pilihan jika angka yang dimasukan valid maka lanjut ke tombol hitung selanjutnya hasilnya akan muncul, jika angka tidak valid maka harus melakukan penginputan kembali angka yang valid. Setelah hasilnya keluar maka kembali pada start, awal memulai program baik untuk mengulang perhitungan lagi atau mengakhiri program tetap harus ke awal menu penginputan datanya pada menu utama.

5.       Ketiga adalah luas. Ada tiga pilihan untuk menghitung luas yaitu, persegi, persegi panjang, dan segitiga. Pilih dimensi yang diinginkan, kemudian masukan angka, bila angkanya valid maka lanjut pilih tombol hitung bila angka yang dimasukan tidak valid maka akan kembali ke pengisiian angka yang valid. Setelah hasilnya keluar maka kembali pada start, awal memulai program baik untuk mengulang perhitungan lagi atau ingin mengakhiri program tetap harus ke awal menu penginputan datanya pada menu utama.

6.       Keempat adalah volume. Ada tiga pilihan untuk menghitung volume yaitu, kubus, balok, dan kerucut. Pilih dimensi yang diinginkan, kemudian masukan angka, jika angkanya valid maka lanjut pilih tombol hitung yang hasilnya akan muncul pada label. Jika angka tidak valid maka harus menginputkan angka yang valid pada textbox yang tersedia. Setelah hasilnya keluar maka kembali pada start, awal memulai program baik untuk mengulang perhitungan lagi atau mengakhiri program tetap harus ke menu penginputan datanya pada menu utama.

Di atas adalah konsep, tutorial, deskripsi listing, penjelasan mengenai diagram aliran dari aplikasi kalkulator. Jika ingin mendownload aplikasi ini silahkan klik link di sini . Semoga bermanfaat bagi yang membaca dan mencobanya. Terima kasih..