Gambas France BETA


Pas de compte ? Incription

Conversion d'angle

Ce sujet est résolu.

1
AuteurMessages
lapenduledargent#1 Posté le 27/9/2013 à 16:29:59
Bonjour à tous,

Je fais un calcul de tangente :

1
DiamUsine = DiamBrut - (2 * (LongUsinage * Tan(Rad(Angle))))


angle est une variable de type float qui est saisie dans une valuebox.

Comment encoder une valeur en degrés, minutes et seconde, par exemple 1°25' 50''

Merci d'avance

Pierre

Reivillo#2 Posté le 28/9/2013 à 00:51:53
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Bonjour lapenduledargent.


1 Degré vaut 60 minutes, ou 3600 secondes.(Comme les heures)

Dans ton Exemple 1° 25' 50":
Tu convertis les Minutes en Secondes
(25 * 60") = 1500"
Tu ajoutes les 50"
(1500" + 50") = 1550"
Tu divises en suite les secondes par 3600
(1550" / 3600) = 0.430555556

Donc 1° 25' 50" = 1°.430555556
ou aussi:
1° + (25' / 60) + (50" / 3600) = 1°.430555556

En espérant, être dans le sujet.

Reivillo.
Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr LÀ.
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR
Reivillo#3 Posté le 29/9/2013 à 06:55:16
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Par manque de Retour,
je rajoute ceci.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
PUBLIC SUB Form_Open()

PRINT DegSexa_To_DegDeci(1, 25, 50)
PRINT DegDeci_To_DegSexa(1.43055555555556)

END

PUBLIC FUNCTION DegSexa_To_DegDeci(iDeg AS INTEGER, iMin AS INTEGER, iSec AS INTEGER) AS FLOAT
'Conversion Degrés Sexagésimaux en Degrés Décimaux

RETURN iDeg + (iMin / 60) + (iSec / 3600)

END

PUBLIC FUNCTION DegDeci_To_DegSexa(iDeg AS FLOAT) AS STRING
'Conversion Degrés Décimaux en Degrés Sexagésimaux

'Return Int(iDeg) & "° " & Int(Frac(iDeg) * 60) & "' " & Int(Frac(Frac(iDeg) * 60) * 60) & "\""

END
Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr LÀ.
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR
lapenduledargent#4 Posté le 29/9/2013 à 16:49:38
Bonjour Revillo,

Merci pour tout, tu as été plus rapide que moi ;) et je vais ajouter ton code à mon programme :cheers: .

Bonne fin de dimanche

Pierre
Reivillo#5 Posté le 29/9/2013 à 18:17:16
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Merci pour le retour.

Je pense que tu avais remarqué,
la ligne 18, mise en commentaire.
Cela je l'ai fait, pour éviter,
l'interprétation de certain caractère,
par le forum.

N'oublies pas de mettre en RÉSOLU.

Reivillo.
Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr LÀ.
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR
lapenduledargent#6 Posté le 29/9/2013 à 18:38:55
ok, je pensais à une distraction, même pas LOL
1