Virtual Dj vezérlő

Sanci

Midi így is mehet esetleg...

Sebesség 31250 Baud
Hexa 99 = Dec 153 (Midi 10-es csatorna)

Print Chr(153) ; Chr(voice) ; Chr(volume)

Voice -> Kiválasztott hang Dec. értéke
Volume -> 0 - 127 -ig.

Hajlítás:
8193-től 8293-ig
' középérték 8243
print chr(233) ; chr(hajlitas) ; chr(hajlitas); 'Itt mindkét hajlitas értéknek azonosnak kell lennie!
print chr(153) ; chr(36) ; chr(127) ; 'Ha jól emlékszem ez a pergődob Pich volt. GM Midi kiosztása szerint.

pl.
for hajlitas = 8243 to 8293 step 1 '"Step" lessz a halítás felbontása
print chr(153) ; chr(36) ; chr(127) ;
print chr(233) ; chr(hajlitas) ; chr(hajlitas);
waitms 10 'Sebessége
next hajlitas

Közben megnéztem a Yamaha drivert. Jódolog.
Én anno egy elektromos dob agy progit szerettem volna írni VB6-ban.
20 Wav file-t szerettem volna használni egyszerre.
Memóriába be majd onnan "multiplay-ban" (remélem nem írok hülyeséget.

) lejátszani.
Wavmix.dll is csak 8 db -ot tudott és csapnivaló minőségben.
Így feladtam.

Van egy rakat Samle file ha esetleg szükséged lenne rá. (Wav dob hangok)

Bence

Sanci írta:Midi így is mehet esetleg...

Sebesség 31250 Baud
Hexa 99 = Dec 153 (Midi 10-es csatorna)

Print Chr(153) ; Chr(voice) ; Chr(volume)

Voice -> Kiválasztott hang Dec. értéke
Volume -> 0 - 127 -ig.

Hajlítás:
8193-től 8293-ig
' középérték 8243
print chr(233) ; chr(hajlitas) ; chr(hajlitas); 'Itt mindkét hajlitas értéknek azonosnak kell lennie!
print chr(153) ; chr(36) ; chr(127) ; 'Ha jól emlékszem ez a pergődob Pich volt. GM Midi kiosztása szerint.

pl.
for hajlitas = 8243 to 8293 step 1 '"Step" lessz a halítás felbontása
print chr(153) ; chr(36) ; chr(127) ;
print chr(233) ; chr(hajlitas) ; chr(hajlitas);
waitms 10 'Sebessége
next hajlitas

Köszi, ezek a dolgok megvannak, de nekem annyira nem számít, hogy melyik gomb milyen hangot szólaltat meg, mert a VDJ-ben úgyis beállítom, hogy melyik gomb mihez tartozik. (Szóval csak az a lényeg, hogy a gomb küldjön egy NOTE ON-t.) A tempó potméter lesz hajlítással, mert annak elég nagy a felbontása (igaz nekem elég lenne 1024 is mert az ADC annyit tud). A többi potméter meg így lesz:

Kód: Egész kijelölése

W = Getadc(1)
  W = W / 8
  If W2 <> W Then
    Print Chr(&Hb0) ; Chr(&H01) ; Chr(w) ;
  End If
  W2 = W

Szóval 128 lesz a felbontása, de az bőven elég nekem.

Bence

Sziasztok!

Robert írta: De AVRAVR kapcsolatra én SPI-t használnék. Gyorabb. Bascom minták közt ott a megvalósítás is.

Lehet, hogy én vagyok ügyetlen, de sehol nem találom. Be tudja valaki linkelni vagy elküldeni vagy leírni, hogy hogyan lehet két AVR-t SPI-vel összekapcsolni.

Köszi!

kapu48

Lehet, hogy Róbert erre gondolt?
C:\Program Files\MCS Electronics\BASCOM-AVR-1.11.9.5\SAMPLES\SPI\