www.bertinettobartolomeodavide.it

PROGRAMMA 8 - FOTO RESISTORI

Misurare la luce con un semplice circuito e poche linee di Basic è facile con la nostra basicstamp 2.

'{$STAMP BS2}

---> Indico la basic stamp utilizzata

'FOTO RESISTORI'
---> Titolo del listato

'Variabili'
fotoSX var word
fotoDX var word
---> Dichiaro le variabili necessarie

'Costanti che indicano il numero delle 2 porte di ingresso'
portaDX con 9
portaSX con 10
---> Assegno i canali da utilizzare sulla basicstamp

'Pincipale'
inizio: 'iniza la routine'
---> Routine principale

'Misuara foto resistore destro'
high portaDX : 'attiva la porta destra (PB09)'
pause 3 : 'mette in pausa per 3 millesimi di secondo la rilevazione per scaricare il condensatore'
rctime portaDX,1,fotoDX : 'comando che rileva per quanto tempo(2 millesimi di secondo per rilevazione) la porta logica è sul valore '1' prima di tornare a '0'
---> Legge la luce presente grazie al comando 'rctime' sulla porta attiva indicata per un certo tempo.

'Misuara foto resistore sinistro'
high portaSX : 'attiva la porta destra (PB09)'
pause 3 : 'mette in pausa per 3 millesimi di secondo la rilevazione per scaricare il condensatore'
rctime portaSX,1,fotoSX : 'comando che rileva per quanto tempo(2 millesimi di secondo per rilevazione) la porta logica è sul valore '1' prima di tornare a '0'

---> Legge la luce presente grazie al comando 'rctime' sulla porta attiva indicata per un certo tempo.


'Visualizza il rusultato nella nestra di dialogo su PC'

debug home,DEC5 ? fotoSX*100, DEC5 ? fotoDX*100 :'Il valore messo su schermo è un decimale di 5 cifre(DEC5)- correzione differenza tra SX e DX software'

pause 1000 :'Scandisce il tempo di rilevazione e aggiornamento su schermo dei valori di luce(1 secondo)'

---> mostra il risultato su schermo una volta al secondo

goto inizio :'ripete la routine'

---> Ripete il ciclo all'infinito
 

Download listato

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