mit Mikrofon Aufnehmen...

Übersicht

BlitzBasic

Allgemein

	joachim_neu Betreff: mit Mikrofon Aufnehmen...	Mi, Dez 17, 2003 16:13 Antworten mit Zitat
Hallo, kann man mit BlitzBasic2D von einem Mikrofon etwas afnehmen und in eine Sound-Datei schreiben??? thx JOACHIM NEU
http://www.joachim-neu.de \| http://www.orbitalpirates.de \| http://www.middleageworld.de

joachim_neu

Betreff: mit Mikrofon Aufnehmen...

Mi, Dez 17, 2003 16:13
Antworten mit Zitat

Hallo,

kann man mit BlitzBasic2D von einem Mikrofon etwas afnehmen und in eine Sound-Datei schreiben???

thx

JOACHIM NEU

http://www.joachim-neu.de | http://www.orbitalpirates.de | http://www.middleageworld.de

	Jan_ Ehemaliger Admin	Mi, Dez 17, 2003 16:14 Antworten mit Zitat
Nein, nur mit Userlibs!
between angels and insects

Jan_

Ehemaliger Admin

Mi, Dez 17, 2003 16:14
Antworten mit Zitat

Nein, nur mit Userlibs!

between angels and insects

	joachim_neu Betreff: ...	Mi, Dez 17, 2003 16:27 Antworten mit Zitat
Was sind UserLibs??? Sie die bei BB2D mitgeliefert??? mfg JOACHIM NEU
http://www.joachim-neu.de \| http://www.orbitalpirates.de \| http://www.middleageworld.de

joachim_neu

Betreff: ...

Mi, Dez 17, 2003 16:27
Antworten mit Zitat

Was sind UserLibs??? Sie die bei BB2D mitgeliefert???

mfg

JOACHIM NEU

http://www.joachim-neu.de | http://www.orbitalpirates.de | http://www.middleageworld.de

	Gossi	Mi, Dez 17, 2003 16:41 Antworten mit Zitat
Ich weiß dass es mit DLL's geht, da ich es damit selbst schon gemacht hab. Ich weiß aber nicht mehr welche das war.

Gossi

Mi, Dez 17, 2003 16:41
Antworten mit Zitat

Ich weiß dass es mit DLL's geht, da ich es damit selbst schon gemacht hab. Ich weiß aber nicht mehr welche das war. Confused

	joachim_neu Betreff: ...	Mi, Dez 17, 2003 16:45 Antworten mit Zitat
mist, ich nehme mir nähmlich immer so eine Sendung im Radio auf, und da wollte ich das an den Tagen, an denen ich nicht da bin das per Task vom Computer machen lassen. mfg JOACHIM NEU
http://www.joachim-neu.de \| http://www.orbitalpirates.de \| http://www.middleageworld.de

joachim_neu

Betreff: ...

Mi, Dez 17, 2003 16:45
Antworten mit Zitat

mist,

ich nehme mir nähmlich immer so eine Sendung im Radio auf, und da wollte ich das an den Tagen, an denen ich nicht da bin das per Task vom Computer machen lassen.

mfg

JOACHIM NEU

http://www.joachim-neu.de | http://www.orbitalpirates.de | http://www.middleageworld.de

	Vertex	Mi, Dez 17, 2003 17:06 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] ; ---------------------------------------------------------------------------- Global Window = CreateWindow("Soundrecording" ,200,200,143,120,0,1) Global Button1 = CreateButton("Aufnahme Start" ,5,05,128,20,Window) Global Button2 = CreateButton("Aufnahme Pause" ,5,27,128,20,Window) Global Button3 = CreateButton("Aufnahme Stop" ,5,49,128,20,Window) Global Button4 = CreateButton("Aufnahme apspielen",5,71,128,20,Window) Global Path$ = "C:\Test.wav" Global RS = CreateBank(128) Global Pause = 1 ; ---------------------------------------------------------------------------- ; ---------------------------------------------------------------------------- While WaitEvent() <> $803 If EventID() = $401 Select EventSource() Case Button1 : Button1_Click() Case Button2 : Button2_Click() Case Button3 : Button3_Click() Case Button4 : Button4_Click() End Select EndIf Wend End ; ---------------------------------------------------------------------------- ; ---------------------------------------------------------------------------- Function Button1_Click() Space(RS,128) mciSendString("open new type waveaudio alias capture",RS,128,0) mciSendString("record capture",RS,128,0) DisableGadget Button1 EnableGadget Button2 EnableGadget Button3 DisableGadget Button4 End Function Function Button2_Click() If Pause = 1 Then mciSendString("pause capture",RS,128,0) SetGadgetText Button2,"Aufnahme weiter" : Pause = 0 DisableGadget Button1 DisableGadget Button3 DisableGadget Button4 Else mciSendString("record capture",RS,128,0) SetGadgetText Button2,"Aufnahme Pause" : Pause = 1 DisableGadget Button1 EnableGadget Button3 DisableGadget Button4 EndIf End Function Function Button3_Click() Space(RS,128) mciSendString("stop capture",RS,128,0) mciSendString("save capture " + Path$,RS,128,0) mciSendString("close capture",RS,128,0) EnableGadget Button1 DisableGadget Button2 DisableGadget Button3 EnableGadget Button4 End Function Function Button4_Click() sndPlaySound(Path$,0) EnableGadget Button1 DisableGadget Button2 DisableGadget Button3 End Function ; ---------------------------------------------------------------------------- ; ---------------------------------------------------------------------------- Function Space(Bank,Count) Local I For I = 1 To Count PokeByte Bank,I - 1,Asc(" ") Next End Function ; ---------------------------------------------------------------------------- Zitat: .lib "winmm.dll" mciSendString%(lpstrCommand$,lpstrReturnString%,uReturnLength%,hwndCallback%) : "mciSendStringA" sndPlaySound%(lpszSoundName$,uFlags%) : "sndPlaySoundA" mfg olli

Vertex

Mi, Dez 17, 2003 17:06
Antworten mit Zitat

Code: [AUSKLAPPEN]

; ----------------------------------------------------------------------------
Global Window = CreateWindow("Soundrecording" ,200,200,143,120,0,1)
Global Button1 = CreateButton("Aufnahme Start" ,5,05,128,20,Window)
Global Button2 = CreateButton("Aufnahme Pause" ,5,27,128,20,Window)
Global Button3 = CreateButton("Aufnahme Stop" ,5,49,128,20,Window)
Global Button4 = CreateButton("Aufnahme apspielen",5,71,128,20,Window)
Global Path$ = "C:\Test.wav"
Global RS = CreateBank(128)
Global Pause = 1
; ----------------------------------------------------------------------------

; ----------------------------------------------------------------------------
While WaitEvent() <> $803
If EventID() = $401
Select EventSource()
Case Button1 : Button1_Click()
Case Button2 : Button2_Click()
Case Button3 : Button3_Click()
Case Button4 : Button4_Click()
End Select
EndIf
Wend

End
; ----------------------------------------------------------------------------

; ----------------------------------------------------------------------------
Function Button1_Click()
Space(RS,128)
mciSendString("open new type waveaudio alias capture",RS,128,0)
mciSendString("record capture",RS,128,0)

DisableGadget Button1
EnableGadget Button2
EnableGadget Button3
DisableGadget Button4
End Function

Function Button2_Click()
If Pause = 1 Then
mciSendString("pause capture",RS,128,0)
SetGadgetText Button2,"Aufnahme weiter" : Pause = 0

DisableGadget Button1
DisableGadget Button3
DisableGadget Button4
Else
mciSendString("record capture",RS,128,0)
SetGadgetText Button2,"Aufnahme Pause" : Pause = 1

DisableGadget Button1
EnableGadget Button3
DisableGadget Button4
EndIf
End Function

Function Button3_Click()
Space(RS,128)
mciSendString("stop capture",RS,128,0)
mciSendString("save capture " + Path$,RS,128,0)
mciSendString("close capture",RS,128,0)

EnableGadget Button1
DisableGadget Button2
DisableGadget Button3
EnableGadget Button4
End Function

Function Button4_Click()
sndPlaySound(Path$,0)

EnableGadget Button1
DisableGadget Button2
DisableGadget Button3
End Function
; ----------------------------------------------------------------------------

; ----------------------------------------------------------------------------
Function Space(Bank,Count)
Local I
For I = 1 To Count
PokeByte Bank,I - 1,Asc(" ")
Next
End Function
; ----------------------------------------------------------------------------

Zitat:

.lib "winmm.dll"
mciSendString%(lpstrCommand$,lpstrReturnString%,uReturnLength%,hwndCallback%) : "mciSendStringA"
sndPlaySound%(lpszSoundName$,uFlags%) : "sndPlaySoundA"

mfg olli

	Master C	Mi, Dez 17, 2003 17:13 Antworten mit Zitat
Er hat doch gesagt BB2D. Das unterstützt weder Buttons, Fenster oder Userlibs.

Master C

Mi, Dez 17, 2003 17:13
Antworten mit Zitat

Er hat doch gesagt BB2D. Das unterstützt weder Buttons, Fenster oder Userlibs.

	Vertex	Mi, Dez 17, 2003 17:19 Antworten mit Zitat
Ja, aber falls es andere gerne wissen möchten Aber ich könnte ja mal ne Wrapper für B2D schreiben. mfg olli

Vertex

Mi, Dez 17, 2003 17:19
Antworten mit Zitat

Ja, aber falls es andere gerne wissen möchten Smile

Aber ich könnte ja mal ne Wrapper für B2D schreiben.
mfg olli

	Plasma(alt) Betreff: aufnehmen	Mi, Dez 17, 2003 18:09 Antworten mit Zitat
geht auch mit b2d

Plasma(alt)

Betreff: aufnehmen

Mi, Dez 17, 2003 18:09
Antworten mit Zitat

geht auch mit b2d

	Apocalyptic Betreff: Re: aufnehmen	Mi, Dez 17, 2003 18:20 Antworten mit Zitat
Plasma hat Folgendes geschrieben: geht auch mit b2d Was meinst du? Userlibs funktionieren auf gar keinen Fall unter B2D...
Suum cuique [ www.ffs-net.de.vu ] [ Raycaster ]