رفع ایراد در برنامه های Bascom - Protus

[mapmap]

سلام
بنده یه کمک از شما دوستان خواستم که در خصوص ADC چن تا مثال بزنید
دوستان زحمت کشیدن چن تا نمونه برام گذاشتن که تو اجرای این نمونه ها مشکل دارم
دوباره مجبور شدم شماها رو زحمت بدم و مشکل منو برام روشن کنید
ممنون
این برنامه :
$regfile "m32def.dat"
$crystal = 8000000 '\
Config Lcd = 16 * 2
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Config Lcdpin = Pin , Db4 = Pinb.2 , Db5 = Pinb.3 , Db6 = Pinb.4 , Db7 = Pinb.5 , _
E = Pinb.0 , Rs = Pinb.1
Cls
Dim A2d As Word
Up:
Do
A2d = Getadc(0)
Locate 1 , 1
Lcd A2d
Loop
End

و اینم عکس :



قبلا" از کمکتون متشکرم
بدرود

[ATA.Mega64]

دوست عزیز مدار و برنامه شما چندتا مشکل کوچولو داره. :agree:

در شماتیکت اولا باید پایه VDD در LCDو AREF و AVCC در میکروتو به VCC وصل کنی تا شماتیکت درست کار کنه.

و در برنامه میکرو هم به نظر من اگه مقدار REFRENCE رو INTRNAL تغییر بدی بهتره.
موفق باشی

[mapmap]

از راهنماییتون ممنونم
دستورات شما رو اجرا کردم اما دوباره نشد!!!!
چــــــــــــــــــــــــ ـــــــــــرا؟؟؟ :sad: :surprised: :cry: :cry2:

[ATA.Mega64]

راستش من دقیقا شماتیک شمارو با برنامه شما بستم و البته تغییراتی که گفتم رو درش ایجاد کردم و به درستی کار میکرد.
حالا نمیدونم مشکل شما از کجاست.احتمالا پروتئوست مشکلی چیزی داره یا شاید پتانسیومتری که در مدارت انتخاب میکنی Active نیست.یعنی مخصوص شبیه سازی نیست.
بیشتراوقات انتخاب کردن مقدار اینترنال برای refrence بهترین گزینست.(مطمئنی که refrence رو به internal تغییر دادی؟ :NO:
راستی برای نمایش مقدار درست روی lcd باید توی حلقه لوپ دستور cls هم بزاری تا زمانی که مقدارش کمتر از 4 رقمه درست نشون بده. :NO:
الآن من جایی هستم که پروتئوس و بسکام نداره.شب که رفتم خونه یه برنامه مینویسم و با شماتیک برات میفرستم تا کارت راه بیفته.

[ATA.Mega64]

سلام.
الوعده وفا.



اینم ساده ترین مداری که با ADC میکرو میشه بست.
پتانسیومتر و تغییر میدی ADC تغییر میکنه.فقط توی پروتئوس خطی نشون نمیده.ولی در واقعیت کاملا خطیه.
برنامش رو هم میتونی ببینی.

$regfile "m32def.dat"
$crystal = 4000000 '\
Config Lcd = 16 * 2
Config Adc = Single , Prescaler = Auto , Reference = Internal
Config Lcdpin = Pin , Db4 = Pinc.2 , Db5 = Pinc.3 , Db6 = Pinc.4 , Db7 = Pinc.5 , E = Pinc.1 , Rs = Pinc.0
Cls
Dim A2d1 As Word , A2d2 As String * 4
Cursor Off

Up:
Do
A2d1 = Getadc(0)
A2d2 = Str(a2d1)
A2d2 = Format(a2d2 , "0000&quot
Locate 1 , 1
Lcd A2d2
Loop
End

ok؟

[mapmap]

با عرض ادب

Dr.Xylitol جون ـ از اینکه برای حل مشکلم وقت گذاشتی ممنون و امیدوار به جبرانم

راستش همه کارای شما رو عینا" انجام دادم امـــــــــــــــــــــــ ا نشد که نشد oo:

حالا مطمئنم که مشکل از برنامه بسکام یل پروتئوسمه :agree:

میشه بگین ورژن برنامه هاتون چنده؟؟
بسکام من 1.11.9.0
و پروتئوسم 7.6 SP4
هستش

[mapmap]

:cry2: :angry: :angry: :angry:

[حمیدرضا رضایی]

با عرض ادب

Dr.Xylitol جون ـ از اینکه برای حل مشکلم وقت گذاشتی ممنون و امیدوار به جبرانم

راستش همه کارای شما رو عینا" انجام دادم امـــــــــــــــــــــــ ا نشد که نشد oo:

حالا مطمئنم که مشکل از برنامه بسکام یل پروتئوسمه :agree:

میشه بگین ورژن برنامه هاتون چنده؟؟
بسکام من 1.11.9.0
و پروتئوسم 7.6 SP4
هستش

منم از همین ورژن ها استفاده میآ‌کنم
فایل های پروتئوس(DSN) و بیسکام(bas وHex) پروژه رو پلود کن تا یه تستی بکنم.

[mapmap]

پلود کردن عکس رو بلدم اما فایل رو نه
شرمنده

اما همون پروژهای صفحه قبل رو دقیقا" اجرا کردم هم برنامه خودم هم برنامه دوست نازنینم Dr.Xylitol
لطفا" منو فراموش نکنید این موضوع یه هفته اس منو اذیت میکنه!!!!!

مرازگساپس ( برعکس بخونید !!!)
:biggrin:

[حمیدرضا رضایی]

پلود کردن عکس رو بلدم اما فایل رو نه
شرمنده

همهآ‌ی فایل ها رو زیپ کن بعد برو تو این سایت:

مهمان عزیز شما حق دیدن لینک ها را ندارید

عضویت