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

===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/

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 ------------------------------------------------------

===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/