look at me

SELAMAT DATANG MAS, MBAK, OM, TANTE, PAKDHE,BUDHE DAN SEMUANYA

Minggu, 14 Oktober 2012

Aplikasi Berhitung

        "Aplikasi Berhitung"  merupkan aplikasi menarik yang dibuat untuk memenuhi tugas yang diberikan oleh dosen mata kuliah Pemrograman Visual (Pak Nandang Hermanto) saya. Aplikasi ini berfungsi untuk melakukan beberapa operasi perhitungan sederhana, seperti mencari luas suatu bangun datar dan di dalamnya terdapat aplikasi "Kalkulator Nyentrik". Saya mengatakannnya "nyentrik" memang dikarenakan kalkulator yang saya buat sudah cukup pintar dan unik. Untuk lebih jelasnya berikut pembahasan satu persatu fitur yang dimiliki aplikasi ini.


  • MENU UTAMA
           Ini adalah tampilan awal ketika aplikasi ini dijalankan. Di sana terdapat dua pilihan sub-menu yaitu "Luas Bangun Datar" yang nantinya pengguna akan dibawa ke form yang khusus untuk melakukan perhitungan luas beberapa bangun datar, Sementara sub-menu "Kalkulator Nyentrik" akan membawa ke sebuah kalkulator yang unik. Selain kedua menu tersebut di sana juga terdapat dua tombol tambahan
          Tombol berwarna biru

           Tombol ini akan menampilkan informasi mengenai aplikasi ini

 
         Tombol berwarna Merah
          
         Tombol ini digunakan untuk keluar dari aplikasi

  • LUAS BANGUN DATAR
   
      Aplikasi ini memudahkan pengguna untuk menghitung luas suatu bangun datar, sementara bangun datar yang tersedia hanya 4 (Segi tiga, Persegi, Jajar Genjang, dan Lingkaran). Cara kerjanya pengguna hanya cukup memasukkan data-data yang dibutuhkan seperti panjang, lebar, alas, atau yang lainnya. Di sana juga terdapat gambar ilustrasi bangun yang dimaksud sehingga pengguna akan mengerti bangun yang dimaksud beserta komponen-komponennya. Jika pengguna sudah mengentri data-data yang dibutuhkan dalam perhitungan maka langsung saja tekan tombol "Hitung Luas" maka hasil akan tampil pada textbox luas. Untuk menghapus semua masukkan dan keluaran tekan saja tombol "hapus". Untuk memilih bangun datar yang lain pengguna cukup memilih tab yang tersedia pada menu tersebut.
        Untuk lebih jelasnya berikut adalah contoh penggunaannya :


 Untuk kembali ke menu utama cukup menekan tombol panah yang ada di sebelah pojok kanan atas.
  • KALKULATOR NYENTRIK

          
           Kalkulator ini saya sebut "nyentrik" karena memang unik. Terdapat dua mode kalkulator yang tersedia, yaitu Kalkulator Aritmatik dan Kalkulator Jodoh. Warna-warna yang variatif membuat kalkulator ini unik dan membuat pengguna betah menggunakannya.
             Kalkulator aritmatik digunakan untuk melakukan perhitungan-perhitungan standar pada matematika, seperti penjumlahan,  pengurangan, perkalian, pembagian serta perpangkatan, cara menggunankannya pun sangat mudah, Anda cukup memasukkan operand pertama pada bagian "Angka #1" dan operand kedua pada "Angka #2", perlu diingat, operand harus bertipe angka, jika pengguna mencoba memasukkan operand selain tipe angka maka akan ada peringatan mengenai operand tersebut. Setelah menginputkan operand berikutnya langsung saja pilih operator yang dikehendaki (+, -, x, / atau ^) maka hasil akan ditampilkan pada bagian hasil. Untuk menghapus masukkan dan keluaran pengguna cukup menekan tombol "Hps".
            Berikut contoh penggunaan kalkulator aritmatik tersebut
Contoh tersebut menggambarkan contoh operasi perkalian antara 8 dan -9. Untuk kembali ke menu utama cukup menekan tombol panah yang ada di sebelah pojok kanan atas.


  • KALKULATOR JODOH
 

Kalkulator ini merupakan andalan saya untuk memperkaya keunikan dari aplikasi yang saya buat. Cara penggunaannya cukup mudah, pengguna hanya tinggal memasukkan nama pria dan nama wanita di tempat yang disediakan. dan lihat hasil apa yang akan ditampilkan. Untuk kembali ke menu utama, sama seperti yang lain, cukup menggunakan gambar panah yang tersedia.

     Sebagai informasi tambahan, aplikasi ini dibuat menggunakan bahasa visual basic, dan saya membangunnya menggunakan Visual Studio 2010. Komponen-komponen yang saya gunakan adalah
  1. Form (dalam hal ini saya menggunakan 3 form yang terdiri dari 1 halaman utama dan 2 halaman sub-menu)
  2. Label
  3. Textbox
  4. Button
  5. Radio Button
Nah untuk syntak masing-masing formnya adalah sebagai berikut:
  • Untuk Form Menu utama
 Public Class Form_Menu_Utama

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Bt_Volume_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Asterisk)

    End Sub

    Private Sub ToolTip1_Popup(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PopupEventArgs)


    End Sub

    Private Sub Bt_Luas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Luas.Click
        My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Asterisk)
        Form_Luas.Show()
        Me.Hide()
    End Sub

    Private Sub Bt_Kalkulator_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Kalkulator.Click
        My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Asterisk)
        Form_Kalkulator.Show()
        Me.Hide()
    End Sub

    Private Sub Bt_Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Keluar.Click
        My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Hand)
        If MsgBox("Anda yakin keluar ?", vbYesNo + vbCritical + vbDefaultButton2, "Peringatan") = vbYes Then
            Me.Close()
        End If

    End Sub

    Private Sub Bt_Help_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Help.Click

        My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Exclamation)

        MsgBox("Aplikasi ini dgunakan untuk operasi perhitungan sederhana : " & vbNewLine & vbNewLine & _
"1.  Menghitung luas beberapa jenis bangun datar" & vbNewLine & _
"2.  Penggunaan kalkulator sederhana", MsgBoxStyle.Information, "Informasi Aplikasi")

    End Sub
End Class

  • Form Menu Luas Bangun Datar
Public Class Form_Luas



    Private Sub Bt_Back_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Form_Menu_Utama.Show()
        Me.Hide()
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_Alas.TextChanged

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Beep)
        Dim alas As Double
        Dim tinggi As Double
        Dim luas As Double

        Try
            alas = Double.Parse(txt_Alas.Text)
        Catch ex As Exception
            alas = 0
            MsgBox("alas tidak bertipe angka", vbCritical + MsgBoxStyle.OkOnly, "Kesalahan")
        End Try

        Try
            tinggi = Double.Parse(txt_Tinggi.Text)
        Catch ex As Exception
            tinggi = 0
            MsgBox("tinggi tidak bertipe angka", vbCritical + MsgBoxStyle.OkOnly, "Kesalahan")
        End Try

        luas = tinggi * alas * 0.5

        txt_Luas.Text = luas
    End Sub

    Private Sub bt_Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Hapus.Click
        My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Asterisk)
        txt_Alas.Clear()
        txt_Luas.Clear()
        txt_Tinggi.Clear()
        txt_Alas.Focus()
    End Sub

    Private Sub Bt_Back_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Back.Click
        Form_Menu_Utama.Show()
        Me.Hide()
    End Sub



    Private Sub bt_Luas_Persegi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Luas_Persegi.Click
        My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Beep)
        Dim panjang As Double
        Dim lebar As Double
        Dim luas_persegi As Double

        Try
            panjang = Double.Parse(txt_Panjang.Text)
        Catch ex As Exception
            panjang = 0
            MsgBox("panjang tidak bertipe angka", vbCritical + MsgBoxStyle.OkOnly, "Kesalahan")
        End Try

        Try
            lebar = Double.Parse(txt_Lebar.Text)
        Catch ex As Exception
            lebar = 0
            MsgBox("lebar tidak bertipe angka", vbCritical + MsgBoxStyle.OkOnly, "Kesalahan")
        End Try

        luas_persegi = panjang * lebar

        txt_Luas_Persegi.Text = luas_persegi
    End Sub

    Private Sub bt_Hapus_Persegi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Hapus_Persegi.Click
        My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Asterisk)
        txt_Panjang.Clear()
        txt_Lebar.Clear()
        txt_Luas_Persegi.Clear()
        txt_Panjang.Focus()
    End Sub

    Private Sub bt_Luas_Jajar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Luas_Jajar.Click
        My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Beep)
        Dim alas_jajar As Double
        Dim tinggi_jajar As Double
        Dim luas_jajar As Double

        Try
            alas_jajar = Double.Parse(txt_Alas_Jajar.Text)
        Catch ex As Exception
            alas_jajar = 0
            MsgBox("alas tidak bertipe angka", vbCritical + MsgBoxStyle.OkOnly, "Kesalahan")
        End Try

        Try
            tinggi_jajar = Double.Parse(txt_Tinggi_Jajar.Text)
        Catch ex As Exception
            tinggi_jajar = 0
            MsgBox("tinggi tidak bertipe angka", vbCritical + MsgBoxStyle.OkOnly, "Kesalahan")
        End Try

        luas_jajar = tinggi_jajar * alas_jajar

        txt_Luas_Jajar.Text = luas_jajar
    End Sub

    Private Sub bt_Hapus_Jajar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Hapus_Jajar.Click
        My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Asterisk)
        txt_Alas_Jajar.Clear()
        txt_Tinggi_Jajar.Clear()
        txt_Luas_Jajar.Clear()
        txt_Alas_Jajar.Focus()
    End Sub


    Private Sub bt_Luas_Lingkaran_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Luas_Lingkaran.Click
        My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Beep)

        Const phi As Double = 22.0 / 7.0
        Dim r As Double
        Dim luas_Lingkaran As Double

        Try
            r = Convert.ToDouble(txt_jari.Text)
        Catch ex As Exception
            r = 0
            MsgBox("jari-jari tidak bertipe angka", vbCritical + MsgBoxStyle.OkOnly, "Kesalahan")
        End Try


        luas_Lingkaran = phi * (r ^ 2)

        txt_Luas_Lingkaran.Text = luas_Lingkaran
    End Sub

    Private Sub bt_Hapus_Lingkaran_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Hapus_Lingkaran.Click
        My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Asterisk)
        txt_jari.Clear()
        txt_Luas_Lingkaran.Clear()
        txt_jari.Focus()
    End Sub
End Class
  •   Form Kalkulator Nyentrik
Public Class Form_Kalkulator

    Private Sub Form_Kalkulator_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        bt_Generate.Visible = False
    End Sub

    Private Sub bt_kembali_kalkulator_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_kembali_kalkulator.Click
        Form_Menu_Utama.Show()
        Me.Hide()
    End Sub

    Private Sub rd_arit_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rd_arit.CheckedChanged
        Kal.Text = "Kalkulator Aritmatik"
        lbl_1.Text = "Angka #1"
        lbl_2.Text = "Angka #2"
        bt_tambah.Visible = True
        bt_kurang.Visible = True
        bt_kali.Visible = True
        bt_bagi.Visible = True
        bt_hapus.Visible = True
        bt_pangkat.Visible = True
        bt_Generate.Visible = False
        lbl_hsl.Visible = True
        TextBox3.Visible = True
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox1.Focus()
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        Kal.Text = "Kalkulator Jodoh"
        lbl_1.Text = "Nama pria"
        lbl_2.Text = "Nama wanita"
        bt_tambah.Visible = False
        bt_kurang.Visible = False
        bt_kali.Visible = False
        bt_bagi.Visible = False
        bt_pangkat.Visible = False
        bt_hapus.Visible = False
        bt_Generate.Visible = True
        lbl_hsl.Visible = False
        TextBox3.Visible = False
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox1.Focus()
    End Sub


    Private Sub bt_Generate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Generate.Click
        MsgBox("Hahahaha...." & vbNewLine & "Hari gini masih percaya ama yang ginian???", MsgBoxStyle.Question, "Wkwkwkwk")
    End Sub

    Private Sub bt_tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_tambah.Click
        Dim angka1, angka2, hasil As Double

        Try
            angka1 = Convert.ToDouble(TextBox1.Text)
        Catch ex As Exception
            angka1 = 0
            TextBox1.Text = 0
            MsgBox("angka pertama tidak bertipe angka", vbCritical + MsgBoxStyle.OkOnly, "Kesalahan")
        End Try

        Try
            angka2 = Convert.ToDouble(TextBox2.Text)
        Catch ex As Exception
            angka2 = 0
            TextBox2.Text = 0
            MsgBox("angka kedua tidak bertipe angka", vbCritical + MsgBoxStyle.OkOnly, "Kesalahan")
        End Try

        hasil = angka1 + angka2
        TextBox3.Text = hasil
    End Sub

    Private Sub bt_kurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_kurang.Click
        Dim angka1, angka2, hasil As Double

        Try
            angka1 = Convert.ToDouble(TextBox1.Text)
        Catch ex As Exception
            angka1 = 0
            TextBox1.Text = 0
            MsgBox("angka pertama tidak bertipe angka", vbCritical + MsgBoxStyle.OkOnly, "Kesalahan")
        End Try

        Try
            angka2 = Convert.ToDouble(TextBox2.Text)
        Catch ex As Exception
            angka2 = 0
            TextBox2.Text = 0
            MsgBox("angka kedua tidak bertipe angka", vbCritical + MsgBoxStyle.OkOnly, "Kesalahan")
        End Try

        hasil = angka1 - angka2
        TextBox3.Text = hasil
    End Sub

    Private Sub bt_kali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_kali.Click
        Dim angka1, angka2, hasil As Double

        Try
            angka1 = Convert.ToDouble(TextBox1.Text)
        Catch ex As Exception
            angka1 = 0
            TextBox1.Text = 0
            MsgBox("angka pertama tidak bertipe angka", vbCritical + MsgBoxStyle.OkOnly, "Kesalahan")
        End Try

        Try
            angka2 = Convert.ToDouble(TextBox2.Text)
        Catch ex As Exception
            angka2 = 0
            TextBox2.Text = 0
            MsgBox("angka kedua tidak bertipe angka", vbCritical + MsgBoxStyle.OkOnly, "Kesalahan")
        End Try

        hasil = angka1 * angka2
        TextBox3.Text = hasil
    End Sub

    Private Sub bt_pangkat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_pangkat.Click
        Dim angka1, angka2, hasil As Double

        Try
            angka1 = Convert.ToDouble(TextBox1.Text)
        Catch ex As Exception
            angka1 = 0
            TextBox1.Text = 0
            MsgBox("angka pertama tidak bertipe angka", vbCritical + MsgBoxStyle.OkOnly, "Kesalahan")
        End Try

        Try
            angka2 = Convert.ToDouble(TextBox2.Text)
        Catch ex As Exception
            angka2 = 0
            TextBox2.Text = 0
            MsgBox("angka kedua tidak bertipe angka", vbCritical + MsgBoxStyle.OkOnly, "Kesalahan")
        End Try

        hasil = angka1 ^ angka2
        TextBox3.Text = hasil
    End Sub

    Private Sub bt_bagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_bagi.Click
        Dim angka1, angka2, hasil As Double

        Try
            angka1 = Convert.ToDouble(TextBox1.Text)
        Catch ex As Exception
            angka1 = 0
            TextBox1.Text = 0
            MsgBox("angka pertama tidak bertipe angka", vbCritical + MsgBoxStyle.OkOnly, "Kesalahan")
        End Try

        Try
            angka2 = Convert.ToDouble(TextBox2.Text)
        Catch ex As Exception
            angka2 = 0
            TextBox2.Text = 0
            MsgBox("angka kedua tidak bertipe angka", vbCritical + MsgBoxStyle.OkOnly, "Kesalahan")
        End Try

        If (angka2 = 0) Then
            MsgBox("Tidak bisa dibagi dengan 0", vbCritical + MsgBoxStyle.OkOnly, "Kesalahan")
            TextBox3.Text = "Kesalahan"
        Else
            hasil = angka1 / angka2
            TextBox3.Text = hasil
        End If

    End Sub

    Private Sub bt_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_hapus.Click
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox1.Focus()
    End Sub
End Class

Nah itulah informasi singkat mengenai aplikasi yang saya buat

Untuk mencobanya silahkan download aplikasinya di sini


Tidak ada komentar:

Posting Komentar