Mare problema cu visual basic

#1
zbudulau00

Posted 14 September 2007 - 20:13

Junior Member

Grup: Members
Posts: 32
Înscris: 03.08.2007

Am urmatorul cod:

Private Sub Command1_Click()

CommonDialog1.CancelError = True
On Error GoTo ErrHandler1
    CommonDialog1.Filter = "WAV file (*.wav*)|*.wav"
    CommonDialog1.Flags = &H2 Or &H400
    CommonDialog1.ShowSave

'If file already exists then remove it
FileFound CommonDialog1.FileName
If ValidFile = True Then
  Kill CommonDialog1.FileName
End If

'MCI command to save the WAV file
     i = mciSendString("save capture " & CommonDialog1.FileName, 0&, 0, 0)

ErrHandler1:
End Sub

Private Sub Command2_Click()

'Samples Per Second that are supported:
'11025       low quality
'22050       medium quality
'44100     high quality (CD music quality)

'Bits per sample is 16 or 8

'Channels are 1 (mono) or 2 (stereo)

i = mciSendString("seek capture to end", 0&, 0, 0) 'Always start at the beginning
i = mciSendString("set capture samplespersec 44100", 0&, 0, 0) 'CD Quality
i = mciSendString("set capture bitspersample 16", 0&, 0, 0)  '16 bits for better sound
i = mciSendString("set capture channels 2", 0&, 0, 0) ' 2 channels for stereo
i = mciSendString("record capture", 0&, 0, 0)  'Start the recording

Command3.Enabled = True  'Enable the STOP BUTTON
Command4.Enabled = False  'Disable the "PLAY" button
Command1.Enabled = False  'Disable the "SAVE AS" button
End Sub

Private Sub Command3_Click()
  i = mciSendString("stop capture", 0&, 0, 0)

Command1.Enabled = True 'Enable the "SAVE AS" button
Command4.Enabled = True 'Enable the "PLAY" button

End Sub

Private Sub Command4_Click()
  i = mciSendString("play capture from 0", 0&, 0, 0)
End Sub

Private Sub Command5_Click()
Dim msg As String
Dim mssg As String * 255

  i = mciSendString("set capture time format ms", 0&, 0, 0)
  i = mciSendString("status capture length", mssg, 255, 0)
msg = "Milliseconds = " & Str(mssg) & vbCrLf

  i = mciSendString("set capture time format bytes", 0&, 0, 0)
  i = mciSendString("status capture length", mssg, 255, 0)
msg = msg & "Bytes = " & Str(mssg) & vbCrLf

i = mciSendString("status capture channels", mssg, 255, 0)
If Str(mssg) = 1 Then
   msg = msg & "Channels = 1 (mono)" & vbCrLf
ElseIf Str(mssg) = 2 Then
   msg = msg & "Channels = 2 (stereo)" & vbCrLf
End If

i = mciSendString("status capture bitspersample", mssg, 255, 0)
   msg = msg & "Bits per sample = " & Str(mssg) & vbCrLf

i = mciSendString("status capture bytespersec", mssg, 255, 0)
   msg = msg & "Bytes per second = " & Str(mssg) & vbCrLf

Label3.Caption = msg

End Sub

Private Sub Form_Load()

'Close any MCI operations from previous VB programs
i = mciSendString("close all", 0&, 0, 0)

'Open a new WAV with MCI Command...
i = mciSendString("open new type waveaudio alias capture", 0&, 0, 0)

End Sub

Private Sub Form_Unload(Cancel As Integer)
i = mciSendString("close capture", 0&, 0, 0)
End Sub

Private Sub Timer1_Timer()
Dim mssg As String * 255

i = mciSendString("status capture mode", mssg, 255, 0)
Label1.Caption = " " & mssg
End Sub

- cum pot sa deschid 2 fisiere de sunet si pe al doilea sa-l adaug la primul?
- prezentul cod, printre altele, imi uneste doua inregistrari pe care le fac in timp real.

Back to top

#2
teddycarebears

Posted 14 September 2007 - 21:07

Member

Grup: Members
Posts: 247
Înscris: 18.02.2003

stiu ca linkul de mai jos ofera o solutie in C# insa e cea mai bine explicata chestie care am gasit-o eu si sper sa te ajute ...

http://www.codeproje..._Wave_Files.asp

un alt link ar fi http://www.hydrogena...showtopic=33076

spor si bafta ...

Back to top

#3
zbudulau00

Posted 16 September 2007 - 21:00

Junior Member

Grup: Members
Posts: 32
Înscris: 03.08.2007

teddycarebears, on Sep 14 2007, 12:07, said:

stiu ca linkul de mai jos ofera o solutie in C# insa e cea mai bine explicata chestie care am gasit-o eu si sper sa te ajute ...

http://www.codeproje..._Wave_Files.asp

un alt link ar fi http://www.hydrogena...showtopic=33076

spor si bafta ...

meris frumos.e exact ce-mi trebuia.promit ca daca-mi iese progamelul te invit la o bere.vb.daca e, lasa un id de mess, poate mai intrebari la care ai putea sa-mi raspunzi u.

Back to top

Anunturi

Chirurgia spinală minim invazivă

Chirurgia spinală minim invazivă oferă pacienților oportunitatea unui tratament eficient, permițându-le o recuperare ultra rapidă și nu în ultimul rând minimizând leziunile induse chirurgical.

Echipa noastră utilizează un spectru larg de tehnici minim invazive, din care enumerăm câteva: endoscopia cu variantele ei (transnazală, transtoracică, transmusculară, etc), microscopul operator, abordurile trans tubulare și nu în ultimul rând infiltrațiile la toate nivelurile coloanei vertebrale.

www.neurohope.ro

Mare problema cu visual basic

#1 zbudulau00 Posted 14 September 2007 - 20:13

#2 teddycarebears Posted 14 September 2007 - 21:07

#3 zbudulau00 Posted 16 September 2007 - 21:00

Anunturi

▶ 0 user(s) are reading this topic

Sign In

#1
zbudulau00

Posted 14 September 2007 - 20:13

#2
teddycarebears

Posted 14 September 2007 - 21:07

#3
zbudulau00

Posted 16 September 2007 - 21:00