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.


5 komentar:

  1. iiz2 Maret 2015 pukul 07.03

    sipp

    BalasHapus
  2. Unknown20 April 2016 pukul 09.27

    minta kodingan lengkapnya dong gan

    BalasHapus
  3. Unknown13 Mei 2016 pukul 00.58

    link downloadnya dimana ya gan?

    BalasHapus
  4. iiz26 Juni 2016 pukul 17.59

    maaf baru sempat balas dikarenakan ada kesibukan pasca skripsi
    https://www.dropbox.com/s/9dftondke8qmllc/Calculator%20resistor%204gelang.rar?dl=0

    * Min netframework 3.5 terinstal

    BalasHapus
  5. Unknown16 Desember 2017 pukul 13.03

    Link baru la gan

    BalasHapus

Langganan: Posting Komentar (Atom)