Ahorcado visual basic
' Tipos de datos
' ==============
' Posibles niveles de juego
Public Enum NivelJuego
novato
profesional
experto
End Enum
' Estructura para todas las palabrasdisponibles para el programa
Public Type PalabrasDisponibles
nivelNovato() As String
nivelProfesional() As String
nivelExperto() As String
' Indica cuantas palabras de cada categoria existencantidadNovato As Integer
cantidadProfesional As Integer
cantidadExperto As Integer
End Type
' Estructura que representa una ronda específica del juego de ahorcado
Public Type RondaJuegonombreJugador As String ' El nombre del jugador
nivel As NivelJuego
frase As String ' Palabra o frase a adivinar
jugadasTotal As Integer
jugadasErradas As Integer
puntaje As Integerintentos() As String ' Letras que ha intentado el jugador
fechaHoraInicio As Date
fechaHoraFin As Date
End Type
' Estructura para mantener estadísticas, se espera usar 3 variables de estetipo, una
' por cada nivel
Public Type EstadisticaJuego
mejorPuntaje As Integer
totalTiempoJugado As Integer ' En segundos
totalJuegos As Integer ' Cantidad de juegos
totalResueltos AsInteger ' Cantidad de juego en los que el jugador ganó
End Type
' ==================
' Variables globales
' ==================
Public ronda As RondaJuego
Public palabras AsPalabrasDisponibles
Public bd As New Connection
Public bd_se_ha_abierto As Boolean
' ==============
' Procedimientos
' ==============
' Inicializa todas las variables necesarias para jugar una nueva rondaSub inicializar_ronda(ByVal nombre As String, ByVal nivel As NivelJuego)
Dim numAzar As Integer
ronda.nombreJugador = nombre
ronda.nivel = nivel
ronda.fechaHoraInicio =Now
ronda.jugadasTotal = 0
ronda.jugadasErradas = 0
ronda.puntaje = 0
If nivel = novato Then
numAzar = Int(Rnd * palabras.cantidadNovato)
ronda.frase =...
Regístrate para leer el documento completo.