Widerstand – VB.Net Beispiel

Autor: Fabian Kainka 30/01/2013

Widerstände spielen in jeder Schaltung eine große Rolle. Sie ermöglichen es uns u.A. den Strom genau zu steuern und verhindern somit das Durchbrennen von LEDs und anderen Bauteilen. In diesem Programm dreht es sich speziell um die Widerstände der meist benutzen E24-Reihe. In dieser Reihe gibt es eine diskrete Anzahl von Widerstandswerten. Diese Werte kann man anhand der Farbringe ablesen. Die ersten beiden Ringe stehen für eine zweistellige Zahl, die noch mit einer Zahl 10^x multipliziert wird. Der letzte Ring (meist golden) gibt die Genauigkeit dieser Angaben an (in diesem Fall 5%). Angenommen Sie suchen also einen 100-Ohm-Widerstand, müssen Sie nach den Farbringen braun (1), schwarz(0), braun (= 10¹ = 10) Ausschau halten. Die genauen Farbcodes finden Sie u.A. hier: http://www.elektronik-kompendium.de/sites/bau/1109051.htm

Dieses Programm beschäftigt sich mit den Widerstandsfarben. Sie können einen bestimmten Widerstandswert wählen und das Programm verändert den Farbcode des abgebildeten Widerstands. Zusätzlich können Sie auch noch eine Spannung einstellen. Das Programm rechnet dann den Strom und die Leistung am Widerstand aus. Wird der Strom zu groß, erscheint eine Warnmeldung: zu heiß. Erhöhen Sie die Spannung weiter, übersteigt der Strom einen Wert, der den Widerstand zerstört und eine weitere Warnmeldung erscheint. Sie können dann aber trotzdem noch den Widerstandswert auf einem unkritischen Wert erhöhen.

In dem Programm selber sind einige Elemente, die wir in anderen Programmen noch nicht hatten. Deswegen werde ich den Quelltext wieder Schritt für Schritt auseinander nehmen.

Quelltextauszug I: Arrays

In diesem Programm tauchen zum ersten Mal Arrays auf. Arrays könnte man als einen ganzen Haufen von Variablen bezeichnen, die sich bei gleichem Namen nur in einem Index unterscheiden. Wir sehen hier zum Beispiel das Array Werte. Die Zahl dahinter beschreibt, wie viele verschiedene Datenplätze freigehalten werden sollen. Später unter Form1_Load sieht man auch wie man einen Wert in das Array schreibt. Man benutzt einfach den Namen mit einem Index in den Klammern. Im Grunde funktioniert das wie bei einer gewöhnliche Variablen. Die Vorteile liegen jetzt aber unter anderem darin, dass man z.B. in einer For-Schleife den Index berechnen und dann den entsprechenden Wert aus dem Array lesen kann.

Das zweite Array mit dem Namen Farben zeigt, dass der Index schon bei Null beginnt und dass ein Array beliebige Datentypen (hier Color) beinhalten kann.

    Dim Werte(24)
    Dim Farben(9) As Color
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ‚Widerstandswerte der E27-Reihe
        Werte(1) = 10
        Werte(2) = 11
        Farben(0) = Color.FromArgb(0, 0, 0)
        Farben(1) = Color.Brown
    End Sub

Quelltextauszug II: Logarithmischer Schieber

Logarithmische Funktionen zeichnen sich dadurch aus, dass die Werte nicht in Form einer geraden Linie, sondern in Form einer immer steiler werdenden Kurve steigen. Dies ist an dieser Stelle besonders geeignet, da sich die Widerstandswerte im Bereich von 10 Ohm bis zu 10 Mega Ohm befinden. Ein linearer Schieber würde also sehr lang oder extrem ungenau sein. Dieses Beispiel zeigt deswegen, wie ein linearer Schieber in logarithmische Werte umgerechnet werden kann:

        ‚Größenordnung bestimmen aus logarithmischen Schieber
        vIn = sR.Value
        Ziffern = vIn Mod 24
        Expo = vIn \ 24
        Gro = 0.1
 
        For n = 1 To (Expo + 1)
            Gro = Gro * 10
        Next n

Quelltextauszug III: Berechnung der Werte

An dieser Stelle verweise ich nur kurz auf die Berechnung von Strom, Spannung und Leistung nach bekannten Gesetzen:

   U = (hU.Value) / 10
        lV.Text = „Spannung = “ + Str$(U) + “ V“
   I = U / widerstand * 1000
        I = Int(I * 1000) / 1000
        lA.Text = „Strom = “ + Str$(Math.Round(I, 3)) + “ mA“
   P = U * I
        P = Int(P * 1000) / 1000
        lP.Text = „Leistung = “ + Str$(Math.Round(P, 3)) + “ mW“

Quelltextauszug IV: Das Blinken der Warnungen

Sie werden bemerkt haben, dass die Warnungen auf dem Widerstand durch ihr Blinken besonders auf sich aufmerksam machen. Der Quelltext dahinter ist recht simpel. Ein Timer mit einem Intervall von 500 ms schaltet das entsprechende Label im Schadensfall abwechselnd auf sichtbar (Visible = True) und unsichtbar (Visible = False). Ob und wenn ja welches Label zu blinken beginnt entscheidet die Zustandsvariable vzuhei. Sie nimmt den Wert 1 an, wenn der Widestand zu heiß wird, den Wert 2, wenn der Widerstand kaputt ist und den Wert 3 im Normalfall.

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ‚Blinken von „Zu Heiß“
        Select Case vzuhei
            Case 1
                lzh.Visible = Not lzh.Visible ‚True :
                ldurch.Visible = False
            Case 2
                ldurch.Visible = Not ldurch.Visible ‚True :
                lzh.Visible = False
            Case Else
                lzh.Visible = False
                ldurch.Visible = False
        End Select

Download Projektdatei

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