Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Ejemplo Con Clase String
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Ejemplo Con Clase String 
 
Hola!.

Creo que este ejemplo no lo he subido aun.
Aquí tenéis un ejemplo con la clase String.
Si usamos esta clase nos solucionara el problema con textos que tengan tildes.

Nuestro formulario esta compuesto por dos componentes TextArea y dos botones.
Cada TextArea tiene la propiedad Wrap a true, para que el texto se ajuste al área
de texto de cada TextArea.

 clasestring1

En el ejemplo he tenido que usar el componente gb.qt4 ya que si no usamos la clase String y usamos
gb.gui mostrara mensajes de error en la consola.

Si no usamos la clase String se mostrara de esta forma:

 clasestring2

Al igual que dos caracteres.

Si usamos la clase String veremos la salida de esta forma:

 clasestring3_1364130433_591262

El código del ejemplo es este:

Private cadena As String = "La política es quizá la única profesión para la que no se considera necesaria ninguna preparación."  

Public Sub _new()

End

Public Sub Form_Open()
  Me.Center
  TextArea1.Text = cadena    
End

Public Sub btnConvertir1_Click()  
  Dim i As Integer
    
  TextArea2.Text = ""
  For i = 1 To Len(cadena)    
     Wait 0.05
     TextArea2.Text = TextArea2.Text & Mid$(cadena, i, 1)
  Next  

End

Public Sub btnConvertir2_Click()
 Dim i As Integer

  TextArea2.Text = ""
  For i = 1 To String.Len(cadena)    
     Wait 0.05
     TextArea2.Text = TextArea2.Text & String.Mid$(cadena, i, 1)
  Next  

End
 


Saludos
 




===================
Gambas Básico
“Si no puedes explicar algo de forma sencilla, entonces es que tú no lo entiendes bien.” Albert Einstein
 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Ejemplo Con Clase String 
 
Una posible mejora del código seria utilizar un array de controles de los botones.
Tendríamos que crear un grupo botones y asignarles un valor a su propiedad tag
a cada botón.

Public Sub Botones_Click()

  Dim i As Integer
  
  TextArea2.Text="" 'Limpiamos el TextArea2    
  Select Last.tag
    Case 0
    For i = 1 To Len(cadena)
        Wait 0.05
     TextArea2.Text &= Mid$(cadena, i, 1)
    Next
    Case 1
      For i = 1 To String.Len(cadena)
        Wait 0.05
     TextArea2.Text &= String.Mid$(cadena, i, 1)
    Next
  End Select  

End
 

Fijaros que aún se repite algo de código común a los dos botones.

Saludos
 




===================
Gambas Básico
“Si no puedes explicar algo de forma sencilla, entonces es que tú no lo entiendes bien.” Albert Einstein
 
última edición por Shell el Domingo, 24 Marzo 2013, 14:43; editado 1 vez 
Shell - 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
 

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