apanhando da serial
Enviado: 09 Jul 2010 12:40
Estou perdida... nao estou entendo se o meu problema esta no compilador ou se é algum detalhe que nao estou enxergando... ou...
O que eu tenho aqui para fazer os testes
um pc com windows xt e o seguinte:
um executavel chamado diagtoledo que mostra que a balanca e a comunicacao esta funcionando
quando seto com1, 4800, 8, n, 1 ele fica pegando o peso direto - le milhares de vezes enquanto o programa roda
se passo para com1, 4800, 7, n, 1 ele pega o peso bonitinho uma vez só.
bom, agora o que estou fazendo
- usando clipper 5.2e, ct.lib (do catools 52) que baixei do site buzinello por aqui
fiz o seguinte (perceba as apelacoes dos prints e wait) - me basei num fonte que baixei daqui tb
Ah - tb tentei compilar com a ctp.lib mas apareceme uma mensagem de erro apos linkeditar - _D16ProtectedPtr - e nao funciona...Entao desisti e voltei ao ct.lib
Tem alguma ideia do que eu possa fazer?
O que eu tenho aqui para fazer os testes
um pc com windows xt e o seguinte:
um executavel chamado diagtoledo que mostra que a balanca e a comunicacao esta funcionando
quando seto com1, 4800, 8, n, 1 ele fica pegando o peso direto - le milhares de vezes enquanto o programa roda
se passo para com1, 4800, 7, n, 1 ele pega o peso bonitinho uma vez só.
bom, agora o que estou fazendo
- usando clipper 5.2e, ct.lib (do catools 52) que baixei do site buzinello por aqui
fiz o seguinte (perceba as apelacoes dos prints e wait) - me basei num fonte que baixei daqui tb
Ah - tb tentei compilar com a ctp.lib mas apareceme uma mensagem de erro apos linkeditar - _D16ProtectedPtr - e nao funciona...Entao desisti e voltei ao ct.lib
Código: Selecionar todos
*p1.prg
texto="oi"
peso=500
*
peso=chamabal()
?
? "------------"
? texto
? peso
return
Function CHAMABAL
texto="passei aqui"
COM_CLOSE(1)
COM_OPEN(1, 1, 1)
COM_INIT(1, 4800, "N", 8, 1)
COM_HARD(.F.)
W_PESO:=""
W_LETRA:=""
wvez=1
DO WHILE .t. &&wvez<= 5000
IF COM_COUNT(1) > 0
W_LETRA := COM_READ(1, 1)
IF !W_LETRA$"0123456789"
W_PESO := ""
ELSE
W_PESO = W_PESO+W_LETRA
ENDIF
ENDIF
wvez++
? "letra ", W_letra
? "w_peso", w_peso
? "com_count", com_count(1)
WAIT
IF LEN(ALLTRIM(W_PESO)) = 5
* EXIT
ENDIF
ENDDO
W_PESO = ALLTRIM(W_PESO)
COM_CLOSE(1)
Return(VAL(W_PESO)) Tem alguma ideia do que eu possa fazer?