Invertierender Verstärker -VB.Net Beispiel

Das Programm Inventierender Verstärker funktioniert ähnlich wie das vorangegangen Programm Nichtinvertierender Verstärker.

Das Programm unterscheidet sich vom Vorgänger fast nur durch eine etwas andere Rechenregel (vgl. ELEXS)

    Rv = R1 / (R1 + R2)
        V = -(R2 / R1)
        Uv = Rx * V  

Quelltext

Public Class frmIV
 
    Dim R1, R2, Rx
    Dim V
    Dim Uo, Uplus, Uminus
    Dim Uv, Rv
 
    Private Sub sR2_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs)Handles sR2.Scroll
        berechnen()
    End Sub
 
    Private Sub berechnen()
        R1 = sR1.Value
        R2 = sR2.Value
        Rx = (sRx.Maximum – sRx.Value + sRx.Minimum) / 10
 
        lR1.Text = „R1 = “ + Str(R1) + “ k“
        lR2.Text = „R2 = “ + Str(R2) + “ k“
        lUi.Text = „Ui = “ + Str(Rx) + “ V“
 
        Rv = R1 / (R1 + R2)
        V = -(R2 / R1)
        Uv = Rx * V
 
        If Uv > 9.5 Then
            Uo = 9.5
            Uminus = (Uv – Uo) * -Rv
        ElseIf Uv < -9.5 Then
            Uo = -9.5
            Uminus = (Uv – Uo) * -Rv
        Else
            Uo = Uv
            Uplus = 0
            Uminus = 0
        End If
        Uminus = Math.Round(Uminus, 2)
 
        lUo.Text = „Uo = “ + Str(Uo) + “ V“
        lUplus.Text = „U+ = “ + Str(Uplus) + “ V“
        lUminus.Text = „U- = “ + Str(Uminus) + “ V“
    End Sub
 
    Private Sub sRx_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs)Handles sRx.Scroll
        berechnen()
    End Sub
 
    Private Sub sR1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs)Handles sR1.Scroll
        berechnen()
    End Sub
 
    Private Sub frmIV_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        berechnen()
    End Sub
End Class

[collapse]

Download Projektdatei

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