Innenwiderstand – VB.Net Beispiel

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

[Einklappen]

Download Projektdatei

Wenn Sie nur an der Exe-Datei interessiert sind, befindet sich diese in dem Unterordner \bin\Debug.