کمک در ساخت ربات با مگا 8

[WhiteNoise]

چون بلد نیستم
برنامشم ندارم

[t3r!p3000]

مهندس reza555 پروتئوس این کار رو خیلی راحت و ساده تر انجام می ده !!


روش کار به فرم زیر است !!!

7805 را از کتابخونه پروتئوس انتخاب می کنیم و یه جا می ذاریمش :

روش دابل کلیک می کنیم تا پنجره مشخصاتش باز باشه و رو علامت ؟ ( سوال ) کلیک می کنیم !!!

فوت پرینت به نام TO204 رو انتخاب می کنیم !!

و درپنجره بعدی را هم ok می کنیم !
حال 7805 رو انتخاب می کنیم و این گزینه رو انتخاب می کنیم !! ( اون بالاست )

پنجره جدید رو به فرم زیر تغییر می دیم و سیو می کنیم !!!

[reza555]

اولا مهندس خودتیمن میرم ترم 2
ثانیا خدا وکیلی توی پروتل ساده تر نیست؟
همون جا تو شماتیک فوت پرینتشو انتخاب میکنیم البته برای اتو روت

[WhiteNoise]

چوخ ممنون

---

با عرض شرمندگی یه سوال دیگ پایه های pwmمیکرو atmega8کدومان(دیتاشیتو خوندم ولی هیچی نگرفتم)

[reza555]

15-16-17

[reza555]

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

[t3r!p3000]

گزینه M رو انتخاب کن از اون بالای پروتئوس !!

[WhiteNoise]

سلامی دوباره
آقا کمکم کنید که نزدیکه سکته کنم
اعصابم خورد شده
ابن برنامه ای که نوشتم رو تو بسکام بهش eror میده النم هرچی فکر میکنم نمیفهمم چشه

کد:

$regfile = "m8def.dat"
$crystal = 1000000
Config Timer1 = Pwm , Pwm = 8 , Prescale = 64 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up
Enable Timer1
Start Timer1
Config Portc = Input
Config Portb = Output
Config Portd = Output
Dim S1 As Byte
   Dim S2 As Byte
      Dim S3 As Byte
   Dim S4 As Byte
S1 = Pinc.2
  S2 = Pinc.5
    S3 = Pinc.3
  S4 = Pinc.4
Do
If S4 = 1 Then
Gosub Goo
  Elseif S2 = 1 Then
   Gosub Go
    Elseif S3 = 1 Then
     Gosub Rast
  Elseif S4 = 1 Then
   Gosub Chap Else Gosub None
End If
Loop
Goo:
Pwm1a = 255
Pwm1b = 255
Return
Go:
Pwm1a = 126
Pwm1b = 126
Return
Chap:
Pwm1a = 225
Pwm1b = 0
Return
Rast:
Pwm1a = 0
Pwm1b = 225
Return
None:
Pwm1a = 80
Pwm1b = 80
Return
End                                                         'end program

[salehjg]

سلامی دوباره
آقا کمکم کنید که نزدیکه سکته کنم
اعصابم خورد شده
ابن برنامه ای که نوشتم رو تو بسکام بهش eror میده النم هرچی فکر میکنم نمیفهمم چشه

کد:

$regfile = "m8def.dat"
$crystal = 1000000
Config Timer1 = Pwm , Pwm = 8 , Prescale = 64 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up
Enable Timer1
Start Timer1
Config Portc = Input
Config Portb = Output
Config Portd = Output
Dim S1 As Byte
Dim S2 As Byte
Dim S3 As Byte
Dim S4 As Byte
S1 = Pinc.2
S2 = Pinc.5
S3 = Pinc.3
S4 = Pinc.4
Do
If S4 = 1 Then
Gosub Goo
Elseif S2 = 1 Then
Gosub Go
Elseif S3 = 1 Then
Gosub Rast
Elseif S4 = 1 Then
Gosub Chap Else Gosub None
End If
Loop
Goo:
Pwm1a = 255
Pwm1b = 255
Return
Go:
Pwm1a = 126
Pwm1b = 126
Return
Chap:
Pwm1a = 225
Pwm1b = 0
Return
Rast:
Pwm1a = 0
Pwm1b = 225
Return
None:
Pwm1a = 80
Pwm1b = 80
Return
End 'end program

سلام
آقا یادتون رفته دونقطه بزارید.

پس Gosub Chap Else Gosub None را به
Gosub Chap :Else: Gosub None تبدیل کنید.

[t3r!p3000]

خوشگل به : و خط ها و شرطها توجه کن !!

یکم هم مرتب بنویس !

اینو تست کن :

کد php:

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

Config Timer1 = Pwm , Pwm = 8 , Prescale = 64 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up
Enable Timer1
Start Timer1

Config Portc = Input , Portb = Output , Portd = Output

Dim S1 As Byte , S2 As Byte , S3 As Byte , S4 As Byte

S1 = Pinc.2
S2 = Pinc.5
S3 = Pinc.3
S4 = Pinc.4

Do
   If S4 = 1 Then : Gosub Goo
   Elseif S2 = 1 Then : Gosub Go
   Elseif S3 = 1 Then : Gosub Rast
   Elseif S4 = 1 Then : Gosub Chap
   Else : Gosub None
   End If
Loop

Goo:
   Pwm1a = 255
   Pwm1b = 255
Return
Go:
   Pwm1a = 126
   Pwm1b = 126
Return
Chap:
   Pwm1a = 225
   Pwm1b = 0
Return
Rast:
   Pwm1a = 0
   Pwm1b = 225
Return
None:
   Pwm1a = 80
   Pwm1b = 80
Return 


ویرایش جدید :
salehjg جون شرمنده الان پستت رو دیدم !!!

[WhiteNoise]

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

---

ببخشید من اینجوری که از pwmاستفاده کردم درسته ؟
جواب میده؟
آخه اولین باره از pwm استفاده میکنم