hangman problem!!

  • VB6

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von xero88.

    hangman problem!!

    Hi! Ich habe folgendes Problem:
    Ich programmiere gerade Galgenraten in VB.
    Wie kann ich einzelne Buchstaben ersetzen?
    Beispiel:
    Das zu erratende Wort ist "Hallo".
    Versteckt sieht es dann so aus: *****
    Jetzt drückt man auf die Schaltfläche A und nun soll aus dem Wort "Hallo" jede Stelle mit einem A herausgesucht werden und anschließend an die versteckte Stelle gesetzt werden: *a***
    Wie mache ich das am besten?
    Habe die Replace-Funktion versucht, komme damit aber nicht wirklich klar!

    Schön und gut, aber da steig ich nicht wirklich durch. Könnt ihr mir nicht mal ein Beispiel programmieren bzw. schreiben. Und zwar genau so, wie ich es oben geschildert habe? Wäre echt super, denn ich breche mir hier langsam echt einen ab :(

    Hier ist einmal das Script davon:
    Die Funktion soll passieren, wenn ich auf das Bild mit dem Buchstaben "A" klicke.

    Visual Basic-Quellcode

    1. Dim anzahl_versuche As Integer
    3. Private Sub A_Click(Index As Integer)
    4. Dim position, verschWort, normalWort, ersetzt As String
    5. Dim repeat As Integer
    7. verschWort = Wort.Text
    8. normalWort = sWort
    10. For repeat = 1 To length
    11. position = Mid$(normalWort, repeat, 1)
    12. If position = "A" Or position = "a" Then
    13. ersetzt = InStr(repeat, normalWort, verschWort, vbTextCompare)
    14. Else: anzahl_versuche = anzahl_versuche - 1
    15. End If
    16. Next repeat
    18. Wort.Text = ersetzt
    20. End Sub
    22. Private Sub Form_Load()
    23. Dim sWort, code As String
    24. Dim length, I As Integer
    26. sWort = WORD.eWort.Text
    27. Unload WORD
    29. code = ""
    30. length = Len(sWort)
    32. For I = 1 To length
    33. code = code + "†"
    34. Next I
    36. Wort.Text = code
    37. End Sub


    Edit by Agent: Doppelposts sind in Zukunft zu vermeiden! Siehe Boardregeln!

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

Facebook
Telefonspende