Differenze tra le versioni di "Conversione di un angolo"
Da Gambas-it.org - Wikipedia.
(Creata pagina con 'Mostreremo di seguito le formule per convertire i valori di un angolo da sessagesimali in decimali e viceversa: |1| '''Public''' Sub Form_Open() Print DegSexa...') |
|||
| Riga 2: | Riga 2: | ||
'''Public''' Sub Form_Open() | '''Public''' Sub Form_Open() | ||
| − | Print | + | Print GradiSessag_In_GradiDeci(1, 25, 50) |
| − | Print | + | Print GradiDeci_In_GradiSessag(1.43055555555556) |
'''End''' | '''End''' | ||
Versione attuale delle 17:01, 29 set 2013
Mostreremo di seguito le formule per convertire i valori di un angolo da sessagesimali in decimali e viceversa: |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.
