Bewertung Projekt Berechnung elektrischer Widerstand

  • VB.NET
  • .NET (FX) 4.0

Es gibt 104 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Schade. Bist weder auf Post#40 eingegangen, noch konntest Du meinen Klassenvorschlag, über den Du grübeln wolltest, umsetzen.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Du schriebst

    Amelie schrieb:

    Ich grübel noch daran.
    Ich dachte, dass da noch Nachfragen kommen. Aber ein Ergebnis hattest Du bisher diesbezüglich noch nicht.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Ich hatte eiche Klasse gemacht dann Variablen usw
    bin aber dann dazu gekommen was ich dann in dem zip habe.

    Irgendiwe kam ich immer drauf das ich das einmal als Integer und einmal als String deklarieren muss. hmmm
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    @VaporiZed
    Ich versuche nun die beiden Einzelprogramme zu einem zusammen zufügen.
    Habe dann nochmal mit der Klasse versucht. Das heikle ist, das sich die Anzahl der Farbringe immer unterschiedlich ändern. Bei den Toleranzen sind die nochmals anders. Zumindest klappt es so die 2 Comboboxen unterschiedlich zu befüllen.
    Hier mein Anfang nur mal für den Multiplikator.
    Spoiler anzeigen
    ​
    Das Form

    VB.NET-Quellcode

    1. ​
    2. Public Class Frm_Widerstand
    3. Dim Resistor As New Resistor
    4. Dim Exponent As New Exponenten
    6. Private Sub Frm_Widerstand_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    7. Anzeigen()
    8. FuelleCmb_Multiplikator()
    9. End Sub
    11. Private Sub FuelleCmb_Multiplikator()
    12. If Resistor.AktuelleRingzahl = Ringanzahl.Vier_Ringe Then
    13. Cbx1_Multiplikator.DataSource = Exponent.Vier_RingeMultiplikator
    14. Cbx2_Multiplikator.DataSource = Exponent.Ringfarben
    15. Else
    16. Cbx1_Multiplikator.DataSource = Exponent.Fünf_RingeMultiplikator
    17. Dim ListMultiplikator = {Color.Violet, Color.Gray, Color.White}
    18. Cbx2_Multiplikator.DataSource = Exponent.Ringfarben.Except(ListMultiplikator).ToList
    19. End If
    20. End Sub
    22. Private Sub AnzahlRinge_aendern()
    23. Dim AuswahlAnzahlRinge = Resistor.AktuelleRingzahl <> Ringanzahl.Vier_Ringe
    24. Chb_vierringe.Text = "Berechnung mit " & Resistor.AktuelleRingzahl.ToString & "n"
    25. FuelleCmb_Multiplikator()
    26. End Sub
    28. Private Sub Chb_vierringe_CheckedChanged(sender As Object, e As EventArgs) Handles Chb_vierringe.CheckedChanged
    29. Resistor.AnzahlRinge_wechseln()
    30. AnzahlRinge_aendern()
    31. End Sub
    33. Private Sub Cbx1_Multiplikator_SelectedValueChanged(sender As Object, e As EventArgs) Handles Cbx1_Multiplikator.SelectedValueChanged
    34. Exponent.Multiplikator = (CInt(Cbx1_Multiplikator.SelectedIndex))
    35. Exponent.Expo_umwandeln()
    36. Cbx2_Multiplikator.SelectedIndex = Cbx1_Multiplikator.SelectedIndex
    37. Anzeigen()
    38. End Sub
    40. Private Sub Cbx2_Multiplikator_SelectedValueChanged(sender As Object, e As EventArgs) Handles Cbx2_Multiplikator.SelectedValueChanged
    41. Exponent.Multiplikator = (CInt(Cbx2_Multiplikator.SelectedIndex))
    42. Exponent.Expo_umwandeln()
    43. Cbx1_Multiplikator.SelectedIndex = Cbx2_Multiplikator.SelectedIndex
    44. End Sub
    46. Private Sub Anzeigen()
    47. Lbl_Multiplikator.Text = "Multiplikator: " & Exponent.Multiplikator.ToString("#,##0.###")
    48. End Sub
    49. End Class

    Klasse Resistor

    VB.NET-Quellcode

    1. ​
    2. Public Class Resistor
    3. Friend Toleranzbegin, Toleranzende As Double
    4. Friend Widerstand As Double
    5. Friend Hunderter, Zehner, Einer As Integer
    6. Friend Maßeinheit As String
    7. Friend Berechnung As Boolean = False
    9. Friend AktuelleRingzahl As Ringanzahl = Ringanzahl.Vier_Ringe
    10. Friend Sub AnzahlRinge_wechseln()
    11. If AktuelleRingzahl = Ringanzahl.Vier_Ringe Then AktuelleRingzahl = Ringanzahl.Fünf_Ringe Else AktuelleRingzahl = Ringanzahl.Vier_Ringe
    12. End Sub
    13. End Class
    14. #Region "Enums"
    15. Friend Enum Ringanzahl
    16. Vier_Ringe
    17. Fünf_Ringe
    18. End Enum
    19. Friend Enum Toleranzring
    20. Mit_Ring
    21. Ohne_Ring
    22. End Enum
    23. #End Region

    Klasse Exponent

    VB.NET-Quellcode

    1. ​
    2. Public Class Exponenten
    3. ReadOnly Resistor As New Resistor
    4. Friend Property Multiplikator As Double
    5. Friend ReadOnly Vier_RingeMultiplikator() As String = {"1", "10 ^ 1", "10 ^ 2", "10 ^ 3", "10 ^ 4", "10 ^ 5", "10 ^ 6", "10 ^ 7", "10 ^ 8", "10 ^ 9", "10 ^ -1", "10 ^ -2"}
    6. Friend ReadOnly Fünf_RingeMultiplikator() As String = {"1", "10 ^ 1", "10 ^ 2", "10 ^ 3", "10 ^ 4", "10 ^ 5", "10 ^ 6", "10 ^ -1", "10 ^ -2"}
    8. Friend ReadOnly Ringfarben() As Color = {Color.Black, Color.Brown, Color.Red, Color.Orange, Color.Yellow, Color.Green, Color.Blue, Color.Violet, Color.Gray, Color.White, Color.Gold, Color.Silver}
    10. Friend Sub Expo_umwandeln()
    11. If Resistor.AktuelleRingzahl = Ringanzahl.Vier_Ringe Then
    12. Dim Exponenten() As Double = {1, 10 ^ 1, 10 ^ 2, 10 ^ 3, 10 ^ 4, 10 ^ 5, 10 ^ 6, 10 ^ 7, 10 ^ 8, 10 ^ 9, 10 ^ -1, 10 ^ -2}
    13. Multiplikator = Exponenten(CInt(Multiplikator))
    14. Else
    15. Dim Exponenten() As Double = {1, 10 ^ 1, 10 ^ 2, 10 ^ 3, 10 ^ 4, 10 ^ 5, 10 ^ 6, 10 ^ -1, 10 ^ -2}
    16. Multiplikator = Exponenten(CInt(Multiplikator))
    17. End If
    18. End Sub
    19. End Class

    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Dann ist das auf Wikipedia ein Fehler.
    Die Farb-Werte des Toleranzrings sind immer gleich (gleicher Wert bei gleicher Farbe und auch die gleiche Anzahl bei allen Konstellationen), egal ob vier, fünf oder sechs Ringe.
    Betrifft deine Umsetzung ja auch indirekt.

    Eine Auflistung reicht also und ist auch fachlich korrekt.
    Dumm ist der, der dumm ist. Nicht andersrum!

    Toleranzrings oder Multiplikator?
    Auf Wiki sind beide immer unterschiedlich...
    Hast du irgendwo eine Angabe ( Quelle ) wo ich die fachlich richtigen Werte herbekomme?
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Ich wollte eigentlich Multiplikator schreiben, die Aussage stimmt aber sowohl für Multiplikator als auch für Toleranz.

    Elektroniktutor oder auch die Website von TE Connectivity sind da ganz gut geeignet.
    Wenn du lieber was in der Hand hältst beim lernen dann hilft auch ein Tabellenbuch.
    Dumm ist der, der dumm ist. Nicht andersrum!

    Brauche HILFE bei zugriff auf Klassen
    Rufe ich das Exponent.Exponent_umwandeln() auf, dann zeigt das Label den umgewandelten Wert richtig an.
    Rufen ich das Resistor.Calculation() auf, dann zeigt das Label den Indexwert der Combobox an die MsgBox zeigt immer nur 1 an.
    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. Public Class UI_Exponent
    2. Friend Property AktlMultiplikator As Double
    3. Friend ReadOnly Property Multiplikator() As Double
    4. Get
    5. Return AktlMultiplikator
    6. End Get
    7. End Property
    8. Friend Sub Exponent_umwandeln()
    9. Dim Exponent() As Double = {1, 10 ^ 1, 10 ^ 2, 10 ^ 3, 10 ^ 4, 10 ^ 5, 10 ^ 6, 10 ^ 7, 10 ^ 8, 10 ^ 9, 10 ^ -1, 10 ^ -2}
    10. AktlMultiplikator = Exponent(CInt(Multiplikator))
    11. End Sub
    12. Friend ReadOnly StrMultiplikator() As String = {"1", "10 ^ 1", "10 ^ 2", "10 ^ 3", "10 ^ 4", "10 ^ 5", "10 ^ 6", "10 ^ 7", "10 ^ 8", "10 ^ 9", "10 ^ -1", "10 ^ -2"}
    13. End Class
    14. '-----------------------------------
    16. Public Class UI_Resistor
    17. Friend Exponent As New UI_Exponent
    18. Friend Berechnung As Boolean = False
    19. Friend Hunderter, Zehner, Einer As Integer
    21. Friend Sub Calculation()
    22. Exponent.Exponent_umwandeln()
    23. 'ToDo ....
    24. MessageBox.Show(Exponent.Multiplikator.ToString)
    25. End Sub
    26. End Class
    27. '-------------------------------
    29. Public Class Frm_Resistor
    30. Friend Resistor As New UI_Resistor
    31. Friend Exponent As New UI_Exponent
    33. Private Sub Frm_Resistor_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    34. FuelleCmb_Multiplikator()
    35. End Sub
    37. Private Sub Btn_berechnen_Click(sender As Object, e As EventArgs) Handles Btn_berechnen.Click
    38. 'Exponent.Exponent_umwandeln()
    39. Resistor.Calculation()
    40. Lbl_Hunderter.Text = Exponent.Multiplikator.ToString
    41. End Sub
    43. Private Sub FuelleCmb_Multiplikator()
    44. Combo_Multiplikator.DataSource = Exponent.StrMultiplikator
    45. End Sub
    47. Private Sub Combo_Multiplikator_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Combo_Multiplikator.SelectedIndexChanged
    48. Exponent.AktlMultiplikator = Combo_Multiplikator.SelectedIndex
    49. End Sub
    50. End Class
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Amelie“ ()

    AktlMultiplikator = Exponent(CInt(Multiplikator)) 8|
    Durch die falsche Benennung schießt Du Dir dermaßen ins Knie! Oder Du verstehst Deinen eigenen Code nicht. Da Multiplikator das gleiche ist wie AktlMultiplikator, erhältst Du für (Aktl)Multiplikator ja Werte wie 1, 10^2 = 100, 10^-2 = 0,01 usw. Und dann verwendest Du diese Zahl als INDEX-ANGABE für die Auswahl aus Exponent. Da wir das Thema schon in mehreren Posts hatten:

    VB.NET-Quellcode

    1. Dim Exponent() As Double = {1, 10 ^ 1, 10 ^ 2, 10 ^ 3, 10 ^ 4, 10 ^ 5, 10 ^ 6, 10 ^ 7, 10 ^ 8, 10 ^ 9, 10 ^ -1, 10 ^ -2}
    2. 'Listenindizes:.............0..1.......2.......3.......4.......5.......6.......7.......8.......9.......10.......11


    Listenindex
    		Wert
    0
    		1
    1
    		10
    2
    		100
    11
    		0,01

    Wenn Du schreibst Exponent(L), dann holst Du Dir damit den WERT aus der Liste EXPONENT mit dem LISTENINDEX L. Wenn Du also den Listenindex 11 hast und dann somit Exponent(11) aufrufst, dann bekommst Du 0,01 zurück. Wenn Du aber Exponent(CInt(Multiplikator)) aufrufst, ist das doch totaler Blödsinn. Wenn Multiplikator 0,01 ist, dann wandelt CInt(Multiplikator) das in 0 um und Du hast da stehen: Exponent(0). Und da kommt dann als Wert 1 raus, siehe Liste oben. Und wenn Multiplikator 100 ist, crasht das Programm, weil Deine Exponent-Liste keine 100 (bzw. um genau zu sein 101) Einträge hat.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Habe das nun alles in eine Klasse gemacht. Das funktioniert.
    Lagere ich das ganze Multilpikatorgedöns in eine extra Klasse geht nichs mehr.
    Je mehr ich daran rummache desto weniger klappt noch was ;;;-(

    VB.NET-Quellcode

    1. ​
    2. Public Class UI_Resistor
    3. Friend Property AktlMultiplikator As Double
    4. Friend LIndex As Integer
    6. Friend Sub Calculation()
    7. MessageBox.Show("ListIndex " & LIndex.ToString)
    8. Exponent_umwandeln()
    9. 'ToDo ....
    10. MessageBox.Show("Multiplikator " & Multiplikator.ToString)
    11. End Sub
    13. Friend ReadOnly Property Multiplikator() As Double
    14. Get
    15. Return AktlMultiplikator
    16. End Get
    17. End Property
    19. Friend Sub Exponent_umwandeln()
    20. Dim Exponent() As Double = {1, 10 ^ 1, 10 ^ 2, 10 ^ 3, 10 ^ 4, 10 ^ 5, 10 ^ 6, 10 ^ 7, 10 ^ 8, 10 ^ 9, 10 ^ -1, 10 ^ -2}
    21. AktlMultiplikator = Exponent(LIndex)
    22. End Sub
    24. Friend ReadOnly StrMultiplikator() As String = {"1", "10 ^ 1", "10 ^ 2", "10 ^ 3", "10 ^ 4", "10 ^ 5", "10 ^ 6", "10 ^ 7", "10 ^ 8", "10 ^ 9", "10 ^ -1", "10 ^ -2"}
    25. End Class
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Amelie schrieb:

    Lagere ich das ganze Multilpikatorgedöns in eine extra Klasse geht nichs mehr.
    Und wie sieht der mit-Klasse-Versuch aus? Denn nun ist ja Dein Code bezüglich Exponent und Listenindex geändert und richtig. Wobei sich dann die Frage stellt, wie LIndex geändert wird.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    VB.NET-Quellcode

    1. ​
    2. Private Sub Combo_Multiplikator_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Combo_Multiplikator.SelectedIndexChanged
    3. Resistor.LIndex = Combo_Multiplikator.SelectedIndex
    4. End Sub


    Bis auf die Sub Calculation sah so die Klasse Exponenten aus. Entweder kam da immer nur 0 an oder kein Objektverweis....
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    OK hier meine neue Klasse.
    Hoffe das ist so OK? Dann könnte ich das Form machen. Auf dem Form ist jetzt nur ein Button und die beiden Combobxen
    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Public Class UI_Resistor
    3. Friend Property AktlMultiplikator As Double
    4. Friend Property AktlToleranz As Double
    5. Friend ListIndexExponent As Integer
    6. Friend ListIndexToleranz As Integer
    7. Friend Berechnung As Boolean
    8. Friend Hunderter, Zehner, Einer As Integer
    9. Friend Widerstand, Toleranzbegin, Toleranzende As Double
    10. Friend Maßeinheit As String
    12. Friend ReadOnly Property Multiplikator() As Double
    13. Get
    14. Return AktlMultiplikator
    15. End Get
    16. End Property
    18. Private Sub Exponent_umwandeln()
    19. Dim Exponent() As Double = {1, 10 ^ 1, 10 ^ 2, 10 ^ 3, 10 ^ 4, 10 ^ 5, 10 ^ 6, 10 ^ 7, 10 ^ 8, 10 ^ 9, 10 ^ -1, 10 ^ -2}
    20. AktlMultiplikator = Exponent(ListIndexExponent)
    21. End Sub
    23. Friend ReadOnly Property Toleranz() As Double
    24. Get
    25. Return AktlToleranz
    26. End Get
    27. End Property
    28. Private Sub Toleranz_bestimmen()
    29. Dim Toleranzwert() As Double = {1, 2, 5, 10, 0.5, 0.25, 0.1, 0.05}
    30. If StaticToleranz = Toleranzring.Ohne_Ring Then AktlToleranz = 20 Else AktlToleranz = Toleranzwert(ListIndexToleranz)
    31. End Sub
    33. Private StaticToleranz As Toleranzring = Toleranzring.Mit_Ring
    34. Friend Sub Toleranzwechsel()
    35. If StaticToleranz = Toleranzring.Mit_Ring Then StaticToleranz = Toleranzring.Ohne_Ring Else StaticToleranz = Toleranzring.Mit_Ring
    36. End Sub
    38. Private AktuelleRingzahl As Ringanzahl = Ringanzahl.Vier_Ringe
    39. Friend Sub AnzahlRinge_wechseln()
    40. If AktuelleRingzahl = Ringanzahl.Vier_Ringe Then AktuelleRingzahl = Ringanzahl.Fünf_Ringe Else AktuelleRingzahl = Ringanzahl.Vier_Ringe
    41. End Sub
    43. Friend Sub Eingaben_Prüfen()
    44. Dim Prüfsumme As Integer = CInt(Hunderter & Zehner & Einer)
    45. If Prüfsumme = 0 Then
    46. Berechnung = False
    47. Exit Sub
    48. ElseIf Zehner < 1 AndAlso Multiplikator > 1 AndAlso Multiplikator < 10 Then
    49. Berechnung = False
    50. Exit Sub
    51. Else
    52. Exponent_umwandeln()
    53. Toleranz_bestimmen()
    54. Widerstand_berechnen(Hunderter, Zehner, Einer, Multiplikator, Toleranz)
    55. End If
    56. End Sub
    58. #Region "Widerstandberechnen"
    59. Friend Function Widerstand_berechnen(Hunderter As Integer, Zehner As Integer, Einer As Integer, Multiplikator As Double, Toleranz As Double) As Double
    60. If AktuelleRingzahl = Ringanzahl.Vier_Ringe Then
    61. Dim Zwischensumme As Double = CDbl((Zehner & Einer))
    62. Widerstand = Zwischensumme * Multiplikator
    63. Else
    64. Dim Zwischensumme As Double = CDbl(Hunderter & Zehner & Einer)
    65. Widerstand = Zwischensumme * Multiplikator
    66. End If
    67. Toleranzbegin = (Widerstand - (Widerstand / 100 * Toleranz))
    68. Toleranzende = (Widerstand + (Widerstand / 100 * Toleranz))
    70. If Multiplikator = 10 ^ -1 OrElse Multiplikator = 10 ^ -2 OrElse Multiplikator = 10 ^ 0 OrElse Multiplikator = 10 ^ 1 Then
    71. Maßeinheit = " Ω"
    72. Widerstand = Widerstand
    73. Toleranzbegin = Toleranzbegin
    74. Toleranzende = Toleranzende
    75. ElseIf Multiplikator = 10 ^ 2 OrElse Multiplikator = 10 ^ 3 OrElse Multiplikator = 10 ^ 4 Then
    76. Maßeinheit = " kΩ"
    77. Widerstand = Widerstand / 1000
    78. Toleranzbegin = Toleranzbegin / 1000
    79. Toleranzende = Toleranzende / 1000
    80. ElseIf Multiplikator = 10 ^ 5 OrElse Multiplikator = 10 ^ 6 OrElse Multiplikator = 10 ^ 7 Then
    81. Maßeinheit = " MΩ"
    82. Widerstand = Widerstand / 1000000
    83. Toleranzbegin = Toleranzbegin / 1000000
    84. Toleranzende = Toleranzende / 1000000
    85. ElseIf Multiplikator = 10 ^ 8 OrElse Multiplikator = 10 ^ 9 Then
    86. Maßeinheit = " GΩ"
    87. Widerstand = Widerstand / 1000000000
    88. Toleranzbegin = Toleranzbegin / 1000000000
    89. Toleranzende = Toleranzende / 1000000000
    90. End If
    91. Berechnung = True
    92. Return Widerstand
    93. End Function
    94. #End Region
    96. End Class
    97. #Region "Enums"
    98. Friend Enum Ringanzahl
    99. Vier_Ringe
    100. Fünf_Ringe
    101. End Enum
    102. Friend Enum Toleranzring
    103. Mit_Ring
    104. Ohne_Ring
    105. End Enum
    106. #End Region

    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Naja, wenn's klappt, ok. Aber solche Sachen wie Widerstand = Widerstand, CDbl(Hunderter & Zehner & Einer) und Berechnung = True (Was soll dem Leser dieser Variablenname sagen?) kommen mir immer noch komisch vor. Aber wenn Du damit zurecht kommst, ist's wohl erstmal verkraftbar.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Moin moin

    Naja für Hunderter Zehner und Einer, was soll ich da für Namen nehmen, die heißen halt so, weil aus diesen eine Berechnung erfolgt.
    Berechnung= True .. Ergebniss oder wie???
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Da hat ein Absatz von mir gefehlt. Hunderter, Zehner und Einer sind benennungstechnisch in Ordnung.
    Aber Berechnung ist furchtbar. Soll das heißen, dass etwas berechnet werden soll, wenn Berechnung True ist? Oder soll das bedeuten, dass da eine Klassenfunktionalität aktiviert wird? Nein, ich lese aus dem Code (und soweit sollte es nie kommen), dass Du in der Variable speicherst, ob die Berechnung erfolgreich durchgeführt werden konnte.
    Daher sollte das Teil z.B. BerechnungWarErfolgreich oder GesamtwertKonnteBerechnetWerden heißen.
    Aber: Warum speicherst Du den Wert überhaupt in einer extra Variable? Genausogut könntest Du auch die Function so schreiben, dass sie diesen Wert ebenfalls zurückgibt:

    VB.NET-Quellcode

    1. Friend Function Widerstand_berechnen(Hunderter As Integer, Zehner As Integer, Einer As Integer, Multiplikator As Double, Toleranz As Double) As (Ergebnis As Double, BerechnungWarMöglich As Boolean)
    2. Dim Prüfsumme As Integer = CInt(Hunderter & Zehner & Einer)
    3. If Prüfsumme = 0 Then
    4. Return (0, False)
    5. ElseIf Zehner < 1 AndAlso Multiplikator > 1 AndAlso Multiplikator < 10 Then
    6. Return (0, False)
    7. End If
    9. Exponent_umwandeln()
    10. Toleranz_bestimmen()
    12. If AktuelleRingzahl = Ringanzahl.Vier_Ringe Then
    13. Dim Zwischensumme As Double = CDbl((Zehner & Einer))
    14. Widerstand = Zwischensumme * Multiplikator
    15. Else
    16. Dim Zwischensumme As Double = CDbl(Hunderter & Zehner & Einer)
    17. Widerstand = Zwischensumme * Multiplikator
    18. End If
    19. Toleranzbegin = (Widerstand - (Widerstand / 100 * Toleranz))
    20. Toleranzende = (Widerstand + (Widerstand / 100 * Toleranz))
    21. If Multiplikator = 10 ^ -1 OrElse Multiplikator = 10 ^ -2 OrElse Multiplikator = 10 ^ 0 OrElse Multiplikator = 10 ^ 1 Then
    22. Maßeinheit = " Ω"
    23. Widerstand = Widerstand
    24. Toleranzbegin = Toleranzbegin
    25. Toleranzende = Toleranzende
    26. ElseIf Multiplikator = 10 ^ 2 OrElse Multiplikator = 10 ^ 3 OrElse Multiplikator = 10 ^ 4 Then
    27. Maßeinheit = " kΩ"
    28. Widerstand = Widerstand / 1000
    29. Toleranzbegin = Toleranzbegin / 1000
    30. Toleranzende = Toleranzende / 1000
    31. ElseIf Multiplikator = 10 ^ 5 OrElse Multiplikator = 10 ^ 6 OrElse Multiplikator = 10 ^ 7 Then
    32. Maßeinheit = " MΩ"
    33. Widerstand = Widerstand / 1000000
    34. Toleranzbegin = Toleranzbegin / 1000000
    35. Toleranzende = Toleranzende / 1000000
    36. ElseIf Multiplikator = 10 ^ 8 OrElse Multiplikator = 10 ^ 9 Then
    37. Maßeinheit = " GΩ"
    38. Widerstand = Widerstand / 1000000000
    39. Toleranzbegin = Toleranzbegin / 1000000000
    40. Toleranzende = Toleranzende / 1000000000
    41. End If
    42. Return (Widerstand, True)
    43. End Function

    Wie Du siehst, habe ich die Eingaben_Prüfen-Methode hier mit eingebaut. Jetzt kannst Du nach Aufruf der Function Widerstand_berechnen prüfen, ob die Berechnung erfolgreich war und wenn ja, welcher Widerstand sich ergibt.

    Was mir bei Deinem Code auch auffällt: Warum ist die Widerstand_berechnen-Function Friend? Damit könnte sie aufgerufen werden, ohne vorher die Eingaben überprüfen zu lassen. Auch der Name passt nicht. Widerstand_berechnen ist ein (fast) passender Name für eine Sub.
    Dein Code der Function kann eingedampft werden. Die If-Else-Bereiche unterschieden sich nur duch den Faktor und das Einheitenvorzeichen. Daher geht der Code kürzer.
    Toleranzbegin ist falsch geschrieben, es fehlt ein n hinten.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

Facebook
Telefonspende