Ahorcado visual basic

Solo disponible en BuenasTareas
  • Páginas : 4 (872 palabras )
  • Descarga(s) : 0
  • Publicado : 3 de diciembre de 2010
Leer documento completo
Vista previa del texto
' ==============
' 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 =...
tracking img