CONTA METRI PER PESCA ALLA TRAINARealizzato da Roberto M. alias RINGO

Data 01-02-2010

Questo circuito conta metri l'ho realizzato per sapere esattamente la profondità dell'esca per la pesca alla traina dalla barca, auguro a tutti una buna lettura.

Premetto che non sono un professionista elettronico e che quello che progetto e costruisco, sono ricavati dalla mia conoscenza leggendo le famose riviste di N.E. e dalla curiosità che ho per tale campo.Sono pienamente consapevole che i progetti che eseguo possono sembrare scorretti o banali ma posso garantirvi che vengono testati e provati in prima persona e mai pubblicherei un progetto non funzionante.

Concetto di funzionamento:Lo strumento conta da 1 a 25 e viceversa, ogni 9 giri di una ruota, conoscendo io la velocità della mia barca e la dimensione della mia ruota ad ogni 9 giri la mia lenza scende di 1 metro, tale regola che vale solo per la mia imbarcazione la si può meglio comprendere nel disegno sottostante.

Roberto M. alias (RINGO) CONTA METRI PESCA ALLA TRAINA Pag.1-8

Descrizione dello schema elettrico

Lo schema elettrico è suddiviso in 3 sezioni ben distinte che sono; alimentazione, logica , driver display.

Alimentazione:L'alimentazione viene prelevata da una batteria al piombo di 12V-3A l'integrato IC1 stabilizza e trasforma la tensione per mezzo della resistenza trimmer R2.Fissate IC1 su una piccola aletta di raffreddamento.

Logica:Si utilizza per la logica IC4, esso è un PIC16F84, (processore programmabile di qualche anno fa ma secondo il mio modesto parere ancora valido).L'integrato IC4 va in frequenza a 4MHz con il quarzo Z1 è i due condensatori ceramiciC3-C4; importante collegare MCRL al positivo con la resistenza R3.Si utilizzano RA0 e RA1 come segnali di ingresso, mentre tutte le otto porte RB si utilizzano come uscite per pilotare i driver display; non vengono utilizzati RA2-RA3-RA4 Come contatto di input ho utilizzato due reed identificati come T1 e T2 ; sulla ruota (mulinello) è stato montato un magnete che aziona i reed T1 e T2 (concetto encoder)

Driver e display:IC2 e IC3 sono dei driver per display, V1 e V2 sono dei display a led con 7 segmenti catodo comune.I dati elaborati da IC4 escono sotto forma di codice binario a quattro bit sulle uscite RB0-RB1-RB2-RB3 rispettivamente per A-B-C-D di IC2, mentre sempre IC4 manda su RB4-RB5 solo due bit rispettivamente per A-B di IC3; C e D di IC3 vanno a massa (non si usano in questo progetto).Restano RB6 ed RB7 che sono utilizzati per accendere i DP dei display (machiage).Può sembrare strano il diverso collegamento di IC2 con IC4 e IC3 con IC4 ma siccome devo contare solo fino a 25 metri una volta che gestisco su IC3 i bit per visualizzare 0,1,2 e più che sufficiente allo scopo.Quindi deduciamo che IC2 gestirà la cifra delle unità e IC3 quella delle decine nel caso specifico 0,1,2.

Taratura alimentazione:Il circuito montato connesso e alimentato si deve tarare con il Trimmer R2 senza però aver inserito IC4 in quanto stiamo tarando l'alimentazione a 5V .Quindi con un tester mettiamo il puntale del negativo sul piedino 5 dello zoccolo di IC4 e il puntale positivo sul piedino 14. dovremmo tarare ruotando R2 al valore di 5V +/-0,3V quindi potremo metterci a 4.7 o a 5.3 sempre meglio avvicinarci al 5 preciso.Fatto ciò possiamo montare il nostro IC4 che dovrà essere programmato.

Roberto M. alias (RINGO) CONTA METRI PESCA ALLA TRAINA Pag.2-8

Caratteristiche tecniche progetto:

Display a 2 cifre fino a 25 metri Alimentazione 12v

Assorbimento 70 mA

Foto della realizzazione:

Roberto M. alias (RINGO) CONTA METRI PESCA ALLA TRAINA Pag.3-8

Roberto M. alias (RINGO) CONTA METRI PESCA ALLA TRAINA Pag.4-8

Roberto M. alias (RINGO) CONTA METRI PESCA ALLA TRAINA Pag.5-8

Parte superiore display

PCB principale monofaccia.Nota le resistenze indicate R00Sono dei semplici ponticelli

'**************************************************************************'* File: TRAINA.pbp eseguito da Roberto.M alias (RINGO) * '* Programma scritto con PicBasic per PIC16F84 *'* Il programma esegue un conteggio avanti e indietro per ruota da pesca *'* alla traina contando da 0 a 25 e viceversa ogni 9 giri di ruota *'* Prima versione il 15-12-2009 *'* Ultimo aggiornamento il 11-02-2010 * '* L'utore RINGO autorizza l'utilizzo del presente documento *'* con il solo vincolo di citare la fonte, l'autore non si assume nessuna *'* responsabilità per danni creati a terzi. * '**************************************************************************DEFINE OSC 4 ' Definisce la frequenza a 4 MHzTRISB = 0 ' Imposto la porta RB come uscitaTRISA = 255 ' Imposto la porta RA come ingresso per i reedL0 VAR PORTB.0 ' Assegna la costante L0 ala porta RB0L1 VAR PORTB.1 ' Assegna la costante L1 ala porta RB1L2 VAR PORTB.2 ' Assegna la costante L2 ala porta RB2L3 VAR PORTB.3 ' Assegna la costante L3 ala porta RB3L4 VAR PORTB.4 ' Assegna la costante L4 ala porta RB4L5 VAR PORTB.5 ' Assegna la costante L5 ala porta RB5 L6 VAR PORTB.6 ' Assegna la costante L6 ala porta RB6L7 VAR PORTB.7 ' Assegna la costante L7 ala porta RB7B VAR BYTE ' Assegna alla variabile B - BYTE PB1 VAR PORTA.0 ' Assegna la costante PB1 ala porta RA0PB2 VAR PORTA.1 ' Assegna la costante PB2 ala porta RA1' Bit per memorizzare il valore attuale e precedente dei reedAttPB1 VAR BIT ' valore attuale di PB1AttPB2 VAR BIT ' valore attuale di PB2OldPB1 VAR BIT ' vecchio valore di PB1OldPB2 VAR BIT ' vecchio valore di PB2' Settaggio display attendere 5 secondiFOR B = 1 TO 5GOSUB venticinquePAUSE 500GOSUB disp_zeroPAUSE 500NEXT B' Fine setup

B = 0

' Prima lettura per evitare conteggi indesiderati alla accensioneAttPB1 = PB1 : OldPB1 = AttPB1 AttPB2 = PB2 : OldPB2 = AttPB2

Start: ' Inizi algoritmo OldPB1 = AttPB1 : OldPB2 = AttPB2 ' Memorizzo i vecchi ingressi nello storicoAttPB1 = PB1 : AttPB2 = PB2 ' Rileggo gli ingressi

' Il conteggio in avanti va fatto solo se i vecchi valori sono a zero e PB1 ' è diventato alto mentre PB2 è ancora bassoIF (OldPB1==0)AND(OldPB2==0)AND(AttPB1==1)AND(AttPB2==0) THEN B = (B+1) ' Incrementa B GOSUB Assegna PAUSE 1000ENDIF' Il conteggio in indietro va fatto solo se i vecchi valori sono a zero e PB1' è ancora basso mentre PB2 è diventato altoIF (OldPB1==0)AND(OldPB2==0)AND(AttPB1==0)AND(AttPB2==1) THEN B = (B-1) ' Decrementa B GOSUB Assegna PAUSE 1000ENDIFGOTO Start ' Fine algoritmo trona a Start'******************************************************************************'Le istruzioni che seguono controllano la variabile B e rimandano il programma'alla subroutine di visualizzazione'******************************************************************************Assegna: IF B = 0 THEN zero IF B = 255 THEN zero IF B = 9 THEN uno IF B = 18 THEN due IF B = 27 THEN tre IF B = 36 THEN quattro IF B = 45 THEN cinque IF B = 54 THEN sei IF B = 63 THEN sette IF B = 72 THEN otto

Roberto M. alias (RINGO) CONTA METRI PESCA ALLA TRAINA Pag.6-8

IF B = 81 THEN nove IF B = 90 THEN dieci IF B = 99 THEN undici IF B = 108 THEN dodici IF B = 117 THEN tredici IF B = 126 THEN quattordici IF B = 135 THEN quindici IF B = 144 THEN sedici IF B = 153 THEN diciassette IF B = 162 THEN diciotto IF B = 171 THEN diciannove IF B = 180 THEN venti IF B = 189 THEN ventuno IF B = 198 THEN ventidue IF B = 207 THEN ventitre IF B = 216 THEN ventiquattro IF B = 225 THEN venticinque IF B = 234 THEN zero RETURN' Fine controllo '***************************************************************************** ' Le istruzioni che seguono inviano l'output per il pilotaggio dei driver ' display a 7 segmenti.' Per problemi di dimensioni di WORDS del PIC16f84 sono state messe sotto ' commento le istruzioni inutili. '*****************************************************************************zero:B=0disp_zeroLOW L0 :LOW L1: LOW L2: LOW L3: LOW L4:LOW L5:LOW L6 :LOW L7 '0RETURNuno:HIGH L0:LOW L1 ': low L2: low L3: low L4:low L5:low L6 :low L7 '1RETURNdue:LOW L0: HIGH L1 ':low L2: low L3: low L4:low L5:low L6 :low L7 '2RETURNtre:HIGH L0: HIGH L1:LOW L2 ': low L3: low L4:low L5:low L6 :low L7 '3RETURNquattro:LOW L0: LOW L1:HIGH L2 ': low L3: low L4:low L5:low L6 :low L7 '4RETURNcinque:HIGH L0: LOW L1:HIGH L2 ':low L3: low L4:low L5:low L6 :low L7 '5RETURNsei:LOW L0: HIGH L1:HIGH L2 ':low L3: low L4:low L5:low L6 :low L7 '6RETURNsette:HIGH L0: HIGH L1:HIGH L2:LOW L3 ': low L4:low L5:low L6 :low L7 '7RETURNotto:LOW L0: LOW L1:LOW L2: HIGH L3 ': low L4:low L5:low L6 :low L7 '8RETURNnove:HIGH L0: LOW L1:LOW L2:HIGH L3: LOW L4:LOW L5 ':low L6 :low L7 '9RETURNdieci:LOW L0 :LOW L1: LOW L2: LOW L3: HIGH L4:LOW L5 ':low L6 :low L7 '10RETURNundici:HIGH L0:LOW L1: LOW L2: LOW L3 ': high L4:low L5:low L6 :low L7 '11RETURNdodici:LOW L0 : HIGH L1:LOW L2: LOW L3 ': high L4:low L5:low L6 :low L7 '12RETURNtredici:HIGH L0: HIGH L1:LOW L2: LOW L3 ': high L4:low L5:low L6 :low L7 '13RETURNquattordici:LOW L0: LOW L1:HIGH L2: LOW L3 ': high L4:low L5:low L6 :low L7 '14RETURNquindici:HIGH L0: LOW L1:HIGH L2:LOW L3 ': high L4:low L5:low L6 :low L7 '15RETURNsedici:LOW L0: HIGH L1:HIGH L2:LOW L3 ': high L4:low L5:low L6 :low L7 '16RETURNdiciassette:HIGH L0: HIGH L1:HIGH L2:LOW L3 ': high L4:low L5:low L6 :low L7 '17RETURN

Roberto M. alias (RINGO) CONTA METRI PESCA ALLA TRAINA Pag.7-8

diciotto:LOW L0: LOW L1:LOW L2: HIGH L3 ': high L4:low L5':low L6 :low L7 '18RETURNdiciannove:HIGH L0: LOW L1:LOW L2:HIGH L3: HIGH L4:LOW L5 ':low L6 :low L7 '19RETURNventi:LOW L0:LOW L1: LOW L2: LOW L3: LOW L4:HIGH L5 ':low L6 :low L7 '20RETURNventuno:HIGH L0:LOW L1: LOW L2: LOW L3 ': low L4:high L5:low L6 :low L7 '21RETURNventidue:LOW L0 : HIGH L1:LOW L2: LOW L3 ':low L4:high L5:low L6 :low L7 '22RETURNventitre:HIGH L0: HIGH L1:LOW L2: LOW L3 ':low L4:high L5:low L6 :low L7 '23RETURNventiquattro:LOW L0: LOW L1:HIGH L2: LOW L3 ': low L4:high L5:low L6 :low L7 '24RETURNventicinque:HIGH L0: LOW L1:HIGH L2:LOW L3: LOW L4:HIGH L5 ':low L6 :low L7 '25RETURN ' Fine subroutine

END ' Fine programma

Roberto M. alias (RINGO) CONTA METRI PESCA ALLA TRAINA Pag.8-8