BASCOM AVR
Enviado: 19 Jul 2007 17:33Alguem pode compilar para mim e mandar o "BIN" gerado?
tcpipchip@hotmail.com
Obrigado
TCPIPCHIP
=============================
Const True = 1
Const False = 0
$regfile = "m64def.dat"
$crystal = 7372800
'**************************************************************************************
'* SERIAL PORTS CONFIGURATION
'**************************************************************************************
$baud = 38400
Config Serialin = Buffered , Size = 68
Open "Com1:" As Binary As #2
Waitms 100
Print #2 , "***************************" ' Print header on the Diagnostic/Log stream.
Do
Print #2 , "* TESTE COMUNICACAO SERIAL"
Print #2 , "***************************"
Print #2 , ""
Print #2 , "POWER UP"
Loop
End
tcpipchip@hotmail.com
Obrigado
TCPIPCHIP
=============================
Const True = 1
Const False = 0
$regfile = "m64def.dat"
$crystal = 7372800
'**************************************************************************************
'* SERIAL PORTS CONFIGURATION
'**************************************************************************************
$baud = 38400
Config Serialin = Buffered , Size = 68
Open "Com1:" As Binary As #2
Waitms 100
Print #2 , "***************************" ' Print header on the Diagnostic/Log stream.
Do
Print #2 , "* TESTE COMUNICACAO SERIAL"
Print #2 , "***************************"
Print #2 , ""
Print #2 , "POWER UP"
Loop
End