2-3 پست قبلی روش رو نوشتم . همون رو تست کنین. تنها فرق چیزی که الان گفتم این هست که می تونین با روتینی مثل :
Do
A = Ischarwaiting()
If A = 1 Then 'we got something
A = Waitkey() 'get it
Print "ASCII code " ; A ; " from serial"
End If
Loop Until A = 27
که توو HELP بیسکام هم بهش اشاره شده ، بایت 0 رو هم راسال کنین. اما همون که چند پست قبل گفتم کافی هست