scom Posted June 10, 2008 Report Share Posted June 10, 2008 OLA AMIGOS, É O SEGUINTE COMO EU FARIA PRA JOGAR UM VALOR DENTRO DE UM objeto oGET QUANDO TECLAR UM BOTÃO, A IDÉIA É TIPO COLOQUEI 10 BOTÕES DE 1 A 9 E GOSTARIA DE QUANDO EU CLICKAR NO BOTÃO 8 JOGAR DENTRO DO GET ATUAL O VALOR 8 E ASSIM POR DIANTE.... ROBSON FW 2.0 / CLIPPPER 5.3 / BLINKER 7 E FWH 7.05 Harbour 0.99 Quote Link to comment Share on other sites More sharing options...
scom Posted June 10, 2008 Author Report Share Posted June 10, 2008 OLA AMIGOS, É O SEGUINTE COMO EU FARIA PRA JOGAR UM VALOR DENTRO DE UM objeto oGET QUANDO TECLAR UM BOTÃO, A IDÉIA É TIPO COLOQUEI 10 BOTÕES DE 1 A 9 E GOSTARIA DE QUANDO EU CLICKAR NO BOTÃO 8 JOGAR DENTRO DO GET ATUAL O VALOR 8 E ASSIM POR DIANTE.... ROBSON FW 2.0 / CLIPPPER 5.3 / BLINKER 7 E FWH 7.05 Harbour 0.99 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted June 10, 2008 Report Share Posted June 10, 2008 DISPAREI DO BOTAO... CHEGUEI NA FUNCAO... PEGUEI O VALOR... oGET:VARPUT( SEUVALOR ) oGET:REFRESH() João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
zekasan Posted June 10, 2008 Report Share Posted June 10, 2008 oGet:=cGet:=0 ...button... action (cGet:=8,oGet:refresh()) FWH 8.05 - xHarbour - xDev - VLib Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted June 10, 2008 Report Share Posted June 10, 2008 Aproveitando a deixa "aquela dica de 3 opções funcionou" ??? Tente assim.. é só fazer uma pequena alteração a seu gosto que vai funfa.. cComissao:=0 Redefine Get oGet8 Var cComissao ID 37 Picture "99.99" of oDlg Redefine Button obtn Prompt "7% Comissao" ID 38 of odlg Action porcent(1,oget8,ccomissao) Redefine Button obtn Prompt "8% Comissao" ID 39 Of oDlg Action porcent(2,oGet8,ccomissao) //----------------------------------------------------------------------------------------- Function Porcent(Arg1,oget8,cComissao) if (Arg1==1) cComissao=7 oGet8:Varput(cComissao) oGet8:Refresh() Alert("Pressionei o Botao 1 ")id=red> ElseIf (Arg1==2) cComissao=8 oGet8:Varput(cComissao) oGet8:Refresh() Alert("Pressionei o Botao 2 ")id=red> endif Return .t. id=code>id=code> 10 Botões de 1 a 9 ????id=blue>id=size4> A Informática Nasceu para resolver problemas que antes não existiamid=red> Luiz Arruda - Corumbá/MS FWH 2.4 - WS - xHB 09950 - xDev ico.corumba@gmail.com MSN: ico67@msn.com Editado por - ico on 10/06/2008 17:36:37 Editado por - ico on 10/06/2008 17:45:49 Quote Link to comment Share on other sites More sharing options...
Kbelo Posted June 10, 2008 Report Share Posted June 10, 2008 citação:OLA AMIGOS, É O SEGUINTE COMO EU FARIA PRA JOGAR UM VALOR DENTRO DE UM objeto oGET QUANDO TECLAR UM BOTÃO, A IDÉIA É TIPO COLOQUEI 10 BOTÕES DE 1 A 9 E GOSTARIA DE QUANDO EU CLICKAR NO BOTÃO 8 JOGAR DENTRO DO GET ATUAL O VALOR 8 E ASSIM POR DIANTE.... ROBSON FW 2.0 / CLIPPPER 5.3 / BLINKER 7 E FWH 7.05 Harbour 0.99 id=quote>id=quote> REDEFINE GET oget VAR MinhaVar ID 101 OF oDlg PICTURE "999999" REDEFINE BUTTON oBT1 ID 102 OF oDlg ACTION Funcao(1) REDEFINE BUTTON oBT2 ID 103 OF oDlg ACTION Funcao(2) REDEFINE BUTTON oBT3 ID 104 OF oDlg ACTION Funcao(3) REDEFINE BUTTON oBT4 ID 105 OF oDlg ACTION Funcao(4) REDEFINE BUTTON oBT5 ID 106 OF oDlg ACTION Funcao(5) REDEFINE BUTTON oBT6 ID 107 OF oDlg ACTION Funcao(6) REDEFINE BUTTON oBT7 ID 108 OF oDlg ACTION Funcao(7) REDEFINE BUTTON oBT8 ID 109 OF oDlg ACTION Funcao(8) REDEFINE BUTTON oBT9 ID 110 OF oDlg ACTION Funcao(9) REDEFINE BUTTON oBT0 ID 111 OF oDlg ACTION Funcao(0) ... // Na Função faça *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= Static function Funcao(MeuValor) *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= MinhaVar := MeuValor oget:refresh() id=code>id=code>Marcelo Michels marcelo@infototal.com.br celo.michels@hotmail.com xHarbour 1.1 + Fwh 8.01 + WorkShop + Bcc 5.82 + WvwTools + SQLRDD + xMate. Quote Link to comment Share on other sites More sharing options...
Naruto uZumaki Posted June 10, 2008 Report Share Posted June 10, 2008 Pessoal falei com o Scom pelo msn , e o que ele quer é fazer tipo um teclado virtual, onde os 09 botões são os numeros de 0 a 9 e conforme vai teclando clickando nos botões vai preenchendo esse GET , se fosse só um GEt até seria facil de fazer , mas não é, são 02 Get´s , creio que seja algo como uma sequencia numerica e um outro GET com 02 digitos , mas o problema disso tudo é IDENTIFICAR em qual GEt o cursor esta "em clipper tinha uma função para identificar em qual variavel o cursos esta atualmente ,retornando o "nome" da variavel , sera que teria algo assim em FW que identifique a variavel ou o controle ? té++ ____________________________ Eder Xavier Msn:eder_xavier_2@hotmail.com Xharbour /fivewin 8.01 workshop /VSX Quote Link to comment Share on other sites More sharing options...
Ale SB Posted June 11, 2008 Report Share Posted June 11, 2008 citação:Pessoal falei com o Scom pelo msn , e o que ele quer é fazer tipo um teclado virtual, onde os 09 botões são os numeros de 0 a 9 e conforme vai teclando clickando nos botões vai preenchendo esse GET , se fosse só um GEt até seria facil de fazer , mas não é, são 02 Get´s , creio que seja algo como uma sequencia numerica e um outro GET com 02 digitos , mas o problema disso tudo é IDENTIFICAR em qual GEt o cursor esta "em clipper tinha uma função para identificar em qual variavel o cursos esta atualmente ,retornando o "nome" da variavel , sera que teria algo assim em FW que identifique a variavel ou o controle ? té++ ____________________________ Eder Xavier Msn:eder_xavier_2@hotmail.com Xharbour /fivewin 8.01 workshop /VSX id=quote>id=quote>Bom se o problema do cara eh Identificar em qual Get o Cursor esta, isto aki, acho q resolve: http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=9355 @braços Ale aleseribeli@hotmail.com Andradina/SP - Boa Vista/RRid=red> Curvelo/MG - Julho/08id=blue> Quote Link to comment Share on other sites More sharing options...
kapiaba Posted June 11, 2008 Report Share Posted June 11, 2008 VEJA NO \SAMPLES\KEYBSIM.PRG João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
ricardomouramarques Posted June 12, 2008 Report Share Posted June 12, 2008 taÃ: ******************************************* #Include "Fivewin.ch" //----------------------------------------------------------------------- Function main() Private oGet1, oGet2, oBut3, oBut4, oBut5, oBut6 Private oBut7, oBut8, oBut9, oBut10, oBut11, oBut12 Private nGet := 1 nGet1 := 0 nGet2 := 0 DEFINE FONT oFONT1 NAME "Ms Sans Serif" SIZE 0, -12 Define DIALOG oForm2 TITLE "Teste" ; FROM 209, 382 to 453, 537 PIXEL COLOR 0, 14215660 ACTIVATE DIALOG oForm2 ON INIT Ini_oForm2() Return NIL //---------------------------------------------------------------------------- Function Ini_oForm2() @ 14, 16 GET oGet1 VAR nGet1 SIZE 128, 20; COLOR 0, 16777215 PICTURE "@!" PIXEL OF oForm2 FONT oFont1 oGet1:BGotFocus := {|| nGet := 1} @ 42, 18 GET oGet2 VAR nGet2 SIZE 76, 20; COLOR 0, 16777215 PICTURE "@!" PIXEL OF oForm2 FONT oFont1 oGet2:BGotFocus := {|| nGet := 2} @ 160, 17 BTNBMP oBut3 Prompt "1" SIZE 34, 30 PIXEL; OF oForm2 ACTION PutGet(1) FONT oFont1 @ 160, 65 BTNBMP oBut4 Prompt "2" SIZE 34, 30 PIXEL; OF oForm2 ACTION PutGet(2) FONT oFont1 @ 160, 112 BTNBMP oBut5 Prompt "3" SIZE 34, 30 PIXEL; OF oForm2 ACTION PutGet(3) FONT oFont1 @ 118, 17 BTNBMP oBut6 Prompt "4" SIZE 34, 30 PIXEL; OF oForm2 ACTION PutGet(4) FONT oFont1 @ 118, 65 BTNBMP oBut7 Prompt "5" SIZE 34, 30 PIXEL; OF oForm2 ACTION PutGet(5) FONT oFont1 @ 118, 112 BTNBMP oBut8 Prompt "6" SIZE 34, 30 PIXEL; OF oForm2 ACTION PutGet(6) FONT oFont1 @ 76, 17 BTNBMP oBut9 Prompt "7" SIZE 34, 30 PIXEL; OF oForm2 ACTION PutGet(7) FONT oFont1 @ 76, 65 BTNBMP oBut10 Prompt "8" SIZE 34, 30 PIXEL; OF oForm2 ACTION PutGet(8) FONT oFont1 @ 76, 112 BTNBMP oBut11 Prompt "9" SIZE 34, 30 PIXEL; OF oForm2 ACTION PutGet(9) FONT oFont1 @ 202, 65 BTNBMP oBut12 Prompt "0" SIZE 34, 30 PIXEL; OF oForm2 ACTION PutGet(0) FONT oFont1 Return NIL //------------------------------------------------------------------------- Function PutGet( n ) local cVar if nGet = 1 cVar := alltrim(str(nGet1))+Alltrim(str(n)) nGet1 := Val( cVar ) oGet1:SetText( nGet1 ) oGet1:refresh() else cVar := alltrim(Str(nGet2))+Alltrim(str(n)) nGet2 := Val( cVar ) oGet2:SetText( nGet2 ) oGet2:refresh() endif Return NIL ******************************************* id=code>id=code> Quote Link to comment Share on other sites More sharing options...
scom Posted June 13, 2008 Author Report Share Posted June 13, 2008 Valeu pessoal...muito obrigado a todos que me ajudaram... Fiz como o Ricardo Marques....SHOW DE BOLA....obrigado Ricardo. robson FW 2.0 / CLIPPPER 5.3 / BLINKER 7 E FWH 7.05 Harbour 0.99 Quote Link to comment Share on other sites More sharing options...
vagner Posted June 13, 2008 Report Share Posted June 13, 2008 Olá, Só uma pergunta , isso é para montar uma calculadora ? A VGet já têm uma embutida que transporta o valor se for o caso Vagner Wirts VI Encontro está chegando , não perca Quote Link to comment Share on other sites More sharing options...
scom Posted June 13, 2008 Author Report Share Posted June 13, 2008 O WAGNER....NÃO É PRA FAZER TIPO UMA SENHA ONDE O USUARIO CLICA NO BOTÕES COMO NO TECLADO TAMBEM...OK ROBSON FW 2.0 / CLIPPPER 5.3 / BLINKER 7 E FWH 7.05 Harbour 0.99 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.