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 ... 11, 12, 13 ... 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: Fri May 13, 2005 10:53 pm    Post subject: Reply with quote

leave them empty
_________________
Lutz

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


Joined: Oct 15, 2004
Posts: 187
Location: Norway

PostPosted: Fri May 13, 2005 11:51 pm    Post subject: Reply with quote

OK thanks for quick reply.

Now I have done everything as i have understad it but i get an error all the time.

Run-time error '53':
File not found

When I clic the "Debug" button, this line get yellow:
Code:
flen = FileLen(folder & Cells(1, 3) & "\" & Cells(i, 3))


Inside the folder: "C:\tomtom\UKVoices" I have the following files:
speed_40.ogg
speed_50.ogg
speed_60.ogg
speed_70.ogg
speed_80.ogg
speed_90.ogg

Inside the folder: "C:\tomtom" I have the original data.chk file I have given it the name: "419.data.chk"

I will show you my code here... maybe you can see what i have done wrong.

Spreadsheet
C17 to C22:
Code:
Beep 1 16000 speed_40.ogg
Beep 2 16000 speed_50.ogg
Beep 3 16000 speed_60.ogg
Beep 4 16000 speed_70.ogg
Beep 5 16000 speed_80.ogg
Bell 1 16000 speed_90.ogg


C32:
Code:
Shutter 11025

All other fields is blank.

VB:

Code:
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 = "419"
'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)
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

_________________
Gunnar Nystul, Forum Admin, TomTom Forum Norway and Nystul Navigasjon
Back to top
View user's profile Send private message Visit poster's website
Zeena
Regular Visitor


Joined: Oct 15, 2004
Posts: 187
Location: Norway

PostPosted: Sat May 14, 2005 12:00 am    Post subject: Reply with quote

Forgot to post the "Module 1":

Code:
Public fnum
Public fnum2
Type CHKentry
offset As Long
sourceoffset As Long
length As Long
tag As Byte
packtype As Byte
blocks As Integer
ogglength As Long
End Type
Public entry() As CHKentry

_________________
Gunnar Nystul, Forum Admin, TomTom Forum Norway and Nystul Navigasjon
Back to top
View user's profile Send private message Visit poster's website
lbendlin
Pocket GPS Staff
Pocket GPS Staff


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

PostPosted: Sat May 14, 2005 1:26 am    Post subject: Reply with quote

Before this line

Code:
flen = FileLen(folder & Cells(1, 3) & "\" & Cells(i, 3))


add these lines

Code:
debug.print folder
debug.print cells(1,3)
debug.print cells(i,3)


this will show you what's missing
_________________
Lutz

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


Joined: Oct 15, 2004
Posts: 187
Location: Norway

PostPosted: Sat May 14, 2005 9:10 am    Post subject: Reply with quote

Thanks -- but no changes, and nothing more will show about whats missing.
_________________
Gunnar Nystul, Forum Admin, TomTom Forum Norway and Nystul Navigasjon
Back to top
View user's profile Send private message Visit poster's website
Zeena
Regular Visitor


Joined: Oct 15, 2004
Posts: 187
Location: Norway

PostPosted: Sat May 14, 2005 2:44 pm    Post subject: Reply with quote

Hmmm..

I made one chang in the code:

From:
Code:
If (Cells(i, 3) > vbNullString) And (f < g) Then 'new file


To:
Code:
If (Cells(i, 17) > vbNullString) And (f < g) Then 'new file


changed: 3 ---> 17

This was just an idea because my spreadshheet lines starts in cell C17.

I have actually no idea what im doin...

Then it works and I get this message:
Done - new real file size is:
986286
_________________
Gunnar Nystul, Forum Admin, TomTom Forum Norway and Nystul Navigasjon
Back to top
View user's profile Send private message Visit poster's website
lbendlin
Pocket GPS Staff
Pocket GPS Staff


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

PostPosted: Sat May 14, 2005 3:20 pm    Post subject: Reply with quote

the columns right of column 3 are just holding cells for different versions. The actual version is supposed to be in column 3
_________________
Lutz

Report Map Errors here:
TomTom/TeleAtlas NAVTEQ
Back to top
View user's profile Send private message Send e-mail
jennysian
Lifetime Member


Joined: May 15, 2005
Posts: 8

PostPosted: Sun May 15, 2005 1:14 pm    Post subject: Reply with quote

Hi
Ive loaded the safety camera data base to my tom tom go 300 and I am very pleased with the result. Great work guys! Smile I then tried loading the voice files. My go 300 has app 5.000 and so I downloaded the 2852_new.data.chk file and renamed it data.chk then exchanged the data.chk file as instructed. The result was the unit would lock up on the logo screen during boot up. The only way I could do anything was to reset and replace the data.chk file with the original, the go 300 then worked perfectly. Has anyone any idea what im doing wrong or have I tripped over a bug?
regards Jenny
Back to top
View user's profile Send private message
Zeena
Regular Visitor


Joined: Oct 15, 2004
Posts: 187
Location: Norway

PostPosted: Sun May 15, 2005 1:21 pm    Post subject: Reply with quote

Then you use the wrong version!

2852 is for version 4.42

You need 4109 for 5.00
_________________
Gunnar Nystul, Forum Admin, TomTom Forum Norway and Nystul Navigasjon
Back to top
View user's profile Send private message Visit poster's website
jennysian
Lifetime Member


Joined: May 15, 2005
Posts: 8

PostPosted: Sun May 15, 2005 6:03 pm    Post subject: Reply with quote

Thanks Gunnar.
I can see where I was going wrong now. Well I am Blonde Smile I was misreading the instructions for loading the files. I will load the 4109 file when I get the chance.
Best regards Jenny
Back to top
View user's profile Send private message
Oldboy
Pocket GPS Moderator
Pocket GPS Moderator


Joined: Dec 08, 2004
Posts: 10632
Location: Suffolk, UK

PostPosted: Sun May 15, 2005 6:08 pm    Post subject: Reply with quote

There's nothing wrong in being a Blondie. Everyone's allowed to have moments like that. We're all here to help each other.
_________________
Richard

TT 910 V7.903 (9183/081205) OS:2344
Europe version 1045.10005
TT Via 135 App 12.075
Western Europe v1095
Back to top
View user's profile Send private message Visit poster's website
laurie0236
Occasional Visitor


Joined: Jul 23, 2004
Posts: 18
Location: Skelmersdale

PostPosted: Mon May 16, 2005 3:43 pm    Post subject: Reply with quote

Hi Lutz

I used the data.chk 4109 as you suggested but the sounds I am getting after the installation of 4109 into my map directory are just the standard sounds that come with the Tom Tom Prog.

I would appreciate your comments.

laurie0236 wrote:
I received my new updated UK maps today and they are working ok, together with the safety camera database. I am now wishing to use the spoken sounds intead of the bells & whistles.

I have app 5.000 (4102/050329). Will I be able to use the file that is showing for V5 update. The version indicated for the download is 4109 but I have 4102.

Laurie


Laurie
Back to top
View user's profile Send private message
laurie0236
Occasional Visitor


Joined: Jul 23, 2004
Posts: 18
Location: Skelmersdale

PostPosted: Mon May 16, 2005 4:27 pm    Post subject: Non Appearance of voices Reply with quote

Hi Lutz

Problem solved. I had installed the 4109 data file in the wrong directory.

All working OK now.

I am just wiping the egg off my face. Ho Ho

Laurie
Back to top
View user's profile Send private message
CHEDS
Regular Visitor


Joined: Feb 25, 2005
Posts: 75

PostPosted: Tue May 17, 2005 5:06 pm    Post subject: Reply with quote

Hi I am interested in making my own poi warnings but don't really know where to start. I know Tom Tom Tim did an excellent feature on this but I am a beginner and have no experience with the codes or the programs which are needed to do this and find it hard to follow.
I was wondering if there was a BASIC step by step guide available to us so we can start adding our own warnings to the ttg or if anybody could help.
I know that quite a few more members would also appreciate this

Im running a ttg classic on version 5 with the map upgrade
App 5.000(4102/50329)os:721
map v571

Any help would be greatly appreciated thank you

8O Exclamation Question 8O Question
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: Tue May 17, 2005 5:21 pm    Post subject: Reply with quote

Sorry, we can't help there. We have made the source code available. Ask one of your friends who can use that code to create what you need.
_________________
Lutz

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







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 ... 11, 12, 13 ... 71, 72, 73  Next
Page 12 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.121 (07 Dec 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