Hallo,
ich heiße Pascal und habe ein Problem mit dem Programmieren von Hangman(Galgenmännchen). Ich muss es für die Schule demnächst fertig haben und komme nicht weiter. Ich habe eine Anleitung aus Youtube verwendet, die für Visual Basic 6 war, leider habe ich Visual Basic 2005 (also Version 8). Jetzt habe ich ein paar Fehlermeldungen und das Programm macht auch nichts. Ich habe es schon probiert selbst hinzukriegen, leider klappt es nicht so richtig
Daher hoffe ich ihr könnt mir helfen.
Hier der Code:
Mit freundlichen Grüßen
Pascal
Ps. Anbei noch die Fehlermeldungen
ich heiße Pascal und habe ein Problem mit dem Programmieren von Hangman(Galgenmännchen). Ich muss es für die Schule demnächst fertig haben und komme nicht weiter. Ich habe eine Anleitung aus Youtube verwendet, die für Visual Basic 6 war, leider habe ich Visual Basic 2005 (also Version 8). Jetzt habe ich ein paar Fehlermeldungen und das Programm macht auch nichts. Ich habe es schon probiert selbst hinzukriegen, leider klappt es nicht so richtig
Daher hoffe ich ihr könnt mir helfen.
Hier der Code:
VB.NET-Quellcode
- Public Class Form1
- Dim Ratewˆrter(19) As String
- Dim Ratewort As String
- Dim Suchwort As String
- Dim Buchstabe As String
- Dim Lebenverloren As Boolean
- Dim Leben As Integer
- Dim max As Integer
- Dim min As Integer
- Dim zufall As Integer
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Ratewˆrter(0) = "PUSTEKUCHEN"
- Ratewˆrter(1) = "FRIEDRICH"
- Ratewˆrter(2) = "OBSTSALAT"
- Ratewˆrter(3) = "HYUNDAI"
- Ratewˆrter(4) = "SAMSUNG"
- Ratewˆrter(5) = "APPLE"
- Ratewˆrter(6) = "WASCHMASCHINE"
- Ratewˆrter(7) = "UNTERRICHT"
- Ratewˆrter(8) = "KREISVERKEHR"
- Ratewˆrter(9) = "MUTTER"
- Ratewˆrter(10) = "KOPFKISSEN"
- Ratewˆrter(11) = "TRANSPORTMITTEL"
- Ratewˆrter(12) = "LIMONADE"
- Ratewˆrter(13) = "KALENDER"
- Ratewˆrter(14) = "FEIERTAG"
- Ratewˆrter(15) = "WETTERFROSCH"
- Ratewˆrter(16) = "ANGSTHASE"
- Ratewˆrter(17) = "INTERNETBROWSER"
- Ratewˆrter(18) = "LAUTSPRECHER"
- Ratewˆrter(19) = "SOMMERFERIEN"
- min = 0
- max = 19
- Randomize()
- zufall = Int(Rnd() * (max - min + 1)) + min
- Ratewort = Ratewˆrter(zufall)
- For i = 1 To Len(Ratewort)
- Suchwort = Suchwort + "-"
- Next
- Label1.Text = Suchwort
- Leben = 15
- Label2.Text = Leben
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Buchstabe = TextBox1.Text
- Buchstabe = UCase(Buchstabe)
- TextBox1.Text = ""
- If Len(Buchstabe) = 1 Then
- If Asc(Buchstabe) > 64 And Asc(Buchstabe) < 91 Then
- Lebenverloren = True
- For i = 1 Len(Ratewort)
- If Mid(Ratewort, i, 1) = Buchstabe Then
- Mid(Suchwort, i, 1) = Buchstabe
- Label1.Text = Suchwort
- Lebenverloren = False
- If Suchwort = Ratewort Then
- Box = MsgBox("Sie haben Gewonnen! Wollen Sie noch eine Runde spielen?", 36, "Gewonnen")
- If Box = 6 Then
- Randomize()
- zufall = Int(Rnd() * (max - min + 1)) + min
- Ratewort = Ratewˆrter(zufall)
- Suchwort = ""
- For j = 1 To Len(Ratewort)
- Suchwort = Suchwort + "-"
- Next
- Label1.Text = Suchwort
- Leben = 15
- Label2.Text = Leben
- Else
- End
- End If
- End If
- End If
- Next
- If Lebenverloren = True Then
- Leben = Leben - 1
- Label2.Text = Leben
- End If
- If Leben = 0 Then
- Box = MsgBox("Sie haben Verloren! Das gesuchte Wort war " + Ratewort + "! Wollen Sie noch eine Runde spielen?", 36, "Verloren")
- If Box = 6 Then
- Randomize()
- zufall = Int(Rnd() * (max - min + 1)) + min
- Ratewort = Ratewˆrter(zufall)
- Suchwort = ""
- For i = 1 To Len(Ratewort)
- Suchwort = Suchwort + "-"
- Next
- Label1.Text = Suchwort
- Leben = 15
- Label2.Text = Leben
- Else
- End
- End If
- End If
- Else
- Box = Msgbox("Bitte nur BUCHSTABEN eingeben!",0,"Fehler"!)
- End If
- Else
- Box = MsgBox("Bitte immer genau EINEN Buchstaben eingeben!", 0, "Fehler!")
- End If
- TextBox1.Setfocus()
- End Sub
- End Class
Mit freundlichen Grüßen
Pascal
Ps. Anbei noch die Fehlermeldungen