Differenze tra le versioni di "Conversione di un angolo"
Da Gambas-it.org - Wikipedia.
| Riga 1: | Riga 1: | ||
| − | Mostreremo di seguito le formule per convertire i valori di un angolo da sessagesimali in decimali e viceversa: | + | Mostreremo di seguito le formule per convertire i valori di un angolo da sessagesimali in decimali e viceversa: <SUP>[[[#Note|nota 1]]]</sup> |
| − | + | Public Sub Form_Open() | |
Print GradiSessag_In_GradiDeci(1, 25, 50) | Print GradiSessag_In_GradiDeci(1, 25, 50) | ||
Print GradiDeci_In_GradiSessag(1.43055555555556) | Print GradiDeci_In_GradiSessag(1.43055555555556) | ||
| − | + | End | |
| − | + | Public Function GradiSessag_In_GradiDeci(iGradi As Integer, iMin As Integer, iSec As Integer) As Float | |
<FONT color=gray>' ''Conversione da Gradi Sessagesimali in Gradi Decimali:''</font> | <FONT color=gray>' ''Conversione da Gradi Sessagesimali in Gradi Decimali:''</font> | ||
Return iGradi + (iMin / 60) + (iSec / 3600) | Return iGradi + (iMin / 60) + (iSec / 3600) | ||
| − | + | End | |
| − | + | Public Function GradiDeci_In_GradiSessag(iGradi As Float) As String | |
<FONT color=gray>' ''Conversione da Gradi Decimali in Gradi Sessagesimali:''</font> | <FONT color=gray>' ''Conversione da Gradi Decimali in Gradi Sessagesimali:''</font> | ||
Return Int(iGradi) & "° " & Int(Frac(iGradi) * 60) & "' " & Int(Frac(Frac(iGradi) * 60) * 60) & "\"" | Return Int(iGradi) & "° " & Int(Frac(iGradi) * 60) & "' " & Int(Frac(Frac(iGradi) * 60) * 60) & "\"" | ||
| − | + | End | |
| − | |||
=Note= | =Note= | ||
[1] Il codice è stato ripreso da un'analoga [http://www.gambasforge.org/sujet-4459-conversion-d-angle.html discussione apparsa nel forum della comunità francese dei programmatori Gambas]. | [1] Il codice è stato ripreso da un'analoga [http://www.gambasforge.org/sujet-4459-conversion-d-angle.html discussione apparsa nel forum della comunità francese dei programmatori Gambas]. | ||
Versione attuale delle 16:20, 1 lug 2024
Mostreremo di seguito le formule per convertire i valori di un angolo da sessagesimali in decimali e viceversa: [nota 1]
Public Sub Form_Open() Print GradiSessag_In_GradiDeci(1, 25, 50) Print GradiDeci_In_GradiSessag(1.43055555555556) End Public Function GradiSessag_In_GradiDeci(iGradi As Integer, iMin As Integer, iSec As Integer) As Float ' Conversione da Gradi Sessagesimali in Gradi Decimali: Return iGradi + (iMin / 60) + (iSec / 3600) End Public Function GradiDeci_In_GradiSessag(iGradi As Float) As String ' Conversione da Gradi Decimali in Gradi Sessagesimali: Return Int(iGradi) & "° " & Int(Frac(iGradi) * 60) & "' " & Int(Frac(Frac(iGradi) * 60) * 60) & "\"" End
Note
[1] Il codice è stato ripreso da un'analoga discussione apparsa nel forum della comunità francese dei programmatori Gambas.
