bascom پورت سریال و ADC

[khatarat]

می خوام برنامه رو طوری بنویسم که اطلاعات آنالوگ رو بخونه و همون وقت به پورت سریال کامپیوتر بفرسته
این برناممه ولی کار نمی کنه
$regfile "m16def.dat"
$crystal = 4000000

Config Adc = Free , Prescaler = Auto
Config Serialout = Buffered , Size = 20
Open "com1:" For Binary As #1
Enable Interrupts
Start Adc
Dim W As Word
Do
Print #1 , W
W = Getadc(0)
Loop

کلا این دستور نوشتن تو پورت بعضی جاها کار می کنه بعضی جاها کار نمی کنه نمی دونم چرا

[khatarat]

پاسخ : bascom پورت سریال و ADC

کسی نمی دونه مشکل این تابع getadc چیه که بعد از اون هیچ دستور پرینتی اجرا نمی شه؟

[hossein_edison]

پاسخ : bascom پورت سریال و ADC

سلام
اولا در برنامتون نرخ باود رو مشخص نکردید.دوم اینکه شما چرا از پورت مخصوص این کار استفاده نمیکنید همون TX و RX رو میکرو.سوم اینکه نوع متغیر رو از نوع word به byte یا integer تغیر بدید یعنی اون رو تو متغیر دیگه بریزید و عملیات رو روش انجام بدید تا دقیق در بیاد.من یه زمانی مشابه همین مشکل رو داشتم با این کار رفع شد.
موفق باشید

[hossein_edison]

پاسخ : bascom پورت سریال و ADC

مشکلی نداره.اگه دقت کرده باشین دستور lcd X همیشه بعد از اون میاد.

[mohammad mohandes]

پاسخ : bascom پورت سریال و ADC

آقا شما free را با single عوض کن احتمالا مشکلت حل میشه اگر حل نشد به غیر از این که گفتم .از uart سخت افزاری استفاده کنید.

[khast khodaiebehnam]

پاسخ : bascom پورت سریال و ADC

$regfile "m16def.dat"
$crystal = 4000000
$baud=9600
Config Adc = Free , Prescaler = Auto
Config Serialout = Buffered , Size = 20
Enable Interrupts
Start Adc
Dim W As Word
Do
Print W
W = Getadc(0)
Loop

از این روش استفاده کن که بهش مطمین هستی

[hamidreza66]

پاسخ : bascom پورت سریال و ADC

سلام

کسی میدونه چطور میتونم کاراکتر های انگلیسی و اعداد رو بصورت کد اسکی روی یک پین میکرو به خروجی ببرم؟ و بلعکس، با دریافت کد اسکی بتونم کاراکترو تشخیص بدم.

اگه نیاز به توضیح بیشتر بود زیر رو هم بخونین
قراره بوسیله یه میکرو، اطلاعات رو از کیبورد کامپیوتر بگیرم (که موفق شدم و رو LCD تست کردم) و بوسیله یه میکرو اطلاعات رو به حالت سریال و بر روی یک خط به ماژول فرستنده بیسیم بدم و در طرف دیگه گیرنده اطلاعات سریال رو دریافت میکنه و به میکرو میده، میکرو هم باید کد ها رو تشخیص بده و اونها رو به LCD بفرسته و نمایش بده
یه جورایی کیبورد بیسیمه. من تا حالا تونستم کیبورد رو به میکرو وصل کنم و اطلاعات رو روی LCD نشون بدم ، حلا باید یه جایی این فرستنده رو کا بذارم.