To NokDoc

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!

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

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

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