@mister
si, si, interessante, penso proprio che mi costruirò due rondelloni con il tornio!
Grazie, ciao
si, si, interessante, penso proprio che mi costruirò due rondelloni con il tornio!
Grazie, ciao
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
mi puoi spiegare come hai fatto?Maxicono ha scritto:Portato lettore ottico a 320 impulsi al pollice, contro i 200 dell' originale.
Una precisione da paura!!!![]()
![]()
io spero di rimontare tutto verso agosto...ANDREMALES ha scritto:so che farò una richiesta ardita, ma..... un video ripreso col telefonino e postato su Youtube, in modo da vedere gli "apparati" in movimento ??![]()
Mistersat ha scritto:mi puoi spiegare come hai fatto?
sarebbe cosa molto gradita...Maxicono ha scritto:...Provo a fare una foto con il cell, se viene la posto qua.
Ciao
;****Posizionatore per elevazione****
;PIC16C84
;Quarzo da 4MHz
;Posiz3b, 20 giugno 2007
;
;XT oscillatore
;WDT disabilitato
;POWER disabilitato
;CP off
;
CARRY EQU 00
TMRO EQU 01
STATUS EQU 03
PORTA EQU 05
PORTB EQU 06
INTCON EQU 0B
TRISA EQU 85H
TRISB EQU 86H
CNT1 EQU 0C
RP0 EQU 5
TIME_1 EQU 0D
TIME_2 EQU 0E
TIME_3 EQU 0F
;
;
;
INIZ CLRF PORTA
CLRF PORTB
BSF STATUS,RP0
MOVLW B'11100111'
MOVWF TRISA ;porte A0,A1,A2 ingressi, A3,A4 uscite
MOVLW B'11111111'
MOVWF TRISB ;Tutta la porta B come ingressi
BCF STATUS,RP0
MOVLW D'255'
MOVWF TIME_1
MOVLW D'255'
MOVWF TIME_2
MOVLW D'4'
MOVWF TIME_2
GOTO TASTI
;
;
;****ricarica CNT1 secondo SW0 e SW1****
;
SETT_0 BTFSS PORTA,1 ;SW0=6,SW1=11,SW0+SW1=26
GOTO SETT_2
SETT_1 BTFSS PORTA,0
GOTO SETT_3
GOTO SETT_5
;
SETT_2 BTFSS PORTA,0 ;se attivo SW0
GOTO SETT_4
MOVLW D'6'
MOVWF CNT1
RETURN
;
SETT_3 ;se attivo SW1
MOVLW D'11'
MOVWF CNT1
RETURN
;
SETT_5 ;se non attivi SW0 e SW1
MOVLW D'3'
MOVWF CNT1
RETURN
;
SETT_4 ;se attivi entrambi SW0 e SW1
MOVLW D'26'
MOVWF CNT1
RETURN
;
;
;****Controllo pulsanti****
;
TASTI BTFSS PORTB,0 ;Controlla se premuto tasto PA0
GOTO DEBO_0 ;Vai alla sub UP
BTFSS PORTB,1 ;Controlla se premuto tasto PA1
GOTO DEBO_1
NOP
NOP ;Vai alla sub DOWN
GOTO TASTI
;
DEBO_0 BTFSC PORTB,0 ;debouncing tasto P0
GOTO UP
GOTO DEBO_0
;
DEBO_1 BTFSC PORTB,1 ;debouncing tasto P1
GOTO DOWN
GOTO DEBO_1
;
;
;**** Movimento motore ****
;
UP BSF PORTA,3
CALL SETT_0
GOTO OPTOL
;
DOWN BSF PORTA,4
CALL SETT_0
GOTO OPTOL
;
;
;****Controllo encoder****
;
OPTOL BTFSS PORTA,2 ;verifica se ingresso opto è alto
GOTO COUNT1
GOTO OPTOL
;
COUNT1 DECFSZ CNT1,1 ;conta impulsi sensore opto
GOTO OPTOH
BCF PORTA,3
BCF PORTA,4
CALL DELAY
GOTO TASTI
;
OPTOH BTFSC PORTA,2 ;verifica se ingresso opto è basso
GOTO OPTOL
GOTO OPTOH
;
;
;****Delay****
;
DELAY DECFSZ TIME_3,1 ;delay per evitare che lo scintillio dei relè causi
GOTO DELAY ;falsi impulsi ottici
MOVLW D'4'
MOVWF TIME_3
DECFSZ TIME_1,1
GOTO DELAY
MOVLW D'255'
MOVWF TIME_1
DECFSZ TIME_2,1
GOTO DELAY
MOVLW D'255'
MOVWF TIME_1
MOVLW D'255'
MOVWF TIME_2
MOVLW D'4'
MOVWF TIME_3
RETURN
;
END