Cara Mencari Nilai IB,IC,IE pada visual basic

    Selamat Malam saya akan menjelaskan Step Bye Step Cara mengoprasikan sebuah Aplikasi Yang saya buat ini. Dimmana Aplikasi saya kali ini menggunakan Software Visual Basic 6 untuk membuat sebuah aplikasi yang saya buat ini.
  Gambar yang di atas adalah hasil aplikasi yang berhasil saya buat, Berupa rangkaian Elektronika dimana kita bisa mencari Arus IB,IC, dan IE.
 Untuk mencari IB,IC dan IE bagaimana mengguanakan aplikasi ini ?
Mari saya akan tunjukan Caranya

   Untuk Mencari IB,IC dan IE kita perlu mencari RB dan VBB. Apabila RB sudah di ketahui maka tidak usah mencari RB lagi cukup Mencari IB,IC dan IE.
-Cara mencari RB yaitu R1//R2 (R1 paralel R2). Bisa di lihat di gambar Rumusnya.
-Kemudain kita Cari VBB, Dengan Rumus R2//R1+R2 x VCC (R2 di bagi R1 di tambah R2 dan kemudian   Di kali Vcc) lalu kita mendapatkan hasil dari Vcc
-Lalu kita mencari IB Rumusnya
 -VBB+IB.RB+VBE+IE.R4=0
keterangan: apabila RB sudah di ketahui maka VBB tidak usah di cari. Ganti nilai VBB dengan nilai VCC dan nilai VBE adalah 0.7. Dimana IE=(Beta + 1).IB
IB = VBB-VBE / (RBx(Beta+1)+R4)
-Kemudian Untuk Mencari IC yaitu Bete x IB
-Setelah itu rumus IE = (Beta + 1) x IB
Dimana I itu Merupakan Arus Dengan Satuan Ampere dan R merupakan Resistansi Dengan Satuan Ohm

Itulah tadi Rumus-Rumusnya

Nah ini Codingan Yang saya buat Untuk Program VB6 ini

Private Sub Command1_Click()
Text5.Text = Val(Val(Text1.Text) * Val(Text2.Text)) / Val(Val(Text3.Text) + Val(Text4.Text))
End Sub

Private Sub Command2_Click()
Text10.Text = Val(Text6.Text) / Val(Val(Text7.Text) + Val(Text9.Text)) * Val(Text20.Text)
End Sub

Private Sub Command3_Click()
Text26.Text = Val(Text24.Text) * Val(Text25.Text)
Text30.Text = Val(Val(Text28.Text) + Val(Text27.Text)) * Val(Text29.Text)
End Sub

Private Sub Command4_Click()
Text19.Text = Val(Text13.Text) - Val(Text14.Text)
Text21.Text = Val(Text15.Text) + Val(Val(Text16.Text) + Val(Text17.Text)) * Val(Text18.Text)
Text22.Text = Val(Text19.Text) / Val(Text21.Text)
End Sub

Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
Text5.Text = ""
Text10.Text = ""
Text20.Text = ""
Text16.Text = ""
Text18.Text = ""
Text19.Text = ""
Text21.Text = ""
Text22.Text = ""
Text26.Text = ""
Text30.Text = ""
End Sub

Private Sub Text1_Change()
Text3.Text = Text1.Text
End Sub

Private Sub Text10_Change()
Text13.Text = Text10.Text
End Sub

Private Sub Text16_Change()
Text24.Text = Text16.Text
End Sub

Private Sub Text2_Change()
Text4.Text = Text2.Text
End Sub

Private Sub Text22_Change()
Text25.Text = Text22.Text
End Sub

Private Sub Text24_Change()
Text28.Text = Text24.Text
End Sub

Private Sub Text25_Change()
Text29.Text = Text25.Text
End Sub

Private Sub Text3_Change()
Text7.Text = Text3.Text
End Sub

Private Sub Text4_Change()
Text6.Text = Text4.Text
End Sub

Private Sub Text5_Change()
Text15.Text = Text5
End Sub

Private Sub Text6_Change()
Text9.Text = Text6.Text
End Sub

Dan Berupa FlowChat

Start = Di sini Kita memulai Aplikasi
Input = Dimana kita akan memulai menghitung sebuah rangkaian transistor
Proses = disini kita akan mulai menghitung RB,VBB,IB,IC dan IE
Output = disini kita mendapatkan sebuah hasil yang kita hitung tadi
END = disini kita mengakhiri sebuah perhitungan yang kita buat dan dianggap benar

struktur navigasi

Munngkin itu saja yang bisa saya posting.
bila ada kesalahan mohon di maafkan atau bimbing ke jalan yang benar
Terima kasih (^-^)