Dim gelang1 As Byte,
gelang2 As Byte, gelang3 As Single, gelang4 As Single
Private Sub
Command1_Click()
Call Data
Call Atasi
Text1.Text = gelang3
* (gelang1 & gelang2) & " " & "Ohm" &
" " & "±" & " " & Format(gelang4,
"0%")
Text2.Text = gelang3
* (gelang1 & gelang2) / 1000 & " " & "KOhm"
& " " & "±" & " " &
Format(gelang4, "0%")
End Sub
Pada blok ini gelang1, gelang2 sebagai bilangan byte dan gelang3,
gelang4 adalah
bilangan single.
Pada command
button pertama terdapat Call Data dan Call Atasi untunk memanggil blok sub data dan sub atasi. Selanjutnya
source rumus perhitungan nilai resistor dan nilai toleransi kesalahan nilai resistornya.
Private Sub
Command2_Click()
Text1.Text = "
"
Text2.Text = "
"
End Sub
Blok ini untuk
menghapus dari hasil perhitungan. Untuk menghitung kode warna resistor
selanjutmya.
Private Sub Form_Load()
Call data_awal(Combo1)
Call data_awal(Combo2)
Call data_awal(Combo3)
Call data_awal(Combo4)
End Sub
blok program ini untuk
memanggil data nilai dari warna gelang resistor.
Sub Data()
Select Case Combo1.Text
Case "Hitam"
gelang1 = Empty
Case "Coklat"
gelang1 = 1
Case "Merah"
gelang1 = 2
Case "Orange"
gelang1 = 3
Case "Kuning"
gelang1 = 4
Case "Hijau"
gelang1 = 5
Case "Biru"
gelang1 = 6
Case "Ungu"
gelang1 = 7
Case "Abu-Abu"
gelang1 = 8
Case "Putih"
gelang1 = 9
Case "Emas"
gelang1 = Empty
Case "Perak"
gelang1 = Empty
Case "Tanpa Warna"
gelang1 = Empty
End Select
Select Case Combo2.Text
Case "Hitam"
gelang2 = 0
Case "Coklat"
gelang2 = 1
Case "Merah"
gelang2 = 2
Case "Orange"
gelang2 = 3
Case "Kuning"
gelang2 = 4
Case "Hijau"
gelang2 = 5
Case "Biru"
gelang2 = 6
Case "Ungu"
gelang2 = 7
Case "Abu-Abu"
gelang2 = 8
Case "Putih"
gelang2 = 9
Case "Emas"
gelang2 = Empty
Case "Perak"
gelang2 = Empty
Case "Tanpa Warna"
gelang2 = Empty
End Select
Select Case Combo3.Text
Case "Hitam"
gelang3 = 1
Case "Coklat"
gelang3 = 10
Case "Merah"
gelang3 = 100
Case "Orange"
gelang3 = 1000
Case "Kuning"
gelang3 = 10000
Case "Hijau"
gelang3 = 100000
Case "Biru"
gelang3 = 1000000
Case "Ungu"
gelang3 = 10000000
Case "Abu-Abu"
gelang3 = 100000000
Case "Putih"
gelang3 = 1000000000
Case "Emas"
gelang3 = 0.1
Case "Perak"
gelang3 = 0.01
Case "Tanpa Warna"
gelang3 = 0.001
End Select
Select Case Combo4.Text
Case "Hitam"
gelang4 = Empty
Case "Coklat"
gelang4 = 0.01
Case "Merah"
gelang4 = 0.02
Case "Orange"
gelang4 = 0.03
Case "Kuning"
gelang4 = 0.04
Case "Hijau"
gelang4 = 0.05
Case "Biru"
gelang4 = 0.06
Case "Ungu"
gelang4 = 0.07
Case "Abu-Abu"
gelang4 = 0.08
Case "Putih"
gelang4 = 0.09
Case "Emas"
gelang4 = 0.05
Case "Perak"
gelang4 = 0.1
Case "Tanpa Warna"
gelang4 = 0.2
End Select
End Sub
Pada blok
program ini, berisi data nilai warna gelang resistor. Mulai dari gelang
pertama, gelang kedua, gelang ketiga dan gelang keempat.
Sub data_awal(x As
ComboBox)
x.AddItem "Hitam"
x.AddItem "Coklat"
x.AddItem "Merah"
x.AddItem "Orange"
x.AddItem "Kuning"
x.AddItem "Hijau"
x.AddItem "Biru"
x.AddItem "Ungu"
x.AddItem "Abu-Abu"
x.AddItem "Putih"
x.AddItem "Emas"
x.AddItem "Perak"
x.AddItem "Tanpa Warna"
End Sub
Blok program
ini untuk memasukan nama pada combo box, agar terdapat pilihan pada combo box. Untuk
program yang di buat penulis adalah penghitung nilai resistor, jadi penulis memasukan
pilihan warna yang terdapat pada resistor.
Sub Atasi()
If Combo1.Text = "Pilih
Warna" Then
MsgBox "Anda Belum Memilih
Warna Gelang 1", vbCritical, "ERROR"
Exit Sub
Else
If Combo2.Text = "Pilih
Warna" Then
MsgBox "Anda Belum Memilih Warna
Gelang 2", vbCritical, "ERROR"
Exit Sub
Else
If Combo3.Text = "Pilih
Warna" Then
MsgBox "Anda Belum Memilih
Warna Gelang 3", vbCritical, "ERROR"
Exit Sub
Else
If Combo4.Text = "Pilih
Warna" Then
MsgBox "Anda Belum Memilih
Warna Gelang 4", vbCritical, "ERROR"
Exit Sub
End If
End If
End If
End If
End Sub
Blok program
terakhir adalah berupa peringatan jika salah satu warna gelang resistor tidak
di pilih.
Tidak ada komentar:
Posting Komentar