Du bist nicht angemeldet.

[VB 2008] Wav dateien erstellen

Lieber Besucher, herzlich willkommen bei: Visual-Basic-Forum VB-Paradise.de. Falls dies dein erster Besuch auf dieser Seite ist, lies bitte die Hilfe durch. Dort wird dir die Bedienung dieser Seite näher erläutert. Darüber hinaus solltest du dich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutze das Registrierungsformular, um dich zu registrieren oder informiere dich ausführlich über den Registrierungsvorgang. Falls du dich bereits zu einem früheren Zeitpunkt registriert hast, kannst du dich hier anmelden.

  • 1
  • 2

Vincent fischer

hört Klassik

  • »Vincent fischer« ist der Autor dieses Themas

Beiträge: 241

Hilfreich-Bewertungen: 9

  • Private Nachricht senden

1

Freitag, 23. Oktober 2009, 16:44

Wav dateien erstellen

Hallo,
ich möchte ein Programm schreiben mit dem man Wav dateien
aufnehmen kann, habe aber keine Ahnung wie man das Mikrofon anspricht.
Wäre echt dankbar für Hilfe.
Vincent

*Topic verschoben*
92% of all kids listen to pop and hip-hop
if you are one of the 8% , who still listen to real music,
copy this in your Signature!

Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »Marcus Gräfe« (25. Oktober 2009, 13:46)

milaim

IT specialist

  • »milaim« ist männlich

Beiträge: 1 657

Dabei seit: 1. April 2008

Wohnort: Nürnberg

Hilfreich-Bewertungen: 52

  • Private Nachricht senden

2

Freitag, 23. Oktober 2009, 16:47

Hallo,

http://www.dotnetspider.com/resources/49…microphone.aspx

das sollte dir helfen.

P.S.: Google.
"Wenn jemand in einem Betrieb unverzichtbar ist, dann ist dieser Betrieb falsch organisiert." - Roberto Niederer

Vincent fischer

hört Klassik

  • »Vincent fischer« ist der Autor dieses Themas

Beiträge: 241

Hilfreich-Bewertungen: 9

  • Private Nachricht senden

3

Samstag, 24. Oktober 2009, 21:38

Wav dateien erstellen

das funktioniert bei mir nicht.

Geht es nicht einfach indem mann abfragt was in das Mikro

gesprochen wird und das dann als .Wav datei zu speichern?

vincent
92% of all kids listen to pop and hip-hop
if you are one of the 8% , who still listen to real music,
copy this in your Signature!

progglord

Registrierter Benutzer

  • »progglord« ist männlich

Beiträge: 893

Dabei seit: 10. April 2009

Wohnort: Holzminden

Hilfreich-Bewertungen: 27

  • Private Nachricht senden

4

Samstag, 24. Oktober 2009, 22:13

lass mich raten: du kannst den c# code nicht übersetzen und verstehst niocht was da beschrieben ist?
1. ist das gut beschrieben und brauchbar!
2. gibt es c# to vb übersetzer

Vincent fischer

hört Klassik

  • »Vincent fischer« ist der Autor dieses Themas

Beiträge: 241

Hilfreich-Bewertungen: 9

  • Private Nachricht senden

5

Sonntag, 25. Oktober 2009, 09:30

Wav dateien erstellen

Wo finde ich Den übersetzer und

wie verwende ich ihn?

Vincent 8-)
92% of all kids listen to pop and hip-hop
if you are one of the 8% , who still listen to real music,
copy this in your Signature!

YtEx

Registrierter Benutzer

  • »YtEx« ist männlich

Beiträge: 215

Dabei seit: 12. Februar 2009

  • Private Nachricht senden

6

Sonntag, 25. Oktober 2009, 09:32

http://www.carlosag.net/Tools/CodeTranslator/

Gruß
YtEx

PS: Die richtige Übersetzungsrichtung einstellen!
If My.Browser.OpenUrl("http://www.oliver.schirm.de.vu/") = True Then
Vb_Paradise.YtEx.Happy = True
Else
Vb_Paradise.YtEx.Happy = False
End If

Vincent fischer

hört Klassik

  • »Vincent fischer« ist der Autor dieses Themas

Beiträge: 241

Hilfreich-Bewertungen: 9

  • Private Nachricht senden

7

Sonntag, 25. Oktober 2009, 09:44

Funktioniert Trotzdem nicht :(

vincent 8-)
92% of all kids listen to pop and hip-hop
if you are one of the 8% , who still listen to real music,
copy this in your Signature!

Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von »Vincent fischer« (25. Oktober 2009, 10:42)

m0nst3rkill3r

Registrierter Benutzer

Beiträge: 844

Dabei seit: 10. Oktober 2009

Wohnort: k

Frühere Benutzernamen: m0nst3rkill3r

Hilfreich-Bewertungen: 270

  • Private Nachricht senden

8

Sonntag, 25. Oktober 2009, 10:49

Mal sone Frage. Hast du dir das überhaubt angeguckt?
Das ist doch einfach nur lächerlich, lern Programieren und komm in 3 Wochen nochmal wieder.
Gawd.

xyz

unregistriert

9

Sonntag, 25. Oktober 2009, 10:55

Ich will mal nicht so sein:
Hier ein CuP Code

Visual Basic Quellcode

 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94

Private Declare Auto Function mciSendString Lib "winmm.dll" ( _
  ByVal lpstrCommand As String, _
  ByVal lpstrRetrunString As String, _
  ByVal dwReturnlength As Int16, _
  ByVal hCallback As Int16) As Integer
 
' Aufnahmeformate
Private Enum BitsPerSec
  Bits16 = 16
  Bits8 = 8
End Enum
 
Private Enum SampelsPerSec
  Sampels8000 = 8000
  Sampels11025 = 11025
  Sampels12000 = 12000
  Sampels16000 = 16000
  Sampels22050 = 22050
  Sampels24000 = 24000
  Sampels32000 = 32000
  Sampels44100 = 44100
  Sampels48000 = 48000
End Enum
 
Private Enum Channels
  Mono = 1
  Stereo = 2
End Enum

''' <summary>
''' Startet die WAVE-Aufnahme
''' </summary>
''' <param name="BitRate">Bits pro Sekunde</param>
''' <param name="SampleRate">Samples pro Sekunde</param>
''' <param name="Mode">Stereo oder Mono-Aufnahme</param>
Private Function WAVE_RecordStart(Optional ByVal BitRate As BitsPerSec = BitsPerSec.Bits16, _
  Optional ByVal SampleRate As SampelsPerSec = SampelsPerSec.Sampels11025, _
  Optional ByVal Mode As Channels = Channels.Stereo) As Boolean
 
  Dim sReturn As String = Strings.Space(256)
  Dim cmd As String
 
  cmd = "open new type waveaudio alias recwave"
  If mciSendString(cmd, sReturn, 256, 0) <> 0 Then
	MsgBox("Fehler beim Anlegen der neuen Aufnahmedatei!", MsgBoxStyle.Exclamation)
	Return (False)
  End If
 
  ' Aufnahmeformat
  Dim ByteRate As Integer = (Mode * BitRate * SampleRate) / 8
  mciSendString("set recwave time format milliseconds" & _
	" bitspersample " & CStr(BitRate) & _
	" samplespersec " & CStr(SampleRate) & _
	" channels " & CStr(Mode) & _
	" bytespersec " & CStr(ByteRate) & _
	" alignment 4", sReturn, 256, 0)
 
  cmd = "record recwave"
  If mciSendString(cmd, sReturn, 256, 0) <> 0 Then
	MsgBox("Fehler bei der Aufnahme!", MsgBoxStyle.Exclamation)
	Return (False)
  End If
 
  Return (True)
End Function

''' <summary>
''' Beendet die WAVE-Aufnahme
''' </summary>
''' <param name="Filename">Datei, unter der die Aufnahme gespeichert werden soll.</param>
Private Function WAVE_RecordStop(ByVal Filename As String) As Boolean
  Dim sReturn As String = Strings.Space(256)
  Dim cmd As String
  Dim Result As Boolean = True
 
  cmd = "stop recwave"
  If mciSendString(cmd, sReturn, 256, 0) <> 0 Then
	MsgBox("Fehler beim Beenden der Aufnahme!", MsgBoxStyle.Exclamation)
	Return (False)
  End If
 
  If Filename.Length > 0 Then
	' Aufnhame in Datei speichern
	cmd = "save recwave " & Filename
	If mciSendString(cmd, sReturn, 256, 0) <> 0 Then
  	MsgBox("Fehler beim Speichern der Aufnahme.", MsgBoxStyle.Exclamation)
  	Result = False
	End If
  End If
 
  cmd = "close recwave"
  If mciSendString(cmd, sReturn, 256, 0) <> 0 Then
	MsgBox("Fehler beim Schließen der Aufnahme...", MsgBoxStyle.Exclamation)
  End If


Jetzt fügst du 2 Buttons auf die Form:
Also aus der Toolbox auf die Form ziehen :D
Du doppelklickst auf den einen und schreibst in die Click prozedur:

Visual Basic Quellcode

 
1

WAVE_RecordStart()


Das ist der zum Starten der aufnaheme!

Im anderen Button einfach

Visual Basic Quellcode

 
1

WAVE_RecordStop


Ok? Viel Spaß!

Vincent fischer

hört Klassik

  • »Vincent fischer« ist der Autor dieses Themas

Beiträge: 241

Hilfreich-Bewertungen: 9

  • Private Nachricht senden

10

Sonntag, 25. Oktober 2009, 10:57

Ja ich habe es mir angeschaut! :cursing:

und auserdem kann ich mehr als nur vb 2008:

GW-Basic; Quickbasic;vb 6.0; C-Control Pro :cursing:

Vincent :cursing: :cursing: :cursing: :cursing: :cursing: :cursing: :cursing:
92% of all kids listen to pop and hip-hop
if you are one of the 8% , who still listen to real music,
copy this in your Signature!

Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von »Vincent fischer« (25. Oktober 2009, 12:40)

Sturmvogel

~Death Note Fan~

Beiträge: 526

Dabei seit: 23. August 2008

  • Private Nachricht senden

11

Sonntag, 25. Oktober 2009, 11:03

Zitat von »Vincent fischer«

und auserdem kann ich mehr als nur vb 2008
autsch
naja wenn du jetzt sogar C&P Code vor die Nase gesetzt bekommst und immer noch antworten wie "Geht nicht" kommen dann kann dir keiner helfen, keiner kann deinen Code sehen, keiner kann deine Fehler/Exceptions sehen und keiner weiß was zur Hölle du gemacht hast...

lg

xyz

unregistriert

12

Sonntag, 25. Oktober 2009, 11:10

Funkt mein Code nicht? ;( ;( ;( ;( ;( ;( ;( ;( ;( ;(

Du könntest auch:

Visual Basic Quellcode

 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

Private Declare Auto Function mciSendString Lib "winmm.dll" ( _
  ByVal lpstrCommand As String, _
  ByVal lpstrRetrunString As String, _
  ByVal dwReturnlength As Int16, _
  ByVal hCallback As Int16) As Integer
 
' Aufnahmeformate
Private Enum BitsPerSec
  Bits16 = 16
  Bits8 = 8
End Enum
 
Private Enum SampelsPerSec
  Sampels8000 = 8000
  Sampels11025 = 11025
  Sampels12000 = 12000
  Sampels16000 = 16000
  Sampels22050 = 22050
  Sampels24000 = 24000
  Sampels32000 = 32000
  Sampels44100 = 44100
  Sampels48000 = 48000
End Enum
 
Private Enum Channels
  Mono = 1
  Stereo = 2
End Enum

Das in deinen Code einfügen und in die jeweiligen Button Handlers dass:

Visual Basic Quellcode

 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

  Dim sReturn As String = Strings.Space(256)
  Dim cmd As String
 
  cmd = "open new type waveaudio alias recwave"
  If mciSendString(cmd, sReturn, 256, 0) <> 0 Then
	MsgBox("Fehler beim Anlegen der neuen Aufnahmedatei!", MsgBoxStyle.Exclamation)
	Return (False)
  End If
 
  ' Aufnahmeformat
  Dim ByteRate As Integer = (Mode * BitRate * SampleRate) / 8
  mciSendString("set recwave time format milliseconds" & _
	" bitspersample " & CStr(BitRate) & _
	" samplespersec " & CStr(SampleRate) & _
	" channels " & CStr(Mode) & _
	" bytespersec " & CStr(ByteRate) & _
	" alignment 4", sReturn, 256, 0)
 
  cmd = "record recwave"
  If mciSendString(cmd, sReturn, 256, 0) <> 0 Then
	MsgBox("Fehler bei der Aufnahme!", MsgBoxStyle.Exclamation)
	Return (False)


bzw. das:

Visual Basic Quellcode

 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

 Dim sReturn As String = Strings.Space(256)
  Dim cmd As String
  Dim Result As Boolean = True
 
  cmd = "stop recwave"
  If mciSendString(cmd, sReturn, 256, 0) <> 0 Then
	MsgBox("Fehler beim Beenden der Aufnahme!", MsgBoxStyle.Exclamation)
	Return (False)
  End If
 
  If Filename.Length > 0 Then
	' Aufnhame in Datei speichern
	cmd = "save recwave " & Filename ' Speicherort!
	If mciSendString(cmd, sReturn, 256, 0) <> 0 Then
  	MsgBox("Fehler beim Speichern der Aufnahme.", MsgBoxStyle.Exclamation)
  	Result = False 
	End If
  End If
 
  cmd = "close recwave"
  If mciSendString(cmd, sReturn, 256, 0) <> 0 Then
	MsgBox("Fehler beim Schließen der Aufnahme...", MsgBoxStyle.Exclamation)
  End If
 
  Return (Result)


Falseds immer noch nicht funkt Hau die "Return/Results) raus

Viel Glück! :)

Vincent fischer

hört Klassik

  • »Vincent fischer« ist der Autor dieses Themas

Beiträge: 241

Hilfreich-Bewertungen: 9

  • Private Nachricht senden

13

Sonntag, 25. Oktober 2009, 11:34

Danke xyz, aber wie ereiche ich es

dass beim speichern kein Fehler auf tritt(Erstes beispiel)?

Vincent ^^

Ps. bzw. Zweites Beispiel
»Vincent fischer« hat folgende Datei angehängt:
  • Form1.vb (6,28 kB - 86 mal heruntergeladen - zuletzt: 31. Mai 2013, 02:03)
92% of all kids listen to pop and hip-hop
if you are one of the 8% , who still listen to real music,
copy this in your Signature!

Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von »Vincent fischer« (25. Oktober 2009, 12:50)

xCM2x

Faggotius

  • »xCM2x« ist männlich

Beiträge: 330

Dabei seit: 22. Februar 2009

Frühere Benutzernamen: xCM2x

Hilfreich-Bewertungen: 34

  • Private Nachricht senden

14

Sonntag, 25. Oktober 2009, 12:57

Das erreichst du z.B. indem du NUR die Codestelle postest in der du SPEICHERST, ich hab keine Lust mir so einen Code runterzuladen nur um die Fehlermeldungen/den Code zu sehen
Gaming und Editing - - Mein YouTube Kanal.

hal2000

Super-Moderator

Beiträge: 2 776

Dabei seit: 5. März 2009

Hilfreich-Bewertungen: 231

  • Private Nachricht senden

15

Sonntag, 25. Oktober 2009, 12:58

@xyz: Ich glaube du musst ihm den ganzen Projektordner in einer zip-Datei hochladen, sonst rafft er das nicht. Er kann nur Klicken. Copy&Paste kann er schon nicht mehr.
PS: Benutze bloß keine RAR-Datei, denn die kann Windows ja nicht von alleine öffnen (und Vincent wird WinRAR wahrscheinlich nicht finden, weil er nicht G00geln kann).

EPIC FAIL :thumbdown:
Gruß
hal2000

xyz

unregistriert

16

Sonntag, 25. Oktober 2009, 13:56

Mach vincent doch aml nicht so fertig! Ich glaub ich ahb dein Problem:

Visual Basic Quellcode

 
1

 My.Computer.Audio.Play(pfad.Text, AudioPlayMode.Background)


Vileicht pfad.text+".wav"

Wenn das nicht geht hat der Code nen kleinen Bug es muss gluab ich .wave heisen!

Sory ich find das Projekt nicht mehr ich hab den code nur in ner .txt :pinch:

Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »xyz« (25. Oktober 2009, 14:03)

Vincent fischer

hört Klassik

  • »Vincent fischer« ist der Autor dieses Themas

Beiträge: 241

Hilfreich-Bewertungen: 9

  • Private Nachricht senden

17

Sonntag, 25. Oktober 2009, 14:18

Hier ist der teil im code der speichern soll

Visual Basic Quellcode

 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

Private Function WAVE_RecordStop(ByVal Filename As String) As BooleanDim sReturn As String = Strings.Space(256) 
Dim cmd As String 
Dim Result As Boolean = True 
cmd = "stop recwave" 
If mciSendString(cmd, sReturn, 256, 0) <> 0 ThenMsgBox("Fehler beim Beenden der Aufnahme!", MsgBoxStyle.Exclamation) 
Return (False) 
End If 
If Filename.Length > 0 Then 
' Aufnhame in Datei speicherncmd = "save recwave " & Filename 
If mciSendString(cmd, sReturn, 256, 0) <> 0 ThenMsgBox("Fehler beim Speichern der Aufnahme.", MsgBoxStyle.Exclamation) 
Result = False 
End If 
End If 
cmd = "close recwave" 
If mciSendString(cmd, sReturn, 256, 0) <> 0 ThenMsgBox("Fehler beim Schlieáen der Aufnahme...", MsgBoxStyle.Exclamation) 
End If 
End Function


Vincent 8-)

ps. Es ist .wav, habs grad ausprobiert
92% of all kids listen to pop and hip-hop
if you are one of the 8% , who still listen to real music,
copy this in your Signature!

Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »Vincent fischer« (25. Oktober 2009, 14:35)

Alex2000

unregistriert

18

Sonntag, 25. Oktober 2009, 14:28

Wav Dateien von Mikro und CD aufnehmen

bei mir unter WIN XP läuft wie auf dem butter geschmiert, muß nur der Code in VB NET umsetzen, damit hat sich...ist nicht schwer ! 8-) ;)

fraju

Steinalter Anfänger

Beiträge: 1 420

Dabei seit: 23. Februar 2009

Hilfreich-Bewertungen: 32

  • Private Nachricht senden

19

Sonntag, 25. Oktober 2009, 22:39

hallo
»fraju« hat folgende Datei angehängt:

XProg

Mehr als zuviel

Beiträge: 129

Dabei seit: 13. April 2009

Hilfreich-Bewertungen: 8

  • Private Nachricht senden

20

Dienstag, 3. November 2009, 17:18

@fraju
coole Sache.
Danke :thumbup:
Oh 100.Beiträge :thumbsup:
"Most good programmers do programming not because they expect to get paid or get adulation by the public, but because it is fun to program."

- Linus Torvalds
  • 1
  • 2

Ähnliche Themen

Social Bookmarks