EOS

Come leggere due ingressi e visualizzare i valori di picco in mikroBASIC

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

4 Commenti

  1. Maurizio Di Paolo Emilio Maurizio 2 gennaio 2016
  2. Salvatore Santonicola 17 gennaio 2016

Scrivi un commento

EOS