AEROMODELISME ALGERIE

AEROMODELISME ALGERIE

Avion Helico Voiture RC
 
AccueilCalendrierFAQRechercherMembresGroupesS'enregistrerConnexion

Partagez | 
 

 سيارة وزنها 20كغ

Aller en bas 
AuteurMessage
UC16F84



Messages : 37
Date d'inscription : 15/03/2013
Age : 40
Localisation : Tlemcen

MessageSujet: سيارة وزنها 20كغ   Lun 18 Aoû - 18:49

https://www.youtube.com/watch?v=sXHa0iVAn3o
https://www.youtube.com/watch?v=4rSldL4J_Yg
https://www.youtube.com/watch?v=d40yX1pY3tY

السلام عليكم
اولا اعتذر عن رداءة الصورة لان صورت بواسطة واب كام WEBCAM

وزن هذه  السيارة حوالي  20كغ   وطولها   80سم  وعرضها 60سم  صممتها و.صنعتها بواسطة محركين مروحة تبريد لسيارة احدهما لتحريك السيارة والاخر لتوجيه السيارة
بالاضافة الى بعض  العناصر التي  هي متوفرة بكثرة عند   جميع محلات بيع  العقاقير والخردوات و قطع  غيار  الدراجات الهوائية والنارية مثل
- براغي وصوامل  boulons et écrous
- براغي بدون نهاية vis sans fin
-coud
-lمحاور دوران ابواب
-انابيب مطاطية للغاز لربط بين المحرك و عناصر نقل الحركة
- سلاسل الدراجة النارية peugeot 103 اشتريتها من مصلح الدراجات ب 50دج!
- اربعة مسننات pignon لدراجات اشتريتها ب 30دج للواحدة
.......الخ


بالنسبة الى الجانب الالكتروني ف
-جهاز التحكم عن بعد تردده  هو 49.07MHZ  مثبث  بواسطة كوارتز  QUARTZ  مكون من متحكم صغير 16F84  كتبت برنامجه بواسطة لغة التجميع ASSEUMBLEUR  بالاظافة الى ترونزيستوات و كوارتز
- جهاز  الاستقبال مكون اساسا  من دارة مندمجة MC3362  و 16F84
Revenir en haut Aller en bas
UC16F84



Messages : 37
Date d'inscription : 15/03/2013
Age : 40
Localisation : Tlemcen

MessageSujet: Re: سيارة وزنها 20كغ   Mar 19 Aoû - 13:45

سأضع  اليوم  جزءا من مخطط جهاز الارسال و البرنامج المرافق له
مع الملاحظة انه لا يحق لأحد أن يستعمل المخططات و البرامج الموجودة في هذا الموضوع لأهداف تجارية او أهداف تحقق الربح الا بعد موافقتي الصريحة
http://imagesia.com/emet1_nax0

Code:
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 ;
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

          
        
STAR
          BANK1
          BCF     OPTION_REG,7
          MOVLW   b'11111111'
          MOVWF   TRISB
          MOVLW   b'11111110'
          MOVWF   TRISA
          BANK0
BOUCLE  
;;;;;;;;;;
          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;
          CALL    T1ms;
          CALL    T1ms;
          GOTO    BOUCLE
;******************************************************************************************

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
Revenir en haut Aller en bas
UC16F84



Messages : 37
Date d'inscription : 15/03/2013
Age : 40
Localisation : Tlemcen

MessageSujet: Re: سيارة وزنها 20كغ   Mer 27 Aoû - 20:43

كأن الكل في عطلة
لكن لا عليه ساواصل
بالنسبة الى جزء الارسال
http://imagesia.com/emet2_noao
Revenir en haut Aller en bas
UC16F84



Messages : 37
Date d'inscription : 15/03/2013
Age : 40
Localisation : Tlemcen

MessageSujet: Re: سيارة وزنها 20كغ   Mer 27 Aoû - 20:52

Revenir en haut Aller en bas
UC16F84



Messages : 37
Date d'inscription : 15/03/2013
Age : 40
Localisation : Tlemcen

MessageSujet: Re: سيارة وزنها 20كغ   Sam 30 Aoû - 15:44

بالنسبة الى دارة الاستقبال نفدتها كالتالى
http://imagesia.com/img003_nsak
استعملت المراجع التالية مع بعض التعديلات
http://imagesia.com/img003_nsak
http://unlis.ru/articles.php?article_id=12
Revenir en haut Aller en bas
UC16F84



Messages : 37
Date d'inscription : 15/03/2013
Age : 40
Localisation : Tlemcen

MessageSujet: Re: سيارة وزنها 20كغ   Sam 6 Sep - 19:01

و الجزء الاخير المثمثل  في  جزء فك الترميز  
http://imagesia.com/deco_o39v
Code:
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
Revenir en haut Aller en bas
UC16F84



Messages : 37
Date d'inscription : 15/03/2013
Age : 40
Localisation : Tlemcen

MessageSujet: Re: سيارة وزنها 20كغ   Lun 22 Sep - 17:03

مع اني لم اجرب البرنامجين التاليين ساضعهما في المنتدى
 لكي اجدهما اذا ما تعطل جهازي
لاني غالبا مااكتب برامج طويلة ومعقدة نوعا ما ثم اضيعها Sad عندما احتاج اليها
حيث البرنامج الاول لجهاز الارسال
يتحكم في الاتجاه والدفع والسرعة مع مؤشر للسرعة
[codelist 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][/code]


Dernière édition par UC16F84 le Lun 22 Sep - 17:11, édité 2 fois
Revenir en haut Aller en bas
UC16F84



Messages : 37
Date d'inscription : 15/03/2013
Age : 40
Localisation : Tlemcen

MessageSujet: Re: سيارة وزنها 20كغ   Lun 22 Sep - 17:05

والبرنامج الثانى لجهاز الاستقبال
Code:
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
Revenir en haut Aller en bas
fethi

avatar

Messages : 852
Date d'inscription : 07/07/2010
Age : 42
Localisation : oran

MessageSujet: Re: سيارة وزنها 20كغ   Mar 23 Sep - 20:26

Salam alaikoum, j'ai des question à te poser,

1) quel est le but de se travail
2) pourquoi ne pas utiliser des moteurs pas à pas ou des servo's moteurs ,,,

bonne continuation

fi lamène
Revenir en haut Aller en bas
http://aeromodelisme-oran.blogspot.com/
UC16F84



Messages : 37
Date d'inscription : 15/03/2013
Age : 40
Localisation : Tlemcen

MessageSujet: Re: سيارة وزنها 20كغ   Mer 24 Sep - 7:37

[
السلام عليكم اخي فتحي
ربما الهدف الرئيسى من هذا العمل هو تربوي اردت من خلاله  محاولة  التأتير بطريقة ايجابية في افكار التلاميد وتوجهاتهم المستقبلية اين لاحظت ان  معظم التسرب المدرسي في المدرسة المتوسطة يأتي من الاولاد  وليس البنات  بسبب    عدم  اهتمامهم بدراسة يطغى عليها الطابع الأدبي والنظري  و » التزويقي     » !!فهم يعتبرون ان تكسير وتخريب الطاولات  افضل بكثير من البرنامج الوزاري الذي مجموع معاملات المواد  الادبية فيه 17 و 8 هو مجموع  المعاملات المواد العلمية التي  هي  بدورها يطغى عليها الجانب النظري  و الحفظي    
في ما يخص  لماذا  لم  استعمل المحركات خطوة خطوة  واجهزة توجيه جاهزة  فالسبب  الاول  هو   ارتفاع  ثمنها  خاصة اذا   كانت    موجهة الى توجيه  سيارة  تزن 20 كغ  فاظن ان استعمال محرك مروحة سيارة  اشتريته ب 300دج  من السوق الاسبوعي و برغي وصامول افضل  من استعمال محرك  توجيه ثمنه اكثر  6000 دج  
ربما  ايضا تطرح  السؤال لماذا اتعبت نفسي بصناعة جهاز ارسال واستقبال كنت استطيع ان  اشتريه فالسبب بسيط وهو ان معظم اجهزة التحكم عن بعد تعمل في نطاق 2.4 جيغاهرتز ومداها محدود  واذا اردت زيادة مداها فسيكون ذلك صعب جدا
اما اذا صنعت بنفسي جهاز تحكم يعمل عند 50ميغاهارتز  او عن27ميغاهرتز فسيكون ذلك اسهل  خاصة اني اريد ان اصنع فيما بعد مركب مزود بكميرا يقوم المركب بانزالها الى قاع البحر حيث اكون بعيدا عن القارب ببضع كيلومترات  
بالمناسبة هل بدأت في صناعة الغواصة؟ فقد رأيت في احدى تدخلاتك انك  تريد فعل ذلك مما اثار اهتمامى

تحياتي
Revenir en haut Aller en bas
fethi

avatar

Messages : 852
Date d'inscription : 07/07/2010
Age : 42
Localisation : oran

MessageSujet: Re: سيارة وزنها 20كغ   Jeu 25 Sep - 14:55

Salam alaikoum, merci pour votre réponse, ce qui concerne les élèves là !! le système qui fait fin aux lycées techniques pour moi et système stérile, bref pas de politique  Very Happy

concernant votre projet, si vous avez besoin d'aide, svp n'hésite pas à le demander, ou présenter un cahier de charge pour un projet collectif,

Nos RC 2,4Ghz ou autre ont une portée assez suffisante pour notre activité, de 500m à 1500m c'est largement suffisant, pour les sous-marin je pense lu que les fréquence hertziennes ne sont pas vraiment utile vue le milieu de propagation des ondes, si vous avez remarqué tout les drone marin ROV sans guidés par câble.

bonne continuation
Revenir en haut Aller en bas
http://aeromodelisme-oran.blogspot.com/
UC16F84



Messages : 37
Date d'inscription : 15/03/2013
Age : 40
Localisation : Tlemcen

MessageSujet: Re: سيارة وزنها 20كغ   Jeu 25 Sep - 17:50

fethi a écrit:
Salam alaikoum, merci pour votre réponse, ce qui concerne les élèves là !! le système qui fait fin aux lycées techniques pour moi et système stérile, bref pas de politique  Very Happy

concernant votre projet, si vous avez besoin d'aide, svp n'hésite pas à le demander, ou présenter un cahier de charge pour un projet collectif,

Nos RC 2,4Ghz ou autre ont une portée assez suffisante pour notre activité, de 500m à 1500m c'est largement suffisant, pour les sous-marin je pense lu que les fréquence hertziennes ne sont pas vraiment utile vue le milieu de propagation des ondes, si vous avez remarqué tout les drone marin ROV sans guidés par câble.

bonne continuation
Oui en haut  fréquence la  propagation des ondes en eau est très mauvais   donc  pas  possible  d’utilisé  ni 2.4ghz  ni 27MHZ    et  en  plus  ce  n’est  pas possible   d’utilisé un système GPS  (1 575,42 MHz-1 227,60 MHz)  pour  localisé  une  ROV  
 pour un peu détourné  ce   problème  a  mon   avis  il  faut   fabriqué  un  bateaux  RC   qui  fais  descendre  une  ROV    ou  les  communication   entre le  bateau et  le  ROV sera fais avec un  câble  coaxial    et  les   communication bilatérale entre  le  bateau   et  le  manipulateur sera  fais par  des  onde   hartizien    (27MHZ pour  le   signale  de commande et la  communication des cordonné gps et de  la  direction  d’avancement  du bateau et 60MHZ   pour  transmettre  la  video)  

ان شاء  الله سيمر  المشروع  بمرحلتين
-المرحلة الاولى سيكون بسيطا حيث  يتم  انجاز مركب متحكم به  يقوم بانزال كاميرا الى قاع  البحر  حيث  هذه الكاميرا لا اقوم بالتحكم في اتجاهها  
وقد  شرعت  في  هذه  المرحلة حيث    انا  احضر  لصناعة جهاز  ارسال 27ميغاهارتز  اسطاعته 5واط  بالوسائل المتواضعة جدا التي  املكها  والمهمة ليست بسهلة وستتطلب عدة اشهر  خاصة  اذا  استعملت عناصر الكترونية عادية    
- المرحلة الثانية سيتم
* اضافة اجهزة تتيح التحكم  في  المركب  حتى ان لم  نكن  نراه  اي اضافة بوصلة الكترونية وجهاز تحديد  المواقع  بالاقمار الاصطناعية و جهاز قياس  السرعة
*اضافة عناصر تتيح  التحكم  في اتجاه   الكاميرا
*اضافة عناصر اليكترونية اخرى

مساعدتك مرحب  بها  خاصة  في  الجانب  الميكانيكي و تصميم  وصناعة هيكل المركب  ليكون انسيابي لتوفير اقصى قدر ممكن من الطاقة



Revenir en haut Aller en bas
fethi

avatar

Messages : 852
Date d'inscription : 07/07/2010
Age : 42
Localisation : oran

MessageSujet: Re: سيارة وزنها 20كغ   Jeu 25 Sep - 19:00

Salam alaikoum,

Oui avec plaisir, in chaa alah
Revenir en haut Aller en bas
http://aeromodelisme-oran.blogspot.com/
Contenu sponsorisé




MessageSujet: Re: سيارة وزنها 20كغ   

Revenir en haut Aller en bas
 
سيارة وزنها 20كغ
Revenir en haut 
Page 1 sur 1

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
AEROMODELISME ALGERIE :: Aeromodelisme :: Voiture RC-
Sauter vers: