Home PageFacebookRSS News Feed
PocketGPS
Web
SatNav,GPS,Navigation
Pocket GPS World - SatNavs | GPS | Speed Cameras: Forums

Pocket GPS World :: View topic - Spoken POI alerts for TomTom GO, Mobile, PocketPC and Palm
 Forum FAQForum FAQ   SearchSearch   UsergroupsUsergroups   ProfileProfile   Log in for private messagesLog in for private messages   Log inLog in 

Spoken POI alerts for TomTom GO, Mobile, PocketPC and Palm
Goto page Previous  1, 2, 3 ... 15, 16, 17 ... 71, 72, 73  Next
 
Post new topic   Reply to topic    Pocket GPS World Forum Index -> TomTom Portable Navigation Devices
View previous topic :: View next topic  
Author Message
lbendlin
Pocket GPS Staff
Pocket GPS Staff


Joined: 02/11/2002 22:41:59
Posts: 11878
Location: Massachusetts, USA

PostPosted: Thu Jun 02, 2005 8:24 pm    Post subject: Reply with quote

uhm, no... what did you use, babelfish?

Satisfying everybody is an art that nobody has mastered yet.
_________________
Lutz

Report Map Errors here:
TomTom/TeleAtlas NAVTEQ
Back to top
View user's profile Send private message Send e-mail
gingernut777
Frequent Visitor


Joined: Nov 03, 2004
Posts: 251
Location: Earth where else

PostPosted: Fri Jun 03, 2005 5:08 am    Post subject: Reply with quote

lbendlin wrote:
uhm, no... what did you use, babelfish?

Satisfying everybody is an art that nobody has mastered yet.



Goes to show,, you can't trust he online translators.

I used "World Lingo" and got,

An art is done to each right, the nobody can
_________________
Using an A to Z
Sextant & Compass
Back to top
View user's profile Send private message
cdelecole
Regular Visitor


Joined: Jan 05, 2005
Posts: 185

PostPosted: Fri Jun 03, 2005 8:33 pm    Post subject: Reply with quote

I've tried the code psoted in this forum, to try generating my own sounds for POI alreting.

I'm using application 5.100 (5158/050510) SE:832

My chk file (5158.data.chk) is in C:\TomTom
My ogg files are under C:\TomTom\UKVoices

The VB code I'm using is the following :

Quote:

Sub data_chk_reload()

Dim g As Long
Dim b As Byte
Dim bt As Byte
Dim Maxfiles
Maxfiles = 30


'this folder holds the original data.chk file N.B. Following line modified by TomTomTim
folder = "C:\TomTom\"
'identifier of the data.chk version. complete file name is identifier.data.chk
fname = "5158"
'the OGG files need to be in the subfolder specified by cell C1
fnum = FreeFile
Open folder & fname & ".data.chk" For Binary Access Read As #fnum
flen = FileLen(folder & fname & ".data.chk")
g = get_long
Debug.Print fname; " Number of modules: "; g; " File size: "; flen
'If (g <> 102) And (g <> 120) And (g <> 123) And (g <> 136) Then
'a = MsgBox("Not a good DATA.CHK file. Please report your build version of the TomTom program to [email protected]", vbOKCancel, "Error - wrong file version")
'Close
'Exit Sub
'End If
'get offsets
If g = 102 Then Maxfiles = 12
ReDim entry(g + 1)
For i = 1 To g + 1
entry(i).offset = get_long
entry(i).sourceoffset = entry(i).offset
If i > 1 Then entry(i - 1).length = entry(i).offset - entry(i - 1).offset
Next
'confirm file size
If entry(g + 1).offset = flen Then
Debug.Print "File size confirmed"
Else
Debug.Print "File size mismatch! Reported:" & Hex(entry(g + 1).offset) & " Actual:" & flen
End If

'calculating new offsets etc
Debug.Print "Calculating new parameters"
i = 2
For f = g - Maxfiles To g
If (Cells(i, 3) > vbNullString) And (f < g) Then 'new file
Debug.Print "Verifying "; Cells(i, 3)
Debug.Print folder
Debug.Print Cells(1, 3)
Debug.Print Cells(i, 3)
flen = FileLen(folder & Cells(1, 3) & "\" & Cells(i, 3))
entry(f).ogglength = flen
pad = 0
While flen Mod 4 <> 0
flen = flen + 1
pad = pad + 1

Wend
entry(f).blocks = (flen + 12) / 4
entry(f).length = flen + 16
End If
i = i + 1
Next

'recalculate header
Debug.Print "Recalculating header ";
For i = g - Maxfiles To g + 1
entry(i).offset = entry(i - 1).offset + entry(i - 1).length
Next
Debug.Print "- new File Size is "; entry(g + 1).offset

'write output file
Debug.Print "Writing CHK file "
On Error Resume Next
Kill folder & Cells(1, 3) & "\" & fname & "_new.data.chk"
On Error GoTo 0
fnum2 = FreeFile
Open folder & Cells(1, 3) & "\" & fname & "_new.data.chk" For Binary Access Write As #fnum2

'write header
'number of segments
put_long (g)
'offsets
For i = 1 To g + 1
put_long (entry(i).offset)
Next
'non-voice files
'position pointer
Get #fnum, entry(1).offset, b
h = entry(g - Maxfiles).offset - entry(1).offset
For i = 1 To h
Get #fnum, , b
Put #fnum2, , b
DoEvents
Next

'write sound files, either from source or from new OGG
Debug.Print "Writing CHK file - Sounds"
i = 2
For f = g - Maxfiles To g
If (Cells(i, 3) > vbNullString) And (f < g) Then 'read new file
Debug.Print "Including "; Cells(i, 3); " for "; Cells(i, 1)
'recreate header
b = 1
Put #fnum2, , b
b = 0
Put #fnum2, , b
b = entry(f).blocks \ 256
Put #fnum2, , b
b = entry(f).blocks And 255
Put #fnum2, , b
put_long (1)
put_long (8)
put_long (entry(f).ogglength)
fout = FreeFile
Open folder & Cells(1, 3) & "\" & Cells(i, 3) For Binary Access Read As #fout
For h = 1 To entry(f).ogglength
Get #fout, , b
Put #fnum2, , b
DoEvents
Next
'padding
b = 0
flen = entry(f).ogglength
While flen Mod 4 <> 0
Put #fnum2, , b
flen = flen + 1
Wend
Close (fout)
Else 'read from source
'position pointer
Get #fnum, entry(f).sourceoffset, b
For h = 1 To entry(f).length
Get #fnum, , b
Put #fnum2, , b
DoEvents
Next
End If
i = i + 1
Next
Close
Beep
MsgBox ("Done - real new file size is " & FileLen(folder & Cells(1, 3) & "\" & fname & "_new.data.chk"))


End Sub

'required because of the little endian storage of long values
Function get_long() As Long
Dim b As Byte
l = 0
For h = 1 To 4
Get #fnum, , b
l = l * 256 + b
Next
get_long = l
End Function
Sub put_long(ByVal l As Long)
Dim b(4) As Byte
For h = 1 To 4
b(h) = l And 255
l = l \ 256
Next
For h = 4 To 1 Step -1
Put #fnum2, , b(h)
Next
End Sub

Private Sub CommandButton1_Click()
data_chk_reload
End Sub


The Excel sheet I'm using (For TOMTOM GO) is the following, since I only wants to change the Cow sound to radar1.ogg (Please note
the first line here below is at C1, D1, E1
the second line with Cow is at C12, D12, E12 :

Quote:

UKVoices Sampling UKVoices










Cow 22050 radar1.ogg


When launching the macro, I'm getting the follwowing error :

Quote:

Runtime Error at line :
flen = FileLen(folder & Cells(1, 3) & "\" & Cells(i, 3))


I've added the following debug lines just before the faulty line :
Quote:

Debug.Print folder
Debug.Print Cells(1, 3)
Debug.Print Cells(i, 3)


Those 3 debug lines are correctly giving me values "C:\TomTom\", "UKVoices" and "Cow"

But I'm wondering if instead of putting "Cow" at line C12, I should not put my ogg file ?!?

This has been reported nowhere, and I'm a bit condufed now.

Could someone give me some direction ?
Many thanks !
Back to top
View user's profile Send private message
lbendlin
Pocket GPS Staff
Pocket GPS Staff


Joined: 02/11/2002 22:41:59
Posts: 11878
Location: Massachusetts, USA

PostPosted: Fri Jun 03, 2005 8:57 pm    Post subject: Reply with quote

yes, that should contain the name of the source ogg file.
_________________
Lutz

Report Map Errors here:
TomTom/TeleAtlas NAVTEQ
Back to top
View user's profile Send private message Send e-mail
cdelecole
Regular Visitor


Joined: Jan 05, 2005
Posts: 185

PostPosted: Fri Jun 03, 2005 9:04 pm    Post subject: Reply with quote

Just put my ogg file in Cell C12 ...
But now getting another error :

Runtime Error '9'
Subscript Out of range

into the section below :

Quote:

'calculating new offsets etc
Debug.Print "Calculating new parameters"
i = 2
For f = g - Maxfiles To g
If (Cells(i, 3) > vbNullString) And (f < g) Then 'new file
Debug.Print "Verifying "; Cells(i, 3)
Debug.Print folder
Debug.Print Cells(1, 3)
Debug.Print Cells(i, 3)
flen = FileLen(folder & Cells(1, 3) & "\" & Cells(i, 3))
entry(f).ogglength = flen
pad = 0
While flen Mod 4 <> 0
flen = flen + 1
pad = pad + 1


The faulty line is :
flen = FileLen(folder & Cells(1, 3) & "\" & Cells(i, 3))

Any clue ?
Back to top
View user's profile Send private message
lbendlin
Pocket GPS Staff
Pocket GPS Staff


Joined: 02/11/2002 22:41:59
Posts: 11878
Location: Massachusetts, USA

PostPosted: Fri Jun 03, 2005 9:13 pm    Post subject: Reply with quote

debug.print (folder & Cells(1, 3) & "\" & Cells(i, 3))

probably the file is missing
_________________
Lutz

Report Map Errors here:
TomTom/TeleAtlas NAVTEQ
Back to top
View user's profile Send private message Send e-mail
cdelecole
Regular Visitor


Joined: Jan 05, 2005
Posts: 185

PostPosted: Fri Jun 03, 2005 9:24 pm    Post subject: Reply with quote

I've added the debug line ...
But how should I use the debug ?

What I'm doing is :

- Launch the macro
- Getting the Error message, and clicking DEBUG
- That is bringing me to the VB code, where I added the debug line

Putting the mouse on the words "Folder" and "Cells", I'm getting correct values : "C:\TomTom\", "UKVoices" and "radar1.ogg"

Seems correct, since my patch on my PC is :
C:\TomTom\UKVoices\radar1.ogg

?!?
Back to top
View user's profile Send private message
lbendlin
Pocket GPS Staff
Pocket GPS Staff


Joined: 02/11/2002 22:41:59
Posts: 11878
Location: Massachusetts, USA

PostPosted: Fri Jun 03, 2005 9:30 pm    Post subject: Reply with quote

is the file still open in a wave editor or media player?
_________________
Lutz

Report Map Errors here:
TomTom/TeleAtlas NAVTEQ
Back to top
View user's profile Send private message Send e-mail
cdelecole
Regular Visitor


Joined: Jan 05, 2005
Posts: 185

PostPosted: Fri Jun 03, 2005 9:33 pm    Post subject: Reply with quote

No, not at all.

I also did the following :

Quote:

Debug.Print flen


And the debug is giving me value "16086" for flen.

Not sure what the problem is ...

Is there any chance you can look at the Excel sheet ?
Maybe idiot problem ?
Back to top
View user's profile Send private message
cdelecole
Regular Visitor


Joined: Jan 05, 2005
Posts: 185

PostPosted: Sat Jun 04, 2005 9:15 am    Post subject: Reply with quote

Does anyone have a working Excel sheet with Lutz's code working to build a data.chk file for a TT GO 5.1 ?

application 5.100 (5158/050510) SE:832

I've tried pasting and following instructions from TomTomtim, changing some things like the version control or number of modukes control (With the help of Lutz), but with no success (See latest error message I got on my previous reply ...

Many Thanks !
Back to top
View user's profile Send private message
cdelecole
Regular Visitor


Joined: Jan 05, 2005
Posts: 185

PostPosted: Sat Jun 04, 2005 9:37 am    Post subject: Reply with quote

P.S. : You can send it to [email protected]
Back to top
View user's profile Send private message
rayflan
Frequent Visitor


Joined: Apr 06, 2005
Posts: 277

PostPosted: Sat Jun 04, 2005 1:07 pm    Post subject: Reply with quote

cdelecole

Check your mail, sent you one
_________________
Ray
New Url www.tomtomsatnav.info
Visit my site
Back to top
View user's profile Send private message Visit poster's website
cdelecole
Regular Visitor


Joined: Jan 05, 2005
Posts: 185

PostPosted: Sat Jun 04, 2005 7:05 pm    Post subject: Reply with quote

Ray, Lutz

Still getting ther same Runtime error"9"
Subscript out of range ...

I sent you my data.chk and ogg file back by mail, and put Lutz on copy.

I think there is an idiot thing somewhere I'm forgetting ...

Many Thanks !
Back to top
View user's profile Send private message
rayflan
Frequent Visitor


Joined: Apr 06, 2005
Posts: 277

PostPosted: Sat Jun 04, 2005 9:11 pm    Post subject: Reply with quote

Problem is your data.chk file its 0kb
_________________
Ray
New Url www.tomtomsatnav.info
Visit my site
Back to top
View user's profile Send private message Visit poster's website
MarvintheRobot
Occasional Visitor


Joined: Jun 02, 2005
Posts: 8

PostPosted: Sat Jun 04, 2005 11:37 pm    Post subject: Reply with quote

Can Any One help me with this one

I need a data.chk file thats got these in...

1 "BLEEP BLEEP" Gatso 30
2 "BLEEP BLEEP" Gatso 40
3 "BLEEP BLEEP" Gatso 50
4 "BLEEP BLEEP" Gatso 60
5 "BLEEP BLEEP" Gatso 70
6 "BLEEP BLEEP" Mobile 30
8 "BLEEP BLEEP" Mobile 40
9 "BLEEP BLEEP" Mobile 50
10 "BLEEP BLEEP" Mobile 60
11 "BLEEP BLEEP" Mobile 70
12 "BLEEP BLEEP" Red Light
13 "BLEEP BLEEP" Specs
14 "BLEEP BLEEP" Temporary
15 Credits

I like the "BLEEP BLEEP" it stands out over what ever I'm listening to on the radio

Regards,

Chris
MarvintheRobot

Tom Tom Go 300
App 5.000 (4109/050407) OS:723
GPS v1.21, Boot 2.04
Map: Great_Britain-Map' v562
512 SD Card
curently using 5158_new.data.chk
Back to top
View user's profile Send private message







Posted: Today    Post subject: Pocket GPS Advertising

Back to top
Display posts from previous:   
Post new topic   Reply to topic    Pocket GPS World Forum Index -> TomTom Portable Navigation Devices All times are GMT + 1 Hour
Goto page Previous  1, 2, 3 ... 15, 16, 17 ... 71, 72, 73  Next
Page 16 of 73

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

Powered by phpBB 2.0.11 © 2001 phpBB Group
phpBB port v2.1 based on Tom Nitzschner's phpbb2.0.6 upgraded to phpBB 2.0.4 standalone was developed and tested by:
ArtificialIntel, ChatServ, mikem,
sixonetonoffun and Paul Laudanski (aka Zhen-Xjell).

Version 2.1 by Nuke Cops 2003 http://www.nukecops.com

Make a Donation



CamerAlert Database

Click here for the PocketGPSWorld.com Speed Camera Database

Download Speed Camera Database
20.115 (30 Nov 22)



WORLDWIDE SPEED CAMERA SPOTTERS WANTED!

Click here to submit camera positions to the PocketGPSWorld.com Speed Camera Database


12mth Subscriber memberships awarded every week for verified new camera reports!

Submit Speed Camera Locations Now


CamerAlert Apps



iOS QR Code






Android QR Code







Terms & Privacy


GPS Shopping