Channel Volume knackt.

Übersicht BlitzMax, BlitzMax NG Allgemein

Neue Antwort erstellen

 

dada11

Betreff: Channel Volume knackt.

BeitragFr, Jul 21, 2006 22:58
Antworten mit Zitat
Benutzer-Profile anzeigen
Hallo,

wenn ich mit dem Code unten eine Sounddatei einfaden möchte spielt der Sound am anfang ganz kurz mit voller Lautstärke (das knackt dann) und dann wird erst gefadet. Was mache ich falsch ?
Lg
Dada

Code: [AUSKLAPPEN]
Strict

Graphics 800,600
HideMouse ()

Global volume#=0: Float
Global introsound = LoadSound("galasound.ogg",1)
Global channel = CueSound(introsound)
SetChannelVolume (channel,0)
ResumeChannel channel
Repeat
Cls

If volume# < 1 Then volume=volume+0.01
SetChannelVolume (channel,volume#)



Flip
Until KeyHit(KEY_ESCAPE)
End

Rone

BeitragFr, Jul 21, 2006 23:21
Antworten mit Zitat
Benutzer-Profile anzeigen
Hallo,

also so gehts:

Code: [AUSKLAPPEN]
Local vol:Float = 0

Local sound:TSound = LoadSound("level4.ogg",1)
Local channel:TChannel = AllocChannel()
SetChannelVolume channel ,0
PlaySound sound , channel


mfg
Rone
 

dada11

BeitragFr, Jul 21, 2006 23:26
Antworten mit Zitat
Benutzer-Profile anzeigen
Hi,
hmm. Irgendwie verstehe ich das nicht, wo wird den da gefadet ?
Dada

Rone

BeitragFr, Jul 21, 2006 23:30
Antworten mit Zitat
Benutzer-Profile anzeigen
Faden kannst du so wie voher auch mit "SetChannelVolume channel , vol". Wink

Hier mal der gesammte Code...mit 'Links' und 'Rechts' Lautstärke verändern...


Code: [AUSKLAPPEN]

Graphics 320,240

Local vol:Float = 0

Local sound:TSound = LoadSound("level4.ogg",1)
Local channel:TChannel = AllocChannel()
SetChannelVolume channel ,0
PlaySound sound , channel

While Not KeyHit(key_Escape)
   Cls
   If KeyDown(KEY_Right) Then
      vol:+ 0.005
      If vol > 1 Then vol=1
   ElseIf KeyDown(KEY_left) Then
      vol:-0.001
      If vol <0 Then vol=0.0
   EndIf
   SetChannelVolume channel , vol
   DrawText "Volume: "+String.FromFloat(vol) , 10 , 10
   Flip
Wend
End
 

dada11

BeitragFr, Jul 21, 2006 23:35
Antworten mit Zitat
Benutzer-Profile anzeigen
Aha, jetzt bin auch ich schlauer. Vielen Dank für Deine Mühe.
Dada


EDIT: Supi es klappt.

Neue Antwort erstellen


Übersicht BlitzMax, BlitzMax NG Allgemein

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group