Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,036

HOME > .NET Framework > Forum > พอมีแนวทาง VB กับไฟล์มัลติมีเดีย พวกเสียงไหมครับช่วยผมหน่อยครับ



 

พอมีแนวทาง VB กับไฟล์มัลติมีเดีย พวกเสียงไหมครับช่วยผมหน่อยครับ

 



Topic : 055352



โพสกระทู้ ( 28 )
บทความ ( 0 )



สถานะออฟไลน์




พอดีจะสร้างโปรแกรมเกี่ยวกับระบบสังเคราะห์เสียงโดยคิดว่าจะใช้ vb

คือสร้าง textbox ให้กรอกตัวเลขเข้าไป แล้วกดปุ่มอ่าน ให้โปรแกรมไปดึงเสียงที่บันทึกไว้มาเล่นต่อกันตามตัวเลขที่กรอกครับ

พี่ๆพอมีแนวทางหรือคำชี้แนะหรือแนวคิดในการทำบ้างไหมครับ



Tag : .NET, VB.NET







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2011-01-31 17:46:07 By : sayki View : 1195 Reply : 4
 

 

No. 1



โพสกระทู้ ( 373 )
บทความ ( 0 )



สถานะออฟไลน์


ตัวเลขที่กรอกคือกรอกอะไรครับ
ถ้าเป็น timeline ของเสียงที่บันทึกไว้ เขาไม่เรียกโปรแกรมสังเคราะห์เสียงครับ เขาเรียกโปรแกรมตัดต่อเสียง

ถ้าจะสังเคราะห์เสียงต้องเล่นที่ความถี่ครับ ลองหาข้อมูลในเนตดูครับ มีความรู้พอสมควร






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-01-31 21:52:30 By : numenoy
 


 

No. 2



โพสกระทู้ ( 28 )
บทความ ( 0 )



สถานะออฟไลน์


อ๋อ ประมาณว่าเราเก็บเสียงไว้เช่น 0-9 เวลาเรากรอกตัวเลขเข้าไปแล้วกดให้มันอ่านมันก็เอาเลข 0-9 มาต่อกันแล้วเล่นออกมาเป็นเสียงให้เรา

ประมาณนี้หละครับพี่ อันนี้ผมใช้กรณีเลข 0-9 ก่อนนะครับ พอมีแนวทางไหมครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-02-01 14:40:34 By : sayki
 

 

No. 3



โพสกระทู้ ( 28 )
บทความ ( 0 )



สถานะออฟไลน์


พอจะมี code ให้ศึกษาสักนิดไหมครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-02-02 19:25:04 By : sayki
 


 

No. 4



โพสกระทู้ ( 28 )
บทความ ( 0 )



สถานะออฟไลน์


ถามเองตอบเองครับ ทำได้แล้วครับเอาเป็นกรณีศึกษา

Imports System.IO
Public Class Form1
Dim Filename As String
Dim SW As StreamWriter
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

With SaveFileDialog1
Filename = (Application.StartupPath & "\test")
SW = New StreamWriter(Filename)

Dim luk1 As Integer
Dim luk10 As Integer
Dim luk100 As Integer
Dim luk1K As Integer
Dim luk10K As Integer
Dim luk100K As Integer
Dim luk1M As Integer
Dim luk10M As Integer
Dim luk100M As Integer
Dim sum As Integer

luk1 = CDbl(TextBox1.Text) Mod 10
luk10 = (CDbl(TextBox1.Text) Mod 100) \ 10
luk100 = (CDbl(TextBox1.Text) Mod 1000) \ 100
luk1K = (CDbl(TextBox1.Text) Mod 10000) \ 1000
luk10K = (CDbl(TextBox1.Text) Mod 100000) \ 10000
luk100K = (CDbl(TextBox1.Text) Mod 1000000) \ 100000
luk1M = (CDbl(TextBox1.Text) Mod 10000000) \ 1000000
luk10M = (CDbl(TextBox1.Text) Mod 100000000) \ 10000000
luk100M = (CDbl(TextBox1.Text) Mod 1000000000) \ 100000000

sum = luk10 + luk100 + luk1K + luk10K + luk100K + luk1M + luk10M + luk100M

'-------------------------------------------------หลักร้อยล้าน----------------------------------------
If luk100M > 0 Then
SW.Write("Read from file... " & Application.StartupPath & "\voice\Man\" & luk100M & ".wav" & (ControlChars.NewLine))
SW.Write("Play" & (ControlChars.NewLine))
SW.Write("Read from file... " & Application.StartupPath & "\voice\Man\100.wav" & (ControlChars.NewLine))
SW.Write("Play" & (ControlChars.NewLine))


If luk1M = 0 And luk10M = 0 Then
SW.Write("Read from file... " & Application.StartupPath & "\voice\Man\1m.wav" & (ControlChars.NewLine))
SW.Write("Play" & (ControlChars.NewLine))
End If
End If

'-------------------------------------------------หลักสิบล้าน----------------------------------------

If luk10M > 2 Then
SW.Write("Read from file... " & Application.StartupPath & "\voice\Man\" & luk10M & ".wav" & (ControlChars.NewLine))
SW.Write("Play" & (ControlChars.NewLine))
SW.Write("Read from file... " & Application.StartupPath & "\voice\Man\10.wav" & (ControlChars.NewLine))
SW.Write("Play" & (ControlChars.NewLine))

If luk1M = 1 Then
SW.Write("Read from file... " & Application.StartupPath & "\voice\Man\ed.wav" & (ControlChars.NewLine))
SW.Write("Play" & (ControlChars.NewLine))
SW.Write("Read from file... " & Application.StartupPath & "\voice\Man\1m.wav" & (ControlChars.NewLine))
SW.Write("Play" & (ControlChars.NewLine))
End If

If luk1M = 0 Then
SW.Write("Read from file... " & Application.StartupPath & "\voice\Man\1m.wav" & (ControlChars.NewLine))
SW.Write("Play" & (ControlChars.NewLine))
End If


ElseIf luk10M = 2 Then
SW.Write("Read from file... " & Application.StartupPath & "\voice\Man\20.wav" & (ControlChars.NewLine))
SW.Write("Play" & (ControlChars.NewLine))

If luk1M = 1 Then
SW.Write("Read from file... " & Application.StartupPath & "\voice\Man\ed.wav" & (ControlChars.NewLine))
SW.Write("Play" & (ControlChars.NewLine))
SW.Write("Read from file... " & Application.StartupPath & "\voice\Man\1m.wav" & (ControlChars.NewLine))
SW.Write("Play" & (ControlChars.NewLine))
End If

If luk1M = 0 Then
SW.Write("Read from file... " & Application.StartupPath & "\voice\Man\1m.wav" & (ControlChars.NewLine))
SW.Write("Play" & (ControlChars.NewLine))
End If


ElseIf luk10M = 1 Then
SW.Write("Read from file... " & Application.StartupPath & "\voice\Man\10.wav" & (ControlChars.NewLine))
SW.Write("Play" & (ControlChars.NewLine))

If luk1M = 1 Then
SW.Write("Read from file... " & Application.StartupPath & "\voice\Man\ed.wav" & (ControlChars.NewLine))
SW.Write("Play" & (ControlChars.NewLine))
SW.Write("Read from file... " & Application.StartupPath & "\voice\Man\1m.wav" & (ControlChars.NewLine))
SW.Write("Play" & (ControlChars.NewLine))
End If

If luk1M = 0 Then
SW.Write("Read from file... " & Application.StartupPath & "\voice\Man\1m.wav" & (ControlChars.NewLine))
SW.Write("Play" & (ControlChars.NewLine))
End If
End If
'-----------------------------------------หลักล้าน------------------------------------------------

If luk1M > 1 Then
SW.Write("Read from file... " & Application.StartupPath & "\voice\Man\" & luk1M & ".wav" & (ControlChars.NewLine))
SW.Write("Play" & (ControlChars.NewLine))
SW.Write("Read from file... " & Application.StartupPath & "\voice\Man\1m.wav" & (ControlChars.NewLine))
SW.Write("Play" & (ControlChars.NewLine))

ElseIf luk1M = 1 And luk10M = 0 Then
SW.Write("Read from file... " & Application.StartupPath & "\voice\Man\" & luk1M & ".wav" & (ControlChars.NewLine))
SW.Write("Play" & (ControlChars.NewLine))
SW.Write("Read from file... " & Application.StartupPath & "\voice\Man\1m.wav" & (ControlChars.NewLine))
SW.Write("Play" & (ControlChars.NewLine))

End If

'------------------------------------------หลักแสน-----------------------------------------------
If luk100K > 0 Then
SW.Write("Read from file... " & Application.StartupPath & "\voice\Man\" & luk100K & ".wav" & (ControlChars.NewLine))
SW.Write("Play" & (ControlChars.NewLine))
SW.Write("Read from file... " & Application.StartupPath & "\voice\Man\100K.wav" & (ControlChars.NewLine))
SW.Write("Play" & (ControlChars.NewLine))
End If

'------------------------------------------หลักหมื่น-----------------------------------------------
If luk10K > 0 Then
SW.Write("Read from file... " & Application.StartupPath & "\voice\Man\" & luk10K & ".wav" & (ControlChars.NewLine))
SW.Write("Play" & (ControlChars.NewLine))
SW.Write("Read from file... " & Application.StartupPath & "\voice\Man\10K.wav" & (ControlChars.NewLine))
SW.Write("Play" & (ControlChars.NewLine))
End If

'------------------------------------------หลักพัน-----------------------------------------------
If luk1K > 0 Then
SW.Write("Read from file... " & Application.StartupPath & "\voice\Man\" & luk1K & ".wav" & (ControlChars.NewLine))
SW.Write("Play" & (ControlChars.NewLine))
SW.Write("Read from file... " & Application.StartupPath & "\voice\Man\1K.wav" & (ControlChars.NewLine))
SW.Write("Play" & (ControlChars.NewLine))
End If

'------------------------------------------หลักร้อย-----------------------------------------------
If luk100 > 0 Then
SW.Write("Read from file... " & Application.StartupPath & "\voice\Man\" & luk100 & ".wav" & (ControlChars.NewLine))
SW.Write("Play" & (ControlChars.NewLine))
SW.Write("Read from file... " & Application.StartupPath & "\voice\Man\100.wav" & (ControlChars.NewLine))
SW.Write("Play" & (ControlChars.NewLine))
End If


'------------------------------------------หลักสิบ-----------------------------------------------
If luk10 > 2 Then
SW.Write("Read from file... " & Application.StartupPath & "\voice\Man\" & luk10 & ".wav" & (ControlChars.NewLine))
SW.Write("Play" & (ControlChars.NewLine))
SW.Write("Read from file... " & Application.StartupPath & "\voice\Man\10.wav" & (ControlChars.NewLine))
SW.Write("Play" & (ControlChars.NewLine))
ElseIf luk10 = 1 Then
SW.Write("Read from file... " & Application.StartupPath & "\voice\Man\10.wav" & (ControlChars.NewLine))
SW.Write("Play" & (ControlChars.NewLine))
ElseIf luk10 = 2 Then
SW.Write("Read from file... " & Application.StartupPath & "\voice\Man\20.wav" & (ControlChars.NewLine))
SW.Write("Play" & (ControlChars.NewLine))
End If

'------------------------------------------หลักหน่วย-----------------------------------------------
If luk1 = 1 And sum > 0 Then
SW.Write("Read from file... " & Application.StartupPath & "\voice\Man\ed.wav" & (ControlChars.NewLine))
SW.Write("Play" & (ControlChars.NewLine))
ElseIf luk1 > 0 Then
SW.Write("Read from file... " & Application.StartupPath & "\voice\Man\" & luk1 & ".wav" & (ControlChars.NewLine))
SW.Write("Play" & (ControlChars.NewLine))
ElseIf luk1 = 0 And sum = 0 Then
SW.Write("Read from file... " & Application.StartupPath & "\voice\Man\0.wav" & (ControlChars.NewLine))
SW.Write("Play" & (ControlChars.NewLine))


End If

SW.Flush()
SW.Close()
End With
Shell("command.bat")
End Sub


'------------------------------------------------------ Add "," ----------------------------------------------------------------------------------------------------
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim number As Integer
Dim str As String
'------------------------------ input frist = 0 ------------------------------
If TextBox1.Text = "0" Then
TextBox1.Text = "0"
Return
ElseIf TextBox1.Text = "00" Then
TextBox1.Text = "0"
TextBox1.Select(TextBox1.Text.Length, 1)
Return
'---------------------------- remove all input --------------------------
ElseIf TextBox1.Text = "" Then
TextBox1.Text = ""
Return
End If
'------------------------------- add "," in number -------------------------
number = CInt(TextBox1.Text)
str = number.ToString("#,#")
TextBox1.Text = str
TextBox1.Select(TextBox1.Text.Length, 1)

End Sub

Private Sub AboutUsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutUsToolStripMenuItem.Click
AboutBox1.ShowDialog()
End Sub
End Class
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-02-03 04:08:11 By : sayki
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : พอมีแนวทาง VB กับไฟล์มัลติมีเดีย พวกเสียงไหมครับช่วยผมหน่อยครับ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 00
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2024 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่