กระทู้เก่าบอร์ด อ.Yeadram
1,414 6
URL.หัวข้อ /
URL
ออกเสียงคำศัพท์ ณ text box ปัจจุบัน
อยากจะเอามาประยุกต์ใช้ในการสอนออกเสียงคำศัพท์นะครับ
ตอนนี้มีโปรแกรมการอ่านออกเสียงภาษาอังกฤษแล้ว ซึ่งเป็นเสียงสังเคราะห์คนอังกฤษ-ชาย สำเนียงอังกฤษ ปกติสอนศัพท์ถ้าขี้เกียจอ่านจะเปิดให้นักเรียนฟัง
ตาม 1 ครั้ง (1 บทประมาณ 145 คำศัพท์) โดยทำต้นฉบับให้มีระยะห่างระหว่างบรรทัดกว้าง เพื่อให้นักเรียนได้ฝึกพูดตามได้ทันก่อนออกเสียงคำศัพท์ใหม่....
แต่ยังอยากพัฒนาบนแอคเซสให้มีปุ่มคลิกออกเสียง ณ ศัพท์ที่แสดงในเท็กซ์บ็อก
ดังกล่าว ไฟล์ desktop.rar
https://www.dropbox.com/sh/ig2emrh118hr92m/AACxvnyWb_Q4e27uQV_rcpoha
มี study.mdb, ศัพท์ออกเสียง 1.mp3, 2.mp3 วางไว้ตรง C:\ครับ ใน
ตารางทำลิงก์เพื่อเชื่อมเสียงแล้ว บนฟอร์มเหลือปุ่มเพื่อคลิกให้อ่านออกเสียง
คำปัจจุบันที่ปรากฏนะครับ อยากได้ลิงก์หรือคำแนะนำในการออกเสียงด้วยไฟล์ mp3 นะครับ
ขอบคุณครับ
ตอนนี้มีโปรแกรมการอ่านออกเสียงภาษาอังกฤษแล้ว ซึ่งเป็นเสียงสังเคราะห์คนอังกฤษ-ชาย สำเนียงอังกฤษ ปกติสอนศัพท์ถ้าขี้เกียจอ่านจะเปิดให้นักเรียนฟัง
ตาม 1 ครั้ง (1 บทประมาณ 145 คำศัพท์) โดยทำต้นฉบับให้มีระยะห่างระหว่างบรรทัดกว้าง เพื่อให้นักเรียนได้ฝึกพูดตามได้ทันก่อนออกเสียงคำศัพท์ใหม่....
แต่ยังอยากพัฒนาบนแอคเซสให้มีปุ่มคลิกออกเสียง ณ ศัพท์ที่แสดงในเท็กซ์บ็อก
ดังกล่าว ไฟล์ desktop.rar
https://www.dropbox.com/sh/ig2emrh118hr92m/AACxvnyWb_Q4e27uQV_rcpoha
มี study.mdb, ศัพท์ออกเสียง 1.mp3, 2.mp3 วางไว้ตรง C:\ครับ ใน
ตารางทำลิงก์เพื่อเชื่อมเสียงแล้ว บนฟอร์มเหลือปุ่มเพื่อคลิกให้อ่านออกเสียง
คำปัจจุบันที่ปรากฏนะครับ อยากได้ลิงก์หรือคำแนะนำในการออกเสียงด้วยไฟล์ mp3 นะครับ
ขอบคุณครับ
6 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R19370
คืนนี้จะทดลองดูครับ ผมต้องไปตามตำแหน่ง shell ว่าควรวางตำแหน่งใดจะวกมาถามอีกนะครับ
3 @R19371
ไม่รู้ช่วยได้ป่าวนะครับ คือผมเคยทำเล่นๆเรื่องการออกเสียงจำนวนเงิน แต่เป็น wave นะครับ ไม่ใช้ mp3 ลองโหลดไปศึกษาดูได้ที่นี่ครับ
http://bit.ly/ThaiVoice
http://bit.ly/ThaiVoice
4 @R19375
นำไปวาง D:\Number_ThaiVoice เจอ errors
Me.Command4.Enabled = False
ของ
Private Sub Command4_Click()
Me.Command4.Enabled = False
DoEvents
Call BahtVoice(Me.Text0, CurrentProject.Path & "\Num")
Me.Command4.Enabled = True
End Sub
ขอบคุณ คุณ TTT, คุณ สันติสุข ครับ
Me.Command4.Enabled = False
ของ
Private Sub Command4_Click()
Me.Command4.Enabled = False
DoEvents
Call BahtVoice(Me.Text0, CurrentProject.Path & "\Num")
Me.Command4.Enabled = True
End Sub
ขอบคุณ คุณ TTT, คุณ สันติสุข ครับ
5 @R19383
ผมทดลองเครื่องหลายเครื่องแล้วก็ใช้ได้นะครับ
6 @R19385
ผมทดลองใช้แล้วก็ใช้ได้ดีนะครับ
Time: 0.3464s
shell """c:\program files\windows media player\wmplayer"" """ + ตัวแปรที่เก็บพาธของไฟล์ mp3 + """" ,vbHide