ASK: 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()

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()

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()

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