Edvaldo1361303230 Posted June 24, 2004 Report Share Posted June 24, 2004 Tenho uma funcao: FUNCTION Calculadora() local oDlg, xvl:=space(10) DEFINE FONT Fonte NAME "Arial" SIZE 0, -30 BOLD DEFINE DIALOG oDlg FROM 20,1 TO 50,35 TITLE "Calculadora" @ 1,2.8 get oGet VAR xvl size 90,20 font fonte oGet:bkeydown:={|nkey|teclacal(nkey,xvl)} ACTIVATE DIALOG oDlg CENTERED RETURN (NIL) function teclacal(xnk,xvl) Eu preciso saber aqui o valor da variavel xvl, mas este valor so aparece na segunda vez que aperto uma das teclas: +-/*. if xnk=111 .or. xnk=191 * / xvl:=space(10) elseif xnk=106 * * elseif xnk=107 * + elseif xnk=109 * - endif return nil Obrigado Edvaldo Quote Link to comment Share on other sites More sharing options...
vagner Posted June 24, 2004 Report Share Posted June 24, 2004 Edvaldo, na VGet, têm uma calculadora, veja como eu montei Abraços Vagner Wirts São Paulo-Brasil Quote Link to comment Share on other sites More sharing options...
evandro Posted June 24, 2004 Report Share Posted June 24, 2004 Olá, Ou para encurtar caminho, use a VGet e provavelmente não precisará reinventar a roda (hehehe). Apesar do Vagner não usar, a VGet é muito boa. Tem calendário também, além de outras funcionalidades. Use e abuse. []s, Evandro G. de Paula Curvelo - MG evandro@skillnet.com.br (Escr. - na Cidade) imortal@skillnet.com.br (Res. - na Roça) Quote Link to comment Share on other sites More sharing options...
Edvaldo1361303230 Posted June 25, 2004 Author Report Share Posted June 25, 2004 Ok. Um abraco aos amigos. Peguei o vGet mas esta faltando \wells\libnova\library.lib Obrigado Edvaldo Quote Link to comment Share on other sites More sharing options...
vagner Posted June 25, 2004 Report Share Posted June 25, 2004 citação:Ok. Um abraco aos amigos. Peguei o vGet mas esta faltando \wells\libnova\library.lib Obrigado Edvaldo id=quote>id=quote>(hehehehe), leia o Lnk , bloqueie essa linha do Lnk, isso só serve para mim Abraços Vagner Wirts São Paulo-Brasil Quote Link to comment Share on other sites More sharing options...
Edvaldo1361303230 Posted June 28, 2004 Author Report Share Posted June 28, 2004 ok. Meu caro Vagner, um abraco. Verifiquei seu demo vGet, de excelente qualidade; porem a calculadora que preciso fazer e' com letras grandes e com a fitinha num browse, pois ja tenho em clipper. Por favor, ou voce ou outro companheiro eu so' preciso saber digito a digito o que esta sendo digitado para que eu possa pegar o valor digitado, fazer s calculos e zerar o get, conforme o exemplo. Um abraco Edvaldo Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.