Mit dem Programm Innenwiderstand kann man beobachten, wie sich Strom und Spannung in Schaltungen verhalten, wenn man den Innenwiderstand einer Stromquelle, die Spannung der Stromquelle oder die Last verändert.
Die Berechnung ähnelt der bei der Reihenschaltung, weil der innere und der äußere Widerstand einen Spannungsteiler bilden. Mehr dazu findet man in ELEXS.
rges = Ri + Ra
Ia = Ui / rges
Ua = Ra * Ia
Quelltext
Public Class frmInnen
Dim Ui, Ri, Ia, Ra, Ua
Private Sub berechnen()
Dim rges
Ui = (sbSpannung.Maximum - sbSpannung.Value + sbSpannung.Minimum) / 10
Ri = (sbInnen.Maximum - sbInnen.Value + sbInnen.Minimum) / 10
Ra = (sbOhm.Maximum - sbOhm.Value + sbOhm.Minimum) / 10
Ia = “1”
Ua = “1”
rges = Ri + Ra
Ia = Ui / rges
Ua = Ra * Ia
lbSpI.Text = Str(Math.Round(Ui, 2)) + " V “
lbRQ.Text = Str(Math.Round(Ri, 2)) + " Ohm”
lbRA.Text = Str(Math.Round(Ra, 2)) + " Ohm"
lbIA.Text = Str(Math.Round(Ia, 2)) + " A “
lbSpA.Text = Str(Math.Round(Ua, 2)) + " V “
End Sub
Private Sub sbInnen_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs)Handles sbInnen.Scroll
berechnen()
End Sub
Private Sub frmInnen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
berechnen()
End Sub
Private Sub sbSpannung_Scroll(ByVal sender As System.Object, ByVal e AsSystem.Windows.Forms.ScrollEventArgs) Handles sbSpannung.Scroll
berechnen()
End Sub
Private Sub sbOhm_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs)Handles sbOhm.Scroll
berechnen()
End Sub
End Class
