Hallo ich habe ein Menü entworfen, dass Programm startet auch allerdings funktioniert es nicht. Und jetzt geht es mir so:
Die Idee: Man soll mit der "W"-Taste das Großgeschriebene einen weiter nach oben ziehen und mit der "S"-Taste nach unten
der Code:
Die Idee: Man soll mit der "W"-Taste das Großgeschriebene einen weiter nach oben ziehen und mit der "S"-Taste nach unten
der Code:
VB.NET-Quellcode
- Public Class menu
- 'System.ConsoleKeyInfo
- Dim cs As Console
- Dim selectedRow As Integer = 3
- Dim Row1 As String = "START GAME"
- Dim Row2 As String = "Options"
- Dim Row3 As String = "Credits"
- Dim Row4 As String = "End game"
- Public Sub Show()
- For charger = 1 To 4
- charger = 1
- cs.WriteLine("================== Menu ==================")
- cs.WriteLine("")
- cs.WriteLine(Row1)
- cs.WriteLine(Row2)
- cs.WriteLine(Row3)
- cs.WriteLine(Row4)
- Dim csread = cs.ReadKey().ToString
- Dim ProofW As Boolean = ("wSystem.ConsoleKeyInfo" = csread)
- Dim ProofS As Boolean = ("sSystem.ConsoleKeyInfo" = csread)
- Dim ProofE As Boolean = ("eSystem.ConsoleKeyInfo" = csread)
- If ProofW = True Then
- If selectedRow <= 2 Then
- selectedRow -= 1
- If selectedRow = 1 Then
- Row1 = "START GAME"
- ElseIf selectedRow = 2 Then
- Row2 = "OPTIONS"
- ElseIf selectedRow = 3 Then
- Row3 = "CREDITS"
- ElseIf selectedRow = 4 Then
- Row4 = "END GAME"
- End If
- End If
- End If
- If ProofS = True Then
- If selectedRow >= 3 Then
- selectedRow += 1
- If selectedRow = 1 Then
- Row1 = "START GAME"
- ElseIf selectedRow = 2 Then
- Row2 = "OPTIONS"
- ElseIf selectedRow = 3 Then
- Row3 = "CREDITS"
- ElseIf selectedRow = 4 Then
- Row4 = "END GAME"
- End If
- End If
- End If
- Console.Clear()
- Next
- End Sub
- End Class
Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „VBOle“ ()