Conversione di un angolo

[vuott]

Vi segnalo questa interessante discussione apparsa nel sito della Comunità francese dei programmatori Gambas:

http://89.234.156.109/sujet-4459-conversion-dangle-page-1.html

[Top Fuel]

Già che ci siamo facciamo pure il contrario:  

Codice: [Seleziona]

' Gambas class file

Private angolodec As Float
Private angoloorario As String

Public Sub _new()
End

Public Sub Form_Open()
angolodec = CFloat(inputbox("Angolo?"))
Label1.text = convertiorario(angolodec)
End

Public Function convertiorario(angolo As Float) As String
Dim minuti As Byte, secondi As Short
Dim gradi As String
gradi = CStr(CInt(angolo)) & "°"
secondi = (angolo - CInt(angolo)) * 3600
minuti = secondi \ 60
gradi &= CStr(minuti) & "'"
secondi = secondi Mod (secondi \ 60)
gradi &= CStr(secondi) & "''"
Return gradi
End

Però ho notato una cosa, controllando con la mia calcolatrice scientifica: i risultati corrispondono solo da circa 22° in poi; sotto, la calcolatrice mi da un risultato leggermente superiore sui secondi, ma non capisco se sbaglia Gambas o la mia calcolarice.

[vuott]

Già che ci siamo facciamo pure il contrario: 

Io, però, la vedrei ben inserita nella WIKI. 

[Top Fuel]

Fallo tu che sei capace, magari dopo aver capito dove sta l'inghippo dei secondi.

[vuott]

Fallo tu che sei capace, magari dopo aver capito dove sta l'inghippo dei secondi.

Ahéééééééééééé !  Stiamo freschi, allora ! 

[Top Fuel]

Per me è un bugghino di Gambas, al limite pubblicalo così com'è e ci lavorerò su in seguito.

[vuott]

Perché un bug ?
Mi pare che il problema, di cui parli, è l'errore di divisione per zero alla riga

Codice: gambas [Seleziona]

secondi = secondi Mod (secondi \ 60)

nei casi in cui i valori a destra del punto (ossia della virgola) siano uguali a zero (ad esempio 7.0 ).
In effetti si avrebbe sostanzialmente una cosa di questo genere:
 secondi = 0 Mod 0

Si potrebbe risolvere con un IF :  

Codice: gambas [Seleziona]

   If secondi > 0 Then secondi = secondi Mod (secondi \ 60)

[vuott]

...ad ogni modo nel codice proposto dal programmatore lì nel forum francese c'è anche il calcolo inverso per passare dai gradi decimali ai gradi sessadecimali.

[Top Fuel]

Hai ragione, c'è quell'errore.
Non ho fatto caso che nel codice del programmatore francese, c'era anche l'inverso, era una riga commentata.
Vabbé, ho perso un quarto d'ora per niente.

[vuott]

Vabbé, ho perso un quarto d'ora per niente.

E' stato comunque per te un esercizio, e quindi - secondo me - non è stato tempo sprecato. 

[md9327]

E il mio di tempo non lo contate? 

Che stò quà a leggere 'stò andirivieni di post... mannaggia... 


 

[vuott]

Che stò quà a leggere 'stò andirivieni di post... mannaggia...

...è tutta culdura !