موضوع مميز سيارة rc متحكم فيها عن بعد - الصفحة 2 - منتديات الجلفة لكل الجزائريين و العرب

العودة   منتديات الجلفة لكل الجزائريين و العرب > منتديات الثقافة الطبية و العلوم > منتدى الاختراعات و التجارب العلمية

منتدى الاختراعات و التجارب العلمية يهتم بجميع المواضيع العلمية المتعلقة بالتكنولوجيا والإختراعات والإبتكارات والتجارب العلمية...


في حال وجود أي مواضيع أو ردود مُخالفة من قبل الأعضاء، يُرجى الإبلاغ عنها فورًا باستخدام أيقونة تقرير عن مشاركة سيئة ( تقرير عن مشاركة سيئة )، و الموجودة أسفل كل مشاركة .

آخر المواضيع

سيارة rc متحكم فيها عن بعد

إضافة رد
 
أدوات الموضوع انواع عرض الموضوع
قديم 2015-01-16, 12:17   رقم المشاركة : 16
معلومات العضو
onimaro
عضو جديد
 
إحصائية العضو










افتراضي السلام عليكم اخي

السلام عليكم ورحمة الله وبركاته
اخي العزيز بعد رأيت مشروعك الجملية اعجبني بكل صراحة واريد منك التواصل معي

يمكنني مساعدتك في نطوير كثير من الأشياء + اذا امكن اذكر ولاية التي تقيم فيها انا مختص في برمجة الروبوت والان اعمل على فكرة انشاء روبوت يكون عبارة عن شيء صغير يتم ارتدائه من اجل كشف عن الفيروسات التي تواجهنا يوميا
اخي اتمنى التواصل معي من اجل تنمية هذه المشاريع و ايضا يمكنك مشاركة في معرض العلوم في بريطانيا او فرنسا


شكرا لك وارجو الرد في اقرب وقت







 

رد مع اقتباس
مساحة إعلانية

قديم 2015-01-20, 12:42   رقم المشاركة : 17
معلومات العضو
الصديق قروف
عضو مميّز
 
إحصائية العضو










افتراضي

اسلام عليكم
من اين نستطيع ان نحصل علي القطع الاكترونية







رد مع اقتباس
قديم 2015-01-20, 13:47   رقم المشاركة : 18
معلومات العضو
Smail1912
عضو مجتهـد
 
إحصائية العضو










افتراضي

اللسلام عليكم
اخي عمل رائع حقا و للافضل ان شاء الله
انا ايضا من هواة هذه االامور بدات العمل على فكرة روبوت صغير بمهام محدودة كبداية انتظر وصول بعض القطع







رد مع اقتباس
قديم 2015-01-20, 18:52   رقم المشاركة : 19
معلومات العضو
alibenhalima
عضو نشيط
 
إحصائية العضو










M001

السلام عليكم و رحمة الله و بركاته


رااااااااااااااااااااااااااااااااااااااااااااااااا اااااااااائع

جميـــــــــــــــــــــــــــــــــــــــــــــــ ــــــــــل

أحسنــــــــــــــــــــــــــــــــــــــــــــــ ـــــــت




الحقيقة مشروعك جميل جدا لعدة أسباب من منظوري :

جميلة جدا و ذكية فكرة استعمال tige fileté مكان servo moteur

القطع المستعملة les pomeles

و الإلكترونيك

و برمجة بيك بسيط


تميزت أخي و أعجبني الإنجاز بارك الله فيك

و لا أستطيع التعبير عن مدى افتخاري بك

واصل

===============================

هنا أغتنم الفرصة لأدعو الجميع إلى الالتقاء يوما و التعرف عن قرب لتكوين فريق ....

ما رأيكم ؟

نحن في الجزائر و المواصلات ممكنة

و ممكن حتى نتدبر طريقة للقادمين من بعيد

أقصد يمكننا الالتقاء و التعارف أكثر و ربما تكون بداية للعمل المشترك على مشروع طموح أو مجرد التلاقي للتعارف و تبادل الخبرات

أنتظر ردكم
==============================

alumin

أحسنت


ربما في تدخلي الكثير من المشاعر لأنني حقا أعجبت بروح المشروع







رد مع اقتباس
قديم 2015-01-22, 21:02   رقم المشاركة : 20
معلومات العضو
alumin
عضو مشارك
 
إحصائية العضو










افتراضي

السلام عليكم
شكرا لكم اخواني
ارحب جدا بالتعاون على البر
اخي بن حليمة رايت مواضعك وربما لنا نفس الفلسفة في الحياة و اتمنى ان نعزز التعاون
واعتذر على الايجاز في الرد فانا الان في مقهى الانترنيت سأعود ان شاء الله بعد اسبوع







رد مع اقتباس
قديم 2015-01-25, 00:52   رقم المشاركة : 21
معلومات العضو
roshd
عضو جديد
 
إحصائية العضو










افتراضي

والله انك فنان
بس ياريت تنمي الافكار باستمرار







رد مع اقتباس
قديم 2015-01-29, 17:03   رقم المشاركة : 22
معلومات العضو
alumin
عضو مشارك
 
إحصائية العضو










افتراضي

اقتباس:
المشاركة الأصلية كتبت بواسطة onimaro مشاهدة المشاركة
السلام عليكم ورحمة الله وبركاته
اخي العزيز بعد رأيت مشروعك الجملية اعجبني بكل صراحة واريد منك التواصل معي

يمكنني مساعدتك في نطوير كثير من الأشياء + اذا امكن اذكر ولاية التي تقيم فيها انا مختص في برمجة الروبوت والان اعمل على فكرة انشاء روبوت يكون عبارة عن شيء صغير يتم ارتدائه من اجل كشف عن الفيروسات التي تواجهنا يوميا
اخي اتمنى التواصل معي من اجل تنمية هذه المشاريع و ايضا يمكنك مشاركة في معرض العلوم في بريطانيا او فرنسا


شكرا لك وارجو الرد في اقرب وقت
السلام عليكم
انا من ولاية تلمسان
واثار فضولي عن الكيفية التي ستطبقها للكشف عن الفيروسات ؟






رد مع اقتباس
قديم 2015-01-29, 17:09   رقم المشاركة : 23
معلومات العضو
alumin
عضو مشارك
 
إحصائية العضو










افتراضي

اقتباس:
المشاركة الأصلية كتبت بواسطة smail1912 مشاهدة المشاركة
اللسلام عليكم
اخي عمل رائع حقا و للافضل ان شاء الله
انا ايضا من هواة هذه االامور بدات العمل على فكرة روبوت صغير بمهام محدودة كبداية انتظر وصول بعض القطع
السلام عليكم
اتمنى لك التوفيق ان شاء الله






رد مع اقتباس
قديم 2015-01-29, 17:18   رقم المشاركة : 24
معلومات العضو
alumin
عضو مشارك
 
إحصائية العضو










افتراضي

اقتباس:
المشاركة الأصلية كتبت بواسطة seddik 3223 مشاهدة المشاركة
اسلام عليكم
من اين نستطيع ان نحصل علي القطع الاكترونية
السلام عليكم تعددت المصادر من الخردوات الى محلات بيع القطع الالكترونية الى مواقع التسوق الالكترونية عبر وسطاء جزائريين لكن احذر القطع المغشوشة






رد مع اقتباس
قديم 2015-02-10, 10:53   رقم المشاركة : 25
معلومات العضو
alumin
عضو مشارك
 
إحصائية العضو










افتراضي

السلام عليكم
وأخيرا وصلت الى 30مشاركة لاتمكن من عرض الروابط
حيث بالنسبة الى جهاز الاستقبال هو كالتالي
https://imagesia.com/img003_nsak
https://imagesia.com/deco_o39v
اما البرنامج لبرمجة 16f84

كود:
  list   p=16F84A
   #include   <p16F84A.inc>
   __CONFIG   _CP_OFF & _WDT_OFF & _PWRTE_ON & _XT_OSC
PORTB    EQU  0x0006
TRISB     EQU  0x0086 ;
STATUS    EQU 0x0003 ;
PORTA     EQU  0x0005  ;
TRISA     EQU  0x0085 ;
STATUS    EQU    0X0003
AA        EQU   0x000C
BB        EQU  0x000D
CC        EQU   0Eh
DD        EQU     0Fh
ALPHA     EQU     10h
BETA      EQU     11h
WSTOR     EQU   12h
STORSTATUS EQU  13h
DEBO       EQU  14h
OPTION_REG  EQU 0x0081
tmr0      EQU  01h
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#DEFINE   BANK1    BSF STATUS,05
#DEFINE   BANK0    BCF  STATUS,05
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 


ORG   00H
           GOTO  STAR

ORG       04H

          
          MOVWF  WSTOR
          SWAPF  STATUS,W
          MOVWF  STORSTATUS
          
          ;*****************
          INCF   DEBO
          BCF    STATUS,Z 
          MOVLW  12h
          SUBWF  DEBO,w
          BTFSS  STATUS,Z
          GOTO   CHANCE
          ;*****************
          CLRF   PORTA
          CLRF   PORTB
          CLRF   DEBO
          CLRF   TMR0         
CHANCE
          ;*****************
          BCF    INTCON,2
          BCF    INTCON,0
          SWAPF  STORSTATUS,W
          MOVWF  STATUS
          SWAPF  WSTOR,F
          SWAPF  WSTOR,W
          RETFIE
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

STAR        


          BANK1
          MOVLW   b'00001111'
          MOVWF   TRISB
          MOVLW   b'11110000'
          MOVWF   TRISA
          MOVLW   b'10000101'
          MOVWF   OPTION_REG 
          BSF     INTCON,5
          BSF     INTCON,7
          
          
;;;;;;;;;
BANK0
                                                 
          CLRF    PORTA
          CLRF   DEBO
          CLRF   TMR0

          
BECHAR
          
          BTFSS   PORTB,0
          GOTO    BECHAR
          CALL    US500

          BTFSS   PORTB,0
          GOTO    BECHAR
          CALL    T1ms

          BTFSS   PORTB,0
          GOTO    BECHAR
          CALL    T1ms

          BTFSS   PORTB,0
          GOTO    BECHAR
          CALL    T1ms

          BTFSC   PORTB,0
          GOTO    BECHAR
          CALL    T1ms
          
          BTFSS   PORTB,0
          GOTO    BECHAR
          CALL    T1ms
          

          CLRF    ALPHA
          CLRF    BETA
          BTFSC   PORTB,0
          BSF     ALPHA,0
          BTFSS   PORTB,0
          BCF     ALPHA,0
          CALL    T1ms

          BTFSC   PORTB,0
          GOTO    BECHAR
          CALL    T1ms

          BTFSS   PORTB,0
          GOTO    BECHAR
          CALL    T1ms


          BTFSC   PORTB,0
          BSF     ALPHA,1
          BTFSS   PORTB,0
          BCF     ALPHA,1
          CALL    T1ms

          BTFSC   PORTB,0
          GOTO    BECHAR
          CALL    T1ms

          BTFSS   PORTB,0
          GOTO    BECHAR
          CALL    T1ms

          
          BTFSC   PORTB,0
          BSF     ALPHA,2
          BTFSS   PORTB,0
          BCF     ALPHA,2
          CALL    T1ms

          BTFSC   PORTB,0
          GOTO    BECHAR
          CALL    T1ms

          BTFSS   PORTB,0
          GOTO    BECHAR
          CALL    T1ms

          BTFSC   PORTB,0
          BSF     ALPHA,3
          BTFSS   PORTB,0
          BCF     ALPHA,3
LLL
          CALL    T1ms

          BTFSC   PORTB,0
          GOTO    BECHAR
          CALL    T1ms

          BTFSS   PORTB,0
          GOTO    BECHAR
          CALL    T1ms
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
          BTFSC   PORTB,0
          BSF     BETA,0
          BTFSS   PORTB,0
          BCF     BETA,0
          CALL    T1ms

          BTFSC   PORTB,0
          GOTO    BECHAR
          CALL    T1ms

          BTFSS   PORTB,0
          GOTO    BECHAR
          CALL    T1ms


          BTFSC   PORTB,0
          BSF     BETA,1
          BTFSS   PORTB,0
          BCF     BETA,1
          CALL    T1ms

          BTFSC   PORTB,0
          GOTO    BECHAR
          CALL    T1ms

          BTFSS   PORTB,0
          GOTO    BECHAR
          CALL    T1ms

          
          BTFSC   PORTB,0
          BSF     BETA,2
          BTFSS   PORTB,0
          BCF     BETA,2
          CALL    T1ms

          BTFSC   PORTB,0
          GOTO    BECHAR
          CALL    T1ms

          BTFSS   PORTB,0
          GOTO    BECHAR
          CALL    T1ms

          BTFSC   PORTB,0
          BSF     BETA,3
          BTFSS   PORTB,0
          BCF     BETA,3

          MOVF    ALPHA,W
          BCF     STATUS,2
          SUBWF   BETA,W
          BTFSS   STATUS,2
          GOTO    BECHAR
          MOVF    BETA,W
          MOVWF   PORTA

          
          CALL   MS18
          CLRF   DEBO
          CLRF   TMR0
          GOTO   BECHAR
          

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
MS18
          MOVLW  0x13 ;  ajuste
          MOVWF  BB
loop3 
          MOVLW  0xF8; ajuste fine 
          MOVWF  AA  ;
lop1
          NOP
          DECFSZ AA
          GOTO   lop1
          DECFSZ BB
          GOTO   loop3
RETURN 
;;;;;;;;;;;;;;;;;;;;;

T1ms
          MOVLW  0xF6
          MOVWF  AA  
LOOP1
          NOP
          DECFSZ AA
          GOTO   LOOP1
          
RETURN 
;;;;;;;;;;;;;;;;;;;;
US200
          MOVLW  0x30
          MOVWF  AA
LOOP4
          NOP
          DECFSZ AA
          GOTO   LOOP4 
RETURN
;;;;;;;;;;;;;;;;;;;

US100
          MOVLW  0x17
          MOVWF  AA
LOP4
          NOP
          DECFSZ AA
          GOTO   LOP4 
          NOP
          NOP
RETURN
;;;;;;;;;;;;;;;;
US50
          MOVLW  0x9
          MOVWF  AA
LOPA
          NOP
          DECFSZ AA
          GOTO   LOPA 
          NOP
          NOP

RETURN

;;;;;;;;;;;;;;;;
US5
            NOP
            NOP
            NOP
            NOP
            NOP
RETURN
;;;;;;;;;;;;;;;;


US500
          CALL    US200
          CALL    US200      
          CALL    US100
RETURN

END






رد مع اقتباس
قديم 2015-02-10, 11:00   رقم المشاركة : 26
معلومات العضو
alumin
عضو مشارك
 
إحصائية العضو










افتراضي

مع اني لم اجرب البرنامجين التاليين ساضعهما في المنتدى
لكي اجدهما اذا ما تعطل جهازي
لاني غالبا مااكتب برامج طويلة ومعقدة نوعا ما ثم اضيعها عندما احتاج اليها
حيث البرنامج الاول لجهاز الارسال
يتحكم في الاتجاه والدفع والسرعة مع مؤشر للسرعة

كود:
  list p=16F84A
#include 
__CONFIG _CP_OFF & _WDT_OFF & _PWRTE_ON & _XT_OSC
PORTB     EQU  0x0006
TRISB     EQU  0x0086 ;
STATUS    EQU 0x0003 ;
PORTA     EQU  0x0005  ;
TRISA     EQU  0x0085 ;
OPTION_REG  EQU 0x0081 ;
AA        EQU   0x000C
BB        EQU  0x000D
CC        EQU   0Eh
SPEED     EQU   0Fh
WSTOR     EQU   10h
STORSTATUS EQU  11h

#DEFINE   BANK1    BSF STATUS,05
#DEFINE   BANK0    BCF  STATUS,05



org       00H
          GOTO   STAR

ORG       04H

         
         MOVWF  WSTOR
         SWAPF  STATUS,W
         MOVWF  STORSTATUS
         BCF    INTCON,0
         ;*****************
         BCF    STATUS,Z 
         MOVLW  10h
         SUBWF  SPEED,w
         BTFSC  STATUS,Z
         GOTO   ZIT
         BTFSC  PORTB,4
         INCF   SPEED
         ;*****************
ZIT
         BCF    STATUS,Z 
         MOVLW  0h
         SUBWF  SPEED,w
         BTFSC  STATUS,Z
         GOTO   ZOT
         BTFSC  PORTB,5
         DECF   SPEED 
         
ZOT
         ;*****************
         
         SWAPF  STORSTATUS,W
         MOVWF  STATUS
         SWAPF  WSTOR,F
         SWAPF  WSTOR,W
         RETFIE
STAR
         BANK1
         BCF     OPTION_REG,7 
         MOVLW   b'11111111'
         MOVWF   TRISB
         MOVLW   b'11111110'
         MOVWF   TRISA
         BSF     INTCON,3
         BSF     INTCON,7
         BANK0
         CLRF    SPEED
boucle    
         BSF     PORTA,0 ;
         CALL    T1ms;
;;;;;;;;;;
         BCF     PORTA,0    
         CALL    T1ms ;
         CALL    T1ms ;
;;;;;;;;;;
         BSF     PORTA,0 ;
         CALL    T1ms
;;;;;;;;;;
         BCF     PORTA,0    
         CALL    T1ms ;         
;;;;;;;;;; 
         BSF     PORTA,0 ;
         CALL    T1ms;
         CALL    T1ms
         CALL    T1ms
;;;;;;;;;;
         BCF     PORTA,0    
         CALL    T1ms ;    
;;;;;;;;;;
         BSF     PORTA,0 ;
         CALL    T1ms;
;;;;;;;;;;
         BTFSS   PORTB,0 ;
         BSF     PORTA,0;
         BTFSC   PORTB,0
         BCF     PORTA,0 
         CALL    T1ms
         BCF     PORTA,0
         CALL    T1ms
         ;;;;;;;;;;;;;;;;
         BSF     PORTA,0 ;
         CALL    T1ms;
         BTFSS   PORTB,1
         BSF     PORTA,0
         BTFSC   PORTB,1
         BCF     PORTA,0
         CALL    T1ms
         BCF     PORTA,0
         CALL    T1ms
         ;;;;;;;;;;;;;;;;
         BSF     PORTA,0 ;
         CALL    T1ms;
         BTFSS   PORTB,2
         BSF     PORTA,0
         BTFSC   PORTB,2
         BCF     PORTA,0
         CALL    T1ms 
         BCF     PORTA,0
         CALL    T1ms
         ;;;;;;;;;;;;;;;;
         BSF     PORTA,0 ;
         CALL    T1ms;
         BTFSS   PORTB,3
         BSF     PORTA,0
         BTFSC   PORTB,3
         BCF     PORTA,0
         CALL    T1ms
         BCF     PORTA,0
         CALL    T1ms
         ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
         ;;;;;;;;;;;;;;;;
         BSF     PORTA,0 ;
         CALL    T1ms;
         BTFSS   PORTB,0 ;
         BSF     PORTA,0;
         BTFSC   PORTB,0
         BCF     PORTA,0
         CALL    T1ms
         BCF     PORTA,0
         CALL    T1ms
         ;;;;;;;;;;;;;;;;
         BSF     PORTA,0 ;
         CALL    T1ms;
         BTFSS   PORTB,1
         BSF     PORTA,0
         BTFSC   PORTB,1
         BCF     PORTA,0
         CALL    T1ms
         BCF     PORTA,0
         CALL    T1ms
         ;;;;;;;;;;;;;;;;
         BSF     PORTA,0 ;
         CALL    T1ms;
         BTFSS   PORTB,2
         BSF     PORTA,0
         BTFSC   PORTB,2
         BCF     PORTA,0
         CALL    T1ms 
         BCF     PORTA,0
         CALL    T1ms
         ;;;;;;;;;;;;;;;;
         BSF     PORTA,0 ;
         CALL    T1ms;
         BTFSS   PORTB,3
         BSF     PORTA,0
         BTFSC   PORTB,3
         BCF     PORTA,0
         CALL    T1ms
         BCF     PORTA,0
         CALL    T1ms
         ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
         ;;;;;;;;;;;;;;;;
          ;;;;;;;;;;;;;;;;
         BSF     PORTA,0 ;
         CALL    T1ms;
         BTFSC   SPEED,0 ;
         BSF     PORTA,0;
         BTFSS   SPEED,0
         BCF     PORTA,0 
         CALL    T1ms
         BCF     PORTA,0
         CALL    T1ms
         ;;;;;;;;;;;;;;;;
         BSF     PORTA,0 ;
         CALL    T1ms;
         BTFSC   SPEED,1
         BSF     PORTA,0
         BTFSS  SPEED,1
         BCF     PORTA,0
         CALL    T1ms
         BCF     PORTA,0
         CALL    T1ms
         ;;;;;;;;;;;;;;;;
         BSF     PORTA,0 ;
         CALL    T1ms;
         BTFSC   SPEED,2
         BSF     PORTA,0
         BTFSS   SPEED,2
         BCF     PORTA,0
         CALL    T1ms 
         BCF     PORTA,0
         CALL    T1ms
         ;;;;;;;;;;;;;;;;
         BSF     PORTA,0 ;
         CALL    T1ms;
         BTFSC   SPEED,3
         BSF     PORTA,0
         BTFSS   SPEED,3
         BCF     PORTA,0
         CALL    T1ms
         BCF     PORTA,0
         CALL    T1ms
        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
         ;;;;;;;;;;;;;;;;
         BSF     PORTA,0 ;
         CALL    T1ms;
         BTFSC   SPEED,0 ;
         BSF     PORTA,0;
         BTFSS   SPEED,0
         BCF     PORTA,0
         CALL    T1ms
         BCF     PORTA,0
         CALL    T1ms
         ;;;;;;;;;;;;;;;;
         BSF     PORTA,0 ;
         CALL    T1ms;
         BTFSC   SPEED,1
         BSF     PORTA,0
         BTFSS   SPEED,1
         BCF     PORTA,0
         CALL    T1ms
         BCF     PORTA,0
         CALL    T1ms
         ;;;;;;;;;;;;;;;;
         BSF     PORTA,0 ;
         CALL    T1ms;
         BTFSC  SPEED,2
         BSF     PORTA,0
         BTFSS  SPEED,2
         BCF     PORTA,0
         CALL    T1ms 
         BCF     PORTA,0
         CALL    T1ms
         ;;;;;;;;;;;;;;;;
         BSF     PORTA,0 ;
         CALL    T1ms;
         BTFSC   SPEED,3
         BSF     PORTA,0
         BTFSS   SPEED,3
         BCF     PORTA,0
         CALL    T1ms
         BCF     PORTA,0
         CALL    T1ms
         ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
         ;;;;;;;;;;;;;;;;

         BCF  PORTA,0
         CALL T20MS

         ;*********************
         BCF STATUS,Z 
         MOVLW 0
         SUBWF SPEED,W
         BTFSC STATUS,Z 
         CALL  LED1 
         ;;;;;;;;;;;;;;; 
         MOVLW 1
         SUBWF SPEED,w
         BTFSC STATUS,Z 
         CALL  LED1
         ;;;;;;;;;;;;;;;
         MOVLW 2
         SUBWF SPEED,w
         BTFSC STATUS,Z 
         CALL  LED2 
         ;;;;;;;;;;;;;;;
         MOVLW 3
         SUBWF SPEED,w
         BTFSC STATUS,Z 
         CALL  LED2
         ;;;;;;;;;;;;;;;
         MOVLW 4
         SUBWF SPEED,w
         BTFSC STATUS,Z 
         CALL  LED3  
         ;;;;;;;;;;;;;;;
         MOVLW 5
         SUBWF SPEED,w
         BTFSC STATUS,Z 
         CALL  LED3  
         ;;;;;;;;;;;;;;;
         MOVLW 6
         SUBWF SPEED,w
         BTFSC STATUS,Z 
         CALL  LED4 
         ;;;;;;;;;;;;;;; 
         MOVLW 7
         SUBWF SPEED,w
         BTFSC STATUS,Z 
         CALL  LED4
         ;;;;;;;;;;;;;;;
         MOVLW 8
         SUBWF SPEED,w
         BTFSC STATUS,Z 
         CALL  LED5
         ;;;;;;;;;;;;;;;
         MOVLW 9
         SUBWF SPEED,w
         BTFSC STATUS,Z 
         CALL  LED5
         ;;;;;;;;;;;;;;;
         MOVLW 0Ah
         SUBWF SPEED,w
         BTFSC STATUS,Z 
         CALL  LED6
         ;;;;;;;;;;;;;;;
         MOVLW 0Bh
         SUBWF SPEED,w
         BTFSC STATUS,Z 
         CALL  LED6
         ;;;;;;;;;;;;;;;
         MOVLW 0Ch
         SUBWF SPEED,w
         BTFSC STATUS,Z 
         CALL  LED7
         ;;;;;;;;;;;;;;;
         MOVLW 0Dh
         SUBWF SPEED,w
         BTFSC STATUS,Z 
         CALL  LED7
         ;;;;;;;;;;;;;;;
         MOVLW 0Eh
         SUBWF SPEED,w
         BTFSC STATUS,Z 
         CALL  LED4
         ;;;;;;;;;;;;;;;
         MOVLW 0Fh
         SUBWF SPEED,w
         BTFSC STATUS,Z 
         CALL  LED4
         ;;;;;;;;;;;;;;;
         GOTO  boucle
         ;************************
         NOMBRE0
         MOVLW   b'00000010'
         MOVWF PORTA
         RETURN
LED1
         MOVLW   b'00000100'
         MOVWF PORTA
         RETURN
LED2
         MOVLW   b'00001000'
         MOVWF PORTA
         RETURN 
LED3
         MOVLW   b'10011110'
         MOVWF PORTB
         RETURN
LED4
         MOVLW   b'00010000'
         MOVWF PORTB
         RETURN
LED5
         MOVLW   b'00100000'
         MOVWF PORTB
         RETURN
LED6
         MOVLW   b'01000000'
         MOVWF PORTB
         RETURN
LED7
         MOVLW   b'10000000'
         MOVWF PORTB
         RETURN

         


T1ms
         MOVLW  0xf9
         MOVWF  AA
LOOP1
         NOP 
         DECFSZ AA
         GOTO   LOOP1


RETURN 
T20MS
         MOVLW  0x14
         MOVWF  BB
LOOP3
         CALL T1ms
         DECFSZ  BB
         GOTO  LOOP3
RETURN



end
البرنامج الثانى لجهاز الاستقبال
كود:
    list   p=16F84A
   #include   <p16F84A.inc>
   __CONFIG   _CP_OFF & _WDT_OFF & _PWRTE_ON & _XT_OSC
PORTB    EQU  0x0006
TRISB    EQU  0x0086 ;
STATUS    EQU 0x0003 ;
PORTA    EQU  0x0005  ;
TRISA    EQU  0x0085 ;
STATUS    EQU    0X0003
AA        EQU  0x000C
BB        EQU  0x000D
CC        EQU  0Eh
DD        EQU    0Fh
ALPHA    EQU    10h
BETA      EQU    11h
WSTOR    EQU  12h
STORSTATUS EQU  13h
DEBO      EQU  14h
OPTION_REG  EQU 0x0081
tmr0      EQU  01h
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#DEFINE  BANK1    BSF STATUS,05
#DEFINE  BANK0    BCF  STATUS,05
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 


ORG  00H
          GOTO  STAR

ORG      04H

          
          MOVWF  WSTOR
          SWAPF  STATUS,W
          MOVWF  STORSTATUS
          
          ;*****************
          INCF  DEBO
          BCF    STATUS,Z 
          MOVLW  12h
          SUBWF  DEBO,w
          BTFSS  STATUS,Z
          GOTO  CHANCE
          ;*****************
          CLRF  PORTA
          CLRF  PORTB
          CLRF  DEBO
          CLRF  TMR0        
CHANCE
          ;*****************
          BCF    INTCON,2
          BCF    INTCON,0
          SWAPF  STORSTATUS,W
          MOVWF  STATUS
          SWAPF  WSTOR,F
          SWAPF  WSTOR,W
          RETFIE
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

STAR        


          BANK1
          MOVLW  b'00001111'
          MOVWF  TRISB
          MOVLW  b'11110000'
          MOVWF  TRISA
          MOVLW  b'10000101'
          MOVWF  OPTION_REG 
          BSF    INTCON,5
          BSF    INTCON,7
          
          
;;;;;;;;;
  BANK0
                                                  
          CLRF    PORTB
          CLRF    PORTA
          CLRF  DEBO
          CLRF  TMR0
LOOPB
          CLRF    DD
          
BECHAR
          
          BTFSC  PORTB,0
          INCF    DD
        
          BTFSS  PORTB,0
          GOTO    LOOPB 
          CALL    US200
          MOVLW  0X05
          BCF    STATUS,2
          SUBWF  DD,W
          BTFSS  STATUS,2
          GOTO    BECHAR
          
          CALL    US100
          CALL    US50
;;;;;;;;;
          
          CLRF    DD
LOOP2
          
          BTFSS  PORTB,0
          INCF    DD
          BTFSC  PORTB,0
          GOTO    LOOPB
          
          MOVLW  0X09
          BCF    STATUS,02
          SUBWF  DD,W
          CALL    US200
          BTFSS  STATUS,02
          GOTO    LOOP2
          CALL    US100
          CALL    US50
;;;;;;;;;;;
          CLRF    DD
LOOPG
          BTFSC  PORTB,0
          INCF    DD
          BTFSS  PORTB,0
          GOTO    LOOPB
          CALL    US200
          MOVLW  0X04
          BCF    STATUS,2
          SUBWF  DD,W
          BTFSS  STATUS,2
          GOTO    LOOPG
;;;;;;;;;;;        
          CALL    US200
          CALL    US200 
          CALL    US100
          BTFSC  PORTB,0
          GOTO    BECHAR
    
;;;;;;;;;;;        
          CALL T1ms
          BTFSS  PORTB,0
          GOTO    LOOPB
;;;;;;;;;;;
          CALL T1ms
          BTFSS  PORTB,0
          GOTO    LOOPB
;;;;;;;;;;;
          CALL T1ms
          BTFSS  PORTB,0
          GOTO    LOOPB
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;
          CALL    TEST
;;;;;;;;;;
          CALL    T1ms
          CALL    US50
          CLRF    ALPHA
          BTFSC  PORTB,0
          BSF    ALPHA,0
          BTFSS  PORTB,0
          BCF    ALPHA,0
;;;;;;;;;;
          CALL    TEST
;;;;;;;;;;
          CALL    T1ms
          BTFSC  PORTB,0
          BSF    ALPHA,1
          BTFSS  PORTB,0
          BCF    ALPHA,1 
;;;;;;;;;;
          CALL    TEST 
;;;;;;;;;;
          CALL    T1ms
          CALL    US50
          BTFSC  PORTB,0
          BSF    ALPHA,2
          BTFSS  PORTB,0
          BCF    ALPHA,2 
;;;;;;;;;;
          CALL    TEST 
;;;;;;;;;;
          CALL    T1ms
          BTFSC  PORTB,0
          BSF    ALPHA,3
          BTFSS  PORTB,0
          BCF    ALPHA,3
;;;;;;;;;;
          CALL    TEST 
;;;;;;;;;;
          CALL    T1ms
          CALL    US50
          CLRF    BETA
          BTFSC  PORTB,0
          BSF    BETA,0
          BTFSS  PORTB,0
          BCF    BETA,0
;;;;;;;;;;
          CALL    TEST 
;;;;;;;;;;
          CALL    T1ms
          BTFSC  PORTB,0
          BSF    BETA,1
          BTFSS  PORTB,0
          BCF    BETA,1
;;;;;;;;;;
          CALL    TEST 
;;;;;;;;;;
          CALL    T1ms
          CALL    US50
          BTFSC  PORTB,0
          BSF    BETA,2
          BTFSS  PORTB,0
          BCF    BETA,2
;;;;;;;;;;
          CALL    TEST 
;;;;;;;;;;
          CALL    T1ms
          BTFSC  PORTB,0
          BSF    BETA,3
          BTFSS  PORTB,0
          BCF    BETA,3
;;;;;;;;;;
          MOVF    ALPHA,W
          BCF    STATUS,2
          SUBWF  BETA,W
          BTFSS  STATUS,2
          GOTO    LOOPB
          MOVF    BETA,W
          MOVWF  PORTA
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
          CALL    TEST
;;;;;;;;;;
          CALL    T1ms
          CLRF    ALPHA
          BTFSC  PORTB,0
          BSF    ALPHA,0
          BTFSS  PORTB,0
          BCF    ALPHA,0
;;;;;;;;;;
          CALL    TEST
;;;;;;;;;;
          CALL    T1ms
          CALL    US50
          BTFSC  PORTB,0
          BSF    ALPHA,1
          BTFSS  PORTB,0
          BCF    ALPHA,1 
;;;;;;;;;;
          CALL    TEST 
;;;;;;;;;;
          CALL    T1ms
          BTFSC  PORTB,0
          BSF    ALPHA,2
          BTFSS  PORTB,0
          BCF    ALPHA,2 
;;;;;;;;;;
          CALL    TEST 
;;;;;;;;;;
          CALL    T1ms
          CALL    US50
          BTFSC  PORTB,0
          BSF    ALPHA,3
          BTFSS  PORTB,0
          BCF    ALPHA,3
;;;;;;;;;;
          CALL    TEST 
;;;;;;;;;;
          CALL    T1ms
          CLRF    BETA
          BTFSC  PORTB,0
          BSF    BETA,0
          BTFSS  PORTB,0
          BCF    BETA,0
;;;;;;;;;;
          CALL    TEST 
;;;;;;;;;;
          CALL    T1ms
          BTFSC  PORTB,0
          BSF    BETA,1
          BTFSS  PORTB,0
          BCF    BETA,1
;;;;;;;;;;
          CALL    TEST 
;;;;;;;;;;
          CALL    T1ms
          BTFSC  PORTB,0
          BSF    BETA,2
          BTFSS  PORTB,0
          BCF    BETA,2
;;;;;;;;;;
          CALL    TEST 
;;;;;;;;;;
          CALL    T1ms
          BTFSC  PORTB,0
          BSF    BETA,3
          BTFSS  PORTB,0
          BCF    BETA,3
;;;;;;;;;;
vv
          BANK1
          MOVLW  b'00001111'
          MOVWF  TRISB
          BANK0
          MOVF    ALPHA,W
          BCF    STATUS,2
          SUBWF  BETA,W
          BTFSS  STATUS,2
          GOTO    LOOPB
          RLF    BETA,F
          RLF    BETA,F
          RLF    BETA,F
          RLF    BETA,w          
          MOVWF  PORTB  
        
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
          CALL  MS18
          CLRF  DEBO
          CLRF  TMR0
          GOTO  LOOPB
          


 

      
        
  

          


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
MS18
          MOVLW  0x13 ;  ajuste
          MOVWF  BB
loop3 
          MOVLW  0xF8; ajuste fine 
          MOVWF  AA  ;
lop1
          NOP
          DECFSZ AA
          GOTO  lop1
          DECFSZ BB
          GOTO  loop3
RETURN 
;;;;;;;;;;;;;;;;;;;;;

T1ms
          MOVLW  0xF6
          MOVWF  AA  
LOOP1
          NOP
          DECFSZ AA
          GOTO  LOOP1
          
RETURN 
;;;;;;;;;;;;;;;;;;;;
US200
          MOVLW  0x30
          MOVWF  AA
LOOP4
          NOP
          DECFSZ AA
          GOTO  LOOP4 
RETURN
;;;;;;;;;;;;;;;;;;;

US100
          MOVLW  0x17
          MOVWF  AA
LOP4
          NOP
          DECFSZ AA
          GOTO  LOP4 
          NOP
          NOP
RETURN
;;;;;;;;;;;;;;;;
US50
          MOVLW  0x9
          MOVWF  AA
LOPA
          NOP
          DECFSZ AA
          GOTO  LOPA 
          NOP
          NOP

RETURN

;;;;;;;;;;;;;;;;
US5
            NOP
            NOP
            NOP
            NOP
            NOP
RETURN
;;;;;;;;;;;;;;;;
TEST
            CALL T1ms
            BTFSC  PORTB,0
            GOTO    LOOPB
;;;;;;;;;;
            CALL T1ms
            BTFSS  PORTB,0
            GOTO    LOOPB
RETURN
;;;;;;;;;;;;;;;;

END






رد مع اقتباس
قديم 2015-03-20, 15:11   رقم المشاركة : 27
معلومات العضو
tah306
عضو مميّز
 
إحصائية العضو










افتراضي

بارك الله فيك معلومات كنت ابحث عنها وجدهتا هنا الله يحفضكم







رد مع اقتباس
قديم 2015-05-21, 16:11   رقم المشاركة : 28
معلومات العضو
red-line
عضو مشارك
 
إحصائية العضو










افتراضي

ما شاء الله والله مبدع لكن يا ليت تفيد الاعضاء حتى يتعلمو منك حتى دورة مصغرة او اساسيات راح تفيد الاعضاء وتكون قدوة في المجال ان شاء الله لما لا






رد مع اقتباس
قديم 2015-06-23, 19:54   رقم المشاركة : 29
معلومات العضو
bourivage13
عضو مجتهـد
 
إحصائية العضو










B18

بورك فيك
مشكور على الجهد المبدول روووووووعة







رد مع اقتباس
قديم 2015-06-23, 19:56   رقم المشاركة : 30
معلومات العضو
bourivage13
عضو مجتهـد
 
إحصائية العضو










افتراضي

رمضلن كريم و صح فطوركم







رد مع اقتباس
إضافة رد

الكلمات الدلالية (Tags)
لتحكم, سيارة, فيها

أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

الساعة الآن 17:00

المشاركات المنشورة تعبر عن وجهة نظر صاحبها فقط، ولا تُعبّر بأي شكل من الأشكال عن وجهة نظر إدارة المنتدى
المنتدى غير مسؤول عن أي إتفاق تجاري بين الأعضاء... فعلى الجميع تحمّل المسؤولية


2006-2019 © www.djelfa.info جميع الحقوق محفوظة - الجلفة إنفو (خ. ب. س)

Powered by vBulletin .Copyright © 2018 vBulletin Solutions, Inc