Ahorcado En Visual Basic
Descargar como PPT, PDF3 recomendaciones11,526 vistas
El documento describe cómo crear un juego de ahorcado en Visual utilizando controles como TextBox, Label, Line y Shape. Explica cómo asignar nombres a los controles y usar código para mover entre preguntas, mostrar más partes del muñeco cuando la respuesta está incorrecta, y finalizar el juego.
Ahorcado En Visual Basic
- 2. Es muy fácil, utilizaremos las siguientes herramientas: TextBox : Estos son cuadros blancos rectangulares Label: estos son cuadros similares a los TextBox Line: son líneas rectas Shape: son líneas rectangulares o ovaladas Command: es una herramienta en visual que es cuadra o rectangular Los TextBox los utilizamos para las respuestas del ahorcado, para responder y el numero de preguntas Los Label es para el contexto de las preguntas Las Line para formar el muñeco del ahorcado Los Shape lo utilizamos para hacer el tallo que sostiene al ahorcado y también para hacer su cabeza En cada TextBox les ponemos un nombre ej: Text 1 esto son para las respuestas, Rta para responder , clave1 para la clave, No para el numero de preguntas En los Label Label1 para las preguntas En cada línea formando el muñeco ahorcado con sus mano, brazos etc, le ponemos un nombre ej: L 1 Los Shape, para la cabeza L5, para el tallo L2 PROGRAMACION EN VISUAL COMO HACER EL JUEGO DE AHORCADO
- 3. Este es para devolver la pregunta Private Sub Command5_Click() If Adodc1.Recordset.EOF And Adodc1.Recordset.BOF Then MsgBox "No hay registros en la base de datos", vbExclamation, "Base de datos vacía" Else Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst End If End Sub CODIFICACION
- 4. ESTE CODIGO ES PARA CONTINUAR LA PREGUNTAS Private Sub Command3_Click() Select Case No.Text Case 1 If Rta.Text = clave1.Text Then Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If Else L1.Visible = True Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End If Case 2 If Rta.Text = clave1.Text Then Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If Else L2.Visible = True Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End If Case 3 If Rta.Text = clave1.Text Then Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If Else L3.Visible = True Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End If
- 5. Case 4 If Rta.Text = clave1.Text Then Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If Else L4.Visible = True Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End If Case 5 If Rta.Text = clave1.Text Then Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If Else L5.Visible = True Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End If Case 6 If Rta.Text = clave1.Text Then Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If Else L6.Visible = True Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End If
- 6. Case 7 If Rta.Text = clave1.Text Then Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If Else L7.Visible = True Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End If Case 8 If Rta.Text = clave1.Text Then Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If Else L8.Visible = True Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End If Case 9 If Rta.Text = clave1.Text Then Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If Else L9.Visible = True Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End If
- 7. Case 10 If Rta.Text = clave1.Text Then Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If Else L10.Visible = True Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End If Case 11 If Rta.Text = clave1.Text Then Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If Else Line11.Visible = True Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End If Case 12 If Rta.Text = clave1.Text Then Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If Else Line12.Visible = True Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End If
- 8. Case 13 If Rta.Text = clave1.Text Then Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If Else Line13.Visible = True Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End If Case 14 If Rta.Text = clave1.Text Then Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast MsgBox ("EL JUEGO HA TERMINADO") End End If Else Line14.Visible = True Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast MsgBox ("EL JUEGO HA TERMINADO") End End If End If Case 15 If Rta.Text = clave1.Text Then Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If MsgBox ("EL JUEGO HA TERMINADO") End Else Line9.Visible = True Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast MsgBox ("EL JUEGO HA TERMINADO") End End If
- 9. Case 16 If Rta.Text = clave1.Text Then Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If Else Line10.Visible = True Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End If Case 17 If Rta.Text = clave1.Text Then Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If Else Line17.Visible = True Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End If Case 18 If Rta.Text = clave1.Text Then Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If Else Line18.Visible = True Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End If
- 10. Case 19 If Rta.Text = clave1.Text Then Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If Else Line19.Visible = True Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End If Case 20 If Rta.Text = clave1.Text Then Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If Else Line20.Visible = True Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End If End Select End Sub
- 11. ESTE ES PARA FINALIZAR EL JUEGO Private Sub Command6_Click() End End Sub