Portal •  Foro •  FAQ •  Buscar •  Temas recientes •  Lista de usuarios •  Registrarse •  Conectarse 
Foro » Gambas » General

Texto Y Un Número, Seguir La Serie

Responder al tema

 

Sher852
Citar
Mensajes: 4
Viernes, 01 Marzo 2013, 11:09
Objetivo: Texto Y Un Número, Seguir La Serie
Hola a todos de nuevo
Sigo peleandome con el gambas 3. Ahora la pregunta que tengo es la siguiente:
Tengo un textbox con una cadena de texto y número, quisiera que con un botón se mantenga la cadena pero sumando +1 al número. No se si me explico bien.
Sería algo así:

Enemigo 1 -> [BOTÓN] -> Enemigo 2

Escribo Enemigo 1 en el textbox y para ahorrarme estar escribiendo "Enemigo 2" y siguientes, el botón se encargaría de ello.

¿Cómo se puede lograr en el gambas?
Gracias por la ayuda

Perfil MP  
shordi
Citar
Mensajes: 4982 Ubicación: Albacete
Viernes, 01 Marzo 2013, 11:37
Objetivo: Re: Texto Y Un Número, Seguir La Serie
Prueba con:

public sub buttonsuma_click()

dim n as integer

n=rInstr(enemigo1.text," ") 'suponiendo que ese espacio separa lo que contenga enemigo y el número, si es otro caracter, sustituyelo

enemigo2.text=left(enemigo1.text,n) & val(mid(enemigo1.text,n-1)+1)

end

Lo que hace cada función lo tienes en las ayudas.

última edición por shordi el Viernes, 01 Marzo 2013, 11:39; editado 1 vez
Perfil MP  
Sher852
Citar
Mensajes: 4
Viernes, 01 Marzo 2013, 16:53
Objetivo: Re: Texto Y Un Número, Seguir La Serie
Lo he puesto y me aparece:

"No coinciden los tipos: Requerido Float, obtenido String en cambio"
En esta línea -> enemigo2.text=left(enemigo1.text,n) & val(mid(enemigo1.text,n-1)+1)

Gracias por tu ayuda ^^

PD: Sigo mirando el código en busca del error. Estoy muy verde xD

EDIT: Le quito esa línea y compruebo que valor me da para la "n" y es 8. Lo que esta contando la "n" es las letras + el espacio. (ENEMIGO ). Sin no hay espacio en la frase no cuenta y da 0 como valor

última edición por Sher852 el Viernes, 01 Marzo 2013, 17:00; editado 2 veces
Perfil MP  
shordi
Citar
Mensajes: 4982 Ubicación: Albacete
Viernes, 01 Marzo 2013, 17:52
Objetivo: Re: Texto Y Un Número, Seguir La Serie
Bueno ya te digo en el propio código que si no hay espacios, debes sustituir el espacio por el caracter que separe el numero del resto del contenido del texto.

Si lo que tienes es "Enemigo1", todo junto, cambia la función a

n=rInstr(enemigo1.text,"o")


Por otra parte hay un error: no es -1 es +1

Quedaría así:

public sub buttonsuma_click()

dim n as integer

n=rInstr(enemigo1.text," ") +1 'suponiendo que ese espacio separa lo que contenga enemigo y el número, si es otro caracter, sustituyelo

enemigo2.text=left(enemigo1.text,n) & val(mid(enemigo1.text,n)+1)

end

última edición por shordi el Viernes, 01 Marzo 2013, 18:00; editado 1 vez
Perfil MP  
Responder al tema
 

Página 1 de 1


  
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
Puede descargar archivos
No puede publicar eventos en el calendario

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.4495s (PHP: -85% SQL: 185%)
Consultas SQL: 48 - Debug off - GZIP Activado