Ahorcado en visual basic

UNIVERSIDAD NACIONAL AUTONÓMA DE MÉXICO

Facultad De Ingeniería

Metodología de desarrollo de la evaluación:

1. El primer paso es seleccionar un nuevo proyecto.
2. Agregar un Label, este aparecerá en el centro de nuestro formulario. Vamos a situarnos en la barra de propiedades de nuestro objeto para modificar la posición, tamaño y nombre.
3. En Caption vamos a escribir:“Ahorcado”. Y cambiar las propiedades de la fuente , negritas, letra y centrar el texto.
4. Vamos a agregar dos label,
5. Label 2. Caption = Nombre jugador
6. Label 3. Caption =Lista palabras.
7. Después agregar un Textbox en text borrar lo que aparece por default y dejar el espacio en blanco. Agregar un listbox y dos commandButton,
8. Commandbutton1, en Captionpondremos Inicio partida.
9. Commandbutton2, en Caption pondremos Acercade. En este botón incluiremos un formulario prediseñado que muestra al usuario la información del programador.

10. En el nuevo formulario vamos a agregar un label para el titulo, insertaremos una imagen que ira apareciendo a medida que el jugador se equivoque, un texbox en el cual el usuario va a introducir las letrasque quiera, el commandbotton para ejecutar la acción
11. Hay que crear dos matrices de elementos una para que muestre las letras y otra que nos muestre las líneas. y tres label para que le indique al usuario si va ganando o perdiendo.
12. Para que el programa funcione adecuadamente es necesario programar cada acción en el formulario correspondiente y el código queda así:

PrincipalPrivate Sub Text1_Change()
End Sub
Private Sub Command1_Click()
frmAbout.Show vbModal
End Sub
Private Sub InicioPartida_Click()
If Nombrwe.Text = "" Then
MsgBox "Deben introducir un nombre.", 64, "Error"
Exit Sub
Else
Letras.Caption = "Pantalla juego de: " & Nombrwe.Text
End If
Principal.Visible = False
Letras.Show
For contador = 0 To 9Letras.Letra2(contador).Caption = ""
Letras.Letra2(contador).Visible = False
Letras.Linea1(contador).Visible = False
Next contador
Valor = Int(Lista.ListCount * Rnd)
contador = 1
Do Until contador > Len(Trim(Lista.List(Valor)))
Letras.Letra2(contador).Caption = UCase(Mid(Lista.List(Valor), contador, 1))
Letras.Linea1(contador).Visible = True
contador = contador + 1
Loop
Letras.Marcador.Caption =contador - 1
Principal.Visible = False
Letras.Show
End Sub





frmAbout

Option Explicit
' Opciones de seguridad de clave del Registro...
Const READ_CONTROL = &H20000
Const KEY_QUERY_VALUE = &H1
Const KEY_SET_VALUE = &H2
Const KEY_CREATE_SUB_KEY = &H4
Const KEY_ENUMERATE_SUB_KEYS = &H8
Const KEY_NOTIFY = &H10
Const KEY_CREATE_LINK =&H20
Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + _
KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + _
KEY_NOTIFY + KEY_CREATE_LINK + READ_CONTROL

' Tipos ROOT de clave del Registro...
Const HKEY_LOCAL_MACHINE = &H80000002
Const ERROR_SUCCESS = 0
Const REG_SZ = 1 ' Cadena Unicode terminadaen valor nulo
Const REG_DWORD = 4 ' Número de 32 bits
Const gREGKEYSYSINFOLOC = "SOFTWARE\Microsoft\Shared Tools Location"
Const gREGVALSYSINFOLOC = "MSINFO"
Const gREGKEYSYSINFO = "SOFTWARE\Microsoft\Shared Tools\MSINFO"
Const gREGVALSYSINFO = "PATH"
Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey AsString, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long)...