Ha Te programoztad fel a PIC-et, akkor át is tudod programozni. Ha tényleg csak annyi kell, hogy a 6 kapcsolóra 6 programot ki lehessen választani a MIDIVERB-en, akkor minimális módosítással működni fog.
Kb.:
procedure MIDI_Out(ch,notenum:byte); // Program Change küldése
begin
TXREG:=$C0+ch;
delay_us(320);
TXREG:=notenum;
delay_us(320);
end;
Így Program Change üzeneteket küld, amiket a MIDIVERB értelmez.
A főciklusba meg tetszés szerint:
if (buttons[0]=0) and (buttons_temp[0]=1) then MIDI_Out(0,1);
if (buttons[1]=0) and (buttons_temp[1]=1) then MIDI_Out(0,2);
if (buttons[2]=0) and (buttons_temp[2]=1) then MIDI_Out(0,3);
if (buttons[3]=0) and (buttons_temp[3]=1) then MIDI_Out(0,4);
if (buttons[4]=0) and (buttons_temp[4]=1) then MIDI_Out(0,5);
if (buttons[5]=0) and (buttons_temp[5]=1) then MIDI_Out(0,6);
Ebben az esetben 1-6- közötti a küldött Program Change üzenet.