Zahl in String _ Ascii

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

Es gibt 37 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Zahl in String _ Ascii

    Hallo und einen schönen Abend an alle,

    Folgendermaßen - Ich habe in einer Textbox das Ergebnis aus 2 Textboxen rechnen lassen. Das Ergebnis ist z.B.: 1.200. Gern möchte ich, das beim Click Ereignis die 1.200 als Buchstaben dargestellt werden - eintausendzweihundert. Folgender Code ist mir in die Hände gefallen:

    VB.NET-Quellcode

    1. If IsNumeric(txt_gesamt.Text) Then
    2. For Each Buchstabe As Char In txt_gesamt.Text
    3. txt_euroworte.AppendText(Chr(Integer.Parse(Buchstabe) + 64))
    4. Next
    5. Else
    6. For Each Buchstabe As Char In txt_gesamt.Text
    7. txt_euroworte.AppendText((Asc(Buchstabe.ToString.ToUpper) - 64).ToString)
    8. Next
    9. End If


    (Geklauter Code)

    Dieses wirft mir logischerweise die Buchstaben bei 1 = A, bei 2 = B, bei 3 = C, u.s.w raus.

    Wie bekomme ich es hin, das z.B. in der ausgerechneten Box in Ziffern 100 steht, nach Click auf btn_berechnen in einer anderen Textbox (txt_euroworte) einhundert steht. Quasi automatisch nach dem Click Ereignis die Zahl als kleine Buchstaben in das andere Textfeld (txt_euroworte) schreibt.
    Da ich nun gegoogelt habe und nichts gefunden habe, muss ich doch hier nachfragen und euch belästigen.
    Hier noch der Code für das Rechnen:

    VB.NET-Quellcode

    1. Dim Zahl1 As Double
    2. Dim Zahl2 As Double
    3. Dim Ergebnis As Double
    4. Double.TryParse(txt_netto.Text, Zahl1)
    5. Double.TryParse(txt_summe.Text, Zahl2)
    6. Ergebnis = Zahl1 + Zahl2
    7. txt_gesamt.Text = Ergebnis.ToString()


    Ich hoffe, ich wurde verstanden ;)

    Grüße aus - momentan Wentorf - an alle...

    Viddi

    Guten Morgen an alle...
    @Hilfe0987 vielen Dank für den Tip, nur wo schreibe ich innerhalb des Codes, das bei dem Click Ereignis btn_rechnen sich sich aus dem nachstehenden Code ergebenen Buchstaben automatisch in die Textbox txt_euroworte schreibt.

    Hier der Code von Dir:

    VB.NET-Quellcode

    1. Private Sub btn_rechnen_Click(sender As Object, e As EventArgs) Handles btn_rechnen.Click
    2. Dim Zahl1 As Double
    3. Dim Zahl2 As Double
    4. Dim Ergebnis As Double
    5. Double.TryParse(txt_netto.Text, Zahl1)
    6. Double.TryParse(txt_summe.Text, Zahl2)
    7. Ergebnis = Zahl1 + Zahl2
    8. txt_gesamt.Text = Ergebnis.ToString()
    9. End Sub
    10. Function CurStr(ByVal inputValue As Double, _
    11. Optional ByVal round As Integer = 0, _
    12. Optional ByVal nulls As Boolean = False _
    13. ) As String
    15. 'Gibt #InputValue in Worten aus, wobei auf #Round gerundet wird
    16. 'Standardeinstellung #Round = 0 (ohne Nachkommastellen)
    17. 'z.B. #Round = 3 (nur Tausender), oder -2 (zwei Nachkommastellen)
    18. 'Standardeinstellung #Nulls = False (0 wird nicht ausgeschrieben)
    19. Dim Dec As String
    21. Select Case round
    22. Case Is > 0
    23. Dec = "..."
    24. inputValue = CLng(CLng(inputValue) \ CLng(10 ^ round)) * (10 ^ round)
    25. Case -1
    26. Dec = " komma " & CurStr((CLng((inputValue - Int(inputValue)) * 100) \ 10) * 10, , True)
    27. inputValue = CLng(Int(inputValue))
    28. Case Is < -1
    29. Select Case (inputValue - Int(inputValue)) * 100
    30. Case Is = 0
    31. Dec = " komma null" 'oder Leerstring wenn nicht geschrieben werden soll
    32. Case 1 To 9
    33. Dec = " komma null" & CurStr(((inputValue * 10 - Int(inputValue * 10)) * 10), , True)
    34. Case Else
    35. Dec = " komma " & CurStr(((inputValue - Int(inputValue)) * 100), , True)
    36. End Select
    37. inputValue = CLng(Int(inputValue))
    38. Case Else
    39. Dec = ""
    40. inputValue = CLng(Int(inputValue))
    41. End Select
    42. Select Case inputValue
    43. Case Is >= 1000000000 : CurStr = "#FEHLER"
    44. Case 0 : CurStr = If(nulls, "null", "").ToString 'wenn Parameter Nulls wahr ist
    45. Case 1 : CurStr = "ein"
    46. Case 2 : CurStr = "zwei"
    47. Case 3 : CurStr = "drei"
    48. Case 4 : CurStr = "vier"
    49. Case 5 : CurStr = "fünf"
    50. Case 6 : CurStr = "sechs"
    51. Case 7 : CurStr = "sieben"
    52. Case 8 : CurStr = "acht"
    53. Case 9 : CurStr = "neun"
    54. Case 10 : CurStr = "zehn"
    55. Case 20 : CurStr = "zwanzig"
    56. Case 30 : CurStr = "dreißig"
    57. Case 40 : CurStr = "vierzig"
    58. Case 50 : CurStr = "fünfzig"
    59. Case 60 : CurStr = "sechzig"
    60. Case 70 : CurStr = "siebzig"
    61. Case 80 : CurStr = "achzig"
    62. Case 90 : CurStr = "neunzig"
    63. Case 11 : CurStr = "elf"
    64. Case 12 : CurStr = "zwölf"
    65. Case 13 To 19 : CurStr = CurStr(inputValue - 10) & "zehn"
    66. Case 100 To 999 : CurStr = CurStr(CLng(inputValue) \ 100) & "hundert" & _
    67. CurStr(inputValue - ((CLng(inputValue) \ 100) * 100))
    68. Case 1000 To 999999 : CurStr = CurStr(CLng(inputValue) \ 1000) & "tausend " & _
    69. CurStr(inputValue - ((CLng(inputValue) \ 1000) * 1000))
    70. Case 1000000 To 999999999 : CurStr = CurStr(CLng(inputValue) \ 1000000) & "million" & _
    71. IIf(CLng(inputValue) \ 1000000 = 1, " ", "en ").ToString() & _
    72. CurStr(inputValue - ((CLng(inputValue) \ 1000000) * 1000000))
    73. Case Else : CurStr = CurStr(inputValue - ((CLng(inputValue) \ 10) * 10)) & "und" & _
    74. CurStr(((CLng(inputValue) \ 10) * 10))
    75. End Select
    76. CurStr = LTrim(Trim(CurStr) & Dec)
    77. End Function
    79. 'Beispielaufrufe und Ergebnisse:
    81. 'Debug.Print (CurStr(55.78,-1))
    82. '=> fünfundfünfzig komma siebzig
    84. 'Debug.Print (CurStr(55.78,0))
    85. '=> fünfundfünfzig
    87. 'Debug.Print (CurStr(55.78,-2))
    88. '=> fünfundfünfzig komma achtundsiebzig
    90. 'Debug.Print (CurStr(55.78,1))
    91. '=> fünfzig...


    Anbei noch ein Bildchen, vieleicht liegt hier auch irgendwo der Fehler:



    P.S.: Nicht das ihr denkt ich lerne nicht, ich bin gerade bei dem "Schinken" Visual Basic 2010 von Löffelmann...

    Grüße

    Friehdelm

    Viddi schrieb:

    helfen
    So was:

    VB.NET-Quellcode

    1. TextBox4.Text = CurStr(Ergebnis)
    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!

    @ Rod, habe deinen Code eingefügt, klappt leider nicht, ich drehe noch durch :evil:

    Hier mein Versuch, was mache ich bloß falsch ??????

    VB.NET-Quellcode

    1. Function CurStr(ByVal inputValue As Double, _
    2. Optional ByVal round As Integer = 0, _
    3. Optional ByVal nulls As Boolean = False _
    4. ) As String
    7. 'Gibt #InputValue in Worten aus, wobei auf #Round gerundet wird
    8. 'Standardeinstellung #Round = 0 (ohne Nachkommastellen)
    9. 'z.B. #Round = 3 (nur Tausender), oder -2 (zwei Nachkommastellen)
    10. 'Standardeinstellung #Nulls = False (0 wird nicht ausgeschrieben)
    11. Dim Dec As String
    13. Select Case round
    14. Case Is > 0
    15. Dec = "..."
    16. inputValue = CLng(CLng(inputValue) \ CLng(10 ^ round)) * (10 ^ round)
    17. Case -1
    18. Dec = " komma " & CurStr((CLng((inputValue - Int(inputValue)) * 100) \ 10) * 10, , True)
    19. inputValue = CLng(Int(inputValue))
    20. Case Is < -1
    21. Select Case (inputValue - Int(inputValue)) * 100
    22. Case Is = 0
    23. Dec = " komma null" 'oder Leerstring wenn nicht geschrieben werden soll
    24. Case 1 To 9
    25. Dec = " komma null" & CurStr(((inputValue * 10 - Int(inputValue * 10)) * 10), , True)
    26. Case Else
    27. Dec = " komma " & CurStr(((inputValue - Int(inputValue)) * 100), , True)
    28. End Select
    29. inputValue = CLng(Int(inputValue))
    30. Case Else
    31. Dec = ""
    32. inputValue = CLng(Int(inputValue))
    33. End Select
    34. Select Case inputValue
    35. Case Is >= 1000000000 : CurStr = "#FEHLER"
    36. Case 0 : CurStr = If(nulls, "null", "").ToString 'wenn Parameter Nulls wahr ist
    37. Case 1 : CurStr = "ein"
    38. Case 2 : CurStr = "zwei"
    39. Case 3 : CurStr = "drei"
    40. Case 4 : CurStr = "vier"
    41. Case 5 : CurStr = "fünf"
    42. Case 6 : CurStr = "sechs"
    43. Case 7 : CurStr = "sieben"
    44. Case 8 : CurStr = "acht"
    45. Case 9 : CurStr = "neun"
    46. Case 10 : CurStr = "zehn"
    47. Case 20 : CurStr = "zwanzig"
    48. Case 30 : CurStr = "dreißig"
    49. Case 40 : CurStr = "vierzig"
    50. Case 50 : CurStr = "fünfzig"
    51. Case 60 : CurStr = "sechzig"
    52. Case 70 : CurStr = "siebzig"
    53. Case 80 : CurStr = "achzig"
    54. Case 90 : CurStr = "neunzig"
    55. Case 11 : CurStr = "elf"
    56. Case 12 : CurStr = "zwölf"
    57. Case 13 To 19 : CurStr = CurStr(inputValue - 10) & "zehn"
    58. Case 100 To 999 : CurStr = CurStr(CLng(inputValue) \ 100) & "hundert" & _
    59. CurStr(inputValue - ((CLng(inputValue) \ 100) * 100))
    60. Case 1000 To 999999 : CurStr = CurStr(CLng(inputValue) \ 1000) & "tausend " & _
    61. CurStr(inputValue - ((CLng(inputValue) \ 1000) * 1000))
    62. Case 1000000 To 999999999 : CurStr = CurStr(CLng(inputValue) \ 1000000) & "million" & _
    63. IIf(CLng(inputValue) \ 1000000 = 1, " ", "en ").ToString() & _
    64. CurStr(inputValue - ((CLng(inputValue) \ 1000000) * 1000000))
    65. Case Else : CurStr = CurStr(inputValue - ((CLng(inputValue) \ 10) * 10)) & "und" & _
    66. CurStr(((CLng(inputValue) \ 10) * 10))
    68. End Select
    69. CurStr = LTrim(Trim(CurStr) & Dec)
    70. If btn_rechnen_Click() Then
    71. txt_euroworte.Text = CurStr(Ergebnis)
    72. End If
    73. End Function


    Menno.... wo ist das problem, wenn ich auf den Button ausrechnen klicke, das die Summe automatisch in das Textfeld txt_euroworte.Text geschrieben wird.

    Hallo an alle und einen entspannten verschneiten sonntag Nachmittag.

    Nun habe ich alles probiert. Eine variable gesetzt etc. Und auch anderes versucht z.B.:

    VB.NET-Quellcode

    1. If IsNumeric(txt_gesamt.Text) Then
    2. For Each Buchstabe As Char In txt_gesamt.Text
    3. txt_euroworte.AppendText(Chr(Integer.Parse(Ergebnis)))
    4. Next
    5. Else
    6. For Each Buchstabe As Char In txt_gesamt.Text
    7. txt_euroworte.AppendText((Asc(Buchstabe.ToString.ToUpper) Ergebnis).ToString)
    8. Next
    9. End If


    Der Code sollte schon richtig sein, nur wie bekomme ich das Ergebnis aus der txt_gesamt (Zahlen) in die Textbox txt_euroworte.
    Bekomme es einfach nicht hin.

    Kann mir denn keiner bei dem Code helfen? Ich weiß, das es warscheinlich für EuchSpielkram ist, aber ich bin gerade bei dem Buch von Löffelmann bei den Variablen ;)

    Grüße aus Hamburg

    Friedhelm

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

    Viddi schrieb:

    Gern möchte ich, das beim Click Ereignis die 1.200 als Buchstaben dargestellt werden - eintausendzweihundert.
    Das ist überhaupt kein Spielkram, sondern äusserst kompliziert.
    Sprache ist ein gewachsenes Konglomerat aus Konventionen, dabei sind viele Regeln, und immer wieder Ausnahmen vonne Regeln.
    Das dürfte ziemlich schwierig werden, codemäßig sauber in den Griff zu kriegen.
    Ich kann zwar so leidlich deutsch, aber nach welchen Regeln genau ich Zahl-Worte bilde, weiß ich garnicht im einzelnen. Also um sowas zu programmieren, müsste ich erstmal fleißig deutsche Grammatik recherchieren.
    Denn ohne die Regeln verstanden und formuliert zu haben, kann ich da nix entsprechendes coden.

    Ein anderer Punkt ist, dass mir das nicht sonderlich wichtig vorkommt. Was ist an 123456789 nicht gut? Warum sollte ich hundertdreiundzwanzigmillionenvierhundertsechsundfunfzigtausendsiebenhundertneunundachtzig davon machen?

    @erfinder des Rades

    Ich habe es schon einmal hinbekommen, allerdings ist die Platte weg, das war allerdings unter VB 6. Der vorhandene Code stimmt schon inetwa, muss nur noch von der einen in ie andere Textbox. Also wie schon vorher beschrieben.

    @ mox: Ne ne man braucht keine mehrere Subs, ein Code reicht aus.

    Mal schauen, die nächsten Tage habe ich es und dann werde ich den Code hier posten... für alle die das mal irgendwann brauchen und dann werde ich darauf aufpasssen :( :) :P :P

    Viddi schrieb:

    klappt leider nicht
    Was klappt nicht?

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub btn_rechnen_Click(sender As Object, e As EventArgs) Handles btn_rechnen.Click
    2. Dim Zahl1 As Double
    3. Dim Zahl2 As Double
    4. Dim Ergebnis As Double
    5. Double.TryParse(txt_netto.Text, Zahl1)
    6. Double.TryParse(txt_summe.Text, Zahl2)
    7. Ergebnis = Zahl1 + Zahl2
    8. txt_gesamt.Text = Ergebnis.ToString()
    9. TextBox4.Text = CurStr(Ergebnis)
    10. End Sub

    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!

    VB.NET-Quellcode

    1. Private Sub btn_rechnen_Click(sender As Object, e As EventArgs) Handles btn_rechnen.Click
    2. Dim Zahl1 As Double
    3. Dim Zahl2 As Double
    4. Dim Ergebnis As Double
    5. Double.TryParse(txt_netto.Text, Zahl1)
    6. Double.TryParse(txt_summe.Text, Zahl2)
    7. Ergebnis = Zahl1 + Zahl2
    8. txt_gesamt.Text = Ergebnis.ToString()
    9. txt_euroworte.Text = CurStr(Ergebnis)
    10. End Sub
    12. Function CurStr(ByVal inputValue As Double, _
    13. Optional ByVal round As Integer = 0, _
    14. Optional ByVal nulls APrivate Sub btn_rechnen_Click(sender As Object, e As EventArgs) Handles btn_rechnen.Click
    16. 'Gibt #InputValue in Worten aus, wobei auf #Round gerundet wird
    17. 'Standardeinstellung #Round = 0 (ohne Nachkommastellen)
    18. 'z.B. #Round = 3 (nur Tausender), oder -2 (zwei Nachkommastellen)
    19. 'Standardeinstellung #Nulls = False (0 wird nicht ausgeschrieben)
    20. Dim Dec As String
    22. Select Case round
    23. Case Is > 0
    24. Dec = "..."
    25. inputValue = CLng(CLng(inputValue) \ CLng(10 ^ round)) * (10 ^ round)
    26. Case -1
    27. Dec = " komma " & CurStr((CLng((inputValue - Int(inputValue)) * 100) \ 10) * 10, , True)
    28. inputValue = CLng(Int(inputValue))
    29. Case Is < -1
    30. Select Case (inputValue - Int(inputValue)) * 100
    31. Case Is = 0
    32. Dec = " komma null" 'oder Leerstring wenn nicht geschrieben werden soll
    33. Case 1 To 9
    34. Dec = " komma null" & CurStr(((inputValue * 10 - Int(inputValue * 10)) * 10), , True)
    35. Case Else
    36. Dec = " komma " & CurStr(((inputValue - Int(inputValue)) * 100), , True)
    37. End Select
    38. inputValue = CLng(Int(inputValue))
    39. Case Else
    40. Dec = ""
    41. inputValue = CLng(Int(inputValue))
    42. End Select
    43. Select Case inputValue
    44. Case Is >= 1000000000 : CurStr = "#FEHLER"
    45. Case 0 : CurStr = If(nulls, "null", "").ToString 'wenn Parameter Nulls wahr ist
    46. Case 1 : CurStr = "ein"
    47. Case 2 : CurStr = "zwei"
    48. Case 3 : CurStr = "drei"
    49. Case 4 : CurStr = "vier"
    50. Case 5 : CurStr = "fünf"
    51. Case 6 : CurStr = "sechs"
    52. Case 7 : CurStr = "sieben"
    53. Case 8 : CurStr = "acht"
    54. Case 9 : CurStr = "neun"
    55. Case 10 : CurStr = "zehn"
    56. Case 20 : CurStr = "zwanzig"
    57. Case 30 : CurStr = "dreißig"
    58. Case 40 : CurStr = "vierzig"
    59. Case 50 : CurStr = "fünfzig"
    60. Case 60 : CurStr = "sechzig"
    61. Case 70 : CurStr = "siebzig"
    62. Case 80 : CurStr = "achzig"
    63. Case 90 : CurStr = "neunzig"
    64. Case 11 : CurStr = "elf"
    65. Case 12 : CurStr = "zwölf"
    66. Case 13 To 19 : CurStr = CurStr(inputValue - 10) & "zehn"
    67. Case 100 To 999 : CurStr = CurStr(CLng(inputValue) \ 100) & "hundert" & _
    68. CurStr(inputValue - ((CLng(inputValue) \ 100) * 100))
    69. Case 1000 To 999999 : CurStr = CurStr(CLng(inputValue) \ 1000) & "tausend " & _
    70. CurStr(inputValue - ((CLng(inputValue) \ 1000) * 1000))
    71. Case 1000000 To 999999999 : CurStr = CurStr(CLng(inputValue) \ 1000000) & "million" & _
    72. IIf(CLng(inputValue) \ 1000000 = 1, " ", "en ").ToString() & _
    73. CurStr(inputValue - ((CLng(inputValue) \ 1000000) * 1000000))
    74. Case Else : CurStr = CurStr(inputValue - ((CLng(inputValue) \ 10) * 10)) & "und" & _
    75. CurStr(((CLng(inputValue) \ 10) * 10))
    77. End Select
    78. CurStr = LTrim(Trim(CurStr) & Dec)
    80. 'Debug.Print(CurStr(55.78, -1))
    81. '= fünfundfünfzig komma siebzig
    83. 'Debug.Print(CurStr(55.78, 0))
    84. '=> fünfundfünfzig
    86. 'Debug.Print(CurStr(55.78, -2))
    87. '=> fünfundfünfzig komma achtundsiebzig
    89. 'Debug.Print(CurStr(55.78, 1))
    90. '=> fünfzig...
    92. End Function


    @ Rod,
    was ist denn hier bei mir verkehrt??
    Sorry, aber irgendwie komme ich nicht da hinter. :(

    Den bisherigen Code habe ich angehängt.

    Grüße aus Hamburg - ich hau mir die Hukke voll, wenn wir es geschafft haben und spende nochmal... :P

    Friedhelm

    Hier der geamte Code des Quittungsblockes:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub btn_clear_Click(sender As Object, e As EventArgs) Handles btn_clear.Click
    4. txt_euroworte.Text = ""
    5. txt_gesamt.Text = ""
    6. txt_netto.Text = ""
    7. txt_nr.Text = ""
    8. txt_summe.Text = ""
    9. txt_vermerk.Text = ""
    10. cmb_eintragen.Text = ""
    11. comb_emmi.Text = ""
    12. End Sub
    13. Private Sub Timer1_Tick_1(sender As Object, e As EventArgs) Handles Timer1.Tick
    14. lbl_zeit.Text = TimeOfDay
    15. End Sub
    17. Private Sub btn_rechnen_Click(sender As Object, e As EventArgs) Handles btn_rechnen.Click
    18. Dim Zahl1 As Double
    19. Dim Zahl2 As Double
    20. Dim Ergebnis As Double
    21. Double.TryParse(txt_netto.Text, Zahl1)
    22. Double.TryParse(txt_summe.Text, Zahl2)
    23. Ergebnis = Zahl1 + Zahl2
    24. txt_gesamt.Text = Ergebnis.ToString()
    25. txt_euroworte.Text = CurStr(Ergebnis)
    26. End Sub
    28. Function CurStr(ByVal inputValue As Double, _
    29. Optional ByVal round As Integer = 0, _
    30. Optional ByVal nulls APrivate Sub btn_rechnen_Click(sender As Object, e As EventArgs) Handles btn_rechnen.Click
    32. 'Gibt #InputValue in Worten aus, wobei auf #Round gerundet wird
    33. 'Standardeinstellung #Round = 0 (ohne Nachkommastellen)
    34. 'z.B. #Round = 3 (nur Tausender), oder -2 (zwei Nachkommastellen)
    35. 'Standardeinstellung #Nulls = False (0 wird nicht ausgeschrieben)
    36. Dim Dec As String
    38. Select Case round
    39. Case Is > 0
    40. Dec = "..."
    41. inputValue = CLng(CLng(inputValue) \ CLng(10 ^ round)) * (10 ^ round)
    42. Case -1
    43. Dec = " komma " & CurStr((CLng((inputValue - Int(inputValue)) * 100) \ 10) * 10, , True)
    44. inputValue = CLng(Int(inputValue))
    45. Case Is < -1
    46. Select Case (inputValue - Int(inputValue)) * 100
    47. Case Is = 0
    48. Dec = " komma null" 'oder Leerstring wenn nicht geschrieben werden soll
    49. Case 1 To 9
    50. Dec = " komma null" & CurStr(((inputValue * 10 - Int(inputValue * 10)) * 10), , True)
    51. Case Else
    52. Dec = " komma " & CurStr(((inputValue - Int(inputValue)) * 100), , True)
    53. End Select
    54. inputValue = CLng(Int(inputValue))
    55. Case Else
    56. Dec = ""
    57. inputValue = CLng(Int(inputValue))
    58. End Select
    59. Select Case inputValue
    60. Case Is >= 1000000000 : CurStr = "#FEHLER"
    61. Case 0 : CurStr = If(nulls, "null", "").ToString 'wenn Parameter Nulls wahr ist
    62. Case 1 : CurStr = "ein"
    63. Case 2 : CurStr = "zwei"
    64. Case 3 : CurStr = "drei"
    65. Case 4 : CurStr = "vier"
    66. Case 5 : CurStr = "fünf"
    67. Case 6 : CurStr = "sechs"
    68. Case 7 : CurStr = "sieben"
    69. Case 8 : CurStr = "acht"
    70. Case 9 : CurStr = "neun"
    71. Case 10 : CurStr = "zehn"
    72. Case 20 : CurStr = "zwanzig"
    73. Case 30 : CurStr = "dreißig"
    74. Case 40 : CurStr = "vierzig"
    75. Case 50 : CurStr = "fünfzig"
    76. Case 60 : CurStr = "sechzig"
    77. Case 70 : CurStr = "siebzig"
    78. Case 80 : CurStr = "achzig"
    79. Case 90 : CurStr = "neunzig"
    80. Case 11 : CurStr = "elf"
    81. Case 12 : CurStr = "zwölf"
    82. Case 13 To 19 : CurStr = CurStr(inputValue - 10) & "zehn"
    83. Case 100 To 999 : CurStr = CurStr(CLng(inputValue) \ 100) & "hundert" & _
    84. CurStr(inputValue - ((CLng(inputValue) \ 100) * 100))
    85. Case 1000 To 999999 : CurStr = CurStr(CLng(inputValue) \ 1000) & "tausend " & _
    86. CurStr(inputValue - ((CLng(inputValue) \ 1000) * 1000))
    87. Case 1000000 To 999999999 : CurStr = CurStr(CLng(inputValue) \ 1000000) & "million" & _
    88. IIf(CLng(inputValue) \ 1000000 = 1, " ", "en ").ToString() & _
    89. CurStr(inputValue - ((CLng(inputValue) \ 1000000) * 1000000))
    90. Case Else : CurStr = CurStr(inputValue - ((CLng(inputValue) \ 10) * 10)) & "und" & _
    91. CurStr(((CLng(inputValue) \ 10) * 10))
    93. End Select
    94. CurStr = LTrim(Trim(CurStr) & Dec)
    96. 'Debug.Print(CurStr(55.78, -1))
    97. '= fünfundfünfzig komma siebzig
    99. 'Debug.Print(CurStr(55.78, 0))
    100. '=> fünfundfünfzig
    102. 'Debug.Print(CurStr(55.78, -2))
    103. '=> fünfundfünfzig komma achtundsiebzig
    105. 'Debug.Print(CurStr(55.78, 1))
    106. '=> fünfzig...
    108. End Function
    109. Private Sub txt_netto_KeyPress( _
    110. ByVal sender As Object, _
    111. ByVal e As System.Windows.Forms.KeyPressEventArgs) _
    112. Handles txt_netto.KeyPress
    113. Select Case Asc(e.KeyChar)
    114. Case 48 To 57, 8, 32, 44
    115. Case Else
    116. e.Handled = True
    117. End Select
    118. End Sub
    120. Private Sub txt_summe_KeyPress( _
    121. ByVal sender As Object, _
    122. ByVal e As System.Windows.Forms.KeyPressEventArgs) _
    123. Handles txt_summe.KeyPress
    124. Select Case Asc(e.KeyChar)
    125. Case 48 To 57, 8, 32, 44
    126. ' Zahlen, Backspace, Komma und Space zulassen
    127. Case Else
    128. ' alle anderen Eingaben unterdrücken
    129. e.Handled = True
    130. End Select
    131. End Sub
    132. Private Sub txt_gesamt_KeyPress( _
    133. ByVal sender As Object, _
    134. ByVal e As System.Windows.Forms.KeyPressEventArgs) _
    135. Handles txt_gesamt.KeyPress
    136. Select Case Asc(e.KeyChar)
    137. Case 48 To 57, 8, 32, 44
    138. ' Zahlen, Backspace, Komma und Space zulassen
    139. Case Else
    140. ' alle anderen Eingaben unterdrücken
    141. e.Handled = True
    142. End Select
    143. End Sub
    144. Private Sub txt_nr_KeyPress( _
    145. ByVal sender As Object, _
    146. ByVal e As System.Windows.Forms.KeyPressEventArgs) _
    147. Handles txt_nr.KeyPress
    148. Select Case Asc(e.KeyChar)
    149. Case 48 To 57, 8, 32, 44
    150. ' Zahlen, Backspace, Komma und Space zulassen
    151. Case Else
    152. ' alle anderen Eingaben unterdrücken
    153. e.Handled = True
    154. End Select
    155. End Sub
    156. Private Sub btn_close_Click(sender As Object, e As EventArgs) Handles btn_close.Click
    157. Beep()
    158. Select Case MessageBox.Show(" Wollen Sie das Programm wirklich schließen?", "Quittungsblock beenden ?", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    159. Case Windows.Forms.DialogResult.Yes
    160. If DialogResult.Yes Then
    161. Me.Close()
    162. End If
    163. Case Windows.Forms.DialogResult.No
    164. End Select
    165. End Sub
    166. Private Sub btn_drucken_Click(sender As Object, e As EventArgs) Handles btn_drucken.Click
    167. PrintForm1.Print()
    168. End Sub
    169. Private Sub txt_summe_Click(ByVal sender As Object, _
    170. ByVal e As System.EventArgs) Handles txt_summe.Click
    171. txt_summe.BackColor = Color.White
    172. End Sub
    173. Private Sub txt_netto_Click(ByVal sender As Object, _
    174. ByVal e As System.EventArgs) Handles txt_netto.Click
    175. txt_netto.BackColor = Color.White
    176. End Sub
    177. Private Sub txt_nr_Click(ByVal sender As Object, _
    178. ByVal e As System.EventArgs) Handles txt_nr.Click
    179. txt_nr.BackColor = Color.White
    180. End Sub
    181. Private Sub cmb_eintragen_Click(ByVal sender As Object, _
    182. ByVal e As System.EventArgs) Handles cmb_eintragen.Click
    183. cmb_eintragen.BackColor = Color.White
    184. End Sub
    185. Private Sub comb_emmi_Click(ByVal sender As Object, _
    186. ByVal e As System.EventArgs) Handles comb_emmi.Click
    187. comb_emmi.BackColor = Color.White
    188. End Sub
    189. Private Sub comb_von_Click(ByVal sender As Object, _
    190. ByVal e As System.EventArgs) Handles comb_von.Click
    191. comb_von.BackColor = Color.White
    192. End Sub
    194. End Class


    Hmm nixht einfach, aber der Schinken von Löffelmann ist auch schwere kost ;)

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

    Viddi schrieb:

    bei mir verkehrt?
    Das ist exakt Dein Code mit der einen einzigen zusätzlichen Zeile.
    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!

    Du hast die Funktion CurStr zerlegt, der Klickhandle gehört da nicht rein. Bring die Funktion wieder in Ordnung und dan geht auch alles wie es sich gehört.

    Es heißt übrigens achtzig und nicht achzig.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Function CurStr(ByVal inputValue As Double,
    2. Optional ByVal round As Integer = 0,
    3. Optional ByVal nulls As Boolean = False
    4. ) As String
    6. 'Gibt #InputValue in Worten aus, wobei auf #Round gerundet wird
    7. 'Standardeinstellung #Round = 0 (ohne Nachkommastellen)
    8. 'z.B. #Round = 3 (nur Tausender), oder -2 (zwei Nachkommastellen)
    9. 'Standardeinstellung #Nulls = False (0 wird nicht ausgeschrieben)
    10. Dim Dec As String
    12. Select Case round
    13. Case Is > 0
    14. Dec = "..."
    15. inputValue = CLng(CLng(inputValue) \ CLng(10 ^ round)) * (10 ^ round)
    16. Case -1
    17. Dec = " komma " & CurStr((CLng((inputValue - Int(inputValue)) * 100) \ 10) * 10, , True)
    18. inputValue = CLng(Int(inputValue))
    19. Case Is < -1
    20. Select Case (inputValue - Int(inputValue)) * 100
    21. Case Is = 0
    22. Dec = " komma null" 'oder Leerstring wenn nicht geschrieben werden soll
    23. Case 1 To 9
    24. Dec = " komma null" & CurStr(((inputValue * 10 - Int(inputValue * 10)) * 10), , True)
    25. Case Else
    26. Dec = " komma " & CurStr(((inputValue - Int(inputValue)) * 100), , True)
    27. End Select
    28. inputValue = CLng(Int(inputValue))
    29. Case Else
    30. Dec = ""
    31. inputValue = CLng(Int(inputValue))
    32. End Select
    33. Select Case inputValue
    34. Case Is >= 1000000000 : CurStr = "#FEHLER"
    35. Case 0 : CurStr = If(nulls, "null", "").ToString 'wenn Parameter Nulls wahr ist
    36. Case 1 : CurStr = "ein"
    37. Case 2 : CurStr = "zwei"
    38. Case 3 : CurStr = "drei"
    39. Case 4 : CurStr = "vier"
    40. Case 5 : CurStr = "fünf"
    41. Case 6 : CurStr = "sechs"
    42. Case 7 : CurStr = "sieben"
    43. Case 8 : CurStr = "acht"
    44. Case 9 : CurStr = "neun"
    45. Case 10 : CurStr = "zehn"
    46. Case 20 : CurStr = "zwanzig"
    47. Case 30 : CurStr = "dreißig"
    48. Case 40 : CurStr = "vierzig"
    49. Case 50 : CurStr = "fünfzig"
    50. Case 60 : CurStr = "sechzig"
    51. Case 70 : CurStr = "siebzig"
    52. Case 80 : CurStr = "achtzig"
    53. Case 90 : CurStr = "neunzig"
    54. Case 11 : CurStr = "elf"
    55. Case 12 : CurStr = "zwölf"
    56. Case 13 To 19 : CurStr = CurStr(inputValue - 10) & "zehn"
    57. Case 100 To 999 : CurStr = CurStr(CLng(inputValue) \ 100) & "hundert" &
    58. CurStr(inputValue - ((CLng(inputValue) \ 100) * 100))
    59. Case 1000 To 999999 : CurStr = CurStr(CLng(inputValue) \ 1000) & "tausend " &
    60. CurStr(inputValue - ((CLng(inputValue) \ 1000) * 1000))
    61. Case 1000000 To 999999999 : CurStr = CurStr(CLng(inputValue) \ 1000000) & "million" &
    62. IIf(CLng(inputValue) \ 1000000 = 1, " ", "en ").ToString() &
    63. CurStr(inputValue - ((CLng(inputValue) \ 1000000) * 1000000))
    64. Case Else : CurStr = CurStr(inputValue - ((CLng(inputValue) \ 10) * 10)) & "und" &
    65. CurStr(((CLng(inputValue) \ 10) * 10))
    66. End Select
    67. CurStr = LTrim(Trim(CurStr) & Dec)
    68. End Function



    Nachtrag: Deine Events hast Du nicht über die IDE abonniert. Die sehen so aus als hättest Du sie auch aus einem Buch abgeschrieben. Das ist gar nicht glücklich, es sei denn es sind selbst erstelle Events. Die wären dann aber auch über selbst geschriebenen Code zu abonnieren.
    Schau Dir mal die Eigenschaften der Steuerelemente an, in diesem Fall die der Textboxen. Im Eigenschaftsfenster, wo z.B. die Namen festgelegt werden ist oben auch ein Blitz-Symbol. Das ist für die Ereignisse. Du abonnierst die Ereigneisse, in dem Du dort im gesuchten Ereigniss doppelt klickst, dann führt Dich die IDE direkt in den Code herein und Du brauchst nur noch den Code der Funktion selbst zu schreiben.

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

    Achne, vielleicht liest Du ja mal meinen Beitrag.
    Mit einer klitzekleinen Änderung der Funktion CurStr, die ich im Übrigen auch im Post #14 beschrieben habe und Dir sogar den Code der Funktion reingeschrieben habe, würde Dein Programm soweit Du es hier gepostet hast auch funktionieren. Bei mir läuft der Code von hier ja auch. Allerdings war ich so frei die Ereignisse auch wirklich (über die IDE) zu abonnieren, was Du glaub ich, nicht getan hast.

    Aber davon mal ganz ab, solltest Du in die Verlegenheit kommen und auch Nachkommastellen mit als Text ausgeben wollen, so sei gewarnt. Die Funktion rundet nämlich falsch, was darin liegt dass der Datentyp Double verwendet wurde. Um korrekt zu Runden muss der Datentyp Decimal verwendet werden, was aber wirklich nur wenige kleinere Änderungen erfordert.

    Viddi schrieb:

    Fehler hier und da
    äußern sich wie genau?
    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!

    bei mir klappt es gut, ok, es werden die Cent nicht geschrieben, aber sonst ok.

    Erfinder des Rades
    Was meinst du damit?

    Grüße
    Friedhelm

    Nebenbei - eas stimmt an diesem Code nicht.

    'If txt_vermerk.Text = "" Then txt_vermerk.BackColor = Color.AliceBlue

Facebook
Telefonspende