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
