: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
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