Bewertung Projekt Berechnung elektrischer Widerstand

Amelie · 24. März 2022, 10:45

Da ich das Tupels bis heute garnicht kannte habe ich das halt mit der Variablen Berchnung Typ Boolean gemacht. In VS-2012/2013 gab es das wohl garnicht.
Und jetzt habe ich erstmal den Fehler:

Schweregrad	Code	Beschreibung	Projekt	Datei	Zeile	Unterdrückungszustand
Fehler	BC37267	Der vordefinierte Typ "ValueTuple(Of ,)" wurde nicht definiert oder importiert.

Muss nun erstmal guggen was ich da Importieren muss und was man damit machen kann.

Die Function hatte ich schon auf Privat gesetzt aber ich verstehe nicht was an dem Namen nun so falsch ist??? hmmm

""...und das Einheitenvorzeichen. Daher geht der Code kürzer.""
Wüsste ich im Moment nicht wie ich das kürzen kann....

VaporiZed · 24. März 2022, 11:17

VB.NET-Quellcode

Dim Einheitenvorsatz As String
Dim Umrechnungsfaktor As Double = 1
If Multiplikator = 10 ^ -1 OrElse Multiplikator = 10 ^ -2 OrElse Multiplikator = 10 ^ 0 OrElse Multiplikator = 10 ^ 1 Then
ElseIf Multiplikator = 10 ^ 2 OrElse Multiplikator = 10 ^ 3 OrElse Multiplikator = 10 ^ 4 Then
Einheitenvorsatz = "k"
Umrechnungsfaktor = 1000
ElseIf Multiplikator = 10 ^ 5 OrElse Multiplikator = 10 ^ 6 OrElse Multiplikator = 10 ^ 7 Then
Einheitenvorsatz = "M"
Umrechnungsfaktor = 1000000
ElseIf Multiplikator = 10 ^ 8 OrElse Multiplikator = 10 ^ 9 Then
Einheitenvorsatz = "G"
Umrechnungsfaktor = 1000000000
End If
Maßeinheit = " " & Einheitenvorsatz & "Ω"
Widerstand /= Umrechnungsfaktor
Toleranzbeginn /= Umrechnungsfaktor
Toleranzende /= Umrechnungsfaktor

Amelie · 24. März 2022, 13:02

OK, da hätte ich drauf kommen können.
Jetzt habe ich beim testen aber etwas festgestellt. Und zwar:
Wenn ich mit 4-Ringen arbeite, werden die Werte richtig umgewandelt und ausgegeben.

Beispiel 4-Ringe: rot - rot - rot (Expo=100) - ergibt 2200 ==> Ausgabe 2,2 kΩ
Beispiel 5-Ringe:rot - rot - schwarz - braun(Expo=10) - ergibt auch 2200 ==> Ausgabe ist dann aber 2200 Ω

Also muss ich das ganze noch umändern ....

Amelie · 25. März 2022, 09:25

Moin moin @VaporiZed
Also das mit den fhelerhaften Umrechungen bei 4 / 5 Ringen habe ich nun gelöst.

VB.NET-Quellcode

Dim Einheitenvorsatz As String = "" 'Die " " musste ich noch setzen weil VS gemeckert hatte
Dim Umrechnungsfaktor As Double = 1
If Multiplikator = 10 ^ -1 OrElse Multiplikator = 10 ^ -2 OrElse Multiplikator = 10 ^ 0 OrElse Multiplikator = 10 ^ 1 Then
If AktuelleRingzahl = Ringanzahl.Fünf_Ringe Then
Umrechnungsfaktor = 1000
Einheitenvorsatz = "k."
End If

Jetzt eine Verständnissfrage.
Kann man aus einen ENUM 2 Werte auslesen anhand einer Vorgabe?
Beispiel:

VB.NET-Quellcode

Friend Enum E24Reihe
Wert18 = 51
Wert19 = 56
Wert20 = 62
Wert21 = 68
End Enum

Vorgabe wäre 57,55
Dann sollte aus dem ENUM 56 und 62 ermittelt werden.
Geht das mit ENUM oder besser ein ListOf oder etwas ganz anderes oder geht das so garnicht?

VaporiZed · 25. März 2022, 09:36

Wie kommst Du denn rein logisch von 55,57 auf den Wunschwert 56 und 62? Da erschließt sich mir der Zusammenhang nicht. Geht es darum, dass Du den nächstgrößeren Wert jeweils willst? oder größergleich? Was sind das für E24-Werte? Sind die irgendwo vorgegeben? Und woher kommt der 55/57-Input? Ist der auch irgendwo festgelegt oder kommen diese Zahlen vom User aus ner TextBox/nem NumericUpDown?

Schmittmuthelm · 25. März 2022, 09:53

@VaporiZed E24 bezeichnet eine Widerstandsreihe, darin ist fest vorgegeben welche Widerstandswerte valide Werte sind. In der E24-Reihe gibt es mitunter den Basiswert 5,1 und auch 5,6 (valide Werte für die Reihe wären dann beispielsweise 510 Ohm oder auch 5,1 kOhm). Wenn bei Amelies Berechnung jetzt ein Widerstandswert von 57 rauskommt, ist das kein valider Widerstand der E24-Reihe. Es gibt also in der echten Welt keinen Widerstand der E24-Reihe mit einem Wert von z.B. 57 Ohm. Ich gehe also davon aus, dass sie über das Enum den nächsten, nicht zwangsläuflig den größeren, validen Wert entsprechend ihrer Berechnung ermitteln will.

VaporiZed · 25. März 2022, 10:05

Tja, dann muss sie wohl klar ihre Regeln festlegen und mitteilen, wiewannwelcher offizielle Wert verwendet werden soll, wenn die Usereingaben einen bestimmten, ungültigen Wert ergeben.

Amelie · 25. März 2022, 12:30

Hallo @Schmittmuthelm und @VaporiZed

Im Grunde hat Schmitt es genau erklärt.
Beispiel: Ich habe eine Schaltung entworfen und darin habe ich einen Widerstand errechnet. Diesen errechneten Werte geben ich nun in meine App ein. Jetzt wirft die App einen Widerstand ( Farbcode und Wert ) heraus und es soll nun eben aus der z.B. E24 Reihe der nächste "zu kaufende" Wert ermittelt werden. Sowohl einer größer und einer kleiner.

EDIT: 13:02 Könnte das ein Ansatz werden?

VB.NET-Quellcode

Public Function GetResistor(ByVal NewResistor As Double) As Double
For Each R As E24Reihe In [Enum].GetValues(GetType(E24Reihe))
If ???????? Then Return 0
Next
Return NewResistor
End Function

Schmittmuthelm · 25. März 2022, 13:11

Hab sowas mal in C# gemacht. Das ganze könnte dann so aussehen:

C#-Quellcode

double[] E24 = new double[] { 1.0, 1.1, 1.2, 1.3, 1.5, 1.6, 1.8, 2.0, 2.2, 2.4, 2.7, 3.0, 3.3, 3.6, 3.9, 4.3, 4.7, 5.1, 5.6, 6.2, 6.8, 7.5, 8.2, 9.1 };
private (double min, double max) GetMinMax(double value)
{
var min = E24.Aggregate((x, y) => x >= y && x <= value ? x : y <= value ? y : x <= y ? x : y);
var max = E24.Aggregate((x, y) => x <= y && x >= value ? x : y >= value ? y : x >= y ? x : y);
return (min, max);
}

Das nach vb.net zu übersetzen überlass ich dir. (Warum die Ausrede "Das ist aber C#" nicht gilt)

Amelie · 25. März 2022, 16:12

Habe mir nun jetzt erstmal das System.ValueTuple installiert.
Weis aber noch nicht wie ich das anwenden muss.

Der c# Codeconverter schmiss nur fehler aus. Naja hab dann das daraus gemacht.

VB.NET-Quellcode

Friend E24Reihe() As Double = {1.0, 1.1, 1.2, 1.3, 1.5, 1.6, 1.8, 2.0, 2.2, 2.4, 2.7, 3.0, 3.3, 3.6, 3.9, 4.3, 4.7, 5.1, 5.6, 6.2, 6.8, 7.5, 8.2, 9.1}
Friend Function GetMinMax(minmax As Double) As Double
Dim min As Double
Dim max As Double
'min = E24.Aggregate((min, max) >= min >= max AND x <= value ? x OR max <= value ? max OR min <= max ? min OR max)
'max = E24.Aggregate((min, max) >= min <= max AND x >= value ? x OR max >= value ? max OR min >= max ? min OR max)
Return (min, max)
End Function

Hier bekomme ich schon beim Return den Fehler
Der Wert vom Typ "(min As Double, max As Double)" kann nicht in "Double" konvertiert werden.
Tja und der Rest... ich sag mal so. mein Hirn brutzelt....

Ich versuche mal mit For each ... und If else

RodFromGermany · 25. März 2022, 17:28

@Amelie Du kannst auch mit dem "normalen" Tuple arbeiten:

VB.NET-Quellcode

Private E24 As Double() = New Double() {1.0, 1.1, 1.2, 1.3, 1.5, 1.6, 1.8, 2.0, 2.2, 2.4, 2.7, 3.0, 3.3, 3.6, 3.9, 4.3, 4.7, 5.1, 5.6, 6.2, 6.8, 7.5, 8.2, 9.1}
Private Function GetMinMax(ByVal value As Double) As Tuple(Of Double, Double)
Dim min = E24.Aggregate(Function(x, y) If(x >= y AndAlso x <= value, x, If(y <= value, y, If(x <= y, x, y))))
Dim max = E24.Aggregate(Function(x, y) If(x <= y AndAlso x >= value, x, If(y >= value, y, If(x >= y, x, y))))
Return New Tuple(Of Double, Double)(min, max)
End Function

Amelie · 25. März 2022, 17:58

Ich muss erstmal genau wissen was das Tuple macht.
Könnte das mal einer von Euch für mich AA etwas erklären.

OK Ich kann so einem Return 2 Werte ( können auch 2 Unterschiedliche sein ) zurückgeben lassen...????

Danke

RodFromGermany · 25. März 2022, 18:03

@Amelie Ein Tuple ist eine Gruppierung von 2 oder mehreren Typen zu einer Einheit.

VB.NET-Quellcode

Dim tx = New Tuple(Of Integer, Bitmap, Form)(42, New Bitmap("c:\Temp\Test.png"), Me)

Amelie · 26. März 2022, 10:29

Moin moin

Ich habe es nun geschafft die Werte entsprechend umzurechen, so dass die Ausgaben wieder zu den Maßeinheiten passen.
Der Code funktioniert aber NUR wenn ich mit 4-Ringen rechne. Bei Fünf-Ringen verschiebt sich ja der Multiplikator.

Ich habe die drei Reihen angelegt und damit gerechnet, weil sich die Werte je eigentlich nur wiederholen.
1.1Ohm , 11Ohm, 110Ohm, 1,1kOhm,...1,1MOhm usw...

Jetzt erstmal die erste Frage, geht das was ich da nun gemacht habe auch einfacher durch irgendwelche "Tricks" welche IHR kennt??

Die zweite wäre dann natürlich wie sähe das bei Fünf-Ringen aus? Das ganze Konstrukt nochmal schreiben?

Spoiler anzeigen

VB.NET-Quellcode

Friend E24Reihe_Einer() As Double = {1.0, 1.1, 1.2, 1.3, 1.5, 1.6, 1.8, 2.0, 2.2, 2.4, 2.7, 3.0, 3.3, 3.6, 3.9, 4.3, 4.7, 5.1, 5.6, 6.2, 6.8, 7.5, 8.2, 9.1}
Friend E24Reihe_Zehner() As Double = {10, 11, 12, 13, 15, 16, 18, 20, 22, 24, 27, 30, 33, 36, 39, 43, 47, 51, 56, 62, 68, 75, 82, 91}
Friend E24Reihe_Hunderter() As Double = {100, 110, 120, 130, 150, 160, 180, 200, 220, 240, 270, 300, 330, 360, 390, 430, 470, 510, 560, 620, 680, 750, 820, 910}
Friend Function GetMinMax(ByVal value As Double) As Tuple(Of Double, Double)
If Multiplikator = 10 ^ -2 Then
value = value * 10
Dim min = E24Reihe_Einer.Aggregate(Function(x, y) If(x >= y AndAlso x <= value, x, If(y <= value, y, If(x <= y, x, y))))
Dim max = E24Reihe_Einer.Aggregate(Function(x, y) If(x <= y AndAlso x >= value, x, If(y >= value, y, If(x >= y, x, y))))
Minwert = min / 10
Maxwert = max / 10
End If
If Multiplikator = 10 ^ -1 Then
value = value
Dim min = E24Reihe_Einer.Aggregate(Function(x, y) If(x >= y AndAlso x <= value, x, If(y <= value, y, If(x <= y, x, y))))
Dim max = E24Reihe_Einer.Aggregate(Function(x, y) If(x <= y AndAlso x >= value, x, If(y >= value, y, If(x >= y, x, y))))
Minwert = min
Maxwert = max
End If
If Multiplikator = 10 ^ 0 OrElse Multiplikator = 10 ^ 1 Then
value = value / Multiplikator
Dim min = E24Reihe_Zehner.Aggregate(Function(x, y) If(x >= y AndAlso x <= value, x, If(y <= value, y, If(x <= y, x, y))))
Dim max = E24Reihe_Zehner.Aggregate(Function(x, y) If(x <= y AndAlso x >= value, x, If(y >= value, y, If(x >= y, x, y))))
Minwert = min * Multiplikator
Maxwert = max * Multiplikator
End If
If Multiplikator = 10 ^ 2 Then
value = value * Multiplikator
Dim min = E24Reihe_Hunderter.Aggregate(Function(x, y) If(x >= y AndAlso x <= value, x, If(y <= value, y, If(x <= y, x, y))))
Dim max = E24Reihe_Hunderter.Aggregate(Function(x, y) If(x <= y AndAlso x >= value, x, If(y >= value, y, If(x >= y, x, y))))
Minwert = min / Multiplikator
Maxwert = max / Multiplikator
End If
If Multiplikator = 10 ^ 3 OrElse Multiplikator = 10 ^ 9 OrElse Multiplikator = 10 ^ 6 Then
value = value / 10
Dim min = E24Reihe_Einer.Aggregate(Function(x, y) If(x >= y AndAlso x <= value, x, If(y <= value, y, If(x <= y, x, y))))
Dim max = E24Reihe_Einer.Aggregate(Function(x, y) If(x <= y AndAlso x >= value, x, If(y >= value, y, If(x >= y, x, y))))
Minwert = min * 10
Maxwert = max * 10
End If
If Multiplikator = 10 ^ 4 Then
value = value / 100
Dim min = E24Reihe_Einer.Aggregate(Function(x, y) If(x >= y AndAlso x <= value, x, If(y <= value, y, If(x <= y, x, y))))
Dim max = E24Reihe_Einer.Aggregate(Function(x, y) If(x <= y AndAlso x >= value, x, If(y >= value, y, If(x >= y, x, y))))
Minwert = min * 100
Maxwert = max * 100
End If
If Multiplikator = 10 ^ 5 OrElse Multiplikator = 10 ^ 8 Then
value = value / 1
Dim min = E24Reihe_Einer.Aggregate(Function(x, y) If(x >= y AndAlso x <= value, x, If(y <= value, y, If(x <= y, x, y))))
Dim max = E24Reihe_Einer.Aggregate(Function(x, y) If(x <= y AndAlso x >= value, x, If(y >= value, y, If(x >= y, x, y))))
Minwert = min * 1
Maxwert = max * 1
End If
If Multiplikator = 10 ^ 7 Then
value = value / 1
Dim min = E24Reihe_Hunderter.Aggregate(Function(x, y) If(x >= y AndAlso x <= value, x, If(y <= value, y, If(x <= y, x, y))))
Dim max = E24Reihe_Hunderter.Aggregate(Function(x, y) If(x <= y AndAlso x >= value, x, If(y >= value, y, If(x >= y, x, y))))
Minwert = min * 1
Maxwert = max * 1
End If
Return New Tuple(Of Double, Double)(0, 0)
End Function
' ==>>Die Ausgabe auf der Form:
Private Sub Get_MinMax_Werte()
Resistor.GetMinMax(Resistor.Widerstand)
lbl_moeglichewerte.Text = Resistor.Minwert.ToString("0.###") & Resistor.Maßeinheit & " und " & Resistor.Maxwert.ToString("0.###") & Resistor.Maßeinheit
End Sub

@RodFromGermany
Dim tx = New Tuple(Of Integer, Bitmap, Form)(42, New Bitmap("c:\Temp\Test.png"), Me)
Das schaut aus wie. Äpfel, Fleisch ergibt...???
Das blicke ich nicht.

VaporiZed · 26. März 2022, 11:00

Du liegst gar nicht mal so falsch mit

Amelie schrieb:

Das schaut aus wie. Äpfel, Fleisch ergibt

Es ergibt ein Gesamtpaket aus Integer, Bitmap, Form. Und derjenige (Code), der das "Paket" erhält, kann es auseinanderschnüren und daraus - wenn er will - den Integer, die Bitmap und das Form herausholen.
Alternativ kannst Du Dir auch eine eigene Datenklasse machen.

VB.NET-Quellcode

Friend Class DeinDatenpaket
Property Zahl1 As Integer
Property Zahl2 As Double
End Class
'…
Friend Function GibMirZweiZahlen() As DeinDatenpaket
Return New DeinDatenpaket With {.Zahl1 = 2, .Zahl2 = 3.1415927}
End Function

RodFromGermany · 26. März 2022, 11:05

Amelie schrieb:

Das blicke ich nicht.

Das ist eine Gruppierung von Daten, die irgendwie zusammengehören.
Das war einfach nur als völlig allgemeines Beispiel gedacht.
Also: völlig unterschiedlich und mehr als einer.

Amelie · 26. März 2022, 11:58

@VaporiZed
OK, das mit dem Apfel und Fleisch muss ich mir dann naochmal genauer anssehen.
Zu meinen Fragen bzgl des Code´s gibt es da Ideen?

EDIT 12:10 Uhr: Konnte das nochmal soweit kürzen.

Spoiler anzeigen

VB.NET-Quellcode

Friend Function GetMinMax(ByVal value As Double) As Tuple(Of Double, Double)
If Multiplikator = 10 ^ -2 Then
value = value * 10
Dim min = E24Reihe_Einer.Aggregate(Function(x, y) If(x >= y AndAlso x <= value, x, If(y <= value, y, If(x <= y, x, y))))
Dim max = E24Reihe_Einer.Aggregate(Function(x, y) If(x <= y AndAlso x >= value, x, If(y >= value, y, If(x >= y, x, y))))
Minwert = min / 10
Maxwert = max / 10
End If
If Multiplikator = 10 ^ -1 Then
value = value
Dim min = E24Reihe_Einer.Aggregate(Function(x, y) If(x >= y AndAlso x <= value, x, If(y <= value, y, If(x <= y, x, y))))
Dim max = E24Reihe_Einer.Aggregate(Function(x, y) If(x <= y AndAlso x >= value, x, If(y >= value, y, If(x >= y, x, y))))
Minwert = min
Maxwert = max
End If
If Multiplikator = 10 ^ 0 OrElse Multiplikator = 10 ^ 1 Then
value = value / Multiplikator
Dim min = E24Reihe_Zehner.Aggregate(Function(x, y) If(x >= y AndAlso x <= value, x, If(y <= value, y, If(x <= y, x, y))))
Dim max = E24Reihe_Zehner.Aggregate(Function(x, y) If(x <= y AndAlso x >= value, x, If(y >= value, y, If(x >= y, x, y))))
Minwert = min * Multiplikator
Maxwert = max * Multiplikator
End If
If Multiplikator = 10 ^ 2 OrElse Multiplikator = 10 ^ 5 OrElse Multiplikator = 10 ^ 8 Then
value = value / 1
Dim min = E24Reihe_Einer.Aggregate(Function(x, y) If(x >= y AndAlso x <= value, x, If(y <= value, y, If(x <= y, x, y))))
Dim max = E24Reihe_Einer.Aggregate(Function(x, y) If(x <= y AndAlso x >= value, x, If(y >= value, y, If(x >= y, x, y))))
Minwert = min * 1
Maxwert = max * 1
End If
If Multiplikator = 10 ^ 3 OrElse Multiplikator = 10 ^ 9 OrElse Multiplikator = 10 ^ 6 Then
value = value / 10
Dim min = E24Reihe_Einer.Aggregate(Function(x, y) If(x >= y AndAlso x <= value, x, If(y <= value, y, If(x <= y, x, y))))
Dim max = E24Reihe_Einer.Aggregate(Function(x, y) If(x <= y AndAlso x >= value, x, If(y >= value, y, If(x >= y, x, y))))
Minwert = min * 10
Maxwert = max * 10
End If
If Multiplikator = 10 ^ 4 OrElse Multiplikator = 10 ^ 7 Then
value = value / 100
Dim min = E24Reihe_Einer.Aggregate(Function(x, y) If(x >= y AndAlso x <= value, x, If(y <= value, y, If(x <= y, x, y))))
Dim max = E24Reihe_Einer.Aggregate(Function(x, y) If(x <= y AndAlso x >= value, x, If(y >= value, y, If(x >= y, x, y))))
Minwert = min * 100
Maxwert = max * 100
End If
Return New Tuple(Of Double, Double)(0, 0)
End Function

RodFromGermany · 26. März 2022, 12:16

@Amelie Du rerurnst im Moment stets {0, 0}.
Meinst Du

VB.NET-Quellcode

Return New Tuple(Of Double, Double)(0, 0)

Die Potenzen {10 ^-1} und so würde ich ausrechnen und das Ergerbnis hinschreiben, die permanente Berechnung davon ist etwas schleppend.
Wenn Du mit ElseIf arbeitest, wird nicht jedes einzelne If getestet, sondern er hört beim richtigen auf.
Dann bau Dir eine Terstfunktion, etwa so, um sofort grobe Fehler zu erkennen:

VB.NET-Quellcode

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Multiplikator = 1
For i = 1 To 10
Debug.WriteLine(GetMinMax(i))
Next
End Sub

Amelie · 26. März 2022, 13:30

Ich habe soeben festgestellt, das bei der Widerstandsberechnung mit Fünf-Ringen noch Fehler bei der Umrechnung in die verschiedenen Maßeinheiten auftauchen.
Nun überlege ich ob es evtl Sinnvoller wäre:
1.) Die beiden Funktionen zusammen zu legen
2.) Die ganzen Auswahlmöglichkeiten ggf mit Select Case einfacher zu gestallten

@RodFromGermany
Was meinst du hier: Du rerurnst im Moment stets {0, 0}.

VaporiZed · 26. März 2022, 13:51

Schreibfehler. Das soll heißen Du returnst im Moment stets {0, 0}. = Du gibst in der letzten Zeile immer die beiden Werte 0 und 0 in einem Tupel zurück.
Sein Vorschlag (den er aber so nicht geschrieben hat!): Return New Tuple(Of Double, Double)(minwert, maxwert)

##########

zu später Stunde noch ein Nachtrag:
Ich bin mal so dreist und füg das hier noch ein, obwohl total Offtopic: @RodFromGermany: Wenn ich mich nicht total täusche, war Post#81 Dein 50000er. Meinen allerherzlichsten Glückwunsch zum Durchbruch dieser "Schallmauer" und zu Deinem Durchhaltevermögen! :thumbup:

Ich kann mich noch erinnern, dass Du ein gutes Stück nach meinem Anfang hier im Forum die 40k geknackt hattest. Gar nicht sooo lange her … Mal sehen, ob ich die 100k noch erlebe

Bewertung Projekt Berechnung elektrischer Widerstand

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

C#-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Amelie schrieb:

VB.NET-Quellcode

Amelie schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

6 Benutzer haben hier geschrieben