Declaración:
- Code: Select all Expand view
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"
Función:
- Code: Select all Expand view
function testefuncurano()
priv aaa:=3
priv Porta:='COM1'
aaa:=abreportaurano(Porta)
? aaa
return .t.
Cuando ejecuto la aplicación se bloquea (Crash). No devolver el valor de 'AAA'
