Sistema de Balança

[monicafafe]

Preciso integrar sistema de balança em Clipper e não tenho a menor idéia de como fazer essa rotina. Alguém poderia me ajudar?

Obrigada

Mônica

[alberto_dias]

Qual é a balança ?

[rochinha]

Amiguinha

Existem vários modelos e marcas de balanças e vc deve especificar qual esta usando.

Especifique também o que deseja fazer se integrar uma balança ao seu programa em Clipper ou se quer integrar um programa em Clipper de balança em seu outro sistema.

Em todo o caso:

Código: Selecionar todos

Clear
Do While .T.
        mValor := 0
        mPeso  := 0
        Clear
        @ 01,01 say Padc("Leitura de peso na Balanca Filizola Linha BP ",80) Color("GR+/B")
        Set Key -1 to Ler_Peso()
        
        @ 12,10 say "Informe o Peso ou F2 para Ler Balanca : " Get mPeso Pict "@EZ 9999.999";
                    When (Ler_Peso()==.T.);
                    Valid(Ler_Peso(),mPeso > 0)

        @ 13,10 say "Pre‡o Produto :" Get mValor Pict "@EZ 9999.99"
        Read
        If LastKey()==27
           Exit
        Endif
        Inkey(0)
Enddo

//------------------------------------------------------------------------
Function Ler_Peso()
Local nPorta := 1     
Local cTrans := "N"
Local nBits  := 8
Local nParad := 1
Local nVeloc := 2400
Local cInicia:= Chr(05)   // Padrao utilizado pela linha BP(Filizola)
Local Erro   := .F.
Local VlrPeso:= 0
Local nRetorn:= .T.
If mPeso > 0
   Return .T.
Endif
@ 24,00 say padc("Balan‡a :"+Str(nPorta,2),80)
If Com_Open(nPorta,1000,1000) == .F.
   Erro := .T.
Else
  nConf := Com_Init(nPorta,nVeloc,cTrans,nBits,nParad)
      Com_Send(nPorta,cInicia)
      Inkey(0.10)
      Com_Count(nPorta)
      Inkey(0.10)
      nLeitura := Com_read(nPorta,10)
      If Substr(nLeitura,1,1)== Chr(02) .And. Right(AllTrim(nLeitura),1)==Chr(03)
         VlrPeso := Val(Substr(nLeitura,2,5))/1000
      Endif
      Com_Close(nPorta)
Endif
@ 24,00 say padc("",80)
If Erro == .F.
   mPeso := VlrPeso
Endif
Return (.T.)

Quanto a comunicaçã serial contacte o Vagner Nunes para o caso de usar a IOLIB.LIB ele inclusive deve te-la portado para 32bits e pode te servir no futuro.

Até hoje não sei quem postou este código e onde foi que o peguei mas muita gente me dá crédito por ele(isto eu não mereço), acho que funciona, nunca testei. Mas gostaria de saber quem é...

@braços :?)

[monicafafe]

Oi, pessoal.

Preciso fazer uma rotina que leia os dados da balança e jogue os mesmos para serem utilizados em um Sistema Clipper (FATURAMENTO).
A balança é Toledo, modelo 8530 Cougar.


Obrigada pela atenção de vocês.

Mônica