ا سلام خدمت اساتيد
من يك مشكلي دارم اون هم اين كه يك برنامه ساده vb.net نوشتم كه اطلاعات رو بفرسته
اين كار رو ميكنه ولي روي ميكرو حروف واعداد ارسالي رو يكي يكي نشون ميده
تو ميكرو از دستور input استفاده كردم كه هيچ دستوري رو نشون نميده
از دستور inkey ,waitkey كه استفاده ميكنم تا سه تا كاراكتر با تاخير كه ميزارم پشت سر هم نشون ميده ولي بيشتر رو نه
يعني كاراكتر آخري رو نشون ميده ودو كاراكتر اول رو حالا من ميخوام يك رشته از كامپيوتر ارسال كنم وعين همون رو با بسكام روي lcd
ببينم
وبعد دوباره اون رو بفرستم به يك ميكرو ديگه حالا اساتيد لطف كنن يك كمكي كنن اين رو فوري نياز دارم
اين هم برنامه ميكرو
$regfile = "M32def.dat"
$crystal = 8000000
$baud = 9600
Config Lcdpin = Pin , Db4 = Portc.1 , Db5 = Portc.2 , Db6 = Portc.3 , Db7 = _
Portc.4 , E = Portd.2 , Rs = Portd.3
Config Lcd = 16 * 2
Dim C As String * 13 , S As String * 13 , A As Byte
Cls
Home : Lcd "test"
'Enable Interrupts
'Enable Urxc
' On Urxc Lbl
Do
Locate 1 , 6
Lcd C
Locate 2 , 3 : Lcd S
S = Waitkey()
For A = 0 To S
C = S
Next
Waitms 200
Loop
'Lbl:
'C = Inkey()
'S = C
'Shift S , Right , C
'Return