Private Sub CMDBeenden_Click(): Rem Beenden
End
End Sub
Rem Eingabe nicht ändern.
Private Sub cmdBerechnen_Click()
Ubat = Val(txtUbatterie): Rem Eingabe Bteriespannung
N = Val(txtLeistung): Rem Eingabe Transistorleistung
Ube = Val(txtUbe): Rem Eingabe B / E Spannung
ug = Val(txtug): Rem Untere Grenzfrequenz Hz
Pi = 3.14: Rem Genauer Wert ATN(1)* 4
Rem Mathe zur Eingabe nicht Ändern
ß = 50: Rem Verrstärkungsfaktor
Uce = Ubat * 0.4: Rem V
Urc = Ubat * 0.4: Rem V
Ure = Ubat * 0.2: Rem V
Ic = N / Uce: Rem I = N / U
Ib = Ic / 50: Rem mA
Iq = Ib * 10 * 10 ^ 3: Rem mA
S = Ic / 25.85: Rem Themperaturdurchgriff (= 1 / Ohm)
URq1 = Ubat - (Ure + Ube): Rem V
URq2 = Ubat - URq1: Rem V
Rc = Urc / Ic: Rem  Kohm
IqIb = Iq + Ib
IcIb = Ic + Ib
Re = Ure / Ic: Rem Ohm
Rb = Ube / Ib: Rem KOhm
Rq2 = URq2 / Iq: Rem Kohm
Rq1 = URq1 / Iq: Rem Kohm
SRq2 = 1 / Rq2: Rem Leitwert in Simens
SRq1 = 1 / Rq1: Rem Leitwert in Simens
SRB = 1 / Rb: Rem   Leitwert in Simens
SQ1Q2SRB = SRq1 + SRq2 + SRB: Rem Alle Leitwerte Paralel
Q1Q2SRB = 1 / SQ1Q2SRB: Rem In Ohm umwandeln
Reingang = Q1Q2SRB: Rem Eingangsimpendanz
RAusgang = Rc: Rem Ausgangsimpendanz
C1 = 1 / Reingang
C2 = 1 / (2 * Pi * ug) * Rc
C3 = 1 / (2 * Pi * ug / (Re * 10))
If Rc >= 1000 Then Rc = Rc / 1000: Rem Umschalten auf KOhm
If Reingang >= 1000 Then Label8.Caption = "Ohm" Else Label18.Caption = "KOhm": Rem Umschalten auf Ohm
If RAusgang >= 1000 Then RAusgang = RAusgang / 1000
If RAusgang <= 1000 Then lblReingang1.Caption = "KOhm" Else Label18.Caption = "Ohm"
Rem *** Variable den Textfeldern zugewiesen ******************
txtUbat = Round(Ubat, 1)
txtUc = Round(Urc, 1)
txtUtr = Round(Uce, 1)
txtUre = Round(Ure, 1)
txtUrq1 = Round(URq1, 1)
txtUrq2 = Round(URq2, 1)
txtIcb = Ic
txtRe = Round(Re, 1)
txtIc = Ic
txtRc = Round(Rc, 1)
txtIb = Ib
txtUbe2 = Round(Ube, 1)
txtRq2 = Round(Rq2, 1)
txtRq1 = Round(Rq1, 1)
txtIq = Iq
txtIqIb = IqIb
txtReingang = Round(Reingang, 1)
txtRAusgang = Round(RAusgang, 1)
txtC1 = Round(C1, 1)
txtC2 = Round(C2, 1)
txtC3 = Round(C3, 1)
End Sub