Ahorcado visual basic gy alcxyjuli I ACk’a6pR 04, 2010 | 4 pagos ipos de datos ‘ Posibles niveles de juego public Enum NivelJuego novato profesional experto End Enum ‘ Estructura para todas las palabras disponibles para el programa Public Type PalabrasDisponibIes nivelNovato() As Strin nivelProfesional() As nivelExperto() As Stri Indica cuantas pala cantidadNovato As I ora to View nut*ge xisten cantidadprofesional As Integer cantidadExperto As Integer End Type Estructura que representa una ronda especifica del juego de ahorcado Public Type RondaJuego ombreJugador 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 Integer intentos() As String ‘ Letras que ha intentado el jugador numAzar — Int(Rnd * palabras. cantidadProfesional) ronda. rase = palabras. niveIProfesional(numAzar) Eise numAzar = Int(Rnd * palabras. cantidadExperto) ronda. frase = palabras. nivelExperto(numAzar) End If End sub ‘ Carga todas las palabras disponibles desde el archivo HANGMAN. txt, que debe existir en la misma ruta en donde se encuentre el proyecto Sub leer_palabras() Dim nombreArchivo As String Dim numArchivo As Integer Dim linea As String nombreArchivo App. Path & «HANGMAN. txt» numArchivo = FreeFile Verlficar si el archivo existe If Dir(nombreArchivo) —
Then MsgBox (‘Error: No se ha encontrado el archivo nombreArchivo) End palabras. cantidadNovato = O palabras. cantidadProfesional = 0 palabras. antidadExperto = O Open nombreArchivo For Input As numArchivo Do While Not EOF(numA Line Input #numArchi palabras. nivelProfesional(palabras. cantidadProfesional – 1) — linea Else palabras. cantidadExperto = palabras. antidadExperto + ReDim Preserve palabras cantidad Experto) palabras. nivelExperto(palabras. cantidadExperto • 1) linea Loop Close numArchivo ‘ Guarda en la base de datos de Access los datos de la partida actualmente en juego Sub guardar_partida_actual() Dim diferencia As Date Dm comando_sql As String Dim letras As String Call abrir bd Call borrar_ultimo_luego diferencia = Now – ronda. fechaHoralnicio letras = For i = 0 To ronda. jugadasTotal letras = letras & ronda. ntentos(i) Next i comando_sql 3Lvf4 – «INSERT eciente VALUES(» desarrollo_de_palabra() Dim desarrollo As String Dim i As Integer For i = 1 To Len(ronda. frase) Dim letra As String letra Mid(ronda. frase, If letra » » Then desarrollo = desarrollo & ‘ Elself letra_fue_intentada(letra) Then desarrollo = desarrollo & letra desarrollo = desarrollo & «_ desarrollo_de_palabra = desarrollo End Function Devuelve un valor de verdad que indica si la letra especificada ya fue intentada por ‘ el jugador Function letra_fue_intentada(ByVal letra As String) Dim encontrada As Boolean encontrada = False For i = 0 To ronda. jugadasTotal – 1 If letra = ronda. intentos(i) Then encontrada True
