www.bertinettobartolomeodavide.it

PROGRAMMA 5 - gestione sensori infrarossi

Costruire un rilevatore di ostacoli a raggi infrarossi non è mai stato così facile grazie alla BasicStamp ed al suo PIC. Con un emettitore a diodo di tipo fotoelettrico (LED IR) creeremo un fascio di luce infrarossa, onda che il nostro occhio non riesce a percepire. Questo raggio andrà a colpire un qualsiasi oggetto presente ad una distanza massima di 30 cm. A questo punto un sensore, ricevitore IR, sarà in grado di cogliere la riflessione generata dall'ostacolo. Questo ricevitore non è altro che un transistor che come un interruttore quando coglie la presenza di infrarossi chiudere il circuito lasciando passare la corrente.

'{$STAMP BS2}

---> Indico al compilatore quale basicstamp sto utilizzando

'PROGRAMMA 5 - gestione sensori infrarossi'

---> titolo del programma

'Variabili sui bit (1 o 0)'

IR var bit

---> Dichiaro la variabile orientata ai bit 'IR'

'programma principale'

output 1: 'setta la porta PB1 come uscita. Quella dell' emettitore led IR'

---> Assegno un flusso di corrente in uscita sul canale P1 per attivare il led infrarosso


'Inizio routine'
loop:
---> Do il via alla subroutine 'loop:'

'IR'
freqout 1,1,38500 'setta l'emissione IR in PB1 con durata di 1 millisecondo e una frequeza rilevabile dal ricevitore di 38500 Hz'

---> Il diodo infrarosso emette onde ad infrarossi partendo dal canale 1(P1), con una durata di 1 millisecondo ad un frequenza di 38500 Hz

IR = in0 'setta l'ingresso del ricevitore IR sul canale PB0'
---> Il canale 0 è quello su cui è montato il ricevitore infrarossi

debug cls, "ricevitore IR= ", BIN IR, CR
---> Virualizza il risultato della variabile 'IR' su schermo, cancellando ad ogni ciclo
 

pause 50: 'Mette in pausa il ciclo per 50 millisecondi a passaggio'

---> Assegna un intervallo di 50 millisecondi

 

goto loop 'Ritorna a loop: per un numero infinito di volte'

---> Ripete la subroutine 'loop' un numero infinito di volte

Ora, grazie a questo listato sappiamo come gestire un circuito per l'utilizzo di apparecchiatura ad infrarossi, sia in entrata che in uscita per captare oggetti nelle vicinanze

Download listato

Testo - Motori - Tasto - Variabili - Infrarossi - Valori - Contatto - FotoResistore - ServoMotori - TelecomandoIR - Cicalino - TermoResistore - MicrofonoLm358