| |
 |
| - - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
|
กระทู้ #1724 [Vb] (จาก IP: 202.142.204.1)
โค๊ด บันทึกเสียงพูด ?
ผมอยากทราบว่าโค๊ดในการบันทึกเสียงพูดนะครับว่าเป็นไง
เพื่อที่จะนำเสียงที่ได้ ไปพัฒนา ต่อในการเปรียบเทียบเสียง นะครับ
ช่วยบอกที่นะครับ ขอบใจล่วงหน้านะครับ
|
| จากคุณ
:
เอก / e-kras@hotmail.com [2008-01-13 20:31:57]
|
|
ความคิดเห็น #27729 (จาก IP: 202.29.22.242)
| ผมก็กำลังต้องการซอร์ดโค้ดที่เขียนขึ้นเพื่อบันทึกเสียงเหมือนกันครับ เป็นภาษาโปรแกรมอะไรก็ได้ ขอด้วยคนละกัน เพื่อนำไปใช้ในการศึกษาครับผม |
| จากคุณ
:
aon / aon_cafe2008@hotmail.com [2010-01-17 22:48:33]
|
|
ความคิดเห็น #27876 (จาก IP: 61.7.174.230)
Public Class Reccord
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstyCommand As String, ByVal lpstrReturnString As String, ByVal uRetutnLength As Integer, ByVal hwndCallback As Integer) As Integer
Private Sub Reccord_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Botton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Botton1.Click
Botton1.Enabled = False
Botton2.Enabled = True
mciSendString("open new Type waveaudio Alias recsound", "", 0, 0)
mciSendString("record recsound", "", 0, 0)
Label1.Text = "กำลังบันทึก"
Label1.Visible = True
End Sub
Private Sub Botton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Botton2.Click
Botton1.Enabled = True
Botton2.Enabled = False
Botton3.Enabled = True
mciSendString("save recsound c:\ERestaurant\recsound.wav", "", 0, 0)
mciSendString("close recsound", "", 0, 0)
MsgBox("File Created: C:\ERestaurant\recsound.wav", MsgBoxStyle.OkOnly, "Success")
Label1.Text = "Stopped"
Label1.Visible = False
End Sub
Private Sub Botton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Botton3.Click
Label1.Text = "กำล้งเล่น"
Label1.Visible = True
My.Computer.Audio.Play("c:\ERestaurant\recsound.wav", AudioPlayMode.Background)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.Close()
End Sub
End Class |
| จากคุณ
:
tt [2010-05-13 03:41:47]
|
|
|
| - - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
| |
|
|
New Article
อัตราค่าโฆษณา
