آموزش AVR از صفر تا بي نهايت !

[abbasalifix]

برای این گفتم با dc1307 که نیازی نباشه مدام یه شرط چک بشه و توی سرعت تاثیر کنه و همین طور ساعتی که با میکرو ساخته میشه بدنیست اما اون جوری که باید دقیق باشه نیست مثلا هفته ای30ثانیه تا 1 دقیقه جلو عقب شاید بره
اگه میدونستم برای چکاری میخواین و باید چقدر دقیق باشه بهتر بود
ویا کاری که ازش توقع داریم چیه ؟

[amir_s]

برای این گفتم با dc1307 که نیازی نباشه مدام یه شرط چک بشه و توی سرعت تاثیر کنه و همین طور ساعتی که با میکرو ساخته میشه بدنیست اما اون جوری که باید دقیق باشه نیست مثلا هفته ای30ثانیه تا 1 دقیقه جلو عقب شاید بره
اگه میدونستم برای چکاری میخواین و باید چقدر دقیق باشه بهتر بود
ویا کاری که ازش توقع داریم چیه ؟

سلام.الان این ساعت رو هم پیدا کردم که باdc1307 درست شده.فقط خیلی متوجه نشدم ازش.این ساعت میخاد تو یه سالن نصب بشه که مثلا تو یه وقتایی مثلا وقت استراحت زنگ بزنه یا وقت شروع به کار که حتما باید دقیقه دقیق باشه.الان مشکلم اینه که خیلی برنامه رو متوجه نشدم و اینکه باید یه جوری باشه که بشه وقت هایی که میخاد زنگ بزنه رو خود کاربر با چند تا کلید تنظیم کنه.

این برنامشه:

  New Text Document (2).txt (اندازه: 2.41 KB / تعداد دفعات دریافت: 49)

[amir_s]

چیجوری باید اینکارو بکنم؟

[amir_s]

اقا پس کسی نیست به من کمک کنه؟
اولش میگین شروع کن حالا هیچ کدوم جواب نمیدین؟

[abbasalifix]

شما مدار ساعت رو بستین ؟
کامل جواب داد ؟
توی عالم واقعیت هم جواب داد؟

[amir_s]

شما مدار ساعت رو بستین ؟
کامل جواب داد ؟
توی عالم واقعیت هم جواب داد؟

اخه من که هنوز کاملش نکردم کهبخام درستش کنم.مگه میشه جواب نده؟
الان مشکلم اینه که چیجوری میشه ساعتایی که میخایم زنگ بزنه رو با چند تا کلید تنظیم کنیم.

[farhadgowgan]

با سلام وخسته نباشید !شرمنده من تازه شروع به اموزش دیدن avrکردم و اموزش avr از صفر تا بینهایت شمارو خوندم وبسیار متشکر!ولی متاسفانه ناقص بود!حال می خواستم برنامه زیر رو بخونم که دستورات یاد داده شده قبل کافی نبود میخواستم به صورت مختصر این برنامه رو توضیح بدین!با کمال تشکر فراوان
کنترول از طرa از طریق خط تلفن
نوشته شده توسط : danial

کد:

$regfile = "m8def.dat"
$crystal = 1000000

'#################################### CONFIG ###############################


Config Portd = Input
Config Portd.0 = Output
Config Portd.7 = Output
Config Portb.0 = Input
Config Portb.1 = Input
Config Portb.2 = Input
Config Portb.3 = Input
Config Portb.4 = Output
Config Portb.5 = Output
Config Portb.6 = Output
Config Portb.7 = Output
Config Portc = Output

'#################################### ALIAS ###############################

Telm Alias Pind.2
Zang Alias Pind.3
Tel Alias Portd.7
Beep Alias Portd.0

'#################################### DIMS ###############################

Dim Test As Byte
Dim Pasword(4) As Byte
Dim Pastest(4) As Byte
Dim Pas(4) As Byte
Dim A As Byte
Dim B As Byte

'#################################### declare ###############################

Declare Sub Passok
Declare Sub Changepassword

'#################################### READ ROMS ###############################

Readeeprom Pasword(1) , 0
Readeeprom Pasword(2) , 1
Readeeprom Pasword(3) , 2
Readeeprom Pasword(4) , 3

'Readeeprom Zang1 , 4
'Readeeprom Zang2 , 5



'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

Main:

Do

If Zang = 0 Then
Waitms 100
If Zang = 0 Then
Gosub Zangset
End If
End If
Waitms 50

Loop
End

'##########################################################################
Zangset:
A = 0

For B = 1 To 120
If Zang = 0 Then
B = 1
Do
If Zang = 1 Then
Exit Do
End If
Loop
Incr A
If A >= 4 Then
Set Tel

Waitms 800
Sound Beep , 400 , 100
Sound Beep , 350 , 120
Gosub Readtel
End If
End If
Waitms 100
Next
A = 0
Sound Beep , 150 , 100
Sound Beep , 100 , 150
Return


'##########################################################################

Readtel:
A = 1
For B = 1 To 250
If Telm = 1 Then
B = 1
Pas(a) = Pinb
Incr A

While Telm = 1
Wend
Sound Beep , 150 , 100
If A >= 5 Then
Exit For
End If
End If
Waitms 100
Next
If Pas(1) = Pasword(1) And Pas(2) = Pasword(2) And Pas(3) = Pasword(3) And Pas(4) = Pasword(4) Then
Waitms 800
Passok
End If
Sound Beep , 200 , 200
Waitms 500
Sound Beep , 200 , 200
Waitms 500

Sound Beep , 200 , 200
Waitms 500
Sound Beep , 200 , 200



Reset Tel

Return


'##########################################################################
Passok:
While Telm = 1
Wend
Sound Beep , 200 , 150
Waitms 100
Sound Beep , 200 , 130

For B = 1 To 250
If Telm = 1 Then
B = 1
A = Pinb
Else
A = 0
End If
While Telm = 1
Wend
Select Case A
Case 1


Toggle Portc.0
Sound Beep , 200 , 130

Case 2

Toggle Portc.1
Sound Beep , 200 , 130

Case 3

Toggle Portc.2
Sound Beep , 200 , 130

Case 4

Toggle Portc.3
Sound Beep , 200 , 130

Case 5

Toggle Portc.4
Sound Beep , 200 , 130


Case 6

Toggle Portc.5
Sound Beep , 200 , 130




Case 11

Changepassword


Case 0

Case Else
Sound Beep , 100 , 150
Sound Beep , 100 , 120
Sound Beep , 100 , 150
Sound Beep , 100 , 120
Sound Beep , 100 , 150
Sound Beep , 100 , 120
End Select
Waitms 70
Next
Sound Beep , 100 , 150
Sound Beep , 100 , 120
Sound Beep , 100 , 150
Sound Beep , 100 , 120
Reset Tel
Goto Main
'##########################################################################

Changepassword:

While Telm = 1
Wend

Sound Beep , 100 , 150
Sound Beep , 100 , 120
A = 1
For B = 1 To 250
If Telm = 1 Then
While Telm = 1
Wend
B = 1
Pasword(a) = Pinb



Incr A
If A >= 5 Then

Exit For
End If
End If
Waitms 50
Next

Sound Beep , 400 , 100
Waitms 700
Sound Beep , 400 , 100
A = 1
For B = 1 To 250
If Telm = 1 Then
While Telm = 1
Wend
B = 1
Pastest(a) = Pinb



Incr A
If A >= 5 Then

Exit For
End If
End If
Waitms 50
Next

If Pasword(1) = Pastest(1) And Pasword(2) = Pastest(2) And Pasword(3) = Pastest(3) And Pasword(4) = Pastest(4) Then
Writeeeprom Pasword(1) , 0
Waitms 10
Writeeeprom Pasword(2) , 1
Waitms 10
Writeeeprom Pasword(3) , 2
Waitms 10
Writeeeprom Pasword(4) , 3
Waitms 500
Sound Beep , 700 , 200
Else
Sound Beep , 200 , 150
Sound Beep , 210 , 170
Sound Beep , 200 , 150
Sound Beep , 210 , 170
End If
Return
'#########################################################

یق خط تلفن

[omid_phoenix]

سلام دوست عزیز
به طور کلی تو این برنامه
_سربرگ CONFIG برای پیکر بندی یک سری از پورت و پین ها بعنوان ورودی و خروجی
_سربرگ ALIAS برای تغییر نام چندتا از پایه ها
_سربرگ DIMS برای ایجاد یک سری متغیر
_سربرگ declare برای تعریف زیربرنامه
_سربرگ READ ROMS برای استفاده از حافظه eeprom
به کار برده شدن و در ادامه از Main: به بعد دستورات اصلی و شرایط داخل حلقه نوشته شدن

[mohsen385]

اقا واقعا دمتون گرم خدایی خیلی باحال اموزش دادی من که خیلی چیزا که میخواستم دستگیرم شد
فقط اگه میشه در مورد برنامه فلاشر برای تابلو ای ایدی توضیح دهید ممنون میشم

[omid_phoenix]

سلام
خب شکر خدا
شما دقیقا در چه مورد نیاز به توضیح دارید؟
منظورتون از فلاشر برای تابلو led دقیق متوجه نشدم
میخواهید تابلو گردشی بسازید؟
در مورد پروژه تون بیشتر توضیح بدید تا بتونم خودم یا دوستان کمکتون کنیم

[niloofarrb2012]

سلام دوست عزیز یه برنامه هست باید با وقفه بنویسم یک ال سی دی داریم و به d7 dیک ال ای دی و مقاومت داریم و به int1یک مقاومت 100 اهم و 10 کیلو و یک پوش باتون وصل است , وبه int0 پوش باتون و مقاومت 100 اهم وصل است و تغذیه حالا صورت سوال این است که روی ال سی دی دو خط داریم و یه متنی به دلخواه انتخاب میکنیم یک دکمه میزنیم خط اول ال سی دی اون متن نمایش داده میشه و دکمه 2 رو میزنیم خط 2 اون متن رو نشون میده