Visualizzazione di picco con mikroBASIC
Il programma del listato 4 consente di leggere due ingressi analogici e visualizzare i valori di picco sulle porte PORTB e PORTD. L’effetto è simile a quello di un VU-meter a barra di LED.
program PeakMeter
sub procedure DoSample(dim byref OutPort as byte, dim Channel as byte)
dim Sample as Integer
dim OutPut as byte
Sample = ADC_read(Channel) ‘lettura dell’ingresso analogico
OutPut = 1
Sample = Sample - 128
while Sample > 0
OutPut = (OutPut << 1) or 1
Sample = Sample - 128
wend
OutPort = OutPut ‘accensione dei LED in uscita
end sub
main:
ADCON1 = $82 ' Vref= VDD
INTCON = 0 ' disabilitazione interrupt
TRISB = 0
TRISD = 0
while TRUE
DoSample(PORTB, 2) ' canale 1
DoSample(PORTD, 3) ' canale 2
wend
end.
| Listato 4 |
Sarebbe interessante capire, per questa funzione, la differenza computazionale rispetto al C.
Ciao Emanuele,
ti scrivo per richiederti info su di un tuo vecchio articolo (controllare la temperatura tramite internet), dovrei effettuare dei controlli remoti e sono interessato alla scheda FTPMicro ma non sono riuscito a trovarla, puoi aiutarmi con qualche diritta?
grazie
salvatore
Salve Salvatore,
tutti gli articoli relativi ad FTPmicro li trovi alla relativa tag: http://it.emcelettronica.com/tag/ftpmicro
Riguardo alla scheda invece, non ne abbiamo più prodotte, ma essendo open source la puoi realizzare da solo 😉
P.S. In futuro inserisci i commenti SOLO negli articoli relativi, altrimenti rischi che vengano cancellati.
ok grazie