[left]
dim pro(7) as byte
dim i as byte
dim enget as byte
i=1
do
if endget=1 then
disable urxc1
endget=0
harkari ba 7 byte daryafti dari inja bokon'
enable urxc1
end if
loop
end
myser:
pro(i)=udr
if i<7 then
incr i
else
i=1
endget=1
end if
return
[/left]
ببین کدی که گذاشتم بدون فعال کردنو اینا بود این کد 7 بایت اطلاعات رو می گیره بعد تو لوپ اصلی با اون هفتا یه کاری می کنه حالا میتونه ان تا اطلاعات باشه یا حتی می تونی تو خود زیر برنامه سریال شرط بزاری هر وقت یه دیتا خاص اومد کار گرفتن شروع بشه و از این جنگولک بازیا :biggrin:
همانطور که مایل نیستم بنده کسی باشم، حاضر نیستم آقای کسی باشم. کسانی که مخالف آزادی دیگرانند، خود لیاقت آزادی را ندارند.((آبراهام لینکن))
قدرت شگفت انگیز نیروهای خلاق و استعدادهای نهفته آدمی هنگامی آشکار می شود که نیازی حیاتی، تواناییهای او را به فعالیت وادارد و کشش آرزویی، سراپای وجودش را به جنب و جوش درآورد.((آبراهام لینکن))
دیدگاه