ส่วนต่อไปนี้เป็นเนื้อหาเก่าย้ายที่มารวมกันไว้ให้เป็นที่นะครับ
อยากเขียนโปรแกรมสำหรับร้องเพลงคาราโอเกะบนลีนุกมานานแย้วแต่พบว่า ไฟล์ cur ของ nick karaoke นี่มัน มัน มัน มันไม่เป็นมาตรฐาน คือ เมืองนอกเขามักใช้ไฟล์ .kar กันแต่ใน nick ใช้ .cur กับ .lyr แทน หาแทบตายว่า cur มันเก็บข้อมูลยังไง โชคดีไปเจอมา จดไว้ จดไว้
ข้อความจากเว็บของ Nick karaoke
How to Read .CUR, .LYR, .MID
- .CUR เป็น MIDI Time Step ที่ผมออกแบบไว้เอง เป็น ข้อมูลแบบ WORD ( 2 Byte ) ต่อกันในแบบ Binary ไฟล์ เป็น Step ที่มีการลาก หรือ ปาดเนื้อเพลง เวลาอ่านค่าจาก ไฟล์ ต้องอ่าน มา 2 Byte ต่อกัน
- โปรแกรมตัวอย่างข้างล่างนี้ จะดึงข้อมูลมาทีละ Byte แล้วมาต่อกัน เป็นค่าเวลา แล้วเก็บในตัวแปร ที่เตรียมไว้ในแบบ Array
- ทุกครั้งที่มีการเลื่อนของตัวอักษร ที่เลือกว่าปาดเนื้อเพลง โปรแกรม Karaoke จะเก็บค่าเวลาลงใน File นี้ ดดยดูว่า ณขณะนั้น MIDI Time เป็นเท่าไร
- เวลาที่โปรแกรม karaoke เล่นเพลง ก็จะคอย ตรวจเวลาใน MCI ว่าถึงเวลาที่ต้องปาดเนื้อไปที่ตัวอักษรต่อไปหรือยัง โดยเปรัยบเทียบกับค่าใน CUR นี้
- การปาดเนื้อจะนัดทุกตัวอักษร สระ และรวมนับการขึ้นบรรทัดด้วย เช่นมีเพลงที่เนื้อเพลง 10 บรรทัด 250 ตัวอักษร จะมี CUR ประมาณ 250+10 ( ไม่รวม 4 บรรทัดแรก )
- .LYR เป็o Text ไฟล์ธรรมดา บรรทัดที่ 1 เก็บชื่อเพลง, บรรทัดที่ 2 เก็บชื่อศิลปิน , บรรทัดที่ 3 เก็บ Key เพลง , บรรทัดที่ 4 ไม่ใช้, บรรทัดที่ 5 - บรรทัดสุดท้าย เป็นเนื้อเพลง เมื่อประกอบกับ MIDI ก็จะเป็น KARAOKE , MIDI ไม่ต้องทำอะไรมาก ใช้ WINMCI เปิดก็จะใช้ได้เลยครับ สำหรับวิธีเปิด .CUR, .LYR ผมได้คัดลอก Code ให้มาลองดูเป็นตัวอย่างข้างล่างนี้แล้ว เพื่อจะได้เป็นประโยชน์กับ บางท่านที่สนใจในการเปิดอ่านไฟล์เหล่านี้ เขียนไว้เป็น VB นะครับ เป็นตัวอย่างเล็กๆ ที่ ใช้อ่านไฟล์ มาเก็บไว้ในตัวแปร Array ไว้
Indent อาจจะไม่ดีนะครับ เพราะผมไม่ได้ใส่ Space ให้
Sub LoadCursor()
'--- Load Cursor
'ตัวแปร Tmpb1, Tmpb1 เป็น Byte อ่าน Data จาก CUR ที่ละ Byte มาประกอบกันเป็น WORD
'
Dim Tmpb1 as byte, tmpb2 as Byte
ReDim Cursor(0) 'เตรียม Array สำหรับเก็บค่าเวลา
filenum = FreeFile 'เตรียมเปิด File ดดยกำหนดเลขที่ไฟล์ว่าง
Open CursorPath AMP; "\" AMP; SongStr AMP; ".cur" For Random As filenum Len = 1
totalLine = 0
If Err = 0 Then
Do Until EOF(filenum)
Get filenum, , tmpb1 'Byte ที่ 1
Get filenum, , tmpb2 'Byte ที่ 2
If Not (Asc(tmpb2) = 255) Then 'ท้ายไฟล์ Byte ที่เป็นเลขคู่ จะมีค่าเป็น AMP;HFF
ReDim Preserve Cursor(totalLine + 1) 'ขยาย Array สำหรับเก็บค่าเวลา
'ใส่ ASC เพื่อถอดค่าที่อ่านมาได้เป็นตัวเลข เพราะค่า Byte ที่อ่านมาได้จะเป็น ตัวอักษรขนาด 1 Byte แล้วคูณด้วย 256 หรือ Shift 16 Bit
Cursor(totalLine) = Asc(tmpb1) + Asc(tmpb2) * 256
totalLine = totalLine + 1
End If
Loop
Close #filenum
End If
End Sub
Sub LoadLyrics()
'--- Load Lyrics
'
'
filenum = FreeFile
Open LyricPath AMP; "\" AMP; SongStr AMP; ".lyr" For Input As filenum
totalLine = 0
repi = -1
If Err = 0 Then
Do Until EOF(filenum)
ReDim Preserve Lyric(totalLine + 1)
Line Input #filenum, tmpstr
Lyric(totalLine) = tmpstr
totalLine = totalLine + 1
Loop
Close #filenum
End If
End Sub
// จะได้มีกำลังใจลองทำซักทีโปรแกรมคาราโอเกะ ฮา ฮา ฮ่า
'--- Load Cursor
'ตัวแปร Tmpb1, Tmpb1 เป็น Byte อ่าน Data จาก CUR ที่ละ Byte มาประกอบกันเป็น WORD
'
Dim Tmpb1 as byte, tmpb2 as Byte
ReDim Cursor(0) 'เตรียม Array สำหรับเก็บค่าเวลา
filenum = FreeFile 'เตรียมเปิด File ดดยกำหนดเลขที่ไฟล์ว่าง
Open CursorPath AMP; "\" AMP; SongStr AMP; ".cur" For Random As filenum Len = 1
totalLine = 0
If Err = 0 Then
Do Until EOF(filenum)
Get filenum, , tmpb1 'Byte ที่ 1
Get filenum, , tmpb2 'Byte ที่ 2
If Not (Asc(tmpb2) = 255) Then 'ท้ายไฟล์ Byte ที่เป็นเลขคู่ จะมีค่าเป็น AMP;HFF
ReDim Preserve Cursor(totalLine + 1) 'ขยาย Array สำหรับเก็บค่าเวลา
'ใส่ ASC เพื่อถอดค่าที่อ่านมาได้เป็นตัวเลข เพราะค่า Byte ที่อ่านมาได้จะเป็น ตัวอักษรขนาด 1 Byte แล้วคูณด้วย 256 หรือ Shift 16 Bit
Cursor(totalLine) = Asc(tmpb1) + Asc(tmpb2) * 256
totalLine = totalLine + 1
End If
Loop
Close #filenum
End If
End Sub
Sub LoadLyrics()
'--- Load Lyrics
'
'
filenum = FreeFile
Open LyricPath AMP; "\" AMP; SongStr AMP; ".lyr" For Input As filenum
totalLine = 0
repi = -1
If Err = 0 Then
Do Until EOF(filenum)
ReDim Preserve Lyric(totalLine + 1)
Line Input #filenum, tmpstr
Lyric(totalLine) = tmpstr
totalLine = totalLine + 1
Loop
Close #filenum
End If
End Sub
// จะได้มีกำลังใจลองทำซักทีโปรแกรมคาราโอเกะ ฮา ฮา ฮ่า
ส่วนนี้เป็นของคนในบอร์ด โพสมานะครับ เกี่ยวกับการจัดการไฟล์เสียง เวลา etc
