FiveTech Support Forums

dll function AbrePortaUrano(Porta AS STRING)           AS LONG PASCAL  FROM "_AbrePortaSerial"         LIB "lepeso.dll"
dll function FechaPortaUrano()                                 AS LONG pascal  FROM "_FechaPortaSerial"        LIB "lepeso.dll"
dll function LePeso()                                                AS STRING pascal    FROM "_LePeso"          LIB "lepeso.dll"
dll function ModeloBalancaUrano(Modelo as _INT)     AS LONG pascal  FROM "_AlteraModeloBalanca"     LIB "lepeso.dll"
dll function ModoOperacaoUrano(Modo as _INT)        AS LONG pascal  FROM "_AlteraModoOperacao"  LIB "lepeso.dll"

function testefuncurano()
priv aaa:=3
priv Porta:='COM1'

aaa:=abreportaurano(Porta)
? aaa
return .t.