Virtual Dj vezérlő

Hogyan programozzak AVR chipet? Programozók beállításai...
Bascom nyelvű programok...
Avatar
Sanci
Bitmanipulátor
Hozzászólások: 105
Csatlakozott: 2008. március 14. péntek, 6:00

HozzászólásSzerző: Sanci » 2009. július 29. szerda, 1:02

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)

Avatar
Bence
Tranzisztorgyógyász
Hozzászólások: 166
Csatlakozott: 2007. október 30. kedd, 6:00
Tartózkodási hely: Budapest

HozzászólásSzerző: Bence » 2009. július 29. szerda, 10:16

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

Avatar
Bence
Tranzisztorgyógyász
Hozzászólások: 166
Csatlakozott: 2007. október 30. kedd, 6:00
Tartózkodási hely: Budapest

HozzászólásSzerző: Bence » 2009. július 31. péntek, 13:21

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!
Bence

Avatar
kapu48
Elektronbűvölő
Hozzászólások: 3346
Csatlakozott: 2008. augusztus 29. péntek, 6:00
Tartózkodási hely: Újkígyós

HozzászólásSzerző: kapu48 » 2009. július 31. péntek, 14:08

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


Vissza: “Bascom-AVR nyelvű programozás (AVR programozásának lehetőségei)”

Ki van itt

Jelenlévő fórumozók: nincs regisztrált felhasználó valamint 1 vendég