wave files laten afspelen op de PC met K8055(USB)

Hallo alle VB gebruikers,

Ik zit met een klein probleemje?

Ik heb net het experimenteerbordje K8055 van velleman gekocht dat via USB wordt aangesloten.
pdf : http://www.velleman.be/Downloads/0/Manual_K8055_UK.pdf

Ik zou door het drukken op de analoge testtoetsen altijd verschillende wave files willen afspelen om later met 5 verschillende voeltoetsen binnen te komen.

Ik heb de DDL files van velleman erbij gekregen en via de source code die ik van velleman heb gekregen heb ik het bordje getest, de 5 analoge ingangen werken.

hier is de code voor ze binnen te lezen:

Option Explicit
Dim DoNothing As Boolean
Dim n As Integer
Private Declare Function OpenDevice Lib "k8055d.dll" (ByVal CardAddress As Long) As Long
Private Declare Sub CloseDevice Lib "k8055d.dll" ()
Private Declare Function ReadAnalogChannel Lib "k8055d.dll" (ByVal Channel As Long) As Long
Private Declare Sub ReadAllAnalog Lib "k8055d.dll" (Data1 As Long, Data2 As Long)
Private Declare Sub OutputAnalogChannel Lib "k8055d.dll" (ByVal Channel As Long, ByVal Data As Long)
Private Declare Sub OutputAllAnalog Lib "k8055d.dll" (ByVal Data1 As Long, ByVal Data2 As Long)
Private Declare Sub ClearAnalogChannel Lib "k8055d.dll" (ByVal Channel As Long)
Private Declare Sub SetAllAnalog Lib "k8055d.dll" ()
Private Declare Sub ClearAllAnalog Lib "k8055d.dll" ()
Private Declare Sub SetAnalogChannel Lib "k8055d.dll" (ByVal Channel As Long)
Private Declare Sub WriteAllDigital Lib "k8055d.dll" (ByVal Data As Long)
Private Declare Sub ClearDigitalChannel Lib "k8055d.dll" (ByVal Channel As Long)
Private Declare Sub ClearAllDigital Lib "k8055d.dll" ()
Private Declare Sub SetDigitalChannel Lib "k8055d.dll" (ByVal Channel As Long)
Private Declare Sub SetAllDigital Lib "k8055d.dll" ()
Private Declare Function ReadDigitalChannel Lib "k8055d.dll" (ByVal Channel As Long) As Boolean
Private Declare Function ReadAllDigital Lib "k8055d.dll" () As Long
Private Declare Function ReadCounter Lib "k8055d.dll" (ByVal CounterNr As Long) As Long
Private Declare Sub ResetCounter Lib "k8055d.dll" (ByVal CounterNr As Long)
Private Declare Sub SetCounterDebounceTime Lib "k8055d.dll" (ByVal CounterNr As Long, ByVal DebounceTime As Long)



'de code voor de kaart te verbinden'
Private Sub Connect_Click()
    Dim CardAddress As Long
    Dim h As Long
    CardAddress = 0
    CardAddress = 3 - (Check1(0).Value + Check1(1).Value * 2)
    h = OpenDevice(CardAddress)
    Select Case h
        Case 0, 1, 2, 3
            Label1.Caption = "Card " + Str(h) + " connected"
        Case -1
            Label1.Caption = "Card " + Str(CardAddress) + " not found"
    End Select
    If h >= 0 Then Timer1.Enabled = True
End Sub

'de code voor de inputs'
Private Sub Timer1_Timer()
    Timer1.Enabled = False
    Dim i As Long
    Dim Data1 As Long
    Dim Data2 As Long
    i = ReadAllDigital
    Check2(0).Value = (i And 1)
    Check2(1).Value = (i And 2) / 2
    Check2(2).Value = (i And 4) / 4
    Check2(3).Value = (i And 8) / 8
    Check2(4).Value = (i And 16) / 16
    Timer1.Enabled = True
End Sub

nu moet ik de code nog kunnen koppelen aan .wave files.

Alvast bedankt voor jullie hulp!!!

groetjes,
Igor

Ik heb de vraag nu al verschillende keren gelezen en snap nog altijd niet wat er staat. Wat wil je eigenlijk doen?? |:( "Analoge testtoetsen" wat bedoel je hier eigenlijk??

Ik zou moeten klagen bij Velleman want ik heb bij mijn K8055 geen DDL files gekregen :)

hoi,

Afspelen in windows kan met messages naar het windows systeem (MMsystem in dit geval) in Delphi ziet het er in ieder geval zo uit (VB moet erop lijken, lijkt me ;-):
.....
procedure snd_play_start(bestandsnaam:string);
VAR Handle:Thandle;
begin
status:=2; //set status to playing
mciSendString(Pchar('OPEN '+bestandsnaam+' TYPE WAVEAUDIO ALIAS mysound'), nil, 0, Handle);
mciSendString('PLAY mysound', nil, 0, Handle);

end;
......(uit een programmatje van mijn hand)

Ga maar 'ns kijken op www.msdn.com

just my $0.02

Da fripster

hallo,

je moet gewoon zoiets doen. zorgen dat er een WMP (windows media player) op je form staat (moet je ff toevoegen aan je toolbox (neem aan dat je met VB werkt)). dan als je een wmp op je form heb staan moet je:

timer1_tick(blablablabla 'die standaard zooi die hier staat)

readcounter(1) 'counter1

if readcounter(1) = 1 then
axwindowsmediaplayer1.url = "STRING WAAR JE WAV STAAT" 'dus bvb C:\Muziek\Goede muziek\ikbeneenwavfile.wav
resetcounter(1)
end if

volgens mij moet het lukken zo;)

groetjes wouter