امتیاز موضوع:
  • 0 رأی - میانگین امتیازات: 0
  • 1
  • 2
  • 3
  • 4
  • 5
برنامه برای ربات مسیر یاب با 8 سنسور
نویسنده پیام
omid_phoenix آفلاین
مدیر بخش
*****

ارسال‌ها: 2,238
موضوع‌ها: 108
تاریخ عضویت: شهریور ۱۳۹۱

تشکرها : 12682
( 15433 تشکر در 4574 ارسال )
ارسال: #11
RE: برنامه برای ربات مسیر یاب با 8 سنسور
می تونید از این برنامه استفاده کنید

کد:
$regfile = "m32def.dat"
$crystal = 8000000
'-------------------------------- Variables ----------
Config Porta = Input

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

Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 64
Dim A As Byte
Dim B As Byte
Dim C As Byte
Dim D As Byte
Dim E As Byte
Dim I As Bit
Dim Loop1 As Byte
Dim X As Bit
Dim Tim As Word
Dim Lop As Bit
Dim Pin0 As Bit
Dim Pin1 As Bit

'-------------------------------- main ------------------
B = 0
C = 0
D = 0
E = 0
I = 0
Do
Goooo:
  A.0 = Pina.0
  A.1 = Pina.1
  A.2 = Pina.2
  A.3 = Pina.3
  A.4 = Pina.4
  A.5 = Pina.5
  A.6 = Pina.6
'---------------------- zamine meshki-------------------
    Select Case A
        Case &B0111111:                                     '0111111
                Pwm1a = 0
                Pwm1b = 255
                Portc.0 = 0
                Portc.1 = 1
                I = 1
                Goto Goooo
        Case &B1011111:                                     '1011111
                Pwm1a = 10
                Pwm1b = 255
                Portc.0 = 0
                Portc.1 = 0
                I = 1
                Goto Goooo
        Case &B1101111:                                     '1101111
                Pwm1a = 120
                Pwm1b = 255
                Portc.0 = 0
                Portc.1 = 0
                I = 1
                Goto Goooo
        Case &B1110111:                                     '1110111
                Pwm1a = 255
                Pwm1b = 255
                Portc.0 = 0
                Portc.1 = 0
                I = 1
                Goto Goooo
        Case &B1111011:                                     '1111011
                Pwm1a = 255
                Pwm1b = 120
                Portc.0 = 0
                Portc.1 = 0
                I = 1
                Goto Goooo
        Case &B1111101:                                     '1111101
                Pwm1a = 255
                Pwm1b = 10
                Portc.0 = 0
                Portc.1 = 0
                I = 1
                Goto Goooo
        Case &B1111110:                                     '1111110
                Pwm1a = 255
                Pwm1b = 0
                Portc.0 = 1
                Portc.1 = 0
                I = 1
                Goto Goooo
        Case &B1100011 :                                    '1100011
                Pwm1a = 255
                Pwm1b = 255
                Portc.0 = 0
                Portc.1 = 0
                I = 1
                Goto Goooo
        Case &B1111111 :                                    '1111111
                I = 1
                Goto Goooo
  End Select
'--------------------- zamine sefid ------------------
             I = 0
             B.0 = A.4
             B.1 = A.2
             C.0 = A.5
             C.1 = A.1
             D.0 = A.6
             D.1 = A.0
If A.3 = 1 Then
   Pwm1a = 255
   Pwm1b = 255
   Portc.0 = 0
   Portc.1 = 0
   Goto Goooo
End If

   Select Case B
           Case 1:                                          '01
             Pwm1a = 120
             Pwm1b = 255
             Portc.0 = 0
             Portc.1 = 0
             Goto Goooo
           Case 2:                                          '10
             Pwm1a = 255
             Pwm1b = 120
             Portc.0 = 0
             Portc.1 = 0
             Goto Goooo
           Case 3:                                          '11
             Pwm1a = 255
             Pwm1b = 255
             Portc.0 = 0
             Portc.1 = 0
             Goto Goooo
    End Select
  Select Case C                                             '01
           Case 1:
             Pwm1a = 5
             Pwm1b = 255
             Portc.0 = 0
             Portc.1 = 0
             Goto Goooo
           Case 2:                                          '10
             Pwm1a = 255
             Pwm1b = 5
             Portc.0 = 0
             Portc.1 = 0
             Goto Goooo
           Case 3:                                          '11
             Pwm1a = 255
             Pwm1b = 255
             Portc.0 = 0
             Portc.1 = 0
             Goto Goooo
    End Select
  Select Case D
           Case 1:
             Pwm1a = 0
             Pwm1b = 255
             Portc.0 = 0
             Portc.1 = 1
             Goto Goooo
           Case 2:
             Pwm1a = 255
             Pwm1b = 10
             Portc.0 = 1
             Portc.1 = 0
             Goto Goooo
           Case 3 :
             Pwm1a = 255
             Pwm1b = 255
             Portc.0 = 0
             Portc.1 = 0
             Goto Goooo
   End Select
Loop
End

۰۱-دى-۱۳۹۱, ۲۳:۴۳:۲۴
ارسال‌ها
پاسخ
تشکر شده توسط : helma, Sarvona, milad15m, h-r


پیام‌های داخل این موضوع
برنامه برای ربات مسیر یاب با 8 سنسور - توسط Sarvona - ۳۰-آذر-۱۳۹۱, ۰۴:۵۵:۲۰,
RE: برنامه برای ربات مسیر یاب با 8 سنسور - توسط abbasalifix - ۳۰-آذر-۱۳۹۱, ۰۸:۱۹:۱۶,
RE: برنامه برای ربات مسیر یاب با 8 سنسور - توسط aKaReZa75 - ۳۰-آذر-۱۳۹۱, ۱۱:۱۰:۵۰,
RE: برنامه برای ربات مسیر یاب با 8 سنسور - توسط Sarvona - ۳۰-آذر-۱۳۹۱, ۱۵:۳۴:۲۶,
RE: برنامه برای ربات مسیر یاب با 8 سنسور - توسط helma - ۳۰-آذر-۱۳۹۱, ۱۹:۱۲:۱۷,
RE: برنامه برای ربات مسیر یاب با 8 سنسور - توسط aKaReZa75 - ۳۰-آذر-۱۳۹۱, ۱۹:۴۰:۰۸,
RE: برنامه برای ربات مسیر یاب با 8 سنسور - توسط Sarvona - ۰۱-دى-۱۳۹۱, ۱۲:۲۴:۴۸,
RE: برنامه برای ربات مسیر یاب با 8 سنسور - توسط Sarvona - ۰۱-دى-۱۳۹۱, ۲۱:۱۴:۰۵,
RE: برنامه برای ربات مسیر یاب با 8 سنسور - توسط Sarvona - ۰۱-دى-۱۳۹۱, ۲۳:۲۲:۵۹,
RE: برنامه برای ربات مسیر یاب با 8 سنسور - توسط omid_phoenix - ۰۱-دى-۱۳۹۱, ۲۳:۴۳:۲۴
RE: برنامه برای ربات مسیر یاب با 8 سنسور - توسط Sarvona - ۰۲-دى-۱۳۹۱, ۰۲:۳۱:۵۲,
RE: برنامه برای ربات مسیر یاب با 8 سنسور - توسط Sarvona - ۰۲-دى-۱۳۹۱, ۱۸:۰۴:۰۷,

موضوعات مرتبط با این موضوع...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  موقعیت ربات در زمین دارای ابعاد مشخص farshad1195 8 3,972 ۱۰-مرداد-۱۳۹۴, ۲۲:۵۶:۱۸
آخرین ارسال: farshad1195
  کمک در برنامه نویسی روبات مسیر یاب peedraam 2 4,421 ۲۸-تير-۱۳۹۴, ۲۰:۲۲:۰۹
آخرین ارسال: sona2
Wink یادگیری زبان انگلیسی با ربات انسان نمای دانشگاه شریف! ROBOTICS 12 9,839 ۲۴-آبان-۱۳۹۳, ۱۳:۱۳:۵۱
آخرین ارسال: omid_phoenix
  مشکل در برنامه ی ربات مسیریاب rekima 15 9,490 ۲۲-شهریور-۱۳۹۳, ۱۶:۵۷:۱۹
آخرین ارسال: Amir_Esh
  برنامه نویسی روبات مسیر یاب s.h.h 1 2,544 ۲۰-شهریور-۱۳۹۳, ۲۱:۳۸:۴۷
آخرین ارسال: helma
Question [سوال] برنامه ربات مسير ياب5سنسوره se2010 18 14,635 ۲۰-شهریور-۱۳۹۳, ۱۱:۳۷:۴۲
آخرین ارسال: s.h.h
  [پروژه] کمک در برنامه ربات ميکروموس با 3 سنسور التراسونيک elnino99 3 4,058 ۲۸-تير-۱۳۹۳, ۱۴:۵۴:۳۲
آخرین ارسال: behzady
  کالیبره کردن سنسور مادون قرمز برای ربات تعقیب خط invmechrobonic 0 2,514 ۲۳-تير-۱۳۹۳, ۱۹:۵۵:۳۱
آخرین ارسال: invmechrobonic
  خريد ربات آدم نما hamid67fathi 3 9,825 ۰۸-اسفند-۱۳۹۲, ۱۶:۰۰:۲۲
آخرین ارسال: mahan_0766
  مدار فلزیاب برای ربات مین یاب omid_phoenix 14 18,576 ۱۱-آذر-۱۳۹۲, ۲۰:۳۲:۵۹
آخرین ارسال: a.mehran

پرش به انجمن:


کاربرانِ درحال بازدید از این موضوع:

صفحه‌ی تماس | IranVig | بازگشت به بالا | | بایگانی | پیوند سایتی RSS