Starts With??

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von prophet.

    Starts With??

    Hallo Leute,
    ich programmiere ein kleines Stadt-Land-Fluss Spiel und habe ein Problem mit:

    Quellcode

    1. [code=vbnet]If stadt1tb.Text.StartsWith(buchstaben.ToString) Then
    2. '... Befehle
    3. End If
    [/code]
    Buchstaben ist in diesem Fall eine Funktion die die Buchstaben auslost und zurückgibt.
    Aber das Funktioniert immer nicht (also der macht einfach garnichts anstatt der Befehle)
    Was mache ich falsch?

    Danke im vorraus
    progglord

    Quellcode

    1. Private Sub tipp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tipp.Click
    2. If stadt1tb.Text.StartsWith(buchstaben.ToString) Then
    3. stadt3.Visible = True
    4. stadt4.Visible = True
    6. land3.Visible = True
    7. land4.Visible = True
    9. fluss3.Visible = True
    10. fluss4.Visible = True
    12. s2tb1.Visible = True
    13. s2tb2.Visible = True
    15. stadt1tb.Enabled = False
    16. stadt2.Enabled = False
    18. land1.Enabled = False
    19. land2.Enabled = False
    21. End If
    22. End Sub

    Quellcode

    1. Function buchstaben()
    2. Dim gen As New Random()
    3. Dim zz As Integer = gen.Next(1, 27)
    4. Dim buchstabe As String
    6. If zz = 1 Then
    7. buchstabe = "A"
    8. ElseIf zz = 2 Then
    9. buchstabe = "B"
    10. ElseIf zz = 3 Then
    11. buchstabe = "C"
    12. ElseIf zz = 4 Then
    13. buchstabe = "D"
    14. ElseIf zz = 5 Then
    15. buchstabe = "E"
    16. ElseIf zz = 6 Then
    17. buchstabe = "F"
    18. ElseIf zz = 7 Then
    19. buchstabe = "G"
    20. ElseIf zz = 8 Then
    21. buchstabe = "H"
    22. ElseIf zz = 9 Then
    23. buchstabe = "I"
    24. ElseIf zz = 10 Then
    25. buchstabe = "J"
    26. ElseIf zz = 11 Then
    27. buchstabe = "K"
    28. ElseIf zz = 12 Then
    29. buchstabe = "L"
    30. ElseIf zz = 13 Then
    31. buchstabe = "M"
    32. ElseIf zz = 14 Then
    33. buchstabe = "N"
    34. ElseIf zz = 15 Then
    35. buchstabe = "O"
    36. ElseIf zz = 16 Then
    37. buchstabe = "P"
    38. ElseIf zz = 17 Then
    39. buchstabe = "Q"
    40. ElseIf zz = 18 Then
    41. buchstabe = "R"
    42. ElseIf zz = 19 Then
    43. buchstabe = "S"
    44. ElseIf zz = 20 Then
    45. buchstabe = "T"
    46. ElseIf zz = 21 Then
    47. buchstabe = "U"
    48. ElseIf zz = 22 Then
    49. buchstabe = "V"
    50. ElseIf zz = 23 Then
    51. buchstabe = "W"
    52. ElseIf zz = 24 Then
    53. buchstabe = "X"
    54. ElseIf zz = 25 Then
    55. buchstabe = "Y"
    56. ElseIf zz = 26 Then
    57. buchstabe = "Z"
    58. End If
    60. bb.Text = buchstabe
    61. Return buchstabe
    62. End Function

    Das geht auch einfacher als 26 If-Abfragen

    VB.NET-Quellcode

    1. buchstabe = CHR(64 + zz)

    Aber das nur am Rande.

    Edit: gen.Next(1, 27), muss das nicht 1,26 heißen?
    Gruß, Agent Smith 8-)

    activeFlags = (lazy OR weary)

    Lemgo-Verschwörung | Mathematics | VB-Paradise in blau

    Versuchs mal mit:

    Müsst den Namepsace

    VB.NET-Quellcode

    1. Import System.Text.RegularExpression


    importieren

    VB.NET-Quellcode

    1. If Regex.IsMatch(stadt1tb.Text, buchstabe) Then
    2. '... Befehle
    3. End If



    Gruß

    EDIT: SORRY ZU SPÄT GESEHEN DAS DER THREAD VON 2009 ist!!!!!!