โอ้โห สงสารนิสิตจบใหม่ๆ จังเลย
ตกงานตั้งแต่ยังไม่หางานกันเลยล่ะ เหอๆ แม้แต่แคชเชียร์ ก็จะไม่ใช้คนแล้วเหรอนี่ อิอิ ล้อเล่นน่ะครับ เดี๋ยวคงมีผู้รู้มาตอบล่ะครับ ตัวผมเองยังไม่เคย จะร่วมรอคำตอบเช่นกันครับ

ผมเคยทำโปรแกรมเรียกคิวครับ แต่ไม่รู้จะส่งให้ดูอย่างไร...

อยากได้เหมือนกันคุณแดน Email ได้ไหมครับ
ถ้าได้ AMOXYDATE@HOTMAIL.COM นะครับ

ต้องการนำไปประยุกต์ใช้เหมือนกันครับ
renoo_2517@hotmail.com
ขอบคุณมากครับ

ลองเอา Code ชุดนี้ไปประยุกตดูครับ
ก่อนอื่นต้องมีไฟล์เสียง

0.WAV ออกเสียงเลข 0
1.WAV ออกเสียงเลข 1
2.WAV ออกเสียงเลข 2
...
9.WAV ออกเสียงเลข 9

และไฟล์ Pre.wav ออกเสียง "เชิญหมายเลข"
และไฟล์ End.wav ออกเสียง "คะ"

code
============
Option Compare Database
Public Declare Function sndPlaySound Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal LpszSoundName As String, _
ByVal uFlags As Long) As Long


Private Sub PlaySound_Click()
Dim Pth As String
Dim I As Integer
Pth = Left(CurrentDb.Name, InStrRev(CurrentDb.Name, "\"))

If IsNumeric(Text0) Then
sndPlaySound Pth & "pre.wav", 0
For I = 1 To Len(Text0)
sndPlaySound Pth & Mid(Text0, I, 1) & ".WAV", 0
Next
sndPlaySound Pth & "end.wav", 1
End If
End Sub

จริงผมตัดไฟล์ให้แล้วเดี๋ยวจะหาที่ Upload ให้

ฝากตัวอย่างไฟล์ไว้ที่นี่ครับ
http://www.access-training.org/2008/modules.php?name=Downloads2&op=getit&lid=126

ขอบคุณอาจารย์มากครับ
จะนำไปประยุกต์เรียกคิวคลีนิค

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

ขอบคุณผู้ตอบกระทู้ทุกท่านมากๆๆๆ ครับ ได้ความรู้เยอะเลยครับ....

ไฟล์ที่ฝากไว้เป็นเพียงตัวอย่างแบบง่ายๆนะครับ...
ใครที่จะเอาไปใช้ต้องเอาไปประยุกต์ต่อนะครับ
เช่น ถ้าจะให้อ่านจำนวนเงิน อันนี้เรื่องยาว เพราะต้องไปหาเสียง สิบ,ร้อย,พัน,หมื่น... รวมทั้ง ยี่,เอ็ด ด้วย
เท่านั้นยังไม่พอ อาจต้องเขียน code เพื่อแปลงจำนวนเงินให้เป็น ตัวเลขไทย... อันนี้พอมี code
แล้วค่อยมาใช้วิธีวนลูปอ่านออกเสียงทีละพยางค์

การแทรกคำก็เหมือนกันครับต้องมีไฟล์เสียงนั้นก่อน
แล้วก็ใช้วิธีเดียวกัน
======================================
Private Sub PlaySound_Click()
Dim Pth As String
Dim I As Integer
Pth = Left(CurrentDb.Name, InStrRev(CurrentDb.Name, "\"))

If IsNumeric(Text0) Then
sndPlaySound Pth & "pre.wav", 0
For I = 1 To Len(Text0)
sndPlaySound Pth & Mid(Text0, I, 1) & ".WAV", 0
Next

':::::::::::เพิ่มช่องบริการ::::::::::::::::::::
If IsNumeric(Text1) Then
For J = 1 To Len(Text1)
sndPlaySound Pth & "CH.wav", 0 For I = 1 To Len(Text1)
sndPlaySound Pth & Mid(Text1, I, 1) & ".WAV", 0
Next
end if
':::::::::::เสียงคะ
sndPlaySound Pth & "end.wav", 1
End If

End Sub
================================
คุณต้องมีไฟล CH.WAV ที่ออกเสียงว่า "ที่ช่องบริการ"
และต้องสร้าง text box ใหม่ ที่ชื่อ text1 ด้วยนะครับ

ว้าว.ๆๆๆ.สุดยอดเลยครับ อาจารย์แดนน้อย ที่กรุณาตอบให้ทันใจดีครับ เพียงเท่านี้ก็สามารถนำไปประยุกต์ใช้งานได้หลากหลายแล้วครับท่าน เรื่องไฟล์เสียงและช่อง text box ใหม่นั้นไม่เป็นปัญหาครับ ปัญหาที่รอคอยมานานคือ Code ต่างๆ ที่ท่านได้กรุณานี่แหละครับคือกุญแจสำคัญที่สุดเลยครับ

โหลดไม่ได้แล้วครับอยากได้อ่ะครับช่วยส่งให้หน่อยได้ไหมครับ...Hs6_geo@hotmail.com

กระทู้นานมากแล้วครับคงหาไม่ได้แล้วหละครับ
ผมจำได้ว่าเคยทำเล่นๆไว้เมื่อปีที่แล้ว ลักษณะแนวๆนี้แหละ เพราะเวลาไปนั่งรอคิวจ่ายนั่นจ่ายนี่ มักได้ยินเสียงแบบนี้บ่อยครั้ง นึกสนุกว่าคงไม่ยากเลยนั่งเขียนดู แต่ไม่เคยได้ใช้จริงซะครั้ง ไว้หาเจอแล้วจะโพสลิ้งค์ให้โหลดนะครับ แต่ไม่รับปากนะครับ

ลองดูนะครับ ขอขอบคุณเสียงจาก Google หน้าแปลภาษาที่ผมอัดมาใช้
ไฟล์ตัวอย่างเสียง

ลืมบอกไปนิดนะครับ ผมทำเล่นๆ โค๊ดเลยไม่กระชับ โค๊ดเป็นการแก้ไขดัดแปลงผมไม่ได้เป็นคนเขียนเองทั้งหมดครับ ไม่มีเครดิตอะไร