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

Problème module RTC Board DS1302



  1. #1
    Hellwyrd

    Problème module RTC Board DS1302


    ------

    Bonjour. Je suis nouveau et néophyte alors excusez moi si je fais des bêtises en terme de présentation ^^ . Actuellement élève en terminale S-SI, nous avons décidé dans le cadre de nos PPE de développer en quelque sorte une station météo en nous aidant de l'ouvrage écrit par Guy Isabel "Construisez votre Station météo" . Tout marche à merveille au niveau de la température, du vent et de la pression. Le seul problème est l'heure. En effet, nous nous servons du module RTC board avec un composant DS1302. Le seul problème est que l'heure ou même la date n'avancent pas. En effet, on a beau rester 10 minutes à regarder l'écran, les minutes et les heures restent la même que celle que nous avions implantées dans le programme initialement. Vous comprenez bien que ceci est problématique. Nous nous servons du pic PB-3B pour notre projet et avons utilisé le programme PICBASIC-Studio.

    Voici le programme :

    'station météo compacte

    CONST DEVICE =3B
    DIM MIN AS BYTE, HEU AS BYTE, DAT AS BYTE

    DIM MOI AS BYTE, JOU AS BYTE
    DIM T AS INTEGER, H AS INTEGER, P AS INTEGER
    DIM D AS INTEGER, V AS INTEGER, C AS INTEGER
    SET PICBUS HIGH : LCDINIT: CSROFF :GOSUB BAT

    OUT 12,1
    SHIFTOUT 14,13,0,&H8E,8
    SHIFTOUT 14,13,0,0,8
    OUT 12,0
    IF KEYIN (20,25 ) = 0 THEN GOTO CHAR ELSE GOTO LECT

    CHAR: OUT 12,1
    SHIFTOUT 14,13,0,&H82,8
    SHIFTOUT 14,13,0,&H20,8

    OUT 12,0
    OUT 12,1

    SHIFTOUT 14,13,0,&H84,8
    SHIFTOUT 14,13,0,&H10,8

    OUT 12,0
    OUT 12,1

    SHIFTOUT 14,13,0,&H86,8
    SHIFTOUT 14,13,0,&H01,8

    OUT 12,0
    OUT 12,1

    SHIFTOUT 14,13,0,&H88,8
    SHIFTOUT 14,13,0,&H04,8

    OUT 12,0
    OUT 12,1

    SHIFTOUT 14,13,0,&H8A,8
    SHIFTOUT 14,13,0,&H05,8

    OUT 12,0

    LECT: OUT 12,1
    SHIFTOUT 14,13,0,&H83,8
    MIN = SHIFTIN (14,13,2,8)
    MIN = (MIN << 1 )OR MIN .7

    OUT 12,0
    OUT 12,1
    SHIFTOUT 14,13,0,&H85,8
    HEU = SHIFTIN (14,13,2,8)
    HEU = (HEU << 1 )OR HEU .7

    OUT 12,0
    OUT 12,1
    SHIFTOUT 14,13,0,&H87,8
    DAT = SHIFTIN (14,13,2,8)
    DAT = (DAT << 1 )OR DAT .7
    OUT 12,0
    OUT 12,1

    SHIFTOUT 14,13,0,&H89,8
    MOI = SHIFTIN (14,13,2,8)
    MOI = (MOI << 1 )OR MOI .7

    OUT 12,0
    OUT 12,1

    SHIFTOUT 14,13,0,&H8B,8
    JOU = SHIFTIN (14,13,2,8)
    JOU = (JOU << 1 )OR JOU .7

    OUT 12,0
    AFF: LOCATE 0,0 :PRINT "Bonjour, aujourd'hui "
    LOCATE 0,2 : PRINT "il est "
    LOCATE 7,2 : PRINT HEX(HEU,2,0), " heure ", HEX (MIN ,2,0)

    LOCATE 0,1

    IF JOU = 1 THEN PRINT "LUNDI "
    IF JOU = 2 THEN PRINT "MARDI "
    IF JOU = 3 THEN PRINT "MERCREDI "
    IF JOU = 4 THEN PRINT "JEUDI "
    IF JOU = 5 THEN PRINT "VENDREDI "
    IF JOU = 6 THEN PRINT "SAMEDI "
    IF JOU = 7 THEN PRINT "DIMANCHE "

    PRINT ""
    PRINT HEX(DAT,2,0),"/", HEX(MOI,2,0)
    DELAY 5000 : CLS : DELAY 1000

    CSROFF
    T = ADIN(1)
    IF T < 559 THEN GOTO 100 ELSE GOTO 200
    100 T =(T *50)/ 102: T = 273 - T
    LOCATE 0,3:PRINT"temp. :-": PRINT DEC(T,2,0):PRINT"DEG.C"
    200 T =(T *50)/ 102: T = T - 273
    LOCATE 0,3:PRINT"Temp. :": PRINT DEC(T,2,0):PRINT"DEG.C"
    DELAY 2000 : CLS : DELAY 1000

    P=ADIN(2)
    P=P *245 : P = P /50
    LOCATE 0,3 : PRINT"Pression : " : PRINT DEC(P) : PRINT" hPa"
    DELAY 2000 : CLS : DELAY 1000
    D = ADIN(0)
    D= D * 50 : D = D /102
    LOCATE 0,3 :PRINT "Vent : "

    IF (D>=336 AND D <22) THEN PRINT"Nord"
    IF (D>=22 AND D <67) THEN PRINT"Nord-est"
    IF (D>=67 AND D <112) THEN PRINT"Est"
    IF (D>=112 AND D <155) THEN PRINT"Sud-Est"
    IF (D>=155 AND D <200) THEN PRINT"Sud"
    IF (D>=200 AND D <245) THEN PRINT"Sud-Ouest"
    IF (D>=245 AND D <290) THEN PRINT"Ouest"
    IF (D>=290 AND D <336) THEN PRINT"Nors-Ouest"
    DELAY 2000 : CLS : DELAY 1000
    V = COUNT(1)
    DELAY 1000
    V = COUNT(1)
    C=251
    V = V * C
    V = V / 1000
    V = V *36 : V = V / 10
    LOCATE 0,3:PRINT"Vitesse : "
    Locate 8,3:PRINT DEC(V) : PRINT" km/h"
    DELAY 2000 : CLS : DELAY 1000
    GOTO LECT
    BAT: OUT 12,1
    SHIFTOUT 14,13,0,&H90,8
    SHIFTOUT 14,13,0,&HA5
    OUT 12,0
    RETURN

    Si vous désirez plus de précisions, n'hésitez pas à me demander, je peux vous scanner des pages du livre si vous voulez .

    Merci d'avance pour votre aide.

    PS : Je ne pourrais peut-être pas répondre avant demain.

    -----

  2. Publicité
  3. 📣 Nouveau projet éditorial de Futura
    🔥🧠 Le Mag Futura est lancé, découvrez notre 1er magazine papier

    Une belle revue de plus de 200 pages et 4 dossiers scientifiques pour tout comprendre à la science qui fera le futur. Nous avons besoin de vous 🙏 pour nous aider à le lancer...

    👉 Je découvre le projet

    Quatre questions à explorer en 2022 :
    → Quels mystères nous cache encore la Lune 🌙 ?
    → Pourra-t-on bientôt tout guérir grâce aux gènes 👩‍⚕️?
    → Comment nourrir le monde sans le détruire 🌍 ?
    → L’intelligence artificielle peut-elle devenir vraiment intelligente 🤖 ?
  4. #2
    Forhorse

    Re : Problème module RTC Board DS1302

    C'est très mal structuré et il n'y a pas le moindre commentaire. Je doute que quelqu'un comprenne quoi que ce soit a votre programme.

  5. #3
    Hellwyrd

    Re : Problème module RTC Board DS1302

    D'accord, donc il faudrait que je commente le programme puis que je le reposte ? Je vais m'y mettre tout de suite, mais je ne garantis pas de pouvoir le reposter ce soir.
    Dernière modification par Hellwyrd ; 07/04/2011 à 23h30. Motif: Il manquait une information importante.

  6. #4
    Forhorse

    Re : Problème module RTC Board DS1302

    Et un schéma du montage ne serait pas un luxe !

  7. A voir en vidéo sur Futura
  8. #5
    Hellwyrd

    Re : Problème module RTC Board DS1302

    D'accord, je vais faire tout ça.

  9. #6
    Hellwyrd

    Re : Problème module RTC Board DS1302

    Voici les informations manquantes :

    Composants :

    IC = contrôleur comfile PB-3B

    RTC Board
    D1 = diode commutation 1N4148
    Capteur de température LM335
    IC2 = quadruple AOP LM324, DIL14

    Capteur de pression Motorola, type MPX 2200 AP

    R1, R2 = 10kOhm
    R3 = 91kOhm
    R4,R5,R6 = 100kOhm
    R7,R8,R9,R10 = 1.2kOhm
    R11 = 2.2kOhm
    R12 = 33 Ohm

    P1,P2,P3, potentiomètres de 50, 4.7 et 10kOhm adjustables 20 tours.

    C1 = chimique vertical 470µF/25V
    C2,C4 = plastique 22nF
    C3 = plastique 10nF
    C5 = plastique 4.7nF
    C6 = plastique 470nF
    C7,C8 = céramique 22pF
    C9 = plastique 10nF

    Quartz à fils 20Mhz


    Voici le schéma du montage :
    ##############################
    images supprimées


    Le schéma structurel :

    ##############################
    images supprimées


    Typon face 1 :

    ##############################
    images supprimées


    Typon face 2 :

    ##############################
    images supprimées


    Voici les informations que je peux donner ce soir. Pour le programme, je ne pourrais que demain, et si il faut je peux essayer de prendre le circuit et les soudures en photo.

    Encore merci.

    Merci de bien prendre connaissance des règles du forum avant de poster:
    Dernière modification par Jack ; 08/04/2011 à 00h17.

  10. Publicité

Discussions similaires

  1. Problème communication I2C entre RTC et uC
    Par punglelist dans le forum Électronique
    Réponses: 34
    Dernier message: 30/06/2010, 23h38
  2. Réalisation d'une Horloge/Clock Nixie - PIC + Module RTC
    Par jorg1n dans le forum Électronique
    Réponses: 26
    Dernier message: 31/05/2010, 08h16
  3. Programmation horloge RTC DS1302
    Par camelia222 dans le forum Électronique
    Réponses: 33
    Dernier message: 19/03/2008, 15h30
  4. Problème avec RTC M41T56
    Par bestsiena dans le forum Électronique
    Réponses: 9
    Dernier message: 24/09/2007, 18h47
  5. Problème avec RTC DS1307 [picbasic pro]
    Par Gwen1400 dans le forum Électronique
    Réponses: 4
    Dernier message: 05/04/2006, 09h54
Découvrez nos comparatifs produits sur l'informatique et les technologies.