Direct X w VB cz. 3




DirectX w VB cz.4
Nareszcie
czwarta i ostatnia część artykułu DirectX w VB. Znajdziesz tu omówienie
BioHazard Engine z dziedzin: DirectSound, DirectMusic, DirectInput.
Ponieważ
myślę, że zapoznaliście się już z zasadami programowania DirectX, to nie będę
się tutaj rozpisywał.
Jak
zwykle dodajemy w Project/References dx7vb.dll, i wszystkie moduły BioHazard'u.
 
BioHazard
- DirectSound
SoundBuffer
to zmienna identyfikująca dany plik.
 
Dim mybuff As DirectSoundBuffer
'tworzymy zmienną która będzie identyfikowana z
plikiem hello.wav
DSInit Me 'inicjujemy DSound
DSLoadWav mybuff, "c:\hello.wav" 'ładujemy
do zmiennej mybuff pliczek c:\hello.wav
DSSetVolume mybuff, 50 'zmieniamy głośność
mybuff (hello.wav) na 50%
---
Graj:
DSPlayWav 'gramy
---
Stop:
DSStopWav 'stopujemy
---
Właściwie
to wszystko co może zaoferować BioHazard w tej dziedzinie :-(
 
BioHazard
- DirectMusic
Tutaj - jako, że
tylko jeden plik MIDI może grać naraz, to nie ma soundbuffer'ów.
 
DMInit
'inicjujemy
DMLoadSong "c:\piosnka.mid" 'ładujemy
jakiś plik, np. c:\piosnka.mid
DMPlaySong 'gramy
 
Aby
zkończyć grać:
 
DMStopSong
 
By wyładować
DMusic
 
DMUnload
 
BioHazard -
DirectInput
Inicjujemy
 
DIinit
 
Funkcja dająca stan
myszy w zmiennej:
 
DIGetMousState
'zwraca w AbsoluteX i AbsoluteY
 
Funkcja dające stan
klawiatury w zmiennej:
 
DIGetKeyboardState
'zwraca w KeyboardState
 
To
już wszystko co mogę zaoferować wam z dziedziny DirectX.
Mam
nadzieję, że wkrótce zrobicie jakieś fajne programiki używające DirectX!
 
Masz jakieś
pytanie? Pisz na e-mail.
 
<-DoogiE->
[e-mail]