Répondre à la discussion
Affichage des résultats 1 à 11 sur 11

quel est ce langage ?



  1. #1
    stephane82

    quel est ce langage ?


    ------

    Bonjour à tous !

    Je suis novice en informatique, quelqu'un pourrait me dire quel est ce language ?
    Je ne met qu'une partie, le reste est inutile je pense.. enfin sauf si quelqu'un en à besoin.. c'est un programme pour calculer le temps sidéral

    le voici :

    debut:
    DIM JJ AS DOUBLE
    DIM HD AS DOUBLE
    DIM T AS DOUBLE
    DIM H1 AS DOUBLE
    DIM HS AS DOUBLE
    CLS
    PRINT : PRINT " *** Calcul de l'heure Sideral Moyen ****"
    PRINT : PRINT " ATTENTION la validit‚ des donn‚es entr‚es au clavier"
    PRINT " n'est pas v‚rifi‚e par le programme. Si vous entrez"
    PRINT " des valeurs aberrantes le programme vous"
    PRINT " donneras des r‚ponse aberrantes"
    PRINT
    INPUT "Entrez la date D'observation sous forme MM DD YYYY"; dateobs$

    INPUT "Entrez l'heure UT de l'observation sous forme HH MM SS"; heure$
    PRINT : PRINT "***************************** ******************": PRINT

    'On extrait les donnees de la date
    M = VAL(LEFT$(dateobs$, 2))
    d = VAL(MID$(dateobs$, 4, 2))
    Y = VAL(MID$(dateobs$, 7, 4))

    'On extrait les donnees de l'heure
    h = VAL(LEFT$(heure$, 2))
    mi = VAL(MID$(heure$, 4, 2))
    se = VAL(MID$(heure$, 7, 2))

    'On transforme l'heure en valeur decimale
    HD = h + (mi / 60) + (se / 3600)
    ' HD est l'heure en decimale
    [...]


    Dans ce programme, je ne comprend pas à quoi sert la fonction FIX :

    [...]
    'Reduction a un cercle horaire de 24 heures
    RE = FIX(HS / 24): HS = HS - (RE * 24)
    IF HS < 0 THEN HS = HS + 24 'sortie de l'heure en decimal
    [...]



    merci d'avance

    -----

  2. Publicité
  3. #2
    azt

    Re : quel est ce langage ?

    Bonjour,
    C'est du basic.

    La fonction FIX me ferait pencher vers du visual basic, mais elle était peut-être déjà implémentée dans les versions précédentes de basic. (Je ne m'en souviens pas, ou elle a changé de nom entre temps).
    Elle peut être traduite par des fonctions plus élémentaires :
    FIX(nombre) = SIGN(nombre) * INT(ABS(nombre))

    [edit: ]
    Suis-je bête, il y a des prints donc fix est bien implémenté dans certaines versions de Basic
    Dernière modification par azt ; 09/06/2006 à 16h16.
    Nous sommes toujours de la taille de l'univers que nous découvrons. [Frédérick Tristan]

  4. #3
    umfred

    Re : quel est ce langage ?

    Il s'agit de basic.

  5. #4
    stephane82

    Re : quel est ce langage ?

    Citation Envoyé par azt
    Bonjour,
    C'est du basic.

    La fonction FIX me ferait pencher vers du visual basic, mais elle était peut-être déjà implémentée dans les versions précédentes de basic. (Je ne m'en souviens pas, ou elle a changé de nom entre temps).
    Elle peut être traduite par des fonctions plus élémentaires :
    FIX(nombre) = SIGN(nombre) * INT(ABS(nombre))

    [edit: ]
    Suis-je bête, il y a des prints donc fix est bien implémenté dans certaines versions de Basic
    merci beaucoup !

    par contre, que signifie "SIGN", "INT" et "ABS" ?

  6. #5
    stephane82

    Re : quel est ce langage ?

    Aussi, comment pourrais-je realiser une instruction pareille sur excell ?

    merci

  7. A voir en vidéo sur Futura
  8. #6
    azt

    Re : quel est ce langage ?

    Citation Envoyé par stephane82
    Aussi, comment pourrais-je realiser une instruction pareille sur excell ?

    merci
    Ok,
    SIGN te retourne le +1 ou -1 suivant le signe du nombre passé en paramètre
    INT retourne la partie entière
    et ABS la partie absolue.

    La fonction FIX arrondi le nombre vers 0.
    fix(-1.1) donne -1
    fix(1.1) donne 1, par exemple

    Sous Excel, dans une cellule tu peux utiliser "=ARRONDI.INF(nombre;0)"
    Si c'est sous vba, simplement "a=fix(nombre)", tout simplement.
    Nous sommes toujours de la taille de l'univers que nous découvrons. [Frédérick Tristan]

  9. Publicité
  10. #7
    stephane82

    Re : quel est ce langage ?

    merci beaucoup !

    j'ai cependant du mal à le mettre sous la bonne forme dans excell

    voici la partie du programme qui m'interesse

    [...]
    T = (JJ - 2451545#) / 36525 'Valeur que doit prendre T dans la formule

    'Formule a Marcel
    H1 = 24110.54841# + (8640184.812866# * T) + (.093104 * (T ^ 2)) - (.0000062# * (T ^ 3))
    HS = H1 / 3600 'On remet tout ca en heure

    'Reduction a un cercle horaire de 24 heures
    RE = FIX(HS / 24): HS = HS - (RE * 24)
    IF HS < 0 THEN HS = HS + 24 'sortie de l'heure en decimal

    'heure siderale pour l'instant choisi

    IF HS > 24 THEN HS = HS - 24
    HS = HS + (HD * 1.002737908#)
    IF HS >= 24 THEN HS = HS - 24
    'Inscription de l'heure en mode courant
    heureSid = FIX(HS)
    Min = (HS - heureSid) * 60
    Sec = (Min - FIX(Min)) * 60
    PRINT "Voici l'heure siderale moyen pour l'instant cherch‚"
    PRINT heureSid; "Heu"; FIX(Min); "Min"; Sec; "sec"
    PRINT : PRINT
    INPUT "Voulez vous calculer pour un autre date o ou n"; r$
    IF r$ = "o" GOTO debut ELSE GOTO fini
    fini:
    END

    Le programme affiche l'heure sous la forme hh:mn:sec
    j'aimerais pouvoir en faire autant sous excel avec en plus, la forme decimale à coté. Comment faire ?

    merci d'avance !

  11. #8
    azt

    Re : quel est ce langage ?

    Tu veux le faire en utilisant les cellules du tableur ou par macro ?
    Nous sommes toujours de la taille de l'univers que nous découvrons. [Frédérick Tristan]

  12. #9
    mécano41

    Re : quel est ce langage ?

    Bonjour,

    J'essaie ton problème. Cela peut se faire dans une feuille de calcul mais il faudrait nous donner le calcul de la variable JJ utilisée dans le calcul de T au début de ton post #7.

    Il serait bon également d'avoir, pour vérif., des valeurs de quelques temps "entrés" et des temps "sortis" correspondants.

    A bientôt

  13. #10
    stephane82

    Re : quel est ce langage ?

    Merci de m'aider, je vous post ça dans 1heure !

  14. #11
    stephane82

    Re : quel est ce langage ?

    Je ne suis pas revenu immédiatement, désolé je voulais poster un site ! la variable JJ correspond juste aux jours juliens.

    voici un site qui présentera tout l'artifice de calcul à réaliser pour obtenir ce résultat.

    http://emilie.bodin.free.fr/logiciel....html#formules

    c'est juste pour information pour les intéréssé que je poste ça, mecano41 a trouvé la solution au problème !

Discussions similaires

  1. En quel langage
    Par alovesupreme dans le forum Logiciel - Software - Open Source
    Réponses: 9
    Dernier message: 28/11/2007, 20h07
  2. Quel langage est utilisé pour programmer les puce epr-01
    Par o0Zz dans le forum Électronique
    Réponses: 5
    Dernier message: 15/08/2006, 16h17
  3. quel langage pour pic ?
    Par spilz dans le forum Électronique
    Réponses: 12
    Dernier message: 01/08/2006, 13h40
  4. Quel langage ?
    Par leglaude87 dans le forum Logiciel - Software - Open Source
    Réponses: 60
    Dernier message: 03/07/2006, 15h18
  5. quel langage choisir?
    Par milsabor dans le forum Logiciel - Software - Open Source
    Réponses: 11
    Dernier message: 10/05/2005, 10h06
Découvrez nos comparatifs produits sur l'informatique et les technologies.