Hi,
hab das aus Spaß gemacht, beinhaltet aber nur 2 Effekte die ganz spaßig sind aber beim Musikhören nicht wirklich zum gebrauchen sind =)
Ahja wenn keine Musik oder Sound läuft, werdet ihr von den Effekten nix hören =)
Für einen gewissen Teil hab ich ganxtas (buggy) FormDesigner genommen =)
Ich werde nun diesen Programm nach C++ portieren und wenn ihr wollt auch davon den Code posten...
Mfg Xenon
winmm.decls
BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] .lib "winmm.dll"
waveOutSetVolume%(hwaveout%, volume%):"waveOutSetVolume"
waveOutGetVOlume%(hwaveout%, volumebank*):"waveOutGetVolume"
sec.bb
BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Local hwndMain = CreateWindow("Sound Effect Control", 284, 231, 258, 237, 0, 1)
Global rbNone = CreateButton("None", 8, 8, 49, 17, hwndMain,3)
SetButtonState rbNone, 1
Global rbBalance = CreateButton("Balance", 8, 32, 57, 17, hwndMain,3)
Global rbVolume = CreateButton("Volume", 8, 56, 57, 17, hwndMain,3)
Local lbMin = CreateLabel("Min Value:", 8, 88, 50, 13, hwndMain)
Local lbMax = CreateLabel("Max Value:", 8, 120, 53, 13, hwndMain)
Local lbUpdate = CreateLabel("Update:", 8, 152, 38, 13, hwndMain)
Local lbVolume = CreateLabel("Volume:", 8, 184, 38, 13, hwndMain)
Global edUpdate = CreateTextField(72, 152, 65, 21, hwndMain)
SetGadgetText edUpdate,""
Global edMax = CreateTextField(72, 120, 65, 21, hwndMain)
SetGadgetText edMax,""
Global edMin = CreateTextField(72, 88, 65, 21, hwndMain)
SetGadgetText edMin,""
Global edVolume = CreateTextField(72, 184, 65, 21, hwndMain)
SetGadgetText edVolume,""
Local btUpdate = CreateButton("Update", 72, 8, 65, 25, hwndMain)
Local btQuit = CreateButton("Quit", 72, 48, 65, 25, hwndMain)
Local canvas = CreateCanvas(145, 8, 100, 197, hwndMain)
Global max, min, update, effect
Global volume = GetVolume()
waveOutSetVolume(0, volume)
SetGadgetText edVolume, Hex(volume)
SetGadgetText edMax, "FFFF"
SetGadgetText edMin, "0000"
SetGadgetText edUpdate, "FFFF"
Local time# = 0
Local OneVlm# = volume And $FFFF
Local lasttime = MilliSecs()
SetBuffer CanvasBuffer(canvas)
Repeat
Select WaitEvent(0)
Case $803
End
Case $401
Select EventSource()
Case btUpdate
Input
Case btQuit
End
End Select
End Select
time = (MilliSecs()-lasttime)/1000.0
lasttime = MilliSecs()
If effect <> 0 Then
OneVlm = OneVlm + (update*time)
If OneVlm > max Then
OneVlm = max
update = -update
Else If OneVlm < min
OneVlm = min
update = -update
End If
volume = Int(OneVlm) And $FFFF
If effect = 1 Then
volume = volume Or (($FFFF - volume) Shl 16)
Else If effect = 2
volume = volume Or (volume Shl 16)
End If
End If
waveOutSetVolume(0, volume)
Cls
Rect 10, 187-((volume And $FFFF)/65535.0*177), 35, ((volume And $FFFF)/65535.0*177)
Rect 55, 187-(((volume Shr 16) And $FFFF)/65535.0*177), 35, (((volume Shr 16) And $FFFF)/65535.0*177)
FlipCanvas canvas
Forever
Function Input()
If ButtonState(rbNone) Then
effect = 0
Else If ButtonState(rbBalance) Then
effect = 1
Else
effect = 2
End If
update = HexToInt(TextFieldText(edUpdate))
min = HexToInt(TextFieldText(edMin)) And $FFFF
max = HexToInt(TextFieldText(edMax)) And $FFFF
volume = HexToInt(TextFieldText(edVolume))
End Function
Function GetVolume()
Local bank = CreateBank(4)
waveOutGetVolume(0, bank)
Local volume = PeekInt(bank, 0)
FreeBank bank
Return volume
End Function
Function HexToInt(s$)
If Len(s) > 8 Then
s = Left(s, 8)
End If
s = Upper(s)
Local i, char$
Local num = 0
For i = 1 To Len(s)
char = Mid(s, i, 1)
If Instr("0123456789ABCDEF", char) Then
If Instr("ABCDEF", char) Then
num = (num Shl 4) Or (Asc(char)-Asc("A")+10)
Else
num = (num Shl 4) Or (Asc(char)-Asc("0"))
End If
Else
Return 0
End If
Next
Return num
End Function
|
BlitzBasic 
Sa, Nov 06, 2004 1:06