ايران ويج

نسخه‌ی کامل: کمک در ساخت ربات با مگا 8
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
صفحه‌ها: 1 2 3 4 5 6 7 8
چون بلد نیستم
برنامشم ندارم
مهندس reza555 پروتئوس این کار رو خیلی راحت و ساده تر انجام می ده !!


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

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

[تصویر:  6ca84ea86e774d22a73a.PNG]


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

[تصویر:  1624d1b077214c3d8b5d.PNG]


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

[تصویر:  d9d6d620e52941bbafea.PNG]

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

[تصویر:  3a9a5e73a27043cbbd68.PNG]


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

[تصویر:  f34e7c730a77406e9836.PNG]


اولا مهندس خودتیBiggrinمن میرم ترم 2 Biggrin
ثانیا خدا وکیلی توی پروتل ساده تر نیست؟
همون جا تو شماتیک فوت پرینتشو انتخاب میکنیم البته برای اتو روت
چوخ ممنون
با عرض شرمندگی یه سوال دیگ پایه های pwmمیکرو atmega8کدومان(دیتاشیتو خوندم ولی هیچی نگرفتم)
15-16-17
یه سوالی داشتم
اونجا که پکیجTO204رو نشون داده(تو همون عکس بالایی)چطور میشه اندازه ها رو متریک کرد؟
گزینه M رو انتخاب کن از اون بالای پروتئوس !!
سلامی دوباره
آقا کمکم کنید که نزدیکه سکته کنم
اعصابم خورد شده
ابن برنامه ای که نوشتم رو تو بسکام بهش 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

(۳۱-مرداد-۱۳۸۹, ۲۱:۰۵:۵۴)atmega8 نوشته است: [ -> ]سلامی دوباره
آقا کمکم کنید که نزدیکه سکته کنم
اعصابم خورد شده
ابن برنامه ای که نوشتم رو تو بسکام بهش 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 تبدیل کنید.

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

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

اینو تست کن :

کد php:
$regfile "m8def.dat"
$crystal 1000000

Config Timer1 
Pwm Pwm 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 جون شرمنده الان پستت رو دیدم !!!
خیلی خیلی مرسی عزیزان
راستی فقط همینو کم داشتیم که علی جان از این به بعد به جای مهندس به بچه ها بگن خوشگل (خوشگل خودتی)
ببخشید من اینجوری که از pwmاستفاده کردم درسته ؟
جواب میده؟
آخه اولین باره از pwm استفاده میکنم
صفحه‌ها: 1 2 3 4 5 6 7 8