مشکل در ارتباط rs232 و میکرو

[soshyan]

با سلام خدمت دوستان
من میخوام بین نرم افزار مطلب و میکرو با استفاد از مبدل usb به rs232 ارتباط برقرارکنم ام نیتونم
برنامه بسکام
$regfile = "m16def.dat"
$crystal = 8000000
$baud = 9600
Config Porta = Output
Dim A As Byte
Do
A = Inkey() :
If A = "1" Then Porta.1 = A
Loop
End
برنامه مطلب
s=serial('com4');
fopen(s)
fwrite(s,1)
>> fclose(s)
پایه های rxd و txd را هم وصل کردم
میخوام led که به پورت a وصل کردم روشن بشه
اما با زدن دستوات داخل مطلب هیچ اتفاقی نیافتاد از fprintf(s,1) اتفاقی نیافتاد
مشکل کجاست؟