Kod: Zaznacz cały
'//////////////////////////////////////////////////////////////////////////////////
'------------------------------ Kontroler MIDI ------------------------------------
'//////////////////////////////////////////////////////////////////////////////////
program Kontroler_MIDI
dim a as word
dim b as byte
main:
ADCON1 = $80
TRISA = $FF
Usart_Init(31250)
'/////////// Główna Pętla ////////////////////////////////////////////////
While true
a = ADC_Read(0)
b = a / 4
Usart_Write($B0)
Usart_Write($01)
Usart_Write(Lo(b))
delay_ms(1000)
wend
end.
'/////////// Koniec ////////////////////////////////////////////////Z góry dziękuje