Fecha y hora actual: Miércoles 19 Jun 2019 21:14
Índice del Foro

Foros de programación informática, diseño gráfico y Web

En esta comunidad intentaremos dar soporte de programación a todos los niveles, desde principiantes a profesionales de la informática, desarrollo de programas, programación web y mucho más.

Ayuda, x favor hice un juego de ahorcado pero m hace falta..

Responder al Tema

Índice del Foro > Visual Basic .NET > Ayuda, x favor hice un juego de ahorcado pero m hace falta..

Autor Mensaje
ADYIR
Usuario Inquieto


Registrado: 31 Jul 2008
Mensajes: 49

Mensaje Publicado: Viernes 29 May 2009 15:57

Título del mensaje: Ayuda, x favor hice un juego de ahorcado pero m hace falta..

Responder citando

Hola a todos espero que esten bien, soy un novato en programacion, y hasta a hora he hecho como 3 programitas per solo administrativos en c# y vb.net, esta vez mi jefe quiere que haga un juego llamado ruleta de la fortuna, el cual lleva un juego como el ahorcado solo que no ahorcan a nadie xD, ya que la idea es que los concursantes adivinen las palabras mientras giran una rueda....

Mi problema es que investigue una forma de hacerlo, la cual fue la que use y funcion bien, que es usando el event key_press de un textbox...
El caso es que el debe ser es crear varios botones con letras de la "A hasta la Z", y asi se puede manipuar con el mouse el juego y no tener que marcar letras cn el tecado y asi ser mas intertactivo y dinamico...

Como puedo hacer eso... Lo que se me ocurrio fue marcar en los botones por ejemplo BotonA_Click "textox1.text= "A", xD pero naa funciono....

Otra cosa en e juego se adivinan son frases no palabras, y la frase es escrita previamente antes de empezar el juego, pero no se como definir los espacios, de manera que si coloque por ejemplo "Visual Basic", en los textbox donde sale la palabra sea __ __ __ __ __ __ / __ __ __ __ __ "/=espacion" solo que no se quiere marcar aqui xD xD... Espero que puedan ayudarme todabia me falta hacer una rueda que gire aleatoriamente pero eso se los pregunto despues xD aunque si tienen el dato por ahi no me pongo bravo xD... Graciassss.........

Anexo codigo que utilizo

Imports Microsoft.VisualBasic.FileIO
Public Class Form1

Dim palabraChar(56) As Char
Dim palabraCadena, Jugador As String
Dim listaText As New List(Of TextBox)
Dim listaLabel As New List(Of Label)
Dim contadorGana, contadorPierde As Integer
Dim ListaJugadores As New List(Of String)


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

listaText.Add(txta)
listaText.Add(txtb)
listaText.Add(txtc)
listaText.Add(txtd)
listaText.Add(txte)
listaText.Add(txtf)
listaText.Add(txtg)
listaText.Add(txth)
listaText.Add(txti)
listaText.Add(txtj)
listaText.Add(txtk)
listaText.Add(txtl)
listaText.Add(txtm)
listaText.Add(txtn)
listaText.Add(txto)
listaText.Add(txtp)
listaText.Add(txtq)
listaText.Add(txtr)
listaText.Add(txts)
listaText.Add(txtt)
listaText.Add(txtu)
listaText.Add(txtv)
listaText.Add(txtw)
listaText.Add(txtx)
listaText.Add(txty)
listaText.Add(txtz)
listaText.Add(txta1)
listaText.Add(txtb1)
listaText.Add(txtc1)
listaText.Add(txtd1)
listaText.Add(txte1)
listaText.Add(txtf1)
listaText.Add(txtg1)
listaText.Add(txth1)
listaText.Add(txti1)
listaText.Add(txtj1)
listaText.Add(txtk1)
listaText.Add(txtl1)
listaText.Add(txtm1)
listaText.Add(txtn1)
listaText.Add(txto1)
listaText.Add(txtp1)
listaText.Add(txtq1)
listaText.Add(txtr1)
listaText.Add(txts1)
listaText.Add(txtt1)
listaText.Add(txtu1)
listaText.Add(txtv1)
listaText.Add(txtw1)
listaText.Add(txtx1)
listaText.Add(txty1)
listaText.Add(txtz1)
listaText.Add(txta2)
listaText.Add(txtb2)
listaText.Add(txtc2)
listaText.Add(txtd2)

For i As Integer = 0 To 55
listaText(i).Text = ""
Next

Label7.Text = ""
Label8.Text = ""
Label9.Text = ""
Label10.Text = ""
Label11.Text = ""
Label12.Text = ""
Label14.Text = ""

End Sub

Private Sub IngreseJugadorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IngreseJugadorToolStripMenuItem.Click

AddHandler TextBox1.KeyPress, AddressOf TextBox1_KeyPress
contadorGana = 0
contadorPierde = 0
Label7.Text = ""
Label8.Text = ""
Label9.Text = ""
Label10.Text = ""
Label11.Text = ""
Label12.Text = ""
TextBox1.Text = ""
For i As Integer = 0 To 55
listaText(i).Text = ""
Next

Jugador = InputBox("Ingrese nombre del jugador:", "Jugador", "Anonimo")

palabraCadena = InputBox("Ingrese palabra:", "El juego del Ahorcado")

PasarAMinuscula.Cadena(palabraCadena)


For i As Integer = 0 To (Len(palabraCadena)) - 1
If IsNumeric(palabraCadena(i)) Then
palabraCadena = "1111111111111111111111111111111111111111111111111111111111" ' Asigno mas de 6 para que vuelva a ingresar
Exit For
End If
Next

While Len(palabraCadena) > 56 Or Len(palabraCadena) = 0
MessageBox.Show("¡Error Reingrese palabra, no debe tener número y debe ser entre 1 y 56 caracteres!", "Error")
palabraCadena = InputBox("Ingrese palabra:", "El juego del Ahorcado")
For i As Integer = 0 To (Len(palabraCadena)) - 1
If IsNumeric(palabraCadena(i)) Then
palabraCadena = "1111111111111111111111111111111111111111111111111111111111" ' Asigno mas de 6 para que vuelva a ingresar
Exit For
End If
Next
End While

For i As Integer = 0 To Len(palabraCadena) - 1
palabraChar(i) = palabraCadena(i)
listaText(i).Text = "-"
Next

End Sub


Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)

Dim Flag As Integer
PasarAMinuscula.Cadena(e.KeyChar)

For i As Integer = 0 To (Len(palabraCadena)) - 1
If e.KeyChar = palabraChar(i) Then
palabraChar(i) = "*"
listaText(i).Text = e.KeyChar
contadorGana = contadorGana + 1
Flag = 1
End If
Next

If Flag = 0 Then contadorPierde = contadorPierde + 1

Select Case contadorPierde
Case 1
Label7.Text = " " ' Cabeza
Case 2
Label8.Text = " " ' Brazo
Case 3
Label9.Text = " " ' Cuerpo
Case 4
Label10.Text = " " ' Brazo
Case 5
Label11.Text = " " ' Pierna
Case 6
Label12.Text = " " ' Pierna
End Select

If (contadorGana = (Len(palabraCadena))) Then
MessageBox.Show("Ganastes")
ListBox1.Sorted = True
If Jugador = "" Then
ListBox1.Items.Add(contadorPierde.ToString + " (Errores) Anonimo.")
ListaJugadores.Add(contadorPierde.ToString + " (Errores) Anonimo.")
Else
ListBox1.Items.Add(contadorPierde.ToString + " (Errores) " + Jugador + ".")
ListaJugadores.Add(contadorPierde.ToString + " (Errores) " + Jugador + ".")
End If

RemoveHandler TextBox1.KeyPress, AddressOf TextBox1_KeyPress
End If
If (contadorPierde = 7) Then
MessageBox.Show("Perdistes")
RemoveHandler TextBox1.KeyPress, AddressOf TextBox1_KeyPress
End If

End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

My.Computer.FileSystem.WriteAllText("C:\LosMejores.txt", "", False)

For i As Integer = 0 To ListaJugadores.Count - 1
My.Computer.FileSystem.WriteAllText("C:\LosMejores.txt", ListaJugadores(i).ToString + vbCrLf, True)
Next

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Campos() As String
ListBox1.Items.Clear()

Using Archivo As New TextFieldParser("C:\LosMejores.txt")
Archivo.SetDelimiters(".")
While Not Archivo.EndOfData
Campos = Archivo.ReadFields()
ListBox1.Items.Add(Campos(0))
End While

End Using
End Sub



End Class

Class PasarAMinuscula

Shared Sub Cadena(ByRef cadena As String)
cadena = LCase(cadena)
End Sub

End Class








Wow por favor ayudenme... Sera que esta muy dificil... Lo que quiero es controlar el evento key press con un boton, es decir que al marcar el boton, simule que estoy marcando por ejemplo la letra "a" en el textbox, o bien convertir el codigo que les mostre en evento click de un boton...
Ya que lo que e hecho es copiar y pegar en el evento click, pero me marca error con "(e.KeyChar)"........ please ayudenmeee porffa....



Ultima edición por ADYIR el Martes 02 Jun 2009 21:31; editado 1 vez
Volver arriba
Ver perfil del usuario Enviar mensaje privado
WhiteSkull
CoAdmin


Registrado: 20 Mar 2009
Mensajes: 3136
Ubicación: y*width+x

Mensaje Publicado: Viernes 29 May 2009 18:06

Título del mensaje: Re: Ayuda, x favor hice un juego de ahorcado pero m hace fal

Responder citando

Dile a tu jefe que el Simon dice está mucho mejor :P Risa cuatro botones de colores, y repites la combinación que la "computadora" te muestra... por ejemplo:

ROJO VERDE AZUL VERDE

... entonces pulsas

ROJO VERDE AZUL VERDE ... según vayas acertando, la máquina creará secuencias más rápidas y complejas jajjaaj

de todas formas intentaré ayudarte con la Ruleta de la Fortuna Fumao

Volver arriba
Ver perfil del usuario Enviar mensaje privado Visitar sitio web del autor
ADYIR
Usuario Inquieto


Registrado: 31 Jul 2008
Mensajes: 49

Mensaje Publicado: Viernes 29 May 2009 18:12

Título del mensaje: Re: Ayuda, x favor hice un juego de ahorcado pero m hace fal

Responder citando

WhiteSkull escribió:
Dile a tu jefe que el Simon dice está mucho mejor :P Risa cuatro botones de colores, y repites la combinación que la "computadora" te muestra... por ejemplo:

ROJO VERDE AZUL VERDE

... entonces pulsas

ROJO VERDE AZUL VERDE ... según vayas acertando, la máquina creará secuencias más rápidas y complejas jajjaaj

de todas formas intentaré ayudarte con la Ruleta de la Fortuna Fumao



wow en serio?... Bueno si puedes hacerlo te estaria full agradecido, estoy en procesos de practicas universitarias, y deseo poder quedar fijo en el empleo... Si no se puede gracias de todas formas amigo...

Ah y lo de os colores no entendi ni papa xD.. Es que pregunte muchas cosas y no se a cual te referias... xD...

Volver arriba
Ver perfil del usuario Enviar mensaje privado
JoxeDuKe12
Colaborador


Registrado: 12 Abr 2007
Mensajes: 576
Ubicación: Medellín - Colombia

Mensaje Publicado: Viernes 13 Nov 2015 09:22

Título del mensaje: Ayuda, x favor hice un juego de ahorcado pero m hace falta..

Responder citando

Gorro hola

a k ese juego en Visual Basic 6.0 de igual te puede servir de ayuda o a alguien que vea este post.

http://www.foro.lospillaos.es/codigo-juego-simon-en-visual-basic-60-vt6642.html

saludos . Gorro


La mejor en musica online y juegos Flash
http://quedese.100webspace.net/
Volver arriba
Ver perfil del usuario Enviar mensaje privado Visitar sitio web del autor
Responder al Tema
Mostrar mensajes anteriores:   
Ir a:  
Todas las horas están en GMT + 2 Horas

Temas relacionados

Tema Autor Foros Respuestas Publicado
El foro no contiene ningún mensaje nuevo

Ahorcado en visual

AndresB123 Visual Basic .NET 1 Sábado 08 Jun 2019 00:41 Ver último mensaje
El foro no contiene ningún mensaje nuevo

Juego Liguita de futbol

Octavio Programación de juegos o videojuegos 1 Sábado 01 Jun 2019 05:03 Ver último mensaje
El foro no contiene ningún mensaje nuevo

Por favor ayuda!!!!!!

Enzo89 Temas generales 0 Jueves 23 May 2019 01:08 Ver último mensaje
El foro no contiene ningún mensaje nuevo

AYUDA CON BUCLES ABIERTOS Y CERRADOS PARA VISUA...

Fabricio Esteban P Visual Basic y VBA 0 Miércoles 08 May 2019 05:21 Ver último mensaje
Panel de Control
No puede crear mensajes, No puede responder temas, No puede editar sus mensajes, No puede borrar sus mensajes, No puede votar en encuestas,