Convertire una coordinata dal formato gradi/primi/secondi al formato decimale

[Top Fuel]

Ed ecco una funzioncina per convertire una coordinata dal formato gradi/primi/secondi al formato decimale: 

Codice: [Seleziona]

' Gambas class file


Public Sub Form_Open()
Dim coordinata As String = "115°48'35"
Dim decimale As Float 'coordinata in formato decimale
decimale = converti(coordinata)
Print decimale
End

Public Function converti(coordinata As String) As Float 'converte una coordinata da gradi/primi/secondi in cooordinata decimale
Dim scanna As String[] 'array per splittare la coordinata
Dim gradi As Short
Dim primi, secondi As Byte
Dim decimale As Float
scanna = Scan(coordinata, "*°*'*") 'separiamo i componenti della coordinata
gradi = CShort(scanna[0]) 'convertiamoli in numeri
primi = CByte(scanna[1])
secondi = CByte(scanna[2])
decimale = gradi + primi / 60 + secondi / 3600 'calcoliamo il risultato
Return decimale
End

Qualcuno però mi deve spiegare come mai Split mi mette i primi e i secondi nel 3° e 4° elemento dell'array mentre nel 2° ci mette uno spazio (o nulla, non si capisce).

[vuott]

Poiché la struttura della stringra sarà sempre gradi°minuti'secondi, ti conviene utilizzare la funzione Scan( ).
Ossia:

Codice: [Seleziona]

......
scanna = Scan(coordinata, "*°*'*")

gradi = CShort(scanna[0]) 'convertiamoli in numeri
Print gradi

primi = CByte(scanna[1])
Print primi

secondi = CByte(scanna[2])
Print secondi

......

Molto apprezzabile positivamente la cura, da te profusa, nella diversificazione dei tipi di dati (Short e Byte).

[Top Fuel]

Beh, qui si parlava di coordinate, quindi mi sembrava il posto appropriato.
Comunque "scanna" non si può leggere...

Molto apprezzabile positivamente la cura, da te profusa, nella diversificazione dei tipi di dati (Short e Byte).

Ad ogni valore la sua giusta variabile. Grazie per l'apprezzamento.

[alcresio]

Comunque "scanna" non si può leggere...

Io faccio anche di peggio:
Starta(Chi as Qualcosa )
Cleana (Dove as qualcosaltro)

 

[Gianluigi]

Ho creato una nuova discussione, più facile da reperire in future ricerche.

 

[vuott]

... più facile da reperire in future ricerche.

Appunto !

[Top Fuel]

Ho modificato il listato con le indicazioni di vuott.
Ora, da solerte  ambasciatore , potrebbe, se vuole, pubblicarlo sul forum dei colleghi spagnoli.

[vuott]

Ho modificato il listato con le indicazioni di vuott.

Hai lasciato là la funzione Split() !

...potrebbe, se vuole, pubblicarlo sul forum dei colleghi spagnoli.

Ma perché non vi 'mbaràde lo spagnolo ?   

[vuott]

Un membro della comunità spagnola ti fa i complimenti e interviene anche sul codice:

https://foro.gambas-es.org/show_post.php?p=41374

[vuott]

...e aggiunge anche questo:

https://foro.gambas-es.org/show_post.php?p=41377