To NokDoc

[mehdi]

I 've tried to analyse your source code (ringtone conversion)
but i got some problems like missing Functions!
can you help me with providing me the source of :
q_GetNoteNr ; q_GetNoteDur ; Q_GetBPMStr and q_hex
thanks!

[NokDoc]

Hi Mr. Mehdi, Sure!

I like your work(-s)!
Already thinking on TEXT/ FONT chunk proggy?

Function q_hex:
byte > hex-string*2. (255>"FF")

Function Q_GetBPMStr(InV As Byte) As String '0-31 >> 40-900BMP
Dim Iy As String
Select Case InV
Case 8 To 9: Iy = "40"
Case 10 To 11: Iy = "45"
Case 12 To 13: Iy = "50"
Case 14 To 15: Iy = "56"
Case 16 To 17: Iy = "63"
Case 18 To 19: Iy = "70"
Case 20 To 21: Iy = "80"
Case 22 To 23: Iy = "90"
Case 24 To 25: Iy = "100"
Case 26 To 27: Iy = "112"
Case 28 To 29: Iy = "125"
Case 30 To 32: Iy = "140"

'Eigen Interpretatie!!
Case 33 To 34: Iy = "160"
Case 35 To 36: Iy = "180"
Case 37 To 38: Iy = "200"
Case 39 To 40: Iy = "225"
Case 41 To 42: Iy = "250"
Case 43 To 44: Iy = "285"
Case 45 To 46: Iy = "320"
Case 47 To 48: Iy = "355"
Case 49 To 50: Iy = "400"
Case 51 To 52: Iy = "450"
Case 53 To 54: Iy = "500"
Case 55 To 56: Iy = "565"
Case 57 To 58: Iy = "635"
Case 59 To 60: Iy = "715"
Case 61 To 62: Iy = "800"
Case 63 To 64: Iy = "900"
Case Else: Iy = "63" 'Illegal Values
End Select
Q_GetBPMStr = Iy
End Function

Function q_GetNoteNr(Ij As String) As String ' eg 4 > D#
Select Case Trim(Ij)
Case "0": q_GetNoteNr = "p" 'or "P"???
Case "1": q_GetNoteNr = "C"
Case "2": q_GetNoteNr = "C#"
Case "3": q_GetNoteNr = "D"
Case "4": q_GetNoteNr = "D#"
Case "5": q_GetNoteNr = "E"
Case "6": q_GetNoteNr = "F"
Case "7": q_GetNoteNr = "F#"
Case "8": q_GetNoteNr = "G"
Case "9": q_GetNoteNr = "G#"
Case "A": q_GetNoteNr = "A"
Case "B": q_GetNoteNr = "A#"
Case "C": q_GetNoteNr = "B"
Case Else
q_GetNoteNr = "*"
End Select
End Function

Function q_GetNoteDur(Ij As String) As String ' eg 6 > 8
Select Case Trim(Ij)
Case "0": q_GetNoteDur = "1" 'or "P"???
Case "2": q_GetNoteDur = "2"
Case "3": q_GetNoteDur = "3" 'Correct??
Case "4": q_GetNoteDur = "4"
Case "5": q_GetNoteDur = "6" 'Correct??
Case "6": q_GetNoteDur = "8"
Case "7": q_GetNoteDur = "12" 'Correct??
Case "8": q_GetNoteDur = "16"
Case "9": q_GetNoteDur = "24" 'Correct??
Case "A": q_GetNoteDur = "32"
Case "B": q_GetNoteDur = "48" 'Correct??
Case "C": q_GetNoteDur = "64"
' Case "D": q_GetNoteDur = "96" 'Correct??
' Case "E": q_GetNoteDur = "128"
Case Else: q_GetNoteDur = "*" & Q_Hex(Val("&h" & Ij)) & "*" 'Default
End Select
End Function

Good Luck.

NokDoc

[mehdi]

Thanks for this Functions !!
i'll try to Inegrate it to the RINGTONEMANAGER
10x

[NokDoc]

Hi Mr. Mehdi,

Do note it wasn't perfect yet.
I bet U already found out, anyway we'll see.

Good Luck our man and thanks in advance for all of Ur proggies.

NokDoc