Comunidad Gambas-es

v3ctor escribió: [Ver mensaje]

celtilander escribió: [Ver mensaje]

Enviado en condiciones... perdona mi ignorancia.
Salu2.

aquí estamos todos para aprender, especialmente yo y todos los que comienzan los primeros pasos en la programación.

tu programa no funciona bien, si escribes lento funciona, pero si el usuario escribe rápido ya no hace lo que se pide.

Pues si... acabo de confirmarlo. Lo que me tienta a pedir que cuando se acabe este reto, alguien me pueda explicar el motivo para que funcione escribiendo lento y rápido,no.
Si se basa todo en un keypress y keyrelease, mi poca idea de programación me inclina a pensar que es mas fallo de gambas que mio y el "gestor" de pulsaciones de gambas sea lento de pensamiento. Es que no entiendo el motivo que no funcione al teclear rápido.

Hola,

Me ha gustado mucho este reto, sobre todo porque tuve algunas dificultades al principio........... pero siempre la ayuda de gambas al rescate. Hey si alguien tiene dificultades con su código tal vez les resulte de ayuda ver el sig LINK, fue el que me ayudó a mi a resolver el reto.

Igual he usado gambas-script y han sido 44 líneas (28 líneas de código puro, y de ellas 11 líneas son las que hacen la magia).

Estaré esperando el sig reto

Saludos!

1.razaAztk

buenas, disculpen que no pude entrar hasta hoy


el ganador del reto es razaAztk ya que nadie mas presento una solución.
es un script, se copia el texto de mas abajo en un archivo de texto y se le pone la extensión gbs3 (para gambas 3)
y se ejecuta el archivo poniendo en la consola : "gbs3 nombre_archivo.gbs3"
hay que tener instalado el componente gambas-scriter

Solución:
----------------------------------------------------------------- comienzo ----------------------------------------
#!/usr/bin/env gbs3
' Reto 02
' Aztk Zero, Sep 2014

USE "gb.gui"
USE "gb.form"

Public F As Form ' Formulario principal
Public tbText As TextBox ' Caja de texto para texto

Public Sub main()

' Se instancia Formulario y ajustan parametros
F = New Form
F.Title = "Chars counter"
F.Icon = Stock["16/insert-text"]
F.Resize(500,50)
F.Arrangement = Arrange.Horizontal
F.Center

' Se instancia cuadro de texto
tbText = New TextBox(F) As "tbText"
tbText.Expand = True

F.Show

END

Public Sub tbText_Change()

Dim j_pos As Integer

Object.Lock(tbText) ' Necesario para no levantar de nuevo el EVENT
j_pos = tbText.pos
If j_pos > 0 Then
tbText.text = String.Left(tbText.text, j_pos) & "(" & j_pos & ")"
tbText.pos = j_pos
print tbText.pos
Else
tbText.text = ""
End If
Object.Unlock(tbText)

END
---------------------------------- fin ------------------------------------------------------