Arrays etc

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

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

    Amelie schrieb:

    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?


    Das Vorgehen ist nicht falsch. generell ist es nie falsch, wenn man es so machen möchte (und ja, das ist hier auch ein beliebtes Vorgehen bei solchen Dingen).
    Ich denke, du brauchst vor allem nochmal einen Groschen, der beim Grundgedanken fallen müsste:

    Wenn du eine Zahl hast, die definitiv kleiner ist als 10 -> weißt du, es handelt sich hier um "Einer". Das kann man getrost so stehen lassen.
    Ist die Zahl jedoch größer oder gleich 10, musst du mit "Zehnern" und "Einern" arbeiten.

    Jetzt nutzen wir das Wissen, dass eine zweistellige Zahl - zB. 24 - aus dem Zehner-Wert 20 und dem Einer-Wert 4 besteht. Er lässt sich also darauf aufteilen.


    Wenn wir nun den Wert 24 nehmen und einfach mal durch 10 teilen und als Ganzzahl speichern, wirst du hierin nur die 2 finden. Kommastellen werden dann abgeschnitten. Dann kannst du dieses zum Beispiel sehr gut dafür nutzen, um auf das entsprechende Zehner-Array zu verweisen.

    Und auch die Einerstelle kann man sehr schön ermitteln. Hierfür gibt es die Modulo-Operation oder zu Deutsch: Restwert-Teilung. Als Beispiel sei hier gegeben: 22 / 7 = 3,1428.... (usw). Man kann es auch in Brüchen ausdrücken. Also wären das 3 Ganze und 1/7. Oder wie man in der Schule häufig gelernt hat: 22/7 = 3 Rest 1.

    Nehmen wir nun an, du möchtest die "Einer" ermitteln, dann kannst du das ganze mittels der Rest-Wert-Teilung machen (Modulo). Hierbei müssen wir jedoch berücksichtigen, dass wir zur Basis 10 rechnen (weil es ja zehn Einer sind für einen Zehner) und auch, dass lediglich der Restwert zurückgegeben wird, nicht aber die Ganzzahl, die rauskommt..

    Teilen wir also 24 durch 10 mittels Modulo, so sollten 4 übrig bleiben:

    VB.NET-Quellcode

    1. ​
    2. Dim eigentlicheZahl As Integer = 24
    3. Dim Zehner As Integer
    4. Dim Einer As Integer
    6. Zehner = eigentlicheZahl / 10 'hierin sollte sich nun die 2 befinden
    7. Einer = eigentlicheZahl Mod 10 'hier sollte 4 drinstehen.
    9. 'nun könnte man die Arrays ansprechen mit Einer und Zehner


    Das Schöne an diesem Verfahren ist auch, dass man die Arrays genau so nutzen kann, wie du sie vorbereitet hast.

    VB.NET-Quellcode

    1. ​
    2. Dim Zehnerstelle As string
    3. Dim Einerstelle As string
    5. Zehnerstelle = _Zehner(Zehner)
    6. Einerstelle = _Einer(Einer)
    8. Dim GanzeUhr = Einerstelle & Zehnerstelle.


    Lediglich die Sonderfälle - wie du bereits erkannt hast - müssen hier rausgenommen werden und dürfen so nicht zurückgegeben werden. Aber alle anderen können über genau die Rechenweise ermittelt und aneinandergefügt werden.
    Und das wiederum kann man mittels einfacher Wenn-Dann-Logik machen.

    Ich denke, dein Vorhaben scheiterte nicht am Vorhaben selbst, sondern weil du dich mit diesen ganzen If-Else-Statements und auch den Bedingungen verhaspelt hast.

    Ich denke, das wichtigste hierbei ist, dass man erstmal verstehen muss, dass die Zahlen zusammengesetzt werden aus "Einern" und "Zehnern" und man dieses Verhalten 1-zu-1 in das Programm übernehmen kann.
    Und manchmal hilft auch ein Fingerzeig auf Funktionen, die bereits vorhanden sind :)

    Falls hierüber noch Verständnisfragen da sind, einfach melden :)

    Gruß Pascal

    @PadreSperanza Fang an mit Option Strict On :!:

    VB.NET-Quellcode

    1. Zehner = eigentlicheZahl / 10 'hierin sollte sich nun die 2 befinden
    Diese Zeile sollte dann markiert sein.
    Integer-Division gent in VB so:

    VB.NET-Quellcode

    1. Zehner = eigentlicheZahl \ 10

    @Amelie Ich versuche Dich nun schon eine Weile dazu zu bewegen, Dich mit Datentypen zu beschäftigen, aber dieses Thema ist Dir wohl nicht geheuer.
    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!

    @PadreSperanza

    Danke, gut erklärt aber leider bin ich etwas verwirrt. Naja liegt an meinem AA.
    Das mit den Teilen usw verstehe ich glaube ich.
    Muss ich nun für EINER und ZEHNER je eine eigene Funktion schreiben?

    @RodFromGermany

    Wäre das so besser? Ansonsten verstehe ich nicht was du meinst.

    VB.NET-Quellcode

    1. Dim now = DateTime.Now
    2. Dim h As String
    3. Dim m As String
    4. Dim s As String
    6. h = DateTime.Now.Hour.ToString()
    7. m = DateTime.Now.Minute.ToString()
    8. s = DateTime.Now.Second.ToString()


    ​Ich versuche ... Dich mit Datentypen zu beschäftigen, aber dieses Thema ist Dir wohl nicht geheuer.

    Ich lese und lese und &&& aber vieles fällt mir nicht leicht.
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Amelie schrieb:

    Private Sub uhranzeige()
    Dim now = DateTime.Now
    Dim h As String = (now.Hour.ToString())
    Dim m As String = (now.Minute.ToString())
    Dim s As String = (now.Second.ToString())
    lbl_std.Text = Zahlen.getStd(CInt(h))
    lbl_min.Text = Zahlen.getMin(CInt(m))
    lbl_sec.Text = Zahlen.getSec(CInt(s))
    End Sub


    Dein Zahlen.getXXX() erwartet als Eingabeparameter einen Wert vom Typ integer. DateTime.Now.Hour bzw. Minute und auch Second sind schon vom Typ integer.
    Es ist also einfach nur grober Unfug Dim h As String DateTime.Now.Hour als String zuzuweisen, weil du den Wert für dein Zahlen.getXXX dann wieder in einen integer wandelst.

    Mach einfach lbl_std.Text = Zahlen.getStd(DateTime.Now.Hour), du sparst dir die unnötigen Variablen und die absolut überflüssigen Typkonvertierungen von integer zu string und wieder zurück zu integer

    Amelie schrieb:

    Wäre das so besser?
    Nein, Du hast es leider nicht verstanden.

    VB.NET-Quellcode

    1. Dim now = DateTime.Now
    2. Dim h As Integer = DateTime.Now.Hour
    3. Dim m As Integer = DateTime.Now.Minute
    4. Dim s As Integer = DateTime.Now.Second
    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
    @PadreSperanza
    &&&

    Ich denke für die Sekunden-Anzeige habe ich es hinbekommen.

    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Public Class frm_clock
    3. Dim Zahlen As New Zahlen
    5. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    6. uhranzeige()
    7. End Sub
    8. Private Sub frm_clock_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    9. Timer1.Start()
    10. End Sub
    12. Private Sub uhranzeige()
    13. Dim now = DateTime.Now
    14. Dim h As Integer = DateTime.Now.Hour
    15. Dim m As Integer = DateTime.Now.Minute
    16. Dim s As Integer = DateTime.Now.Second
    18. 'lbl_std.Text = Zahlen.getSec(h)
    19. 'lbl_min.Text = Zahlen.getSec(m)
    20. lbl_sec.Text = Zahlen.getSec(s)
    22. End Sub
    23. End Class
    25. Public Class Zahlen
    27. #Region "Arrys"
    28. 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"}
    30. Public _Zehner As String() = {"", "", "Zwanzig", "Dreißig", "Vierzig", "Fünfzig", "Sechzig"}
    31. #End Region
    33. #Region "Funktionen"
    35. Public aktlZiffer As Integer
    36. Public Zehner As Integer
    37. Public Einer As Integer
    39. Public Zehnerstelle As String
    40. Public Einerstelle As String
    41. Public Zeit As String
    43. Public Function getSec(aktlZiffer As Integer) As String
    45. Zehner = CInt(aktlZiffer \ 10)
    46. Einer = aktlZiffer Mod 10
    48. If aktlZiffer < 10 Or aktlZiffer > 19 Then
    49. Einerstelle = _Einer(Einer)
    51. ElseIf aktlZiffer > 9 And aktlZiffer < 20 Then
    52. aktlZiffer = 0 + (aktlZiffer - 10)
    53. Einerstelle = _Sonderzehner(Einer)
    54. End If
    56. If Zehner > 1 Then
    57. Zehnerstelle = " und " & _Zehner(Zehner)
    59. If aktlZiffer = 20 Or aktlZiffer = 30 Or aktlZiffer = 40 Or aktlZiffer = 50 Then
    60. Zehnerstelle = _Zehner(Zehner)
    61. End If
    62. Else
    63. Zehnerstelle = _Zehner(Zehner)
    64. End If
    66. Zeit = Einerstelle & Zehnerstelle
    67. Return Zeit
    68. End Function
    70. #End Region
    72. End Class

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

    @Amelie Ich hab Deinen Code und Deinen Output noch ein wenig gehübscht:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Clock
    2. ReadOnly Zahlen As New Zahlen
    4. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    5. Uhranzeige()
    6. End Sub
    7. Private Sub Clock_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    8. Timer1.Start()
    9. End Sub
    11. Private Sub Uhranzeige()
    12. Dim now = DateTime.Now
    13. Dim h As Integer = DateTime.Now.Hour
    14. Dim m As Integer = DateTime.Now.Minute
    15. Dim s As Integer = DateTime.Now.Second
    17. lbl_sec.Text = Zahlen.getSec(s)
    19. End Sub
    20. End Class
    22. Class Zahlen
    24. #Region "Arrys"
    25. Public _Einer As String() = {"", "Ein", "Zwei", "Drei", "Vier", "Fünf", "Sechs", "Sieben", "Acht", "Neun"}
    26. Public _Sonderzehner As String() = {"Zehn", "Elf", "Zwölf", "Dreizehn", "Vierzehn", "Fünfzehn", "Sechzehn", "Siebzehn", "Achtzehn", "Neunzehn"}
    27. Public _Zehner As String() = {"", "", "Zwanzig", "Dreißig", "Vierzig", "Fünfzig", "Sechzig"}
    28. #End Region
    30. #Region "Funktionen"
    32. Public aktlZiffer As Integer
    33. Public Zehner As Integer
    34. Public Einer As Integer
    36. Public Zehnerstelle As String
    37. Public Einerstelle As String
    38. Public Zeit As String
    40. Public Function getSec(aktlZiffer As Integer) As String
    42. Zehner = aktlZiffer \ 10
    43. Einer = aktlZiffer Mod 10
    45. If aktlZiffer = 0 Then
    46. Einerstelle = "Null"
    47. ElseIf aktlZiffer = 1 Then
    48. Einerstelle = "Eins"
    49. ElseIf aktlZiffer < 10 OrElse aktlZiffer > 19 Then
    50. Einerstelle = _Einer(Einer)
    51. ElseIf aktlZiffer > 9 And aktlZiffer < 20 Then
    52. aktlZiffer = 0 + (aktlZiffer - 10)
    53. Einerstelle = _Sonderzehner(Einer)
    54. End If
    56. If Zehner > 1 Then
    57. Zehnerstelle = "und" & _Zehner(Zehner).ToLower()
    59. If aktlZiffer = 20 OrElse aktlZiffer = 30 OrElse aktlZiffer = 40 OrElse aktlZiffer = 50 Then
    60. Zehnerstelle = _Zehner(Zehner)
    61. End If
    62. Else
    63. Zehnerstelle = _Zehner(Zehner)
    64. End If
    66. Zeit = Einerstelle & Zehnerstelle
    67. Return Zeit
    68. End Function
    70. #End Region
    72. End Class
    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!

    @VB1963
    Ja das hatte ich schonmal gesehen.
    @RodFromGermany

    Danke werde ich mir mal ansehen.

    Ich hatte so eine ähnliche Sache auf Youtube schonmal in VB6 mit ganz vielen ​Select // Case gesehen.

    Soweit ich mich erinnere war da für jede Zahl ein Case: ​Case 0 = "Null" , Case 1 = "Eins" usw. Das für jeden Einer / Zehner ...
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Amelie schrieb:

    ​Case 0 = "Null" , Case 1 = "Eins"
    Lasse die weg und lass Dein Programm länger als eine Minute laufen, dass Du alle Sekunden-Werte zu sehen bekommst.
    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 hatte und habe NICHT vor das mit diesen Select Case zu machen. Soviel habe ich dann doch schon gelernt das es mit wesentlich weniger Code geht.
    Habe es ja nun mit Hilfe von Euch geschafft.
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Amelie schrieb:

    das es mit wesentlich weniger Code geht.
    Wie hast Du es denn gelöst?
    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 meinst du?
    Da kannst Du doch auch Deinen neuen Code posten.
    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

    Hat sich nicht mehr viel geändert. Ich mache gerade noch etwas mit Kalenderwoche etc..
    Wenn ich das alles habe hänge ich das Projekt hier an ;)
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    So ich habe meine " Wortuhr " fertig.
    Wenn ich noch etwas übersehen habe oder etwas besser gemacht werden kann .. ;)

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class frm_clock
    2. Dim klass As New Funktion
    4. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    5. ausgabe()
    6. End Sub
    7. Private Sub frm_clock_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    8. Timer1.Start()
    9. End Sub
    11. Private Sub ausgabe()
    12. Dim h As Integer = DateTime.Now.Hour
    13. Dim m As Integer = DateTime.Now.Minute
    14. Dim s As Integer = DateTime.Now.Second
    15. 'Deutsch
    16. Dim sekunden As String
    17. Dim minuten As String
    18. If klass.getWorte(s) = "Ein" Then
    19. sekunden = klass.getWorte(s) & "e" & " Sekunde"
    20. Else
    21. sekunden = klass.getWorte(s) & " Sekunden"
    22. End If
    23. If klass.getWorte(m) = "Ein" Then
    24. minuten = klass.getWorte(m) & "e" & " Minute und - "
    25. Else
    26. minuten = klass.getWorte(m) & " Minuten und - "
    27. End If
    28. lbl_std.Text = klass.getWorte(h) & " Uhr - " & minuten & sekunden
    29. lbl_kwdate.Text = "Heute ist: " & klass.getwochentag() & " Es ist Kalenderwoche: " & klass.getKW(klass.now)
    30. End Sub
    31. End Class
    33. Public Class Funktion
    34. Public now As Date = DateTime.Now
    35. #Region "Arrays"
    36. Public _Einer As String() = {"", "Ein", "Zwei", "Drei", "Vier", "Fünf", "Sechs", "Sieben", "Acht", "Neun"}
    37. Public _Sonderzehner As String() = {"Zehn", "Elf", "Zwölf", "Dreizehn", "Vierzehn", "Fünfzehn", "Sechzehn", "Siebzehn", "Achtzehn", "Neunzehn"}
    38. Public _Zehner As String() = {"", "", "Zwanzig", "Dreißig", "Vierzig", "Fünfzig"}
    39. #End Region
    41. #Region "Funktionen"
    42. Public aktlZeit As Integer 'Zahl (h,m,s) aus der aktl Zeit
    43. Public Zehner As Integer 'berechneter Zehnerwert aus der aktl Zeit
    44. Public Einer As Integer 'berechneter Einerwert aus der aktl Zeit
    45. Public Zehnerwort As String 'ermittelter Zehner aus den Arrays
    46. Public Einerwort As String 'ermittelter Einer aus den Arrays
    47. Public Gesamtwort As String 'fertiges Wort der aktl Zeit
    49. Public Function getWorte(aktlZeit As Integer) As String
    50. Zehner = aktlZeit \ 10
    51. Einer = aktlZeit Mod 10
    52. If aktlZeit = 0 Then
    53. Einerwort = "Null"
    54. ElseIf aktlZeit = 1 Then
    55. Einerwort = "Ein"
    56. ElseIf aktlZeit < 10 OrElse aktlZeit > 19 Then
    57. Einerwort = _Einer(Einer)
    58. ElseIf aktlZeit > 9 And aktlZeit < 20 Then
    59. aktlZeit = 0 + (aktlZeit - 10)
    60. Einerwort = _Sonderzehner(Einer)
    61. End If
    62. If Zehner > 1 Then
    63. Zehnerwort = "und" & _Zehner(Zehner).ToLower() 'zusammensetzen und kleinschreiben
    64. If aktlZeit = 20 OrElse aktlZeit = 30 OrElse aktlZeit = 40 OrElse aktlZeit = 50 Then
    65. Zehnerwort = _Zehner(Zehner)
    66. End If
    67. Else
    68. Zehnerwort = _Zehner(Zehner)
    69. End If
    70. Gesamtwort = Einerwort & Zehnerwort
    71. Return Gesamtwort
    72. End Function
    73. #End Region
    75. #Region "Datum und KW"
    76. 'Aktuelles Datum erstellen und Wochentags-Name ermitteln
    77. Public Function getwochentag() As String
    78. Dim DayName As String = MyDate.ToString("dddd")
    79. Dim TodayDatum As String = MyDate.ToString("dd MMMM yyyy", CultureInfo.CreateSpecificCulture("de-DE"))
    80. Return DayName & ", " & TodayDatum
    81. End Function
    82. 'Aktuelle Kalenderwoche ermitteln
    83. Public Function getKW(ByVal Datum As Date) As Short
    84. Dim CUI As New CultureInfo(CultureInfo.CurrentCulture.Name)
    85. Return CShort(CUI.Calendar.GetWeekOfYear(Datum, CUI.DateTimeFormat.CalendarWeekRule, CUI.DateTimeFormat.FirstDayOfWeek))
    86. End Function
    87. #End Region
    88. End Class

    Bilder

    • Uhr-1.jpg

      60,86 kB, 774×90, 104 mal angesehen
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    @Amelie Erstelle ein neues Projekt und füge dort diesen Deinen Code ein.
    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:

    Warum ist das vorher nicht angezeigt worden?
    Keine Ahnung, ich kenne Dein Projekt nicht.
    Überlege:
    Was passiert, wenn Dein Programm über Nacht läuft?
    Wie oft rufst Du DateTime.New auf?
    Wie oft erstellst Du eine CultureInfo-Instanz?
    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

    ​Was passiert, wenn Dein Programm über Nacht läuft?
    Worauf willst du hinaus?
    Hatte extra um NULL Uhr geguggt was passiert aber da ist mir nichts aufgefallen, außer das mit dem was ich unter "Deutsch" eingebaut habe.
    ...
    Ja das mit dem Datum und der KW ... hmmm...
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh: