Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Dudas Con Textbox(solucionado)
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Dudas Con Textbox(solucionado) 
 
Hola, soy nuevo en el foro y en gambas. Si bien hace un par de años que uso principalmente linux, en programacion solo habìa hecho algunas cosas en visual basic. Entre ellas en juego del ahorcado, que basicamente se trata de ir adivinando letras  antes de cometer seis errores o que pasen dos minutos.
  Ahora estoy tratando de migrarlo a gambas y no tengo ni idea de còmo descomponer el título de la pelìcula en varios textbox, poniendo un caracter (letra o espacio) en cada uno de ellos, En visual basic creaba una matriz de textbox y ponìa una letra en cada una, pero sinceramente no sè por donde empezar a hacerlo con gambas.
Algunos aspectos del programa ya los solucionè, como cargar la lista de pelìculas invisible y seleccionarlas aleatoriamente, pero esta parte me tiene trancado. Agradezco la ayuda que puedan darme,y si resulta de utilidad puedo subir el còdigo que usè en visual basic, el cual, grave error de aficionado, no comentè debidamente y no recuerdo la mitad de las cosas que hice.

Mi version de gambas es la 2.19, mi so es ubuntu 10.04 .
Gracias,
 




===================
Migrando desde visual basic, el Gambas de Ms
Mi blog gambero
 
última edición por Dani26 el Lunes, 14 Junio 2010, 04:16; editado 1 vez 
Dani26 - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Dudas Con Textbox 
 
Hola.

Prueba con este código:

' gambas class file
PRIVATE matrizObjetos AS Object[]
PRIVATE inicializado AS Boolean

PUBLIC SUB Form_Open()
DIM textbox AS TextBox
DIM pelicula AS String[]
DIM partesCadena AS String
DIM cadenaCompleta AS String
DIM largoCadena AS Integer
DIM x AS Integer
DIM caracter AS String
'------------------------------Cambiar el nombre de la pelicula
DIM nombrePelicula AS String = "Harry Potter y el principe mestizo"

'---------------------------------Eliminar caracteres blancos de la cadena
pelicula = Split(nombrePelicula, " ")

'--------------------------------Juntar nombre pelicula sin caracteres blancos
FOR EACH partesCadena IN pelicula
 cadenaCompleta = cadenaCompleta & partesCadena
NEXT
 
'------------------------------Tomar largo pelicula sin caracteres blancos
largoCadena = Len((cadenaCompleta))


IF NOT inicializado THEN
'-------------------------------Creacion de la matriz de texbox
    matrizObjetos = NEW Object[]
'-------------------------------Numero de texbox
    FOR x = 1 TO largoCadena
'--------------------------------Creacion de los textbox
        textbox = NEW TextBox(ME)
'--------------------------------------Posicionamiento de los textbox        
        textbox.X = (x * 5 + x) * 5 + 2
        textbox.Y = 100
        textbox.width = 20
        textbox.height = 20

'-------------------------------------------Lectura de los caracteres de la cadena
                                            'y colocacion en los textbox.
        caracter = Mid(cadenaCompleta, x, 1)
        textbox.Text = caracter  
        matrizObjetos.Add(textbox, x)
    NEXT
END IF  
END


Saludos
 



 
última edición por abarzuaf el Sabado, 12 Junio 2010, 04:43; editado 1 vez 
abarzuaf - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Dudas Con Textbox 
 
Gracias abarzuaf, el còdigo funciona a las mil maravillas. Le he hecho algunos cambios, como por ejemplo  no eliminar los espacios entre palabras, poner una barra visible debajo de cada text box para saber la cantidad que hay, ya que estos quedan ocultos hasta que el usuario vaya adivinando las letras, y otros cambios menores (tamaño,posiciòn, etc. Subo el còdigo modificado por si resulta ùtil a otro usuario.
Saludos


' gambas class file
PRIVATE matrizObjetos AS Object[]
PRIVATE inicializado AS Boolean

PUBLIC SUB Form_Open()
DIM textbox AS TextBox
DIM pelicula AS String[]
DIM partesCadena AS String
DIM cadenaCompleta AS String
DIM largoCadena AS Integer
DIM x AS Integer
DIM caracter AS String
DIM label AS label
'------------------------------Cambiar el nombre de la pelicula
DIM nombrePelicula AS String = "Harry Potter y el principe mestizo"

'------------------------------- dividir caracteres
pelicula = Split(nombrePelicula)

'--------------------------------Juntar nombre pelicula
FOR EACH partesCadena IN pelicula
 cadenaCompleta = cadenaCompleta & partesCadena
NEXT
 
'------------------------------Tomar largo pelicula
largoCadena = Len((cadenaCompleta))

IF NOT inicializado THEN
'-------------------------------Creacion de la matriz de texbox
    matrizObjetos = NEW Object[]
'-------------------------------Numero de texbox
    FOR x = 1 TO largoCadena
'--------------------------------Creacion de los textbox
        textbox = NEW TextBox(ME)
        label = NEW label(ME)
'--------------------------------------Posicionamiento de los textbox        
        textbox.X = (x * 10 + x) * 5 + 2
        textbox.Y = 200
        textbox.width = 40
        textbox.height = 60
        textbox.visible = FALSE
        label.x = (x * 10 + x) * 5 + 2
        label.y = 270
        label.Width = 40
        label.Height = 5
        label.Background = Color.Black

'-------------------------------------------Lectura de los caracteres de la cadena
                                            'y colocacion en los textbox.
        caracter = Mid(cadenaCompleta, x, 1)
        textbox.Text = caracter  
        matrizObjetos.Add(textbox, x)
    NEXT
END IF  
END

 

 




===================
Migrando desde visual basic, el Gambas de Ms
Mi blog gambero
 
Dani26 - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Dudas Con Textbox [Solucionado] 
 
Hola.

Me alegra que te sirviera. Cuando lo termines si quieres lo subes para probarlo y jugar un poco

Saludos
 



 
última edición por abarzuaf el Domingo, 13 Junio 2010, 18:12; editado 3 veces 
abarzuaf - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Dudas Con Textbox(Solucionado) 
 
Gracias, cuando este listo lo pondrè a disposiciòn de todos, còdigo fuente incluìdo.
Saludos
 




===================
Migrando desde visual basic, el Gambas de Ms
Mi blog gambero
 
Dani26 - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Programilla Y Dudas rodoval Aplicaciones/Fragmentos de Código 16 Martes, 06 Abril 2010, 00:12 Ver último mensaje
rodoval
No hay nuevos mensajes Dudas Sobre El Diseño.. CanihoJR General 6 Viernes, 26 Noviembre 2010, 17:14 Ver último mensaje
estrella_de_galicia
No hay nuevos mensajes Dudas Al Hacer Un Programa AGarcia General 25 Miercoles, 13 Julio 2011, 01:40 Ver último mensaje
razaAztk
No hay nuevos mensajes Dudas Con << Y >>, ~ jsbsan Javascript 6 Miercoles, 27 Abril 2016, 09:51 Ver último mensaje
Shell
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 0 invitados
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario