Navigation & GPS Systems: Converter (Decimal Degrees to Degrees Minutes Seconds ) for PC

> I'm looking for calculator for Latitude Longitude Conversion Decimal
Degrees 

The following runs in the TP7 programming language:

{$N+}

{KBH Code}

Var
sb: string;

Procedure Dgtodms;
Var
a: string;
cod: integer;
ddg, d, m, s, ma: double;
Begin
cod:= 0;
While (cod = 0) Do
Begin
Write(' Input decimal degrees: ');
ReadLn(a);
Val(a, ddg, cod);
If (cod <> 0) Then Break;
d:= Int(ddg);
ma:= Frac(ddg) * 60;
m:= Int(ma);
s:= Frac(ma) * 60;
WriteLn;
WriteLn(d:6:0, ' Degrees', d:20:0, ' Degrees');
WriteLn(m:6:0, ' Minutes', ma:28:7,' Minutes');
WriteLn(s:12:5, ' Seconds', cod:20, ' Seconds');
WriteLn;
End;
End;

Procedure Dmstodg;
Var
a: string;
d, m, s: double;
cod: integer;
Begin
cod:= 0;
While (cod = 0) Do
Begin
Write(' Input degrees: ');
ReadLn(a);
Val(a, d, cod);
If (cod <> 0) Then Break;
Write(' Input minutes: ');
ReadLn(a);
Val(a, m, cod);
If (cod <> 0) Then Break;
Write(' Input seconds: ');
ReadLn(a);
Val(a, s, cod);
If (cod <> 0) Then Break;
m:= m + (s / 60);
d:= d + (m / 60);
WriteLn;
WriteLn(d:17:9, ' Degrees');
WriteLn;
End;
End;

Begin
WriteLn;
WriteLn(' [Enter "q" to quit at any step]');
sb:= 'd';
While (sb = 'd') Or (sb = 'dms') Do
Begin
WriteLn;
Write(' Enter "d" for d-to-dms, enter "dms" for dms-to-d: ');
ReadLn(sb);
If (sb <> 'd') And (sb <> 'dms') Then Break;
WriteLn;
If (sb = 'd') Then Dgtodms;
If (sb = 'dms') Then Dmstodg;
End;
ReadLn;
End.

And really it includes a lot of little details just to make a user interface
with error trapping...



http://pages.prodigy.net/halsteadinvest/kbh-gps.htm

Well, why not have a single-set of inputs that accepts any degree format and
then outputs all three degree formats ?

Just enter zero for any input step that does not apply to the format going
in...

The following KBH code runs in the TP7 programming language:

{$N+}

{KBH Code}

Var
sb: string;

Procedure Dmstoall;
Var
a: string;
d, m, s, mm, mmm: double;
cod: integer;
Begin
cod:= 0;
While (cod = 0) Do
Begin
Write(' Input degrees: ');
ReadLn(a);
Val(a, d, cod);
If (cod <> 0) Then Break;
Write(' Input minutes: ');
ReadLn(a);
Val(a, m, cod);
If (cod <> 0) Then Break;
Write(' Input seconds: ');
ReadLn(a);
Val(a, s, cod);
If (cod <> 0) Then Break;
m:= m + (s / 60);
d:= d + (m / 60);
mm:= Frac(d) * 60;
s:= Frac(mm) * 60;
mmm:= Int(mm);
WriteLn;
WriteLn(d:15:9, ' Degrees', d:9:0, ' Degrees', d:10:0,'
Degrees');
WriteLn(mm:40:7, ' Minutes', mmm:10:0, ' Minutes');
WriteLn(s:64:5, ' Seconds');
WriteLn;
End;
End;

Begin
WriteLn;
WriteLn(' Any Degree Format Input v0.90 -KBH
Applications, 2003');
WriteLn;
WriteLn(' [Enter "q" to quit at any step]');
sb:= 'd';
While (sb = 'd') Do
Begin
WriteLn;
Write(' Enter "d" to input any degree format or enter "q" to quit: ');
ReadLn(sb);
If (sb <> 'd') Then Break;
WriteLn;
If (sb = 'd') Then Dmstoall;
End;
ReadLn;
End.

 

> Well, why not have a single-set of inputs that accepts any degree format
and 

Version 0.90 has an error in the code. This is version 0.91 :

{$N+}

{KBH Code}

Var
sb: string;

Procedure Dmstoall;
Var
a: string;
d, m, s, mm, mmm, dd: double;
cod: integer;
Begin
cod:= 0;
While (cod = 0) Do
Begin
Write(' Input degrees: ');
ReadLn(a);
Val(a, d, cod);
If (cod <> 0) Then Break;
Write(' Input minutes: ');
ReadLn(a);
Val(a, m, cod);
If (cod <> 0) Then Break;
Write(' Input seconds: ');
ReadLn(a);
Val(a, s, cod);
If (cod <> 0) Then Break;
m:= m + (s / 60);
d:= d + (m / 60);
dd:= Int(d);
mm:= Frac(d) * 60;
s:= Frac(mm) * 60;
mmm:= Int(mm);
WriteLn;
WriteLn(d:15:9, ' Degrees', dd:9:0, ' Degrees', dd:10:0,'
Degrees');
WriteLn(mm:40:7, ' Minutes', mmm:10:0, ' Minutes');
WriteLn(s:64:5, ' Seconds');
WriteLn;
End;
End;

Begin
WriteLn;
WriteLn(' Any Degree Format Input v0.91 -KBH
Applications, 2003');
WriteLn;
WriteLn(' [Enter "q" to quit at any step]');
sb:= 'd';
While (sb = 'd') Do
Begin
WriteLn;
Write(' Enter "d" to input any degree format or enter "q" to quit: ');
ReadLn(sb);
If (sb <> 'd') Then Break;
WriteLn;
If (sb = 'd') Then Dmstoall;
End;
ReadLn;
End.


 

"-=Almazick=-" <net> writes: 

Are you sure you need to convert it to DMS? The GPS receivers and
software that I've dealt with always had the option of reading input in
decimal degrees.

Dave