DMS Converter

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

DMS Converter

Logged in as: Guest

arrSession:exec spGetSession 2,16,58508

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> DMS Converter
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

DMS Converter - 3/29/2008 6:22:21 PM

Meg

Posts: 123
Score: 2
Joined: 7/13/2006
From: Australia
Status: offline

Convert to and from:
Degrees, Minutes, Seconds
Degrees, Decimal Minutes
Decimal Degrees

This script is unique in that you can move the pointer and it will show you the coordinates in three different formats.
manually edit any field and it like a spreadsheet it will update all the other fields and display the position on the map.
This script was designed as a HTA but crashes when you zoom in too much. Save this code with a HTM extension instead. It will run locally from your C: drive but works best from a website like this.

<SCRIPT LANGUAGE="VBScript">
'# -----------------------------------------------------------------------------
'# DMS Coordinates Converter
'# Copyright (C) 2008 Painterinfo
'# Script by MJP
'# 
'# You have a royalty-free right to use, modify, reproduce and distribute
'# this script (and/or any modified version) in any way you find useful,
'# provided that you agree that Painterinfo or MJP has no
'# warranty, obligations or liability for the script. If you use or modify
'# the script, you must retain this copyright notice. ThankYou
'# -----------------------------------------------------------------------------
</SCRIPT>

<SCRIPT Language="VBScript"> 
'------------------------------------------------------------ 
Sub Window_Onload 
   Main.Style.Display = "inline"
   MainLon.Style.Display = "inline"  
   map.Style.Display = "inline" 
   LAT=-25.347749
   LON=131.030631
   ZOOM=14
   GmapsLoad
   LatHTML
   LonHTML
End Sub
'------------------------------------------------------------ 
   Dim LAT, LON, ZOOM
                
'------------------------------------------------------------ 
Sub EnterPressed()
   If window.event.Keycode = 13 Then
       run_button1.focus
   End If
end sub

'------------------------------------------------------------

Sub VerifyEntryAA   
   Set objRegEx = CreateObject("VBScript.RegExp")
   objRegEx.Global = True   
   objRegEx.Pattern = "[^0123456789-]"
   strString = TextBox1.Value
   Set colMatches = objRegEx.Execute(strString)  
   If colMatches.Count > 0 Then
       If InStr(TextBox1.Value, ".") Then
           MsgBox "Do not use decimal point"
           TextBox1.Value = TextBox4.Value
          TextBox1.Focus
           Exit Sub
       ElseIf InStr(TextBox1.Value, "-") Then
           Msgbox "Do not use negative values"
           TextBox1.Value = TextBox4.Value
          TextBox1.Focus
           Exit Sub
       Else
           Msgbox "You entered an invalid character."
           TextBox1.Value = TextBox4.Value
          TextBox1.Focus
           Exit Sub
       End If 
   End If
   If TextBox1.Value="" Then
    Msgbox "Do not Enter Blank"
       TextBox1.Value = TextBox4.Value
TextBox1.Focus
Exit Sub 
   End if
   
   TextBox4.Value = TextBox1.Value
   TextBox6.Value = Round((abs(TextBox4.Value)+(TextBox5.Value/60)), 6)
   if latSymbol1.innerhtml="S" then 
      TextBox6.Value="-"&TextBox6.Value
   end if
   VerifyEntryCA
    
End Sub
'------------------------------------------------------------ 
Sub VerifyEntryAB   
   Set objRegEx = CreateObject("VBScript.RegExp")
   objRegEx.Global = True   
   objRegEx.Pattern = "[^0123456789]"
   Set colMatches = objRegEx.Execute(TextBox2.Value)  
   If colMatches.Count > 0 Then
       If InStr(TextBox2.Value, ".") Then
           MsgBox "Do not use decimal point"
           TextBox2.Value = Floor(TextBox5.Value)
           TextBox2.Focus
          Exit Sub
       else 
           Msgbox "You entered an invalid character."
           TextBox2.Value = Floor(TextBox5.Value)
           TextBox2.Focus
          Exit Sub
       End If
   End If
   If TextBox2.Value="" Then
    Msgbox "Do not Enter Blank"
TextBox2.Value = Floor(TextBox5.Value)
TextBox2.Focus
Exit Sub 
   End if
   
   TextBox5.Value = Round((TextBox2.Value+(TextBox3.Value/60)), 4)
   TextBox6.Value = Round((Abs(TextBox4.Value)+(TextBox5.Value/60)), 6)
   if latSymbol1.innerhtml="S" then 
      TextBox6.Value="-"&TextBox6.Value
   end if
   VerifyEntryCA
   
End Sub
'------------------------------------------------------------ 
Sub VerifyEntryAC   
   Set objRegEx = CreateObject("VBScript.RegExp")
   objRegEx.Global = True   
   objRegEx.Pattern = "[^0123456789.]"
   Set colMatches = objRegEx.Execute(TextBox3.Value)  
   If colMatches.Count > 0 Then
       Msgbox "You entered an invalid character."
TextBox3.Value = Round(((TextBox5.Value-(Floor(TextBox5.Value)))*60), 2)
       TextBox3.Focus
       Exit Sub
   End If
   If TextBox3.Value="" Then
    Msgbox "Do not Enter Blank"
TextBox3.Value = Round(((TextBox5.Value-(Floor(TextBox5.Value)))*60), 2)
TextBox3.Focus
Exit Sub 
   End if
   if ubound(split(lcase(TextBox3.Value), ".")) <=1 then 
TextBox5.Value = Round((TextBox2.Value+(TextBox3.Value/60)), 4)
TextBox6.Value = Round((Abs(TextBox4.Value)+(TextBox5.Value/60)), 6)
   if latSymbol1.innerhtml="S" then 
       TextBox6.Value="-"&TextBox6.Value
   end if
   Else     
    MsgBox "You entered More than 1 decimal point."
TextBox3.Value = Round(((TextBox5.Value-(Floor(TextBox5.Value)))*60), 2)
TextBox3.Focus
    exit sub
   End if
   VerifyEntryCA
End Sub
'------------------------------------------------------------ 
Sub VerifyEntryBA   
   Set objRegEx = CreateObject("VBScript.RegExp")
   objRegEx.Global = True   
   objRegEx.Pattern = "[^0123456789-]"
   Set colMatches = objRegEx.Execute(TextBox4.Value)  
   If colMatches.Count > 0 Then
       If InStr(TextBox4.Value, ".") Then
           MsgBox "Do not use decimal point"
    TextBox4.Value = Floor(Abs(TextBox6.Value))
      TextBox4.Focus
           Exit Sub
       ElseIf InStr(TextBox4.Value, "-") Then
           Msgbox "Do not use negative values"
    TextBox4.Value = Floor(Abs(TextBox6.Value))
      TextBox4.Focus
           Exit Sub
       else 
           Msgbox "You entered an invalid character."
    TextBox4.Value = Floor(Abs(TextBox6.Value))
      TextBox4.Focus
           Exit Sub
       End If
   End If
   If TextBox4.Value="" Then
    Msgbox "Do not Enter Blank"
TextBox4.Value = Floor(Abs(TextBox6.Value))
TextBox4.Focus
Exit Sub 
   End if
   
   TextBox1.Value = TextBox4.Value
   TextBox6.Value = Round((Abs(TextBox4.Value)+(TextBox5.Value/60)), 6)
   if latSymbol1.innerhtml="S" then 
      TextBox6.Value="-"&TextBox6.Value
   end if
   VerifyEntryCA
   
End Sub
'------------------------------------------------------------ 
Sub VerifyEntryBB   
   Set objRegEx = CreateObject("VBScript.RegExp")
   objRegEx.Global = True   
   objRegEx.Pattern = "[^0123456789.]"
   Set colMatches = objRegEx.Execute(TextBox5.Value)  
   If colMatches.Count > 0 Then
       Msgbox "You entered an invalid character."
TextBox5.Value = Round(((Abs(TextBox6.Value)-(Floor(Abs(TextBox6.Value))))*60), 4)
       TextBox5.Focus
       Exit Sub
   End If
   If TextBox5.Value="" Then
    Msgbox "Do not Enter Blank"
TextBox5.Value = Round(((Abs(TextBox6.Value)-(Floor(Abs(TextBox6.Value))))*60), 4)
TextBox5.Focus
Exit Sub 
   End if
   if ubound(split(lcase(TextBox5.Value), ".")) <=1 then     
TextBox2.Value = Floor(TextBox5.Value)  
TextBox3.Value = Round(((TextBox5.Value-(Floor(TextBox5.Value)))*60), 2)
       TextBox6.Value = Round((Abs(TextBox4.Value)+(TextBox5.Value/60)), 6)
       if latSymbol1.innerhtml="S" then 
           TextBox6.Value="-"&TextBox6.Value
       end if
   Else     
    MsgBox "You entered More than 1 decimal point."
TextBox5.Value = Round(((Abs(TextBox6.Value)-(Floor(Abs(TextBox6.Value))))*60), 4)
TextBox5.Focus
Exit Sub
   End if
   VerifyEntryCA
       
End Sub
'------------------------------------------------------------ 
Sub VerifyEntryCA  
   Set objRegEx = CreateObject("VBScript.RegExp")
   objRegEx.Global = True   
   objRegEx.Pattern = "[^0123456789.-]"
   Set colMatches = objRegEx.Execute(TextBox6.Value)  
   If colMatches.Count > 0 Then
Msgbox "You entered an invalid character."
TextBox6.Value = Round((Abs(TextBox4.Value)+(TextBox5.Value/60)), 6)
TextBox6.Focus
Exit Sub
   End If
   If TextBox6.Value="" Then
    Msgbox "Do not Enter Blank"
TextBox6.Value = Round((Abs(TextBox4.Value)+(TextBox5.Value/60)), 6)
TextBox6.Focus
Exit Sub 
   End if
   if ubound(split(lcase(TextBox6.Value), ".")) <=1 then        
TextBox4.Value = Floor(Abs(TextBox6.Value))
TextBox1.Value = TextBox4.Value
TextBox5.Value = Round(((Abs(TextBox6.Value)-(Floor(Abs(TextBox6.Value))))*60), 4)
TextBox2.Value = Floor(TextBox5.Value)
TextBox3.Value = Round(((TextBox5.Value-(Floor(TextBox5.Value)))*60), 2)
if left(Abs(TextBox6.Value), 5)<>left(TextBox6.Value, 5) then
    latSymbol1.innerhtml="S"
    latSymbol2.innerhtml="S"
else
    latSymbol1.innerhtml="N"
    latSymbol2.innerhtml="N"
end if
   Else     
MsgBox "You entered More than 1 decimal point."
TextBox6.Value = Round((Abs(TextBox4.Value)+(TextBox5.Value/60)), 6)
TextBox6.Focus
exit sub
   End if     
   if TextBox6.Value<>LAT then
Lat = TextBox6.Value
lon = TextBoxLon6.Value
ZoomHTML
GmapsLoad
   end if
End Sub

'LAT
'------------------------------------------------------------ 
'LON

Sub VerifyEntryLonAA   
   Set objRegEx = CreateObject("VBScript.RegExp")
   objRegEx.Global = True   
   objRegEx.Pattern = "[^0123456789]"
   Set colMatches = objRegEx.Execute(TextBoxLon1.Value)  
   If colMatches.Count > 0 Then
       If InStr(TextBoxLon1.Value, ".") Then
           MsgBox "Do not use decimal point"
    TextBoxLon1.Value = TextBoxLon4.Value
          TextBoxLon1.Focus
           Exit Sub
       ElseIf InStr(TextBoxLon1.Value, "-") Then
           Msgbox "Do not use negative values"
    TextBoxLon1.Value = TextBoxLon4.Value
          TextBoxLon1.Focus
           Exit Sub
       Else
           Msgbox "You entered an invalid character."
    TextBoxLon1.Value = TextBoxLon4.Value
          TextBoxLon1.Focus
           Exit Sub
       End If 
   End If
   If TextBoxLon1.Value="" Then
    Msgbox "Do not Enter Blank"
       TextBoxLon1.Value = TextBoxLon4.Value
TextBoxLon1.Focus
Exit Sub 
   End if
   
   TextBoxLon4.Value = TextBoxLon1.Value
   TextBoxLon6.Value = Round((TextBoxLon4.Value+(TextBoxLon5.Value/60)), 6)
   VerifyEntryLonCA
   
End Sub
'------------------------------------------------------------ 
Sub VerifyEntryLonAB   
   Set objRegEx = CreateObject("VBScript.RegExp")
   objRegEx.Global = True   
   objRegEx.Pattern = "[^0123456789]"
   Set colMatches = objRegEx.Execute(TextBoxLon2.Value)  
   If colMatches.Count > 0 Then
       If InStr(TextBoxLon2.Value, ".") Then
           MsgBox "Do not use decimal point"
    TextBoxLon2.Value = Floor(TextBoxLon5.Value)
           TextBoxLon2.Focus
          Exit Sub
       else 
           Msgbox "You entered an invalid character."
    TextBoxLon2.Value = Floor(TextBoxLon5.Value)
           TextBoxLon2.Focus
          Exit Sub
       End If
   End If
   If TextBoxLon2.Value="" Then
    Msgbox "Do not Enter Blank"
TextBoxLon2.Value = Floor(TextBoxLon5.Value)
TextBoxLon2.Focus
Exit Sub 
   End if
   
   TextBoxLon5.Value = Round((TextBoxLon2.Value+(TextBoxLon3.Value/60)), 4)
   TextBoxLon6.Value = Round((TextBoxLon4.Value+(TextBoxLon5.Value/60)), 6)
   VerifyEntryLonCA
   
End Sub
'------------------------------------------------------------ 
Sub VerifyEntryLonAC   
   Set objRegEx = CreateObject("VBScript.RegExp")
   objRegEx.Global = True   
   objRegEx.Pattern = "[^0123456789.]"
   Set colMatches = objRegEx.Execute(TextBoxLon3.Value)  
   If colMatches.Count > 0 Then
       Msgbox "You entered an invalid character."
TextBoxLon3.Value = Round(((TextBoxLon5.Value-(Floor(TextBoxLon5.Value)))*60), 2)
       TextBoxLon3.Focus
       Exit Sub
   End If
   If TextBoxLon3.Value="" Then
    Msgbox "Do not Enter Blank"
TextBoxLon3.Value = Round(((TextBoxLon5.Value-(Floor(TextBoxLon5.Value)))*60), 2)
TextBoxLon3.Focus
Exit Sub 
   End if
   if ubound(split(lcase(TextBoxLon3.Value), ".")) <=1 then 
TextBoxLon5.Value = Round((TextBoxLon2.Value+(TextBoxLon3.Value/60)), 4)
TextBoxLon6.Value = Round((TextBoxLon4.Value+(TextBoxLon5.Value/60)), 6)
   Else     
    MsgBox "You entered More than 1 decimal point."
TextBoxLon3.Value = Round(((TextBoxLon5.Value-(Floor(TextBoxLon5.Value)))*60), 2)
TextBoxLon3.Focus
    exit sub
   End if
   VerifyEntryLonCA
End Sub
'------------------------------------------------------------ 
Sub VerifyEntryLonBA   
   Set objRegEx = CreateObject("VBScript.RegExp")
   objRegEx.Global = True   
   objRegEx.Pattern = "[^0123456789]"
   Set colMatches = objRegEx.Execute(TextBoxLon4.Value)  
   If colMatches.Count > 0 Then
       If InStr(TextBoxLon4.Value, ".") Then
           MsgBox "Do not use decimal point"
    TextBoxLon4.Value = Floor(Abs(TextBoxLon6.Value))
      TextBoxLon4.Focus
           Exit Sub
       ElseIf InStr(TextBoxLon4.Value, "-") Then
           Msgbox "Do not use negative values"
    TextBoxLon4.Value = Floor(Abs(TextBoxLon6.Value))
      TextBoxLon4.Focus
           Exit Sub
       else 
           Msgbox "You entered an invalid character."
           TextBoxLon4.Value = Floor(Abs(TextBoxLon6.Value))
      TextBoxLon4.Focus
           Exit Sub
       End If
   End If
   If TextBoxLon4.Value="" Then
    Msgbox "Do not Enter Blank"
TextBoxLon4.Value = Floor(Abs(TextBoxLon6.Value))
TextBoxLon4.Focus
Exit Sub 
   End if
   
   TextBoxLon1.Value = TextBoxLon4.Value
   TextBoxLon6.Value = Round((TextBoxLon4.Value+(TextBoxLon5.Value/60)), 6)
   VerifyEntryLonCA
   
End Sub
'------------------------------------------------------------ 
Sub VerifyEntryLonBB 
   Set objRegEx = CreateObject("VBScript.RegExp")
   objRegEx.Global = True   
   objRegEx.Pattern = "[^0123456789.]"
   Set colMatches = objRegEx.Execute(TextBoxLon5.Value)  
   If colMatches.Count > 0 Then
       Msgbox "You entered an invalid character."
TextBoxLon5.Value = Round(((Abs(TextBoxLon6.Value)-(Floor(Abs(TextBoxLon6.Value))))*60), 4)
       TextBoxLon5.Focus
       Exit Sub
   End If
   If TextBoxLon5.Value="" Then
    Msgbox "Do not Enter Blank"
TextBoxLon5.Value = Round(((Abs(TextBoxLon6.Value)-(Floor(Abs(TextBoxLon6.Value))))*60), 4)
TextBoxLon5.Focus
Exit Sub 
   End if
   if ubound(split(lcase(TextBoxLon5.Value), ".")) <=1 then     
TextBoxLon2.Value = Floor(TextBoxLon5.Value)  
TextBoxLon3.Value = Round(((TextBoxLon5.Value-(Floor(TextBoxLon5.Value)))*60), 2)
       TextBoxLon6.Value = Round((TextBoxLon4.Value+(TextBoxLon5.Value/60)), 6)
   Else     
    MsgBox "You entered More than 1 decimal point."
TextBoxLon5.Value = Round(((Abs(TextBoxLon6.Value)-(Floor(Abs(TextBoxLon6.Value))))*60), 4)
TextBoxLon5.Focus
Exit Sub
   End if
   VerifyEntryLonCA
       
End Sub
'------------------------------------------------------------ 
Sub VerifyEntryLonCA  
   Set objRegEx = CreateObject("VBScript.RegExp")
   objRegEx.Global = True   
   objRegEx.Pattern = "[^0123456789.-]"
   Set colMatches = objRegEx.Execute(TextBoxLon6.Value)  
   If colMatches.Count > 0 Then
Msgbox "You entered an invalid character."
       TextBoxLon6.Value = Round((TextBoxLon4.Value+(TextBoxLon5.Value/60)), 6)
TextBoxLon6.Focus
Exit Sub
   End If
   If TextBoxLon6.Value="" Then
    Msgbox "Do not Enter Blank"
       TextBoxLon6.Value = Round((TextBoxLon4.Value+(TextBoxLon5.Value/60)), 6)
TextBoxLon6.Focus
Exit Sub 
   End if

if ubound(split(lcase(TextBoxLon6.Value), ".")) <=1 then        
TextBoxLon4.Value = Floor(Abs(TextBoxLon6.Value))
TextBoxLon1.Value = TextBoxLon4.Value
TextBoxLon5.Value = Round(((Abs(TextBoxLon6.Value)-(Floor(Abs(TextBoxLon6.Value))))*60), 4)
TextBoxLon2.Value = Floor(TextBoxLon5.Value)
TextBoxLon3.Value = Round(((TextBoxLon5.Value-(Floor(TextBoxLon5.Value)))*60), 2)
if left(Abs(TextBoxLon6.Value), 5)<>left(TextBoxLon6.Value, 5) then
 LonSymbol1.innerhtml="W"
 LonSymbol2.innerhtml="W"
else
 LonSymbol1.innerhtml="E"
 LonSymbol2.innerhtml="E"
end if
   Else     
MsgBox "You entered More than 1 decimal point."
       TextBoxLon6.Value = Round((TextBoxLon4.Value+(TextBoxLon5.Value/60)), 6)
TextBoxLon6.Focus
exit sub
   End if
    
   if TextBoxLon6.Value<>Lon then
Lat = TextBox6.Value
lon = TextBoxLon6.Value
ZoomHTML
GmapsLoad
   end if
End Sub
'------------------------------------------------------------ 
Function Floor(Nb)
  'Emulate the Excel Floor Mathematical Function
   Nb = cdbl(Nb) 
   NbTmp = Round(Nb) 
   if NbTmp > Nb then 
       NbTmp = NbTmp - 1
   End if 
   Floor = cInt(NbTmp)
End Function
'------------------------------------------------------------ 
Sub MagicInputButton
   'MJP's Magic Input Button
End Sub
'------------------------------------------------------------

Sub LatHTML
   Lat=ReadLat.innerhtml
   a=len(Lat)
   lat=right(lat, a-16)
   a=len(Lat)
   lat=left(lat, a-6)
   y=instr(LAT, ".")
   lat = left(LAT, y+6)
   TextBox6.Value = lat
   VerifyEntryCA
End sub

'------------------------------------------------------------ 
Sub LonHTML
   Lon=ReadLon.innerhtml
   a=len(Lon)
   Lon=right(Lon, a-16)
   a=len(Lon)
   Lon=left(Lon, a-6)
   y=instr(Lon, ".")
   Lon = left(Lon, y+6)
   TextBoxLon6.Value = Lon
   VerifyEntryLonCA
End sub

'------------------------------------------------------------ 
Sub ZoomHTML
   Zoom=ReadZoom.innerhtml
   a=len(Zoom)
   Zoom=right(Zoom, a-17)
   a=len(Zoom)
   Zoom=left(Zoom, a-6)
   if Zoom ="" then 
       zoom=14
   else
       zoom=17-zoom
   end if
End sub

'------------------------------------------------------------ 
'My Google Maps Code
</SCRIPT>

var posnString = LAT ;
       document.getElementById("posnLat").innerHTML = posnString;
var posnString = LON ;
       document.getElementById("posnLon").innerHTML = posnString;
         
       var point = new GLatLng(LAT, LON);
       var marker = new GMarker(point, {draggable: true});
       GEvent.addListener(marker, "dragstart", function() {
         map.closeInfoWindow();
       });

GEvent.addListener(marker, "dragend", function() {  
       var position = marker.getPoint(); 
       map.panTo(new GLatLng(position.lat(), position.lng()));
var posnString = position.lat();
       document.getElementById("posnLAT").innerHTML = posnString;
var posnString = position.lng();
       document.getElementById("posnLON").innerHTML = posnString;
       });

GEvent.addListener(map, "moveend", function() {
       var position = marker.getPoint(); 
var posnString = position.lat();
       document.getElementById("posnLAT").innerHTML = posnString;
var posnString = position.lng();
       document.getElementById("posnLON").innerHTML = posnString;
LatHTML()
LonHTML()
});

map.addOverlay(marker);

GEvent.addListener(map, "zoomend", function(zoom,Newzoom) { 
  document.getElementById("posnZOOM").innerHTML=Newzoom; 
});

}
</script>

</head> 
<body bgcolor=c0c0c0 onkeypress="EnterPressed">

<DIV id="Main" STYLE="display:none;position:absolute"> 
<table border=1 width=550 cellpadding=20 bgcolor=d9d9d9> 
 <tr> 
   <td> 
   <center>    
       <font face="arial" color=Red size=5><b><i> DMS Coordinates Converter  </font></b> <font color="black" size="2">By MJP 2008</font></i>
    <table border=0 cellpadding=5 bgcolor="f3f3f3">  
  <tr> 
    <td><b>Latitude</b></td><td align=left>Degrees</td><td align=left>Minutes</td><td align=left>Seconds</td>
    </tr>
 
  <tr> 
    <td>Degrees, Minutes, Seconds</td><td><input type="text" name="TextBox1" value="0" size="4" onFocusOut="VerifyEntryAA"></td><td><input type="text" name="TextBox2" value="0" size="6" onFocusOut="VerifyEntryAB"></td><td><input type="text" name="TextBox3" value="0" size="6" onFocusOut="VerifyEntryAC"><span id=latSymbol1><span></td>
  </tr>
 
  <tr> 
    <td>Degrees, Decimal Minutes</td><td><input type="text" name="TextBox4" value="0" size="4" onFocusOut="VerifyEntryBA"></td><td><input type="text" name="TextBox5" value="0" size="6" onFocusOut="VerifyEntryBB"><span id=latSymbol2><span></td><td></td>
  </tr>  
 
  <tr> 
    <td>Decimal Degrees</td><td><input type="text" name="TextBox6" value="0" size="9" onFocusOut="VerifyEntryCA"></td><td></td><td align=right><input id=runbutton1  class="button" type="button" value="Enter" name="run_button1"  onClick="MagicInputButton"></td>
  </tr>   
</table>
   </center>
   </td> 
 </tr> 
</table> 
</DIV> 
<DIV id="MainLon" STYLE="display:none;position:relative;top:220;left:0;"> 
<table border=1 width=550 cellpadding=20 bgcolor=d9d9d9> 
 <tr> 
   <td> 
   <center>
<table border=0 cellpadding=5 bgcolor="f3f3f3">  
  <tr> 
    <td><b>Longitude</b></td><td align=center>Degrees</td><td align=center>Minutes</td><td align=center>Seconds</td>
  </tr>
  
  <tr> 
    <td>Degrees, Minutes, Seconds</td><td><input type="text" name="TextBoxLon1" value="0" size="4" onFocusOut="VerifyEntryLonAA"></td><td><input type="text" name="TextBoxLon2" value="0" size="6" onFocusOut="VerifyEntryLonAB"></td><td><input type="text" name="TextBoxLon3" value="0" size="6" onFocusOut="VerifyEntryLonAC"><span id=lonSymbol1><span></td>
         </tr>
 
  <tr> 
    <td>Degrees, Decimal Minutes</td><td><input type="text" name="TextBoxLon4" value="0" size="4" onFocusOut="VerifyEntryLonBA"></td><td><input type="text" name="TextBoxLon5" value="0" size="6" onFocusOut="VerifyEntryLonBB"><span id=lonSymbol2><span></td><td></td>
         </tr>  
 
  <tr> 
    <td>Decimal Degrees</td><td><input type="text" name="TextBoxLon6" value="0" size="10" onFocusOut="VerifyEntryLonCA"></td><td></td><td align=right><input id=runbutton2  class="button" type="button" value="Enter" name="run_button2"  onClick="MagicInputButton"></td>
  </tr>   
</table>
   </center>
   </td> 
 </tr> 
</table> 
</DIV>

Click here for a live version of the code.

Thumbnail Image

Attachment (1)

Post #: 1

RE: DMS Converter - 3/29/2008 11:40:30 PM

TomRiddle

Posts: 90
Score: 0
Joined: 2/7/2008
Status: offline

Seems to only work with IE.

(in reply to Meg)

Post #: 2

RE: DMS Converter - 3/30/2008 4:39:36 AM

TNO

Posts: 974
Score: 10
Joined: 12/18/2004
From: thenewobjective.com
Status: offline

Only IE supports VBS so its no wonder.

_____________________________

Consolidated Script Component: Now in Testing stage!

A universe of complexity...

(in reply to TomRiddle)