با سلام خدمت اساتید
من یک مشکلی دارم اون هم این که یک برنامه ساده 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
من یک مشکلی دارم اون هم این که یک برنامه ساده 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
دیدگاه