/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Lyd i et program ?
Fra : Rasmus Ladekjær Pede~


Dato : 05-02-02 19:44

Hej.
Hvordan kan man afspille en lydfil i et VB program ?
mvh Rasmus




 
 
Peter Rasmussen (06-02-2002)
Kommentar
Fra : Peter Rasmussen


Dato : 06-02-02 08:56

Indsæt MS Mediaplayer, og sæt nogle prop. for dette objekt. Så spiller det,
midi, wav, og hvad den ellers understøtter.

"Rasmus Ladekjær Pedersen" <ladekjaer@get2net.dk> wrote in message
news:a3p95e$30b$1@sunsite.dk...
> Hej.
> Hvordan kan man afspille en lydfil i et VB program ?
> mvh Rasmus
>
>
>



Rasmus Ladekjær Pede~ (07-02-2002)
Kommentar
Fra : Rasmus Ladekjær Pede~


Dato : 07-02-02 22:19

> Indsæt MS Mediaplayer, og sæt nogle prop. for dette objekt. Så spiller
det,
> midi, wav, og hvad den ellers understøtter.

hvordan ?
mvh Rasmus




Vestergaard (08-02-2002)
Kommentar
Fra : Vestergaard


Dato : 08-02-02 19:10


"Rasmus Ladekjær Pedersen" <ladekjaer@get2net.dk> skrev i en meddelelse
news:a3p95e$30b$1@sunsite.dk...
> Hej.
> Hvordan kan man afspille en lydfil i et VB program ?
> mvh Rasmus
>
>
>


For at afspille .wav filer kan du gøre følgende:

Put det her i et modul:

Public Declare Function sndPlaySound Lib "winmm" Alias_
"sndPlaySoundA" (ByVal lpSound As String, ByVal flag_
As Long) As Long
Public Const sndSync = 0
Public Const sndAsync = 1

For at afspille en lyd når der trykkes på en knap:

Private Sub Command1_Click()
Dim RV As Long
RV = sndPlaySound(Filnavn, sndAsync)
End Sub

Hvis du bytter sndAsync ud med sndSync, vil programmet ikke køre videre
indtil lyden er færdig.

Jacob V.



Rasmus Ladekjær Pede~ (10-02-2002)
Kommentar
Fra : Rasmus Ladekjær Pede~


Dato : 10-02-02 21:43


> Put det her i et modul:
>
> Public Declare Function sndPlaySound Lib "winmm" Alias_
> "sndPlaySoundA" (ByVal lpSound As String, ByVal flag_
> As Long) As Long
> Public Const sndSync = 0
> Public Const sndAsync = 1
>
> For at afspille en lyd når der trykkes på en knap:
>
> Private Sub Command1_Click()
> Dim RV As Long
> RV = sndPlaySound(Filnavn, sndAsync)
> End Sub

Jeg kan ikke få din kode til at virke !
mvh Rasmus



Vestergaard (11-02-2002)
Kommentar
Fra : Vestergaard


Dato : 11-02-02 17:31

> Jeg kan ikke få din kode til at virke !
> mvh Rasmus
>
>

hmmm, mystisk. Kommer den med nogle fejlmeddelelser eller kommer der bare
ikke nogen lyd?



Rasmus Ladekjær Pede~ (13-02-2002)
Kommentar
Fra : Rasmus Ladekjær Pede~


Dato : 13-02-02 17:17

> hmmm, mystisk. Kommer den med nogle fejlmeddelelser eller kommer der bare
> ikke nogen lyd?

Når jeg forsøger at køre programmet skriver den:

Compile eror:

Expected: end of statement

og mærkere ordet Alias_ module1

mvh Rasmus



Mikkel Bundgaard (13-02-2002)
Kommentar
Fra : Mikkel Bundgaard


Dato : 13-02-02 22:49

"Rasmus Ladekjær Pedersen" <ilmabg@hotmail.com> wrote in message
news:a4e35a$sib$1@sunsite.dk...
> > hmmm, mystisk. Kommer den med nogle fejlmeddelelser
> > eller kommer der bare ikke nogen lyd?
>
> Når jeg forsøger at køre programmet skriver den:
>
> Compile eror:
>
> Expected: end of statement
>
> og mærkere ordet Alias_ module1
>
> mvh Rasmus
Hej Rasmus

Kompileren siger jo præcis, hvad fejlen er den kender ikke
Alias_ (der skal nemlig være et mellemrum imellem).
Public Declare Function sndPlaySound Lib "winmm" Alias _
"sndPlaySoundA" (ByVal lpSound As String, ByVal flag _
As Long) As Long

Det vil sige et mellemrum imellem "Alias" og "_" og imellem
"flag" og "_".
--
Mikkel Bundgaard
IT University of Copenhagen
http://officehelp.gone.dk
Codito, Ergo Sum



Rasmus Ladekjær Pede~ (14-02-2002)
Kommentar
Fra : Rasmus Ladekjær Pede~


Dato : 14-02-02 19:47

> Kompileren siger jo præcis, hvad fejlen er den kender ikke
> Alias_ (der skal nemlig være et mellemrum imellem).
> Public Declare Function sndPlaySound Lib "winmm" Alias _
> "sndPlaySoundA" (ByVal lpSound As String, ByVal flag _
> As Long) As Long
>
> Det vil sige et mellemrum imellem "Alias" og "_" og imellem
> "flag" og "_".

Hej igen!
Nu skriver den:

Compile error:

Variable not defined

og mærkere "sndAsync"
mvh Rasmus



Jens Vestergaard (14-02-2002)
Kommentar
Fra : Jens Vestergaard


Dato : 14-02-02 20:59

"Rasmus Ladekjær Pedersen" <ladekjaer@get2net.dk> skrev i en meddelelse
news:a4h0mf$rue$1@sunsite.dk...
> Nu skriver den:
>
> Compile error:
>
> Variable not defined
>
> og mærkere "sndAsync"

Har du husket at deklarere de konstanter, der bruges ...?

Public Const sndAsync =

osv....

--
mvh
Jens Vestergaard
www.railsoft.dk




Rasmus Ladekjær Pede~ (15-02-2002)
Kommentar
Fra : Rasmus Ladekjær Pede~


Dato : 15-02-02 14:42

> Har du husket at deklarere de konstanter, der bruges ...?
>
> Public Const sndAsync =
>
> osv....
>

Hvordan det ?
mvh Rasmus



Vestergaard (15-02-2002)
Kommentar
Fra : Vestergaard


Dato : 15-02-02 15:48

Prøv at læs min post fra den 8/2 igen... Der står hvad du skal gøre!

Jacob V.

-------------------------------
"Rasmus Ladekjær Pedersen" <ladekjaer@get2net.dk> skrev i en meddelelse
news:a4j36h$qll$1@sunsite.dk...
> > Har du husket at deklarere de konstanter, der bruges ...?
> >
> > Public Const sndAsync =
> >
> > osv....
> >
>
> Hvordan det ?
> mvh Rasmus
>
>



Rasmus Ladekjær Pede~ (16-02-2002)
Kommentar
Fra : Rasmus Ladekjær Pede~


Dato : 16-02-02 15:51

> Prøv at læs min post fra den 8/2 igen... Der står hvad du skal gøre!
>
> Jacob V.

Hej igen.
Mange tak for de mange svar. Nu virker det endelig.
Mange tak for din tolmodighed !
mvh Rasmus.



Søg
Reklame
Statistik
Spørgsmål : 177559
Tips : 31968
Nyheder : 719565
Indlæg : 6408938
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste