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

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

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

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

سأضع اليوم جزءا من مخطط جهاز الارسال و البرنامج المرافق له
مع الملاحظة انه لا يحق لأحد أن يستعمل المخططات و البرامج الموجودة في هذا الموضوع لأهداف تجارية او أهداف تحقق الربح الا بعد موافقتي الصريحة
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

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

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

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

بالمناسبة هنالك صور اوضح
https://www.youtube.com/watch?v=iiLG3lop8SE&list=UUygiMfzBpM9nSSquFuu1tUw
https://www.youtube.com/watch?v=_nNbr0yEooM&list=UUygiMfzBpM9nSSquFuu1tUw&index=3
www.youtube.com/watch?v=w_HuwpuzRTg&list=UUygiMfzBpM9nSSquFuu1tUw

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

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

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

و الجزء الاخير المثمثل في جزء فك الترميز
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

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

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

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

والبرنامج الثانى لجهاز الاستقبال

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

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

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

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

[

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

تحياتي

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

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

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

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

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واط بالوسائل المتواضعة جدا التي املكها والمهمة ليست بسهلة وستتطلب عدة اشهر خاصة اذا استعملت عناصر الكترونية عادية
- المرحلة الثانية سيتم
* اضافة اجهزة تتيح التحكم في المركب حتى ان لم نكن نراه اي اضافة بوصلة الكترونية وجهاز تحديد المواقع بالاقمار الاصطناعية و جهاز قياس السرعة
*اضافة عناصر تتيح التحكم في اتجاه الكاميرا
*اضافة عناصر اليكترونية اخرى

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

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

Salam alaikoum,

Oui avec plaisir, in chaa alah