คือผมใส่เสียงได้แล้ว แต่ว่าเสียงที่อัดต้องเป็น
"หมายเลข 1 เชิญที่ช่องบริการ 1"
ต่อ 1 ไฟล์เสียง ถ้ามี 100 คิว ก็ต้องอัด 100 เสียง
ซึ่งที่ผมเห็นเขาทำกัน เขาจะทำเป็นแบบแยกเก็บอะครับ
คือ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 100, 1000, ช่องบริการ, เชิฐหมายเลข โดยแยกกันเก็บเป็นคนละไฟล์เลย
เวลาเรียกใช้เสียง ก็เหมือนเอาเสียงพวกนี้มาต่อกันอะครับ
แต่ผมทำไม่เป็น ไม่รู้ต้องเขียน code อย่างไร ช่วยชี้แนะทีครับ
อันนี้คือ code ที่ผมเขียนไว้ครับ
"หมายเลข 1 เชิญที่ช่องบริการ 1"
ต่อ 1 ไฟล์เสียง ถ้ามี 100 คิว ก็ต้องอัด 100 เสียง
ซึ่งที่ผมเห็นเขาทำกัน เขาจะทำเป็นแบบแยกเก็บอะครับ
คือ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 100, 1000, ช่องบริการ, เชิฐหมายเลข โดยแยกกันเก็บเป็นคนละไฟล์เลย
เวลาเรียกใช้เสียง ก็เหมือนเอาเสียงพวกนี้มาต่อกันอะครับ
แต่ผมทำไม่เป็น ไม่รู้ต้องเขียน code อย่างไร ช่วยชี้แนะทีครับ
อันนี้คือ code ที่ผมเขียนไว้ครับ
- Code:
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <FontConstants.au3>
#Include <File.au3>
#include <WINAPI.au3>
HotKeySet("{Space}", "_OpenCard")
HotKeySet("{Delete}", "_DeleteCard")
HotKeySet("{ESC}", "_Exit")
Global $hFile = @ScriptDir & "\ServiceCard.txt"
Global $Form1 = GUICreate("", 1152, 864, -1, -1, -1, BitOR($WS_EX_TOPMOST,$WS_EX_WINDOWEDGE))
GUISetBkColor(0x0000FF)
$Form1context = GUICtrlCreateContextMenu()
$MenuItem1 = GUICtrlCreateMenu("เมนูโปรแกรม", $Form1context)
$MenuItem2 = GUICtrlCreateMenu("เมนูบัตรคิว", $MenuItem1)
$MenuItem3 = GUICtrlCreateMenuItem("เมนูวันเวลา", $MenuItem2)
$MenuItem9 = GUICtrlCreateMenuItem("", $MenuItem2)
$MenuItem7 = GUICtrlCreateMenuItem("เปิดวันเวลา", $MenuItem2)
$MenuItem8 = GUICtrlCreateMenuItem("ปิดวันเวลา", $MenuItem2)
$MenuItem6 = GUICtrlCreateMenuItem("", $MenuItem1)
$MenuItem10 = GUICtrlCreateMenuItem("เรียกบัตร", $MenuItem1)
$MenuItem11 = GUICtrlCreateMenuItem("เคลียร์บัตร", $MenuItem1)
$MenuItem4 = GUICtrlCreateMenuItem("", $Form1context)
$MenuItem5 = GUICtrlCreateMenuItem("ปิดโปรแกรม", $Form1context)
Global $Label1 = GUICtrlCreateLabel("", 0, 400, 1152, 78, $SS_CENTER)
GUICtrlSetFont(-1, 48, 800, 0, "KodchiangUPC")
GUICtrlSetColor(-1, 0xFFFFFF)
Global $Label2 = GUICtrlCreateLabel("", 10, 50, 1152, 78, $SS_CENTER)
GUICtrlSetColor(-1, 0x0000FF)
_WinAnimate($Form1, 0x00080000, 1000)
GUISetState()
AdlibRegister("_timer", 1000)
If Not FileExists($hFile)Then FileWrite($hFile, "")
If _FileCountLines($hFile)=0 Then
GUICtrlSetData($Label1, "ยังไม่มีคิว กดปุ่ม Space เรียกบัตรคิว")
Else
Dim $x, $FLcount
For $x = 1 To 1000
$FLcout = _FileCountLines($hFile)
If $FLcount = "" Then ExitLoop
Next
GUICtrlSetData($Label1, "หมายเลข: 0" & $FLcout & " เชิญที่ช่องบริการ: " & $FLcout)
EndIf
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_WinAnimate($Form1, 0x00050010, 1000)
ExitLoop
Case $MenuItem10
_GetCard()
Case $MenuItem5
_WinAnimate($Form1, 0x00050010, 1000)
ExitLoop
Case $MenuItem11
_DeleteCard()
Case $MenuItem7
GUICtrlSetFont(-1, 36, 400, 0, "KodchiangUPC")
GUICtrlSetColor(-1, 0xFFFFFFF)
Case $MenuItem8
GUICtrlSetColor(-1, 0x0000FF)
EndSwitch
WEnd
Func _timer()
GUICtrlSetData($Label2, @MDAY & "/" & @MON & "/" & @YEAR & " " & @HOUR & ":" & @MIN &":"& @SEC)
EndFunc
Func _WinAnimate($v_gui, $i_mode, $i_duration = 1000)
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", WinGetHandle($v_gui), "int", $i_duration, "long", $i_mode)
Local $ai_gle = DllCall('kernel32.dll', 'int', 'GetLastError')
If $ai_gle[0] <> 0 Then
SetError(1)
Return 0
EndIf
Return 1
EndFunc
Func _GetCard()
Local $i
For $i = 1 To 1000
If FileReadLine($hFile, $i) = "" Then
_FileWriteToLine($hFile, $i, ": " & $i, 1)
GUICtrlSetData($Label1, "หมายเลข: 0" & $i & " เชิญที่ช่องบริการ" & FileReadLine($hFile, $i))
If _FileCountLines($hFile)=1 Then
SoundPlay(@ScriptDir & "\sch1.wav")
ElseIf _FileCountLines($hFile)=2 Then
SoundPlay(@ScriptDir & "\sch2.wav")
Else
SoundPlay(@ScriptDir & "\sch3.wav")
EndIf
Return
EndIf
Next
EndFunc
Func _DeleteCard()
If _FileCountLines($hFile)<>0 Then
FileDelete($hFile)
FileWrite($hFile, "")
GUICtrlSetData($Label1, "เคลียร์บัตรคิวทั้งหมด")
Sleep(2000)
GUICtrlSetData($Label1, "ยังไม่มีคิว กดปุ่ม Space เรียกบัตรคิว")
EndIf
EndFunc
Func _OpenCard()
_GetCard()
EndFunc
Func _Exit()
_WinAnimate($Form1, 0x00050010, 1000)
GUIDelete()
Exit
EndFunc