Senin, 30 Mei 2016
Program Perhitungan Panel Surya dengan Pascal (FUNCTION)
Sabtu, 09 April 2016
Membuat Program Perhitungan Nilai Arus Pada Panel Surya Menggunaan Aplikasi Pascal
Saya mendapat tugas softskill menggunakan aplikasi Turbo Pascal untuk membuat sebuah program yang berhubungan dengan konsentrasi Jurusan saya ( Tegangan Tinggi, Teknik Elektro)
Saya menggunakan Turbo Pascal untuk membuat programnya, dan saya membuat program tentang Perhitungan pada Panel Surya. Yaitu menghitung Arus pada Panel Surya. Dimana kita dapat menghitung angka dari Arus dengan nilai Tegangan, Luas Permukaan, Daya, dan Efisiensi yang sudah di ketahui.
Baiklah, berikut adalah tampilan serta kodingan yang saya buat untuk Program Perhitungan Panel Surya pada Turbo Pascal.
Kamis, 17 Maret 2016
Program Perhitungan Panel Surya Menggunakan Visual Basic 6.0 Portable
Hallo salam Engineer
Saya mendapat tugas softskill menggunakan aplikasi Visual Basic untuk membuat sebuah program yang berhubungan dengan konsentrasi Jurusan saya ( Tegangan Tinggi, Teknik Elektro)
Saya menggunakan Visual Basic 6.0 Partable untuk membuat programnya, dan saya membuat program tentang Perhitungan pada Panel Surya. Yaitu menghitung Arus, Tegangan, Luas Permukaan, Daya, dan Efisiensi. Dimana kita dapat menghitung angka dari Arus, Tegangan, Luas Permukaan, Daya, dan Efisiensi yang kita butuh kan dengan nilai yang sudah di ketahui.
Caranya cukup mudah, pertama kita harus mengetahui rumus dasar untuk perhitungan pada Panel Surya. Lalu kita rancang mau seperti apa programnya di mulai, berjalan, dan berakhir.
Baiklah, berikut adalah tampilan serta kodingan yang saya buat untuk Program Perhitungan Panel Surya pada Visual Basic 6.0 Portable
Ini adalah kodingan pada Form pertama, dimana yang saya pakai adalah 3 Commond Button dan 1 Label berikut kodingannya.
Private Sub Command1_Click()
MsgBox ("Silahkan Pilih Untuk Melanjutkan")
Command2.Visible = True
Command6.Visible = True
End Sub
Private Sub Command2_Click()
Form1.Hide
MsgBox ("Klik Untuk Menghitung yang Ingin di Cari")
MsgBox ("Jika Ingin Kembali Klik Tombol Home")
Form2.Show
End Sub
Private Sub Command6_Click()
Form1.Hide
MsgBox ("Jika Ingin Kembali Klik Tombol Home")
Form3.Show
End Sub
Private Sub Option1_Click()
Command2.Visible = False
End Sub
Private Sub Option2_Click()
Command6.Visible = False
End Sub
Kemudian pada form2 saya menggunakan 5 OptionButton, 7 CommandButton, 4 textBox, 4 label dan 1 timer
Berikut adalah kodingan dari Form2 ;
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox (" Isi Kolom Dengan Lengkap")
ElseIf Text2.Text = "" Then
MsgBox (" Isi Kolom Dengan Lengkap")
ElseIf Text3.Text = "" Then
MsgBox (" Isi Kolom Dengan Lengkap")
ElseIf Text4.Text = "" Then
MsgBox (" Isi Kolom Dengan Lengkap")
Else
Label6.Caption = (Val(Text1.Text) * Val(Text2.Text)) / (Val(Text3.Text) * Val(Text4.Text))
Label6.Visible = True
Label8.Visible = True
End If
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Label6.Caption = ""
Label8.Visible = False
End Sub
Private Sub Command3_Click()
If Text1.Text = "" Then
MsgBox (" Isi Kolom Dengan Lengkap")
ElseIf Text2.Text = "" Then
MsgBox (" Isi Kolom Dengan Lengkap")
ElseIf Text3.Text = "" Then
MsgBox (" Isi Kolom Dengan Lengkap")
ElseIf Text4.Text = "" Then
MsgBox (" Isi Kolom Dengan Lengkap")
Else
Label6.Caption = (Val(Text1.Text) * Val(Text2.Text)) / (Val(Text3.Text) * Val(Text4.Text))
Label6.Visible = True
Label8.Visible = True
End If
End Sub
Private Sub Command4_Click()
If Text1.Text = "" Then
MsgBox (" Isi Kolom Dengan Lengkap")
ElseIf Text2.Text = "" Then
MsgBox (" Isi Kolom Dengan Lengkap")
ElseIf Text3.Text = "" Then
MsgBox (" Isi Kolom Dengan Lengkap")
ElseIf Text4.Text = "" Then
MsgBox (" Isi Kolom Dengan Lengkap")
Else
Label6.Caption = (Val(Text1.Text) * Val(Text3.Text) * Val(Text4.Text)) / Val(Text2.Text)
Label6.Visible = True
Label8.Visible = True
End If
End Sub
Private Sub Command5_Click()
If Text1.Text = "" Then
MsgBox (" Isi Kolom Dengan Lengkap")
ElseIf Text2.Text = "" Then
MsgBox (" Isi Kolom Dengan Lengkap")
ElseIf Text3.Text = "" Then
MsgBox (" Isi Kolom Dengan Lengkap")
ElseIf Text4.Text = "" Then
MsgBox (" Isi Kolom Dengan Lengkap")
Else
Label6.Caption = (Val(Text1.Text) * Val(Text3.Text) * Val(Text4.Text)) / Val(Text2.Text)
Label6.Visible = True
Label8.Visible = True
End If
End Sub
Private Sub Command6_Click()
If Text1.Text = "" Then
MsgBox (" Isi Kolom Dengan Lengkap")
ElseIf Text2.Text = "" Then
MsgBox (" Isi Kolom Dengan Lengkap")
ElseIf Text3.Text = "" Then
MsgBox (" Isi Kolom Dengan Lengkap")
ElseIf Text4.Text = "" Then
MsgBox (" Isi Kolom Dengan Lengkap")
Else: Label6.Caption = (Val(Text2.Text) * Val(Text3.Text) * Val(Text4.Text)) / Val(Text1.Text)
Label6.Visible = True
Label8.Visible = True
End If
End Sub
Private Sub Command7_Click()
Form2.Hide
Form1.Show
End Sub
Private Sub Option1_Click()
Command1.Visible = True
Command3.Visible = False
Command4.Visible = False
Command5.Visible = False
Command6.Visible = False
Label1.Visible = True
Label3.Visible = True
Label4.Visible = True
Label5.Visible = True
Label1.Caption = "Tegangan"
Label3.Caption = "Arus"
Label4.Caption = "Daya"
Label5.Caption = "Efisiensi"
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
End Sub
Private Sub Option2_Click()
Command1.Visible = False
Command3.Visible = False
Command4.Visible = True
Command5.Visible = False
Command6.Visible = False
Label1.Visible = True
Label3.Visible = True
Label4.Visible = True
Label5.Visible = True
Label1.Caption = "Luas Permukaan"
Label3.Caption = "Arus"
Label4.Caption = "Daya"
Label5.Caption = "Efisiensi"
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
End Sub
Private Sub Option3_Click()
Command1.Visible = False
Command3.Visible = False
Command4.Visible = False
Command5.Visible = False
Command6.Visible = True
Label1.Visible = True
Label3.Visible = True
Label4.Visible = True
Label5.Visible = True
Label1.Caption = "Tegangan"
Label3.Caption = "Luas Permukaan"
Label4.Caption = "Daya"
Label5.Caption = "Efisiensi"
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
End Sub
Private Sub Option4_Click()
Command1.Visible = False
Command3.Visible = True
Command4.Visible = False
Command5.Visible = False
Command6.Visible = False
Label1.Visible = True
Label3.Visible = True
Label4.Visible = True
Label5.Visible = True
Label1.Caption = "Tegangan"
Label3.Caption = "Arus"
Label4.Caption = "Luas Permukaan"
Label5.Caption = "Efisiensi"
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
End Sub
Private Sub Option5_Click()
Command1.Visible = False
Command3.Visible = False
Command4.Visible = False
Command5.Visible = True
Command6.Visible = False
Label1.Visible = True
Label3.Visible = True
Label4.Visible = True
Label5.Visible = True
Label1.Caption = "Tegangan"
Label3.Caption = "Arus"
Label4.Caption = "Daya"
Label5.Caption = "Luas Permukaan"
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
End Sub
Private Sub Timer2_Timer()
Label7.ForeColor = RGB(Rnd * 250, Rnd * 250, Rnd * 250)
If (Label7.Left + Label1.Width) <= 0 Then
Label7.Left = Me.Width
End If
Label7.Left = Label1.Left - 80
End Sub
Dan Form3 hanya berisi sebagai materi dari Panel Surya saja maka dari itu saya hanya menggunakan sedikit tool yaitu 2 Label dan 1 CommondButton
Berikut adalah kodingannya
Private Sub Command1_Click()
Form3.Hide
Form1.Show
End Sub
Kodingan di atas bisa di coba pada visual basic yang akan kamu buat untuk membuat sebuah rumus ata program yang sama, fungsi akan kamu ketahui jika kamu memakai kodingan tersebut.
Silahkan Mencoba semoga bermanfaat, jika penulis adalah penulisan mohon di koreksi. Terimakasih.
Di bawah ini adalah flowchart dari rangkaian di atas.
Kamis, 28 Januari 2016
Proposal Pembuatan Sel Surya Sebagai Energi Listrik

Inverter, adalah perangkat elektrik yang mengkonversikan tegangan searah (DC -direct current) menjadi tegangan bolak balik (AC - alternating current).
Senin, 16 November 2015
Membuat Speaker Sederhana
Amplfier inilah yang menjadi komponen utama pada speaker aktif. Menurut sepengetahuan saya pengertian speaker aktif adalah amplifier yang dirakit jadi satu dengan speaker dalam satu box atau dengan kata lain "speaker yang ada ampli-nya", sehingga musik yang diputar dari Hp atau perangkat lain dapat langsung terdengar dengan keras melalui Louds Speaker.
Menurut istilah teknik amplifier adalah rangkaian elektronika yang berfungsi untuk menguatkan tegangan, arus, dan daya.
Untuk lebih jelasnya silahkan perhatikan gambar rangkaian di bawah ini!
![]() |
| Skema rangkaian mini amplifier dengan IC TDA 2822 stereo |
- Speaker (saya ambil dari TV bekas)
- Box (saya gunakan botol oli bekas, untuk anda sesuaikan dengan selera dan kreatifitas)
- Komponen sesuai skema di atas (saya ambil dari barang elektroik lain yang udah gak terpakai)
- Kabel USB (saya gunakan adaptor carger HP 5 volt untuk catu dayanya)
- Trafo 1 Ampere (bagi yang ingin menggunakan catu sendiri max 2 Ampere)
- Tenol dan Solder, serta alat pendukung lain untuk perakitan
Setelah anda lihat dan pahami skema speaker aktif di atas silahkan anda buat layoutnya. Cara Membuat Layout telah saya post beberapa waktu lalu. Setelah layout jadi pasang semua komponen sesuai dengan letaknya masing-masing, kemudian tes dahulu dengan catu daya yang kecil. Pastikan tidak ada komponen yang short atau konslet.
Apakah aman digunakan pada port USB..?? . Sejauh ini aman-aman saja dan saya belum pernah mengalami kerusakan pada usb laptop/komputer saya akibat penggunaan ini. Yang penting anda tidak terbalik dalam pemasangan kabelnya.
Lihat gambar dibawah ini :
![]() |
| Pin kabel USB untuk catu daya |







