مشکل با توابع وزیربزنامه ها در m32

[محمد زیبنده]

سلام به دوستان عزیز
راستش من تازگی با ATmega 32 شروع به کار کردم وقتی در basecome زیر برنامه مینویسم هیچ مشکلی پیش نمیاد ولی وقتی برنامه رو میریزم روی آی سی اونوقت آی سی تمام زیر برنامه هارو اجرا میکنه حتی اگه شرط صادق نباشه

مثلا گفتم اگر pinc.0=1 اونوقت یه زیر برنامه رو اجرا کنه ولی حتی وقتی که pinc.0 رو تحریک نکردم زیر برنامه اجرا میشه
اینها در حالیه که برنامه در basecom بخوبی کار میکنه
اگه میشه بگید مشکل کجاست ؟ تو کد نویسی منه یا در تحریک پایه ها ..... اصلا روش صحیح تحریک پایه هارو برام بگید
ممنون

[PROTEUS]

پاسخ : مشکل با توابع وزیربزنامه ها در m32

اولین مشکلت این است که ما در bascom دستوری به نام pinc.0 نداریم به جای این دستور باید بنویسی portc.0 .

[hossein borhani]

پاسخ : مشکل با توابع وزیربزنامه ها در m32

سلام،

اولین مشکلت این است که ما در bascom دستوری به نام pinc.0 نداریم به جای این دستور باید بنویسی portc.0 .

در بسکام دستور pinc.0 وجود داره مثلا در دستور if میتونی ازش استفاده کنید.

احتمالا پینی را که میخواید چک کنید آزاد است اون را با یه مقاومت زمین کنید (میدونید که وقتی میخواید اون را 1 کنید باید ولتاژ را به بالای مقاومت(طرفی که به پین وصله) اعمال کنید). در غیر این صورت ممکنه نویز محیط را بعنوان 1 تلقی کنه.

دوست عزیز شما بهتره قبل از اینکه برنامه را روی میکرو پروگرم کنید اون را با سیمولاتور بسکام (F2) تست کنید.

این کاره را انجام بدین اگه باز مشکلی بود مطرح کنید.

[hojat]

پاسخ : مشکل با توابع وزیربزنامه ها در m32

سلام

دوست گرامی ، اگر سورس برنامه رو اینجا قرار بدی ، خیلی بهتره ، اما نکته ای که خیلی وقتها فراموش میشه پیکره بندی پورت ( تعریف پورت به عنوان ورودی یا خروجی ) است .
اگر این کار رو در ابتدای برنامه انجام ندی ، برنامه درست عمل نخواهد کرد.

[Iran-PC]

پاسخ : مشکل با توابع وزیربزنامه ها در m32

سلام.
به احتمال زیاد jtag رو غیر فعال نکردید (با فیوز بیت های مربوطه).
منم وقتایی که یادم میره این پورت c اعصابمو خورد میکنه.

[Mohammad6490]

پاسخ : مشکل با توابع وزیربزنامه ها در m32

سلام.
به احتمال زیاد jtag رو غیر فعال نکردید (با فیوز بیت های مربوطه).
منم وقتایی که یادم میره این پورت c اعصابمو خورد میکنه.

[PROTEUS]

پاسخ : مشکل با توابع وزیربزنامه ها در m32

اگر pinc.0 با دستور if بیاد مورد نداره ولی به تنهایی نمیتونه بیاد .

[محمد زیبنده]

پاسخ : مشکل با توابع وزیربزنامه ها در m32

دوستان عزیز از همگی ممنونم

والا من یه 2 هفته ای هست که دارم m32 کارمیکنم پس اگه سوالات خیلی آسون میپرسم ببخشید

طرز وصل کردن m32 به پورت com رو بلدم حالا میخوام
1 ) یه رشته از کامپیوتر بفرستم و در میکرو بر اساس اون یه کاری انجام بشه
2) با کامپیوتر یه پین رو 1 کنم

اگه میشه تو نوشتن کد هاش کمکم کنید (هم در کامپیوتر هم در میکرو)

[PROTEUS]

پاسخ : مشکل با توابع وزیربزنامه ها در m32

تو برای این کار دو راه داری یا باید از زبانهای برنامهنویسی مثل بیسیک ودلفی ..... استفاده کنی یا میتونی از نرم افزار پروتیوس استفاده کنی که به نظر من دومی ساده تره چون تو اولی اگر برنامه نویسی اینها رو بلد نباشی به مشکل بر میخوری

[محمد زیبنده]

پاسخ : مشکل با توابع وزیربزنامه ها در m32

با اجازه شما من نرم افزار میخونم (دلفی c بیسیک و......)
ولی اگه یه نمونه کد بهم بدین که نشون بده چطور با میکرو ارتباط برقرار کنم و داخل میکرو چطور به درخواست ها پاسخ بدم
باقیش با من

[PROTEUS]

پاسخ : مشکل با توابع وزیربزنامه ها در m32

برای مثال در دلفی باید dll را تعریف کنید . بعد از تعریف dll کار دیگه راحته . مثلا :
Function OPENCOM(S : PCHAR):INTEGER; STDCALL; EXTERNAL 'PORT.DLL
با این دستور اول پورت سریال راباز کرده
Function READBYTE: WORD; STDCALL; EXTERNAL 'PORT.DLL
با این دستور یک بایت را از واسط سریال میخوانیم
Procedure SENDBYTE(Value: WORD) ; STDCALL; EXTERNAL 'PORT.DLL
با این یکی یک بایت به واسط سریال ارسال میکنیم
Procedure TXD (Value:WORD);stdcall; external 'PORT.DLL
با این یکی وضعیت خط ارسال داده را تعریف میکنیم .
Procedure RXD (Value:WORD);stdcall; external 'PORT.DLL
با این یکی وضعیت خط دریافت داده را تعریف میکنیم .

این دستورات چون DLL هستند باید قبل از برنامه اصلی بیاند.

بعد از این کار برای اینکه میکرو هم به چنین سیستمی مجهز بشه و داده ارسال کنه نیاز به چند کار داری
1- باید از قطعه ای برای مثال MAX232 برای تبدیل سطج منطقی به RS 232
2- این یه نمونه برنامه ارسال داده به پورت سریال در میکرو AVR و زبان BASCOM هست .

$regfile = "M32DEF.DAT"
$crystal = 16000000
$baud = 9600
Config Serialout = Buffered , Size = 8

Do
A = 12
Print A
Loop
End

[PROTEUS]

پاسخ : مشکل با توابع وزیربزنامه ها در m32

$regfile = "M32DEF.DAT"
$crystal = 16000000
$baud = 9600
Config Serialout = Buffered , Size = 8
Do
A = 12
Print A
Loop
End

[محمد زیبنده]

پاسخ : مشکل با توابع وزیربزنامه ها در m32

mer30 داداش
دستت درد نکنه
حله باقیش با من

[saeed bagherani]

پاسخ : مشکل با توابع وزیربزنامه ها در m32

موارد زیر را مد نظر ذاشته باشید
از دستور declare sub برای زیر برنامه استفاده کنید
زیر برنامه باید بعد از دستور end باشد

از دستورات sub , end sub بعد از ثدی استفاده نمایید