VB6 Degré Minute Seconde en Degré Décimaux

Question

Salut...

Je suis &#224; la recherche du code pour pouvoir modifier un nombre en Degr&#233; minute seconde en Degr&#233; D&#233;cimaux.

Je suis capable de faire ce changement si j'utilise des textbox
C'est-&#224;-dire un textbox pour les Degr&#233;s
                   un texbox pour les Minutes
                   une texbox pour les Secondes.

De cette facon j'y arrive...

Mon probl&#232;me, je veux que si j'inscrit dans un seul et unique textbox  un Angle en Degr&#233; Minute Seconde (par exmeple 60.2550)
d'&#234;tre capable de faire la calcul. Donc le code devrait savoir que les 2 premiers chiffre apr&#232;s la virgule sont les minutes et donc de diviser par 60 et que les quatre dernier chiffres sont les secconde et donc de  diviser par 3600...

J'ai essay&#233; plein de truc et je n'y arrive pas... si quelqu'un peut m'aider un peu...

Merci d'avance

cs_jacques13 · Answer

Essaye cette routine:
On entre avec x en radians et on en sort avec a$ format&#233;
Sub Rad2Geo(x, a$)
  x = x * 180 / pi
  deg = Int(x)
  mmin = x - deg
  mmin = mmin * 60
  sec = mmin - Int(mmin)
  mmin = Int(mmin)
  sec = sec * 60
  sec1 = Int(sec)
  sec2 = Int(10000 * (sec - sec1))
  aa$ = Trim$(Str$(sec2))  If Len(aa$) 3 Then aa$ "0" + aa$  If Len(aa$) 2 Then aa$ "00" + aa$  If Len(aa$) 1 Then aa$ "000" + aa$
  a$ = Str$(deg) + "&#176;" + Str$(mmin) + Chr$(39) + Str$(sec1) + Chr$(34) + aa$
End Sub

Gobillot · Answer

Dim s  As String


    Dim Lg As Integer


    


    s = Text1.Text





    Lg = Len(s)


    MsgBox  Left$(s, Lg - 5) + Mid$(s, Lg - 3, 2) / 60 + Right$(s, 2) / 3600


Daniel

jpleroisse · Answer

Bonsoir,

Essaye ce code (il fonctionne).



Private Sub Command1_Click()

Dim int1 As Integer, int2 As Integer

Text1.Text = "60.2550"

If Text1.Text = "60.2550" Then

    int1 = Left(Text1.Text, 2)

    int2 = Right(Text1.Text, 4)

Text1.Text = Round((int1 / 60), 2)

End If

Text1.Text = Round((int2 / 3600), 4) + Text1.Text

End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

Gobillot · Answer

bon je corrige:



"et que les quatre derniers chiffre sont les secconde et donc de  diviser par 3600..."



"et que les deux derniers chiffres sont les secondes et donc doivent &#234;tre divis&#233;s par 3600..."


Daniel

jpleroisse · Answer

Bonsoir,

OK Gobillot, mais dans ce cas, les secondes ne doivent pas &#234;tre divis&#233;e
mais ajout&#233;e.Si non, qu'il nous dise quel r&#233;sultat il veut obtenir ??



jpleroisse

Gobillot · Answer

en degr&#233;s d&#233;cimaux comme il a dit



dd.mmss  repr&#233;sente  dd  + mm/60 + ss/3600





 par exemple 60.2550



degr&#233; As Double 60 + 25/60 + 50/3600 60.43055555

Daniel

jpleroisse · Answer

Re,

OK, devrais me coucher plus-t&#244;t.



jpleroisse

VB6 Degré Minute Seconde en Degré Décimaux

7 réponses

Discussions similaires