![]() |
|
|||||||
| Home | Register | FAQ | Members List | Search | Today's Posts | Mark Forums Read |
| Questions & Help Needed Post any question regarding Basic4ppc. |
![]() |
|
|
LinkBack | Thread Tools | Display Modes |
|
|||
|
Since this problem happend to me at first, I want to give a little statement as well.
I don`t wanna blame anybody for this. Windows Mobile is much more individually programmed on the devices as normal Windows, so its impossible to get everything running perfectly. My problem is as well that GPS-apps written with B4ppc only work with gpsgate on my device. Portsplitter (which is free) doesn`t work. Sadly that this happend as WM6 came up, but on WM5 it worked. ![]() I stopped programming because of this problem. Since several month I take a look in this forum every week to check if somebody found a solution. It makes me a bit sad, because I have a lot of ideas which I would like to program, but it depends on the use of GPS. Visual Studio is too much and too expensive for me. I would like to write some apps and share them with others, but it is no use if I have to help everybody getting the app working or they would have to buy gpsgate. As soon as this problem is solved, I will buy a new version of B4ppc. So, please Erel, here are already a lot of people with this problem, do your best to help us. You gave us such a great way to bring our ideas on PPCs and GPS becomes more and more importance. |
|
|||
|
Hi,
I have had the same problem with my HTC 3650 Cruise WM 6.0 Pro but it is solved now with the GPSINT lib from hsandy. The following code runs without any problem on my device. Code:
Sub Globals n = 0 End Sub Sub App_Start Form1.Show hw.New1 gpsint.New1 End Sub Sub gpsint_GPSLocationChanged If gpsint.GPSValid = true Then n = n + 1 label2.Text = gpsint.GPSUTCTime label6.Text = gpsint.GPSSpeed & " [knots]" label4.Text = n Else label2.Text = "no fix, wait" End If hw.KeepAlive End Sub Sub btstart_Click If btstart.Text = "Start" Then gpsint.openGPS btstart.Text = "Stop" Else gpsint.closegps btstart.Text = "Start" n = 0 End If End Sub Sub Form1_Close gpsint.closegps gpsint.Dispose End Sub In case off all this problems I phoned with the German support and the answer was: “We do only support TomTom”. So take care when you buy a HTC.
__________________
Thanks for all wolfgang ___________________ Desktop: Dual Core 3.0 GHz, XP SP3 Device: IPAQ 3970 WM 2003, Asus 632N WM5, HTC 3650 Cruise GPS: Clip-on Bluetooth, Navman 3000 |
|
||||
|
Quote:
Code:
ReEntry = false ' in Globals
...
Sub gpsint_GPSLocationChanged
If Not(ReEntry) Then
ReEntry = true
If gpsint.GPSValid = true Then
n = n + 1
label2.Text = gpsint.GPSUTCTime
label6.Text = gpsint.GPSSpeed & " [knots]"
label4.Text = n
Else
label2.Text = "no fix, wait"
End If
hw.KeepAlive
ReEntry = false
End IF
End Sub
|
![]() |
| Currently Active Users Viewing This Thread: 1 (0 members and 1 guests) | |
| Thread Tools | |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Serial2 update - V1.2 | Erel | Official Updates | 0 | 01-18-2008 09:26 AM |
| Serial2 problem | Henry | Questions & Help Needed | 2 | 11-28-2007 10:52 AM |
| GPS.Status | alfcen | Questions & Help Needed | 6 | 11-10-2007 01:42 AM |
| Serial2.dll | alfcen | Bug Reports | 2 | 08-13-2007 08:04 PM |
| Charger status | Alex812 | Questions & Help Needed | 1 | 05-29-2007 05:39 AM |