Sabtu, 20 Oktober 2012

Membuat aplikasi kalkulator Resistor

Standard

Mendengar Magic Resistor kita langsung dibawa berimajinasi kepada sebuah resistor yang sebagian orang menganggap sulit pada proses perhitungannya, bagi orang awam komponen elektronik ini kurang diperhatikan tapi bagi seorang pelajar, perhatian terhadap komponen ini berbeda dengan masyarakat pada umumnya Karena entah pada pelajaran fisika atau pelajaran – pelajaran produktif di smk teknik audio video pasti akan membahas komponen ini. Seperti yang kita ketahui resistor dapat dikenali nilai resistansi atau  hambatanya dengan membaca kode huruf atau kode warna yang tercantum diresistor tersebut. Salah satu metode pembacaan yang sukar dilakukan adalah pembacaan gelang warna, selain kita harus hafal formasi warna, urutan warna kita pun harus mengetahui rumus untuk melakukan perhitungannya.



 Dengan aplikasi ini diharapkan memudahkan penggunanya dalam melakukan pembacaan warna tersebut.
Bagian pertama program ini adalah seleksi warna pada setiap urutan gelang yang ada. Bagian ini juga menerjemahkan dari kode warna ke dalam angka berdasarkan table berikut;



Bagian kedua bertugas melakukan perhitungan, diantaranya perhitungan resistansi, perhtungan resistansi berdasarkan satuan yang dipilih, perhitungan nilai toleransi dan perhitungan nilai resistansi maksimum dan minimum yang dimiliki resistor yang sedang dihitung. Jika ingin suatu perhitungan detail dapat menglik tombol detile.

 
Setia combo box memiliki item warna seperti table diatas, untuk codingnya sebagai berikut:

Combo box1
        If warna1.SelectedItem = "Coklat" Then
            resistansi1 = 10
        ElseIf warna1.SelectedItem = "Merah" Then
            resistansi1 = 20
        ElseIf warna1.SelectedItem = "Jingga" Then
            resistansi1 = 30
        ElseIf warna1.SelectedItem = "Kuning" Then
            resistansi1 = 40
        ElseIf warna1.SelectedItem = "Hijau" Then
            resistansi1 = 50
        ElseIf warna1.SelectedItem = "Biru" Then
            resistansi1 = 60
        ElseIf warna1.SelectedItem = "Ungu" Then
            resistansi1 = 70
        ElseIf warna1.SelectedItem = "Abu-Abu" Then
            resistansi1 = 80
        ElseIf warna1.SelectedItem = "Putih" Then
            resistansi1 = 90
        ElseIf warna1.SelectedItem = "Hitam" Then
            resistansi1 = 0
        Else
            resistansi1 = 0
        End If
             
        '===== combobox gelang ke empat ======== toleransi ==
        If warna4.SelectedItem = "Emas" Then
            toleransi = 5
        ElseIf warna4.SelectedItem = "Perak" Then
            toleransi = 10
        Else
            toleransi = 20
        End If

Combo box2
   If warna2.SelectedItem = "Coklat" Then
            resistansi2 = 1
        ElseIf warna2.SelectedItem = "Merah" Then
            resistansi2 = 2
        ElseIf warna2.SelectedItem = "Jingga" Then
            resistansi2 = 3
        ElseIf warna2.SelectedItem = "Kuning" Then
            resistansi2 = 4
        ElseIf warna2.SelectedItem = "Hijau" Then
            resistansi2 = 5
        ElseIf warna2.SelectedItem = "Biru" Then
            resistansi2 = 6
        ElseIf warna2.SelectedItem = "Ungu" Then
            resistansi2 = 7
        ElseIf warna2.SelectedItem = "Abu-Abu" Then
            resistansi2 = 8
        ElseIf warna2.SelectedItem = "Putih" Then
            resistansi2 = 9
        Else
            resistansi2 = 0
        End If

Combobox3
If warna3.SelectedItem = "Coklat" Then
            resistansi3 = 10
        ElseIf warna3.SelectedItem = "Merah" Then
            resistansi3 = 100
        ElseIf warna3.SelectedItem = "Jingga" Then
            resistansi3 = 1000
        ElseIf warna3.SelectedItem = "Kuning" Then
            resistansi3 = 10000
        ElseIf warna3.SelectedItem = "Hijau" Then
            resistansi3 = 100000
        ElseIf warna3.SelectedItem = "Biru" Then
            resistansi3 = 1000000
        ElseIf warna3.SelectedItem = "Ungu" Then
            resistansi3 = 10000000
        ElseIf warna3.SelectedItem = "Abu-Abu" Then
            resistansi3 = 100000000
        ElseIf warna3.SelectedItem = "Putih" Then
            resistansi3 = 1000000000
        ElseIf warna3.SelectedItem = "Emas" Then
            resistansi3 = 0.1
        ElseIf warna3.SelectedItem = "Perak" Then
            resistansi3 = 0.01
        Else
            resistansi3 = 1
        End If

Combobox4
If warna4.SelectedItem = "Emas" Then
            toleransi = 5
        ElseIf warna4.SelectedItem = "Perak" Then
            toleransi = 10
        Else
            toleransi = 20
        End If


Perhitungan resistansi
temp = resistansi1 + resistansi2   ' Formula untuk warna pertama dan kedua
        resistansi = temp * resistansi3 ' Formula akhir untuk mencari resistansi

        Textresistansiohm.Text = resistansi / satuan ' Satuan
Nilai satuan diambilkan dari combobox, untuk source codenya sebagai berikut :
    
   If cmsatuan.SelectedItem = "Ω" Then
            satuan = 1
        ElseIf cmsatuan.SelectedItem = "KΩ" Then
            satuan = 1000
        ElseIf cmsatuan.SelectedItem = "MΩ" Then
            satuan = 1000000
        Else
            satuan = 1

        End If


Satuan resistansi
        Texttolerkohmmin.Text = nilaimin / 1000
        Texttolerkohmmax.Text = nilaimax / 1000
        Texttolermohmmin.Text = nilaimin / 1000000
        Texttolermohmmax.Text = nilaimax / 1000000


Toleransi
        Lbtoleransi2.Text = toleransi    ' Label toleransi
        lbtoleransi.Text = toleransi      ' Label Toleransi
        nilaitoleransi = (resistansi * toleransi) / 100   ' Formula nilai toleransi
        nilaimax = resistansi + nilaitoleransi             ' Formula nilai Maximum
        nilaimin = resistansi - nilaitoleransi             ' Formula nilai Minimum
        Texttolresmax.Text = nilaimax
        Texttolresmin.Text = nilaimin
 Agar perhitungan dapat dilkukan setiap saat misalnya ketika sebuah kombobox dirubah isinya maka kita perlu mengkopi beberapa method kombobox kedalam suatu kombobox yang berisi semua kondisi statement sebagai berikut :

Private Sub hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HitungToolStripMenuItem.Click, warna4.SelectedIndexChanged, warna3.SelectedIndexChanged, warna2.SelectedIndexChanged, warna1.SelectedIndexChanged

Berikut koding lengkapnya :

Public Class Form1
    ' Easy resistance calculator
    ' author IS1D
    ' VILLAGER
    Public resistansi1, resistansi2 As Integer
    Public nilaitoleransi, nilaimin, nilaimax, toleransi, resistansi, resistansi3, temp As Double
    Public logika As Boolean = True
    Public satuan As Integer = 1

        Private Sub hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HitungToolStripMenuItem.Click, warna4.SelectedIndexChanged, warna3.SelectedIndexChanged, warna2.SelectedIndexChanged, warna1.SelectedIndexChanged
        ' ======== Combobox gelang ke tiga === pengali 10 ======
        If warna3.SelectedItem = "Coklat" Then
            resistansi3 = 10
        ElseIf warna3.SelectedItem = "Merah" Then
            resistansi3 = 100
        ElseIf warna3.SelectedItem = "Jingga" Then
            resistansi3 = 1000
        ElseIf warna3.SelectedItem = "Kuning" Then
            resistansi3 = 10000
        ElseIf warna3.SelectedItem = "Hijau" Then
            resistansi3 = 100000
        ElseIf warna3.SelectedItem = "Biru" Then
            resistansi3 = 1000000
        ElseIf warna3.SelectedItem = "Ungu" Then
            resistansi3 = 10000000
        ElseIf warna3.SelectedItem = "Abu-Abu" Then
            resistansi3 = 100000000
        ElseIf warna3.SelectedItem = "Putih" Then
            resistansi3 = 1000000000
        ElseIf warna3.SelectedItem = "Emas" Then
            resistansi3 = 0.1
        ElseIf warna3.SelectedItem = "Perak" Then
            resistansi3 = 0.01
        Else
            resistansi3 = 1
        End If

        '===== combobox gelang kedua ========Satuan=====
        If warna2.SelectedItem = "Coklat" Then
            resistansi2 = 1
        ElseIf warna2.SelectedItem = "Merah" Then
            resistansi2 = 2
        ElseIf warna2.SelectedItem = "Jingga" Then
            resistansi2 = 3
        ElseIf warna2.SelectedItem = "Kuning" Then
            resistansi2 = 4
        ElseIf warna2.SelectedItem = "Hijau" Then
            resistansi2 = 5
        ElseIf warna2.SelectedItem = "Biru" Then
            resistansi2 = 6
        ElseIf warna2.SelectedItem = "Ungu" Then
            resistansi2 = 7
        ElseIf warna2.SelectedItem = "Abu-Abu" Then
            resistansi2 = 8
        ElseIf warna2.SelectedItem = "Putih" Then
            resistansi2 = 9
        Else
            resistansi2 = 0
        End If
        ' Easy resistance calculator
        ' author IS1D
        ' VILLAGER
        '=== commbobox gelang pertama ====== Puluhan ========
        If warna1.SelectedItem = "Coklat" Then
            resistansi1 = 10
        ElseIf warna1.SelectedItem = "Merah" Then
            resistansi1 = 20
        ElseIf warna1.SelectedItem = "Jingga" Then
            resistansi1 = 30
        ElseIf warna1.SelectedItem = "Kuning" Then
            resistansi1 = 40
        ElseIf warna1.SelectedItem = "Hijau" Then
            resistansi1 = 50
        ElseIf warna1.SelectedItem = "Biru" Then
            resistansi1 = 60
        ElseIf warna1.SelectedItem = "Ungu" Then
            resistansi1 = 70
        ElseIf warna1.SelectedItem = "Abu-Abu" Then
            resistansi1 = 80
        ElseIf warna1.SelectedItem = "Putih" Then
            resistansi1 = 90
        ElseIf warna1.SelectedItem = "Hitam" Then
            resistansi1 = 0
        Else
            resistansi1 = 0
        End If
             
        '===== combobox gelang ke empat ======== toleransi ==
        If warna4.SelectedItem = "Emas" Then
            toleransi = 5
        ElseIf warna4.SelectedItem = "Perak" Then
            toleransi = 10
        Else
            toleransi = 20
        End If
        '==========================================================

        '=================  PERHITUNGAN  =========================
        temp = resistansi1 + resistansi2   ' Formula untuk warna pertama dan kedua
        resistansi = temp * resistansi3 ' Formula akhir untuk mencari resistansi

        Textresistansiohm.Text = resistansi / satuan ' Satuan
        ' ============= Toleransi hambatan ======================
        Lbtoleransi2.Text = toleransi    ' Label toleransi
        lbtoleransi.Text = toleransi      ' Label Toleransi
        nilaitoleransi = (resistansi * toleransi) / 100   ' Formula nilai toleransi
        nilaimax = resistansi + nilaitoleransi             ' Formula nilai Maximum
        nilaimin = resistansi - nilaitoleransi             ' Formula nilai Minimum
        Texttolresmax.Text = nilaimax
        Texttolresmin.Text = nilaimin
        '============ output Berdasarkan Satuan Resistansi ======
        Texttolerkohmmin.Text = nilaimin / 1000
        Texttolerkohmmax.Text = nilaimax / 1000
        Texttolermohmmin.Text = nilaimin / 1000000
        Texttolermohmmax.Text = nilaimax / 1000000
        '=========================================================

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttoleransi.Click, HitungDetailToolStripMenuItem.Click
        ' properti text tombol akan diganti-ganti.
        If logika = True Then
            bttoleransi.Text = "&Sembunyikan"  ' BUTTON
            HitungDetailToolStripMenuItem.Text = "Sembunyikan Rincian" ' MENU STRIP
        Else
            bttoleransi.Text = "&Rincian"   'BUTTON
            HitungDetailToolStripMenuItem.Text = "Tampilkan Rincian" ' MENU STRIP

        End If
        ' menampilkan groubbox ( rincian perhitungan)
        GroupBox2.Visible = logika          ' GROUBBOX
        logika = Not logika ' Mengembalikan nilai=Toggle
    End Sub


    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmsatuan.SelectedIndexChanged, HitungToolStripMenuItem.Click
        '======= COMBOBOX == SATUAN HAMBATAN =============
        If cmsatuan.SelectedItem = "Ω" Then
            satuan = 1
        ElseIf cmsatuan.SelectedItem = "KΩ" Then
            satuan = 1000
        ElseIf cmsatuan.SelectedItem = "MΩ" Then
            satuan = 1000000
        Else
            satuan = 1

        End If
        Textresistansiohm.Text = resistansi / satuan  ' fORMULA DARI PEMILIHAN SATUAN
   
    End Sub

    Private Sub PenggunaanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PenggunaanToolStripMenuItem.Click
        MsgBox("Isikan pilihan yang tersedia dari warna 1 sampai warna 4 berdasarkan urutan warna pada gelang Resistor yang akan dihitung")

    End Sub

    Private Sub TentangKamiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TentangKamiToolStripMenuItem.Click
        'form 2 ( about us ) ditampilkan
        formtentang.ShowDialog()

    End Sub
End Class

Demikian source code lengkapnya untuk program jadinya bias didownload disini. Terimakasih semoga bermanfaat.


Membuat Aplikasi Sederhana Kalkulator Sehat dengan V.NET 2012

Standard
Setelah berputar – putar memikirkan apa yang akan diposting sebagai tugas kuliah akhirnya ketemu juga, walaupun mungkin bagi para pembaca program ini sanggat lah sederhana bagi para master namun cukup untuk jadi referensi bagi pemula seperti saya. 
    Program ini digunakan untuk menghitung berat dan tinggi ideal manusia. Seperti yag kita ketahui belakangan ini, masalah obesitas tak terelakan lagi. Disaat sibuknya jam kerja, banyaknya jam lembur serta waktu istirahat yang singkat sering menyebabkan kita melupakan rutinitas berolah raga. Padahal olah raga adalah bagian penting dari rutinitas untuk menjaga kesehatan dan kebugaran badan kita. Selain itu juga harus didukung dengan asupan bergizi dari makanan sehari – hari . 
       Dengan program ini diharapkan dapat membantu memantau berat badan ideal  berdasarkan tinggi badan kita. Program ini dibuat dengan visual studio 2010. Form, button, textbox serta proses perhitungannya dijelaskan secara singkat dan jelas dibawah ini.



Tampilan Awal Visual Studio 2012

Pertama buatlah project baru, kemudian buatlah 3 form sesuai tabel berikut  :

Object
Property
Value
Form 1
Kalkulator sehat
Form1
Button 1
Tinggi Ideal
ttgid
Button 2
Berat ideal
brtid
Button 3
Keluar
klr
Label 1
Label1
Kesehatan..
Label2
Label2
Tentang kami



Form2
Tinggi Ideal
Form2
Label1
Berat badan anda
Label1
Textbox 1

brtbadan
Button1
Hasil
htg
Button2
Kembali
kmbli



Form3
Berat Ideal
Form3
Label1
Tinggi badan anda
Label1
Textbox 1

tgbadan
Button1
Hasil
htg
Button2
Kembali
tutup


 dengan tampilan form sebagai berikut :






Adapun source code nya sebagai berikut : 
 untuk form 1 :
       Public Class Form1
    'tugas PV sIII
    'kalkulator sehat v1.0
    'oleh ISWANDI
    ' build 20 oktober'12

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ttgid.Click
        Form2.Show()     'form 2 ditampilkan
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles klr.Click
        If MsgBox(" Anda Yakin Ingin Menutup program ", vbYesNo + vbQuestion + vbDefaultButton2, "kembali") = vbYes Then Me.Close()
        ' menampilkan konfirmasi exit pgm dengan metode vbyesno
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles brtid.Click
        Form3.Show()    'form 3 ditampilkan
    End Sub
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
        MsgBox(" Kalkulator sehat v1.0 oleh ISWANDI ")  ' menampilkan info tambahan
    End Sub
End Class



Form 2 

Public Class Form2
    Private Sub Brtbadan_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Brtbadan.TextChanged

    End Sub

    Private Sub Htg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Htg.Click
        Dim hasil As Integer
        Dim berat As Integer
        berat = Brtbadan.Text
        hasil = berat + 110  'Deklarasi dan penulisan rumus
        MsgBox(" Tinggi Badan ideal Anda Adalah " & hasil & "Cm")  ' menampilkan message box hasil dari perhitungan
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kmbli.Click
        Me.Close() ' Menutup Form
    End Sub
End Class



Form 3 :
Public Class Form3
 Private Sub ttgbadan_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ttgbadan.TextChanged
   End Sub

    Private Sub Htg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Htg.Click
        Dim hasil As Integer
        Dim tinggi As Integer
        tinggi = ttgbadan.Text
        hasil = tinggi - 110  'Deklarasi dan penulisan rumus

        MsgBox(" Berat Badan ideal Anda Adalah " & hasil & "Kg")  ' menampilkan message box hasil dari perhitungan
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kmbli.Click
        Me.Close()  ' menutup form
    End Sub
End Class

 Tanda petik 1 dimaksudkan penulis untuk dokumentasi dan penjelasan coding per baris



Terlihat sekali bahwa teknik coddingnya sangat profesional, hehe







Demikian ulasan singkat program yang baru saya buat tersebut. Selamat mencoba dan semoga bermanfaat.  
Langganan: Postingan (Atom)