irda text send error

[lee inmo]

:sign0085:

Hi

I am developing an application
Someone can help me?
thank you



Code:

Sub Globals

End Sub

Sub App_Start
Form1.show

' com3 irda port send : ipaq 4700, receive : ipaq 5450

serial.new2(3,19200,"N",8,1)
serial.portopen=true
End Sub

Sub Button1_Click
if serial.PortOpen = true then serial.Output("1")
End Sub

received pda screen

 

[Erel]

You should use the Serial IR instead of the Raw IR. It is comm port 3 on most devices.
You could test it with the SerialTerminal example from here: www.basic4ppc.com/Downloads.html

 

[lee inmo]

Hi, Erel

thank you very much.