pilotare servocomando (automazione monitor)

[carlo201983]

ciao ho appena chiesto il file sorgente.,, comunque cerco di spiegare il funzionamento..
allora...
il monitor appena arriva alimentazione dal sottochiave si apre fino a fermarsi nell'ultima posizione di apertura...
per poi richiudersi alla spegnimento dell'auto.. in + a monitor aperto i due pulsanti servono x far fare il tilti al monitor (movimento avanti dietro) il trimmer non + utilizzato serviva x far variare la velocità di apertura del monitor.. credo di aver detto tutto.. ;)

[carlo201983]

ecco il file sorgente..
http://www.mediafire.com/?4fo17cf3kgpp3jj

attendo notizie...
grazie x l'aiuto

[davidde]

Sto cercando di capire come funziona il programma ma non ne vengo a capo. Il fatto che sia scritto in basic non mi aiuta perché non lo conosco. Comunque sul programma vengono chiamati due finecorsa che dallo schema non risultano. Il primo è il finecorsa di chiusura mentre il secondo è quello di apertura. Come funziona? Quello di chiusura è hardware mentre quello di apertura è software?

[Paolino]

davidde, metti il codice come allegato zip oppure come testo, per piacere. Non riesco ad aprire il link che è stato indicato...

Ciao.

Paolo.

[davidde]

Ciao Paolino,

questa sera lo metto... il file originale si apre con MikroBasic che ho installato nel computer a casa...

[davidde]

Eccolo qua:

Codice: Seleziona tutto

'****************************************************************
'*  Name    : CARPUTER2.BAS                                      *
'*  Author  : SIM176                                            *
'*  Notice  : Copyright (c) 2012 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 14/01/2012                                        *
'*  Version : 2.0                                               *
'*  Notes   : Apertura/chiusura automatica e manuale di un      *
'*          : in un'auto                                        *
'****************************************************************

@ DEVICE XT_OSC  ' sets programmer to external oscillator - low power, HS would be for faster xtals.

DEFINE OSC 8 ' for 8 MHz osc
TRISA=%11111100
TRISB=%11001111

'----- INGRESSI -----
PA var porta.2   'pulsante apri
PC var porta.3  'pulsante chiudi
PFC var PORTB.2 'pulsante finecorsa chiusura
CHIAVE var porta.4  'ingresso sotto chiave
TRIMMER_SPEED var portb.3   'velocità 

'----- USCITE ----
RSERVO var porta.0  '+5v alimenta servo
SERVO var portb.4  'uscita segnale per servocomando
MONITOR var porta.1 ' +12 per alimentazione monitor
BUZZER var portb.5  'buzzer per segnalazioni

'------- SETTAGGI INIZIALI ---------
IMPULSO var WORD  'impulso per sevocomando
FCA var WORD    'finecorsa apertura
FCC var WORD    'finecorsa chiusura
FC var WORD     'posizione prima apertura
SPEED var BYTE  'velocità esecuzione
FA var BYTE 'forza apertura
FCH var BYTE    'forza chiusura
low rservo
low monitor
low buzzer
low servo
fca=460
fcc=140
fc = 360
fa = 0
FCH = 0
IMPULSO = fcc
PAUSE 1000
'------ INIZIO PROGRAMMA ---------
INIZIO:
    if FCH = 1 then goto chiuso
    gosub RILEVA_SPEED
    if chiave = 1 then
    goto APERTURA
    ELSE
    GOTO CHIUSURA
    ENDIF
    GOTO inizio

'---------APERTURA-----------   
APERTURA:
    HIGH monitor
    HIGH RSERVO
    REPEAT
    IMPULSO = IMPULSO + 1
    GOSUB SERVOCOMANDO
    IF fc > fca THEN fc = fca
    UNTIL impulso > fc

APERTO: 
    HIGH RSERVO
    IF pa = 1 AND PC = 1 AND chiave = 1 THEN
    FCH = 1
    GOTO chiusura
    ENDIF
    IF pa = 1 AND PC = 1 AND chiave = 0 THEN fa = 0
    IF pa = 1 THEN GOSUB RILASCIA1
    IF impulso > fca THEN impulso = fca
    IF PC = 1 THEN GOSUB RILASCIA2
    IF impulso < fcc THEN impulso = fcc
    FC = impulso
    GOSUB servocomando
    IF chiave = 1 THEN FA = 0
    IF fa = 1 THEN GOTO aperto
    IF chiave = 0 THEN GOTO inizio
    GOTO APERTO

'----------RILASCIA-----------
   
RILASCIA1:
    IF PC = 1 THEN GOTO aperto
    GOSUB SERVOCOMANDO
    IF pa = 1 THEN GOTO RILASCIA1
    IMPULSO = IMPULSO + 3
    RETURN

RILASCIA2:
    IF PA = 1 THEN GOTO aperto
    GOSUB SERVOCOMANDO   
    IF PC = 1 THEN GOTO RILASCIA2
    IMPULSO = IMPULSO - 3
    RETURN       
   
'---------CHIUSURA------------   
CHIUSURA:
    HIGH RSERVO
    LOW monitor
    REPEAT
    IMPULSO = IMPULSO - 1
    GOSUB SERVOCOMANDO
    IF IMPULSO < FCC THEN GOTO CHIUSO
    UNTIL pfc = 1   
   
CHIUSO:
    IF pa = 1 AND PC = 1 THEN
    fa = 1
    fch = 0
    GOTO apertura
    ENDIF
    GOSUB rileva_speed
    LOW RSERVO
    GOSUB servocomando
    IF chiave = 1 THEN GOTO inizio   
    GOTO chiuso
   
'----------RILEVA POTENZIOMETRI---------
   
RILEVA_SPEED:
    POT trimmer_speed,255,speed
    speed=speed/10
    RETURN   
           
'------MUOVI SERVOCOMANDO--------
SERVOCOMANDO:
    PULSOUT SERVO,impulso
    PAUSE 10
    PAUSE SPEED
    RETURN
 
end 

[carlo201983]

Sto cercando di capire come funziona il programma ma non ne vengo a capo. Il fatto che sia scritto in basic non mi aiuta perché non lo conosco. Comunque sul programma vengono chiamati due finecorsa che dallo schema non risultano. Il primo è il finecorsa di chiusura mentre il secondo è quello di apertura. Come funziona? Quello di chiusura è hardware mentre quello di apertura è software?

ciao davide allora è come dici tu un finecorsa di chiusura è hardware mentre quello in apertura è software.. :)