پاسخ : ارتباط بین دو میکرو
ممنون دوستان
نه فاصله بین ۲ میکرو چند سانتی متر بیشتر نیست :biggrin: روی یک بورد هستند.
ممنون دوستان
نه فاصله بین ۲ میکرو چند سانتی متر بیشتر نیست :biggrin: روی یک بورد هستند.
$regfile = "m32def.dat" $crystal = 1000000 $baud = 2400 Dim I As Byte For I = 1 To 10 Print "mohsen" ; Chr(13) ; Wait 1 Print "program" ; Chr(13) ; Wait 1 next End
$regfile = "m32def.dat" $crystal = 1000000 $baud = 2400 '---------کانفیگ بافر سریال--- Config Serialin = Buffered , Size = 40 '----معرفی استرینگ جهت دریافت کاراکتر--- Dim S As String * 26 '---------------------------------- S = "" Enable Interrupts do A = Ischarwaiting() If A = 1 Then Input S Clear Serialin S = "" lcd s loop end
دیدگاه