Arrays etc

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 50 Antworten in diesem Thema. Der letzte Beitrag () ist von Facebamm.

    Arrays etc

    Moin moin ;)

    Ich versuche mich in einer "analogen Uhr".

    Die Ausgabe funktioniert soweit bis auf die Zahlen "Zwanzig", "Dreißig", "Vierzig", "Fünfzig", "Sechzig" Da komme ich leider nicht weiter.

    Ich weis ich muss das irgendwie aus den "_Einer" und "_Zehner" zusammensaetzen....

    Desweiteren habe ich immer den Hinweis: Von der Funktion "getSec" wird nicht in allen Codepfaden ein Wert zurückgegeben.


    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class frm_clock
    2. Dim Zahlen As New Zahlen
    4. Private Sub frm_clock_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    5. Timer1.Start()
    6. End Sub
    8. Private Sub uhranzeige()
    9. Dim now = DateTime.Now
    10. Dim h As String = (now.Hour.ToString())
    11. Dim m As String = (now.Minute.ToString())
    12. Dim s As String = (now.Second.ToString())
    14. lbl_std.Text = Zahlen.getStd(CInt(h))
    15. lbl_min.Text = Zahlen.getMin(CInt(m))
    16. lbl_sec.Text = Zahlen.getSec(CInt(s))
    18. End Sub
    19. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    20. uhranzeige()
    21. End Sub
    22. End Class
    24. Public Class Zahlen
    26. #Region "Arrys"
    27. Public _Einer As String() = {"", "Ein", "Zwei", "Drei", "Vier", "Fünf", "Sechs", "Sieben", "Acht", "Neun"}
    29. Public _Sonderzehner As String() = {"Zehn", "Elf", "Zwölf", "Dreizehn", "Vierzehn", "Fünfzehn", "Sechzehn", "Siebzehn", "Achtzehn", "Neunzehn"}
    31. Public _Zehner As String() = {"Zwanzig", "Dreißig", "Vierzig", "Fünfzig", "Sechzig"}
    32. #End Region
    34. #Region "Funktionen"
    35. Public Function getSec(Zaehler As Integer) As String
    36. If Zaehler < 10 Then
    37. Dim output As String = _Einer(Zaehler)
    38. Return output
    39. End If
    40. If Zaehler > 9 And Zaehler < 20 Then
    41. Zaehler = 0 + (Zaehler - 10)
    42. Dim output As String = _Sonderzehner(Zaehler)
    43. Return output
    44. End If
    46. 'If Zaehler > 19 And Zaehler < 60 Then
    47. ' Zaehler = 0 + ....ToDO ??
    48. ' Dim output As String = _Zehner(Zaehler)
    49. ' Return output
    50. 'End If
    52. End Function
    54. Public Function getMin(Zaehler As Integer) As String
    55. If Zaehler < 10 Then
    56. Dim output As String = _Einer(Zaehler)
    57. Return output
    58. End If
    59. If Zaehler > 9 And Zaehler < 20 Then
    60. Zaehler = 0 + (Zaehler - 10)
    61. Dim output As String = _Sonderzehner(Zaehler)
    62. Return output
    63. End If
    64. End Function
    66. Public Function getStd(Zaehler As Integer) As String
    67. If Zaehler < 10 Then
    68. Dim output As String = _Einer(Zaehler)
    69. Return output
    70. End If
    71. If Zaehler > 9 And Zaehler < 20 Then
    72. Zaehler = 0 + (Zaehler - 10)
    73. Dim output As String = _Sonderzehner(Zaehler)
    74. Return output
    75. End If
    76. End Function
    77. #End Region
    79. End Class

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

    Amelie schrieb:


    Desweiteren habe ich immer den Hinweis: Von der Funktion "getSec" wird nicht in allen Codepfaden ein Wert zurückgegeben.


    VB.NET-Quellcode

    1. Public Function getSec(Zaehler As Integer) As String
    2. If Zaehler < 10 Then
    3. Dim output As String = _Einer(Zaehler)
    4. Return output
    5. End If
    6. If Zaehler > 9 And Zaehler < 20 Then
    7. Zaehler = 0 + (Zaehler - 10)
    8. Dim output As String = _Sonderzehner(Zaehler)
    9. Return output
    10. End If
    12. 'If Zaehler > 19 And Zaehler < 60 Then
    13. ' Zaehler = 0 + ....ToDO ??
    14. ' Dim output As String = _Zehner(Zaehler)
    15. ' Return output
    16. 'End If
    18. ' <<<Hier fehlt ein weiteres RETURN>>>
    19. End Function


    Du hast in Deiner Funktion zwei IF-Abfragen die ein RETURN beinhalten. Wenn beide nicht zutreffen, dann erwartet VB das am Ende ein weiteres RETURN zu finden ist.
    Aktuelles Projekt: Z80 Disassembler für Schneider/Amstrad CPC :love:

    @Amelie Warum sind h, m, s vom Typ String?
    Warum geben nicht alle Code-Pfade einen Wert zurück?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Amelie schrieb:

    Was soll denn da dann für ein Wert ausgegeben werden?????????????????????????????
    Setz einen Haltepunkt drauf und sieh Dir an, was an Input nicht konvertiert wird.
    Debuggen, Fehler finden und beseitigen
    ============
    Was verstehst Du nicht?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @RodFromGermany

    OK das habe ich nun so bereinigt:

    VB.NET-Quellcode

    1. .....
    2. .........
    3. Return output
    4. End If
    5. Return CStr(Zaehler)
    6. End Function

    Jetzt werden, wenn die "Wörter" durchgelaufen sind wieder normale Zahlen angezeigt.
    Bilder

    • Uhr-1.jpg

      35,51 kB, 370×179, 150 mal angesehen

    • Uhr-2.jpg

      36,2 kB, 370×179, 149 mal angesehen
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    @Amelie Dann setze die anderen Zahlen zusammen und feddich.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Amelie schrieb:

    aber scheitere daran das ich "Out of Arry" bekomme...
    mit welchem Code?
    Testest Du überhaupt Deinen Code
    oder
    bist Du der Meinung, dass compilierender Code richtig ist? => Niemals :!:
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @RodFromGermany &&&

    Ich teste alles im Rahmen dessen was ich kann. Ich mache und lerne das alles als reines Hobby und habe keine Jahrelange Erfahrung.
    Ich versuche vieles allein umzusetzen aber stoße halt oft an Grenzen.
    Gerade jetzt wo mir so viele Tutorials nichts bringen weil die alle noch mit altem VB6 gefüllt sind.
    Wenn ich wüste wie ich mit dem Code weiterkomme bräuchte ich nicht fragen ;(
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Amelie schrieb:

    Ich versuche mich in einer "analogen Uhr".
    Unter analog versteh ich aber eher sowas wie im Anhang - auch wenn das keine typische Zeitanzeige ist … :rolleyes:

    oobdoo schrieb:

    es ist noch kein Meister vom Himmel gefallen.
    Doch, schon einige. Aber keiner hat bisher den Aufprall überlebt …

    Aber dann doch nochmal: Mit welchem Code kommt einer Out Of Array-Geschichte?
    Und mit dem Zahlwort mit Zaehler zwischen 20 und 59: Erstmal den einer ermitteln, dann das Wort und und dann den Zehner ermitteln. Bei 30 natürlich nur den Zehner. Wie würdest Du also z.B. die 45 in den Zehner und den Einer aufteilen? Mit Code natürlich.
    Bilder

    • Analoguhr.png

      6,02 kB, 760×760, 156 mal angesehen
    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.

    @VaporiZed

    OK Dein Bild ist auch "analog" ;)

    So hier die eine Sache: Sekunden, Zählt in Worten bis zwanzig, dann dann springt es um auf dreißig usw.
    Wie hänge ich denn nun die "einer-Stellen" dadran? Oder ist diese Vorgehensweise falsch?

    VB.NET-Quellcode

    1. Public Function getSec(Zaehler As Integer) As String
    2. If Zaehler < 10 Then
    3. Dim output As String = _Einer(Zaehler)
    4. Return output
    5. End If
    6. If Zaehler > 9 And Zaehler < 20 Then
    7. Zaehler = 0 + (Zaehler - 10)
    8. Dim output As String = _Sonderzehner(Zaehler)
    9. Return output
    10. End If
    12. Zaehler = (CInt(Left(CStr(Zaehler), 1)) * 10)
    13. If Zaehler = 20 And Zaehler < 29 Then
    14. Zaehler = 0
    15. Dim output As String = _Zehner(Zaehler)
    16. Return output
    17. ElseIf Zaehler = 30 And Zaehler < 39 Then
    18. Zaehler = 1
    19. Dim output As String = _Zehner(Zaehler)
    20. Return output
    21. ElseIf Zaehler = 40 And Zaehler < 49 Then
    22. Zaehler = 2
    23. Dim output As String = _Zehner(Zaehler)
    24. Return output
    25. ElseIf Zaehler = 50 And Zaehler < 59 Then
    26. Zaehler = 3
    27. Dim output As String = _Zehner(Zaehler)
    28. Return output
    29. End If
    30. Return CStr(Zaehler)
    31. End Function
    Bilder

    • Uhr-3.jpg

      32,7 kB, 370×179, 157 mal angesehen
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Ich find das Vorgehen ziemlich verwirrend.
    Zaehler = (CInt(Left(CStr(Zaehler), 1)) * 10)
    Ich wusste, dass Du mit Strings arbeiten wirst. Aber es ist für den Moment ok. Aber: Warum heißt die Variable Zaehler? Das verwirrt total. Und dann noch diese Umrechnungen und Mehrfachbenutzungen. Denn

    VB.NET-Quellcode

    1. If Zaehler = 20 And Zaehler < 29 Then
    Ja wie jetzt? Wenn Zaehler 20 ist, kann es dann etwa größer als 29 sein? Die Bedingungen ergeben so keinen Sinn. Da verwirrst Du Dich nur selber.
    Wie wär's denn mit folgendem Pseudocode:

    Quellcode

    1. Einser = ErmittleEinserAus(aktuelleSekunde)
    2. Zehner = ErmittleZehnerAus(aktuelleSekunde)
    3. BearbeiteSonderfall, Wenn aktuelleSekunde = 1, 11, 12, 16, 17 *
    4. Sonst:
    5. Wenn Einser = 0 Dann nimm nur Wort von Zehner, aber nur, wenn Zehner nicht 00 ist.
    6. Sonst:
    7. Nimm Einserwort, dann das "Und" und das Zehnerwort; bei Zehnerwort "Zehn" lass das "und" weg

    * diese Zahlen fallen aus der Reihe. Die Standardwörter sind für die genannten Zahlen ja sonst anders:
    • eins - ein-und-vierzig
    • elf - ein-und-dreißig
    • zwölf - zwei-und-zwanzig
    • sechzehn - sechs-und-fünfzig
    • siebzehn - sieben-und-dreißig
    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.

    Amelie schrieb:

    VB.NET-Quellcode

    1. Zaehler = (CInt(Left(CStr(Zaehler), 1)) * 10)
    Angesichts dieser Schreckenszeile frage ich noch einmal:

    RodFromGermany schrieb:

    Warum sind h, m, s vom Typ String?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!