TECLADO NUMERICO

[estaca]

Buenas hace como un mes deje mi inquietud en el foro y no e tenido
ninguna repuesta sera que envié mal el email,mi inquietud es la
siguiente:
Estoy desarrollando un Sistema para pantalla tactil con Resbuild hice
un .brc de teclado numerio pero no se como integrarlo a un programa de
caracteres osea tengo el .bcr y cuando marco 1 como hago para que
dicho 1 me lo marque en el input o sea que hago lo mismo que el
teclado del computador

[jose aguilar]

Hola colega:

 

Sin entrar en detalles del código (parece que lo estás haciendo con VPro5, ¿cierto?), podría decirte que la lógica para "emular" un teclado numérico sería algo así:

 

1.) Iniciar tu programa y abrir tu "teclado.brc"

2.) Crear una variable (e inicializarla) donde acumular las teclas presionadas en la pantalla táctil (ej. cifra$)

3.) Puedes generar una subrutina para evento button click (de tu teclado numérico gráfico) o si lo prefieres una que valide la tecla pulsada y obtenga el valor. 4.) En el manejador de eventos (posterior al read record) validar los eventos button click para derivarlos a la(s) subrutina(s) antes mencionadas

5.) La subrutina para una tecla entonces va adicionando su valor unitario a la variable cifra$. De este modo cuando pulse el botón "1" entonces la subrutina tendria algo como cifra$=cifra$+"1", si el evento capturado es el click del botón "3", idem, es decir: cifra$=cifra$+"3"

6.) Uno de los botones me imagino que dice "Borrar" y en la subrutina que maneje el evento button click de dicho botón debe haber algo como cifra$="" o cifra$=$$

7.) Uno de los botones me imagino que dice "Aceptar" y en la subrutina que meneje el evento button click de dicho botón debe haber lógica que le asigne el contenido acumulado de cifra$ al input que te interesa usar.

Espero esto te sirva en parte de guía para desarrollar la lógica de tu teclado touch. Si alguien tiene alguna corrección a esta lógica (a la que le dediqué sólo unos pocos minutos) bienvenida sea.

 

Saludos cordiales,

 

Administrador MundoBBx

 

--
Has recibido este mensaje porque estás suscrito al grupo "MundoBBx" de Grupos de Google.
Para publicar una entrada en este grupo, envía un correo electrónico a mund...@googlegroups.com.
Para anular tu suscripción a este grupo, envía un correo electrónico a mundobbx+u...@googlegroups.com
Para tener acceso a más opciones, visita el grupo en http://groups.google.com/group/mundobbx?hl=es.

[Fernando Cabrera Ruiz]

Aquí tienes un ejemplo, esta escrito en BBj, pero funciona en Vpro5 con pocos cambios.

 

 

NOTA: Los botones del teclado están numerados del 100 al 109 para minimizar el codigo

 

rem 'Teclado Numerico en pantalla

rem 'Fernando Cabrera Ruiz

rem 'Guadalajara, Jal., MX

 

BEGIN

PRINT 'HIDE',

OPEN (1)"X0"

dim e$:tmpl(1)

f$="teclado.brc"

r=resopen(f$)

r$=resget(r,1,101)

PRINT (1)'resource'(len(r$)),r$

done=0

cifra$=""

 

while !(done)

    read record(1,siz=len(e$))e$

    gosub procesa_eventos

wend

 

end

 

procesa_eventos:

    switch asc(e.code$)

        case asc("X")

            done=!(done)

        break

        case asc("B")

            control=e.id-100

            if control<100 then

                cifra$=cifra$+str(control)

                gosub actualizaDisplay

            else

                switch control

                    case 103; rem 'Salir

                        done=!(done)

                    break

                    case 104; rem 'Borrar

                            cifra$=""

                            gosub actualizaDisplay

                    break

                    case 105; rem 'Punto

                        cifra$=cifra$+"."

                        gosub actualizaDisplay

                    break

                swend

            endif

        break

    swend

fin_procesa_eventos:

RETURN

 

actualizaDisplay:

TEST$=SENDMSG(1,201,21,0,CIFRA$)

RETURN

 

Saludos

[estaca]

Quiero darle las gracias a todos pero no me di por vencido yo instale
mi sistema en pantalla táctil y le hice los menú en Resbuild y el
teclado que utilice es Virtual keyboard que es gratis en Internet y
todo me funciona perfecto.Ustedes abran observado que por mis
preguntas y no poder arreglar ciertos programas que me enviaron
demuestra mi poca experiencia en Lenguaje Gráfico y no utilizo como
debía las bondades del Vpro5 me quede en BBX pero como digo eso lo veo
yo como programador `pues el usuario esta contento con el resultado
tan ágil y rápido del sistema no así de la presentación que se ve como
muy antigua pero la mayoría de mis clientes lo que quieren es que el
sistema no presente ningún tipo de problemas y es asi pues los
Sistemas instalados tienen un promedio de 15años y funcionan perfecto
se adaptan a nuevas técnicas como teclado programable, código de barra
impresoras fiscales etc.
Muchas veces no me se explicar muy bien que es lo que quiero
hacer ,pero jamas me rindo cuando dije eso de rendirme fue con el foro
pero como hice para conseguir imprimir en impresoras fiscales que
estuve mas de 1 año y lo conseguí con todas menos la Bematech(pero
sigo insistiendo) seguiré insistiendo en otros terrenos pues no estoy
muy familiarizado en este foro,lo que si observo del foro es su
repuesta casi inmediata y sin egoísmos de ninguna clase,los seguiré
con mucho gusto y no dudare en plante arles cualquier problema que en
el futuro tenga