Menghitung Nilai Resistansi dan Toleransi Dari Resistor

Menghitung Nilai Resistansi dan Toleransi Dari Resistor

Private Sub CboGelang1_Click() : ( Artinya : Memberi perintah dalam Combo Box                                                        pertama dengan Name : CboGelang1 )

Select Case CboGelang1.Text  ( Artinya : Memberi perintah untuk Case yang                                                       terdapat pada list di Combo Box pertama )

Case "HITAM"  ( Artinya : Jika case HITAM dipilih )                 

TxtResistor = 0 ( Artinya : Dalam textbox Resistansi akan muncul angka nol )

Shape2.FillColor = vbBlack ( FillColor Artinya : Warna dari Shape 2  akan menjadi                                           hitam )

Shape2.BorderColor = vbBlack ( BorderColor Artinya : Warna Garis Pinggir dari                                           shape 2 akan menjadi hitam )

Label2.ForeColor = vbBlack ( ForeColor Artinya : Warna dari Label 2 akan                                                      menjadi hitam )

Case "COKELAT" ( Artinya : Jika case COKELAT dipilih )

TxtGelang1.Text = 1 ( Artinya : Dalam sebuah textbox dimana visible-nya = false,                                   akan diisi dengan angka 1 untuk keperluan perhitungan )

TxtResistor = 1 ( Artinya : Dalam textbox Resistansi akan muncul angka satu )

Shape2.FillColor = &H80&

Shape2.BorderColor = &H80&

Label2.ForeColor = &H80&

Case "MERAH" ( Artinya : Jika case MERAHdipilih )

TxtGelang1.Text = 2 ( Artinya : Dalam sebuah textbox dimana visible-nya = false,                                   akan diisi dengan angka 2 untuk keperluan perhitungan )

Shape2.FillColor = vbRed

Shape2.BorderColor = vbRed

Label2.ForeColor = vbRed

Case "ORANGE" ( Artinya : Jika case ORANGE dipilih )

TxtGelang1.Text = 3 ( Artinya : Dalam sebuah textbox dimana visible-nya = false,                                   akan diisi dengan angka 3 untuk keperluan perhitungan )

Shape2.FillColor = &H80FF&

Shape2.BorderColor = &H80FF&

Label2.ForeColor = &H80FF&

Case "KUNING" ( Artinya : Jika case KUNING dipilih )

TxtGelang1.Text = 4 ( Artinya : Dalam sebuah textbox dimana visible-nya = false,                                   akan diisi dengan angka 4 untuk keperluan perhitungan )

Shape2.FillColor = vbYellow

Shape2.BorderColor = vbYellow

Label2.ForeColor = vbYellow

Case "HIJAU" ( Artinya : Jika case HIJAU dipilih )

TxtGelang1.Text = 5 ( Artinya : Dalam sebuah textbox dimana visible-nya = false,                                   akan diisi dengan angka 5 untuk keperluan perhitungan )

Shape2.FillColor = vbGreen

Shape2.BorderColor = vbGreen

Label2.ForeColor = vbGreen

Case "BIRU" ( Artinya : Jika case BIRU dipilih )

TxtGelang1.Text = 6 ( Artinya : Dalam sebuah textbox dimana visible-nya = false,                                   akan diisi dengan angka 6 untuk keperluan perhitungan )

Shape2.FillColor = vbBlue

Shape2.BorderColor = vbBlue

Label2.ForeColor = vbBlue

Case "UNGU" ( Artinya : Jika case UNGU dipilih )

TxtGelang1.Text = 7 ( Artinya : Dalam sebuah textbox dimana visible-nya = false,                                   akan diisi dengan angka 7 untuk keperluan perhitungan )

Shape2.FillColor = &HC000C0

Shape2.BorderColor = &HC000C0

Label2.ForeColor = &HC000C0

Case "ABU-ABU" ( Artinya : Jika case ABU-ABU dipilih )

TxtGelang1.Text = 8 ( Artinya : Dalam sebuah textbox dimana visible-nya = false,                                   akan diisi dengan angka 8 untuk keperluan perhitungan )

Shape2.FillColor = &H808080

Shape2.BorderColor = &H808080

Label2.ForeColor = &H808080

Case "PUTIH" ( Artinya : Jika case PUTIH dipilih )

TxtGelang1.Text = 9 ( Artinya : Dalam sebuah textbox dimana visible-nya = false,                                   akan diisi dengan angka 9 untuk keperluan perhitungan )

Shape2.FillColor = vbWhite

Shape2.BorderColor = vbWhite

Label2.ForeColor = vbWhite

End Select ( Artinya : Perintah untuk mengakhiri proses select pada case )

End Sub ( Artinya : Perintah untuk mengakhiri Case yang terdapat pada list di                  Combo Box pertama )

 

Private Sub CboGelang2_Click(): ( Artinya : Memberi perintah dalam Combo Box                                                         kedua dengan Name : CboGelang2 )

Select Case CboGelang2.Text ( Artinya : Memberi perintah untuk Case yang                                                        terdapat pada list di Combo Box kedua )

                                                                                        

Case "HITAM"

TxtGelang2.Text = 0 ( Artinya : Dalam sebuah textbox dimana visible-nya = false,                                   akan diisi dengan angka nol untuk keperluan perhitungan )

TxtResistor = 2 ( Artinya : Dalam textbox Resistansi akan muncul angka 2 )

Shape3.FillColor = vbBlack

Shape3.BorderColor = vbBlack

Label3.ForeColor = vbBlack

Case "COKELAT"

TxtGelang2.Text = 1 ( Artinya : Dalam sebuah textbox dimana visible-nya = false,                                   akan diisi dengan angka 1 untuk keperluan perhitungan )

Shape3.FillColor = &H80&

Shape3.BorderColor = &H80&

Label3.ForeColor = &H80&

Case "MERAH"

TxtGelang2.Text = 2 ( Artinya : Dalam sebuah textbox dimana visible-nya = false,                                   akan diisi dengan angka 2 untuk keperluan perhitungan )

Shape3.FillColor = vbRed

Shape3.BorderColor = vbRed

Label3.ForeColor = vbRed

Case "ORANGE"

TxtGelang2.Text = 3 ( Artinya : Dalam sebuah textbox dimana visible-nya = false,                                   akan diisi dengan angka 3 untuk keperluan perhitungan )

Shape3.FillColor = &H80FF&

Shape3.BorderColor = &H80FF&

Label3.ForeColor = &H80FF&

Case "KUNING"

TxtGelang2.Text = 4 ( Artinya : Dalam sebuah textbox dimana visible-nya = false,                                   akan diisi dengan angka 4 untuk keperluan perhitungan )

Shape3.FillColor = vbYellow

Shape3.BorderColor = vbYellow

Label3.ForeColor = vbYellow

Case "HIJAU"

TxtGelang2.Text = 5 ( Artinya : Dalam sebuah textbox dimana visible-nya = false,                                   akan diisi dengan angka 5 untuk keperluan perhitungan )

Shape3.FillColor = vbGreen

Shape3.BorderColor = vbGreen

Label3.ForeColor = vbGreen

Case "BIRU"

TxtGelang2.Text = 6 ( Artinya : Dalam sebuah textbox dimana visible-nya = false,                                   akan diisi dengan angka 6 untuk keperluan perhitungan )

Shape3.FillColor = vbBlue

Shape3.BorderColor = vbBlue

Label3.ForeColor = vbBlue

Case "UNGU"

TxtGelang2.Text = 7 ( Artinya : Dalam sebuah textbox dimana visible-nya = false,                                   akan diisi dengan angka 7 untuk keperluan perhitungan )

Shape3.FillColor = &HC000C0

Shape3.BorderColor = &HC000C0

Label3.ForeColor = &HC000C0

Case "ABU-ABU"

TxtGelang2.Text = 8 ( Artinya : Dalam sebuah textbox dimana visible-nya = false,                                   akan diisi dengan angka 8 untuk keperluan perhitungan )

Shape3.FillColor = &H808080

Shape3.BorderColor = &H808080

Label3.ForeColor = &H808080

Case "PUTIH"

TxtGelang2.Text = 9 ( Artinya : Dalam sebuah textbox dimana visible-nya = false,                                   akan diisi dengan angka 9 untuk keperluan perhitungan )

Shape3.FillColor = vbWhite

Shape3.BorderColor = vbWhite

Label3.ForeColor = vbWhite

End Select ( Artinya : Perintah untuk mengakhiri proses select pada case )

End Sub ( Artinya : Perintah untuk mengakhiri Case yang terdapat pada list di                  Combo Box kedua )

 

Private Sub CboGelang3_Click() ( Artinya : Memberi perintah dalam Combo Box                                                          ketiga dengan Name : CboGelang3 )

Select Case CboGelang3.Text ( Artinya : Memberi perintah untuk Case yang                                                        terdapat pada list di Combo Box ketiga )

Case "HITAM"

TxtGelang3.Text = 0 ( Artinya : Dalam sebuah textbox dimana visible-nya = false,                                   akan diisi dengan angka 0 untuk keperluan perhitungan )

Shape4.FillColor = vbBlack

Shape4.BorderColor = vbBlack

Label4.ForeColor = vbBlack

Case "COKELAT"

TxtGelang3.Text = 1 ( Artinya : Dalam sebuah textbox dimana visible-nya = false,                                   akan diisi dengan angka 1 untuk keperluan perhitungan )

Shape4.FillColor = &H80&

Shape4.BorderColor = &H80&

Label4.ForeColor = &H80&

Case "MERAH"

TxtGelang3.Text = 2 ( Artinya : Dalam sebuah textbox dimana visible-nya = false,                                   akan diisi dengan angka 2 untuk keperluan perhitungan )

Shape4.FillColor = vbRed

Shape4.BorderColor = vbRed

Label4.ForeColor = vbRed

Case "ORANGE"

TxtGelang3.Text = 3 ( Artinya : Dalam sebuah textbox dimana visible-nya = false,                                   akan diisi dengan angka 3 untuk keperluan perhitungan )

Shape4.FillColor = &H80FF&

Shape4.BorderColor = &H80FF&

Label4.ForeColor = &H80FF&

Case "KUNING"

TxtGelang3.Text = 4 ( Artinya : Dalam sebuah textbox dimana visible-nya = false,                                   akan diisi dengan angka 4 untuk keperluan perhitungan )

Shape4.FillColor = vbYellow

Shape4.BorderColor = vbYellow

Label4.ForeColor = vbYellow

Case "HIJAU"

TxtGelang3.Text = 5 ( Artinya : Dalam sebuah textbox dimana visible-nya = false,                                   akan diisi dengan angka 5 untuk keperluan perhitungan )

Shape4.FillColor = vbGreen

Shape4.BorderColor = vbGreen

Label4.ForeColor = vbGreen

Case "BIRU"

TxtGelang3.Text = 6 ( Artinya : Dalam sebuah textbox dimana visible-nya = false,                                   akan diisi dengan angka 6 untuk keperluan perhitungan )

Shape4.FillColor = vbBlue

Shape4.BorderColor = vbBlue

Label4.ForeColor = vbBlue

Case "UNGU"

TxtGelang3.Text = 7 ( Artinya : Dalam sebuah textbox dimana visible-nya = false,                                   akan diisi dengan angka 7 untuk keperluan perhitungan )

Shape4.FillColor = &HC000C0

Shape4.BorderColor = &HC000C0

Label4.ForeColor = &HC000C0

Case "ABU-ABU"

TxtGelang3.Text = 8 ( Artinya : Dalam sebuah textbox dimana visible-nya = false,                                   akan diisi dengan angka 8 untuk keperluan perhitungan )

Shape4.FillColor = &H808080

Shape4.BorderColor = &H808080

Label4.ForeColor = &H808080

Case "PUTIH"

TxtGelang3.Text = 9 ( Artinya : Dalam sebuah textbox dimana visible-nya = false,                                   akan diisi dengan angka 9 untuk keperluan perhitungan )

Shape4.FillColor = vbWhite

Shape4.BorderColor = vbWhite

Label4.ForeColor = vbWhite

End Select ( Artinya : Perintah untuk mengakhiri proses select pada case )

End Sub ( Artinya : Perintah untuk mengakhiri Case yang terdapat pada list di                  Combo Box kedua )

 

Private Sub CboGelang4_Click() ( Artinya : Memberi perintah dalam Combo Box                                                          ketiga dengan Name : CboGelang3 )

Select Case CboGelang4.Text ( Artinya : Memberi perintah untuk Case yang                                                        terdapat pada list di Combo Box keempat )

Case "EMAS"

TxtGelang4.Text = 0.05 ( Artinya : Dalam sebuah textbox dimana visible-nya =                                        false, akan diisi dengan angka 0.05 untuk keperluan                                                       perhitungan )

Shape5.FillColor = &H40C0&

Shape5.BorderColor = &H40C0&

Label5.ForeColor = &H40C0&

Case "PERAK"

TxtGelang4.Text = 0.1 ( Artinya : Dalam sebuah textbox dimana visible-nya = false,                                akan diisi dengan angka 0.1 untuk keperluan perhitungan )

Shape5.FillColor = &HC0C0C0

Shape5.BorderColor = &HC0C0C0

Label5.ForeColor = &HC0C0C0

Case "TAK BERWARMA"

TxtGelang4.Text = 0.2 ( Artinya : Dalam sebuah textbox dimana visible-nya = false,                                akan diisi dengan angka 0.2 untuk keperluan perhitungan

Shape5.FillColor = &HFFFF80

Shape5.BorderColor = &HFFFF80

Label5.ForeColor = &HFFFF80

End Select ( Artinya : Perintah untuk mengakhiri proses select pada case )

End Sub ( Artinya : Perintah untuk mengakhiri Case yang terdapat pada list di                  Combo Box keempat )

 

Private Sub CmdClear_Click() ( Artinya : Memberi perintah dalam Command                                                    button  pertama untuk menghapus semua perintah yang                                            telah dijalankan sehingga kembali ke bentuk normal                                            dengan Name : CmdClear )

CboGelang1.Text = "" ( Artinya Mengosongkan kembali Combobox dengan                                           Name : CboGelang1 )

CboGelang2.Text = ""

CboGelang3.Text = ""

CboGelang4.Text = ""

TxtResistor.Text = "" ( Artinya Mengosongkan kembali Textbox untuk nilai                                            resistansi dengan Name : TxtResistor )

TxtToleransi1.Text = ""

TxtToleransi2.Text = ""

Shape2.FillColor = &HFFFF80 ( FillColor Artinya : Warna dari Shape 2  akan                                      menjadi warna yang sesuai dengan &HFFFF80  )

Shape2.BorderColor = &HFFFF80 ( BorderColor Artinya : Warna Garis Pinggir                                                        dari shape 2 akan menjadi sesuai dengan                                                                   &HFFFF80 )

Shape3.FillColor = &HFFFF80

Shape3.BorderColor = &HFFFF80

Shape4.FillColor = &HFFFF80

Shape4.BorderColor = &HFFFF80

Shape5.FillColor = &HFFFF80

Shape5.BorderColor = &HFFFF80

Label2.ForeColor = vbBlack ( ForeColor Artinya : Warna dari Label 2 akan                                                      menjadi hitam )

Label3.ForeColor = vbBlack

Label4.ForeColor = vbBlack

Label5.ForeColor = vbBlack

End Sub ( Artinya : Untuk mengakhiri perintah Command button, dengan name               CmdClear )

 

Private Sub CmdExit_Click() ( Artinya : Memberi perintah dalam Command                                                       button  kedua untuk keluar dari aplikasi visual basic                                                  yang sedang berjalan dengan Name : CmdExit )

If MsgBox ("Are You Sure To Exit?", vbOKCancel) = vbOK Then

Unload Me ( MessageBox artinya : Kotak pesan yang berisi peringatan )

End If ( Artinya : untuk mengakhiri perintah dari isi perintah message box )

End Sub ( Artinya : Untuk mengakhiri perintah yang telah diisi pada Command                button, dengan name CmdExit )

 

Private Sub CmdHitung_Click()( Artinya : Memberi perintah dalam Command                                                   button  ketiga untuk menghitung hasil resistansi dengan                                            Name : CmdHitung)

Dim Resistansi As Double

Dim Toleransi1 As Double

Dim Toleransi2 As Double

a = Val(TxtGelang1.Text) ( Artinya : nilai dari a adalah angka yang dimasukkan                                                  pada text gelang 1, text gelang 1 hanya dipakai untuk                                              perhitungan/ visible = false )

b = Val(TxtGelang2.Text) ( Artinya : nilai dari b adalah angka yang dimasukkan                                                  pada text gelang 2, text gelang 2 hanya dipakai untuk                                              perhitungan/ visible = false )

c = Val(TxtGelang3.Text) ( Artinya : nilai dari c adalah angka yang dimasukkan                                                   pada text gelang 3, text gelang 3 hanya dipakai untuk                                              perhitungan/ visible = false )

d = Val(TxtGelang4.Text) ( Artinya : nilai dari d adalah angka yang dimasukkan                                                  pada text gelang 4, text gelang 4 hanya dipakai untuk                                              perhitungan/ visible = false )

Resistansi = a & b * 10 ^ c ( Artinya resistansi =  hasil a dan b dikali 10 dibagi c )

Toleransi 1 = Resistansi - (Resistansi * d) ( Artinya : Nilai toleransi = nilai                                                                                    resistansi dikurang resistansi setelah                                                                           dikali nilai d )

Toleransi 2 = Resistansi + (Resistansi * d) ( Artinya : Nilai toleransi = nilai                                                                                   resistansi dikurang resistansi setelah                                                                           dikali nilai d )

TxtResistor.Text = Resistansi ( Artinya : Nilai resistansi akan diisi ke text resistor )

TxtToleransi1.Text = Toleransi 1 ( Artinya : Nilai dari resistansi pertama akan                                                                 diisikan pada text toleransi pertama )

TxtToleransi2.Text = Toleransi 2 ( Artinya : Nilai dari resistansi kedua akan                                                                    diisikan pada text toleransi kedua )

End Sub ( Artinya : untuk mengakhiri private sub yang telah diisi pada command             button hitung, dengan Name : CmdHitung )