Discussion :

[Alkangelis]

Bonjour,

j'ai encore une question a propos de la programmation de la carte son.
J'ai le code suivant trouvé dans un programme open source:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
 WriteR($20,instAmVibEgKsrMultiplier1);
 WriteR($40,instKslOutputlevel1);
 WriteR($60,instAttackDecay1);
 WriteR($80,instSustainRelease1);
 WriteR($E0,instWaveform1);
 WriteR($23,instAmVibEgKsrMultiplier2);
 WriteR($43,instKslOutputlevel2);
 WriteR($63,instAttackDecay2);
 WriteR($83,instSustainRelease2);
 WriteR($E3,instWaveform2);
 WriteR($C0,instFeedbackConnectionTy);

Dans ce code WriteR(registre, byte) ecrit dans le registre de la carte un byte associé a l'instrument.

j'ai pour le piano les 11 bytes suivants:
$21,$21,$8f,$0c,$f2,$f2,$45,$76,$00,$00,$08

J'ai essayé dans plusieurs ordres mais ca ne ressemble jamais a un piano.
Est-ce que quelqu'un aurait les bytes du piano ou bien me donner le bon ordre.

[M.Dlb]

Aucun renseignement dans le SWAG ou sur Google ?

[Alkangelis]

Il y a des renseignements, mais je n'arrive pas a les exploiter:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
type
 Instrument=record
  Sound   :word;
  iLevel  :word;
  ATDC    :word;
  STRL    :word;
  Wave    :word;
  Feedback:Byte;
 end;
 
Melodic: array[0..10] of byte=($21,$21,$8f,$0c,$f2,$f2,$45,$76,$00,$00,$08); { Acoustic Grand Piano }
 
procedure SetInstrument;
 var
  Instr:^Instrument;
 begin
  Instr:=@Melodic;
 
  With Instr^ do begin
    WriteR($20,Lo(Sound));
    WriteR($60,Lo(ATDC));
    WriteR($80,Lo(STRL));
    WriteR($E0,Lo(Wave));
    WriteR($23,Hi(Sound));
    WriteR($63,Hi(ATDC));
    WriteR($83,Hi(STRL));
    WriteR($E3,Hi(Wave));
    WriteR($C0,FeedBack);
  end;
 end;

Ca donne une sorte de sifflement au lieu d'un son de piano.