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

Probleme picbasic 3H



  1. #1
    timouneur

    Probleme picbasic 3H


    ------

    Bonjour, je souhaiterait de l'aide pour mon programme qui pour le moment ne fonctionne pas correctement, en effet a un moment dans le programme on récupère l'état d'un des deux boutons poussoir nommer BPEST et BPOUEST. KEYIN de semble pas fonctionner et j'ai même essayer ADKEYIN car les deux port utiliser pour ces boutons sont des ports AD. Si l'on pouvait m'éclairer se serait sympa .

    Voici une partie de mon programme:
    Code:
    CONST DEVICE = 3H
    
    CONST MA = 0
    CONST BPEST = 1
    CONST BPOUEST = 2
    CONST INIT = 3
    CONST DEST = 4
    CONST DOUEST = 5
    CONST MOTEUR = 6
    CONST ENABLE = 7
    CONST RESET = 8
    
    DIM estOuest AS BYTE
    DIM autoManu AS BYTE
    DIM satellite(13) AS BYTE
    DIM satellite_EO(13) AS BYTE
    DIM touche AS BYTE
    DIM impulsion AS BYTE
    DIM sat_voulu AS BYTE
    DIM boucle AS BYTE
    DIM sens AS BYTE
    DIM direction AS BYTE
    DIM numero as BYTE
    DIM boutonEst AS BYTE
    DIM boutonOuest AS BYTE
    DIM jojo as BYTE
    DIM lapin as BYTE
    
    satellite(5) = 145 '0
    satellite_EO(5) = 1
    
    satellite(12) = 116 '1
    satellite_EO(12) = 1
    
    satellite(8) = 87 '2
    satellite_EO(8) = 1
    
    satellite(4) = 58 '3
    satellite_EO(4) = 1
    
    satellite(11) = 29 '4
    satellite_EO(11) = 1
    
    satellite(7) = 1 '5
    satellite_EO(7) = 0
    
    satellite(3) = 29 '6
    satellite_EO(3) = 0
    
    satellite(10) = 58 '7
    satellite_EO(10) = 0
    
    satellite(6) = 87 '8
    satellite_EO(6) = 0
    
    satellite(2) = 116 '9
    satellite_EO(2) = 0
    
    LCDINIT
    
    
    PRINCIPAL :
    
    LOCATE 0,0
    PRINT "         "
    
    IF COUNT(0) = 0 THEN
    	OUT INIT, 1
    ELSE
    	OUT INIT, 0
    END IF
    
    
    GOSUB POSITION
    
    POSITION :
    
    autoManu = KEYIN(MA)
    IF autoManu = 0 THEN
    	GOTO AUTOMATIQUE
    ELSE
    	GOTO MANU
    END IF
    RETURN
    
    AUTOMATIQUE :
    
    impulsion = COUNT(1)
    boucle = 0
    touche = EPADIN(4,3)
    IF touche = 0 THEN
    GOTO PRINCIPAL
    END IF
    direction = satellite(touche)
    sens = satellite_EO(touche)
    GOTO DEPLACEMENT
    
    MANU :
    jojo = ADKEYIN(BPEST)
    lapin = ADKEYIN(BPOUEST)
    IF ADKEYIN(BPEST) = 0 THEN
    	estOuest = 0
    	GOTO MOUVEMENT
    END IF
    IF ADKEYIN(BPOUEST) = 0 THEN
    	estOuest = 1
    	GOTO MOUVEMENT
    END IF
    IF ADKEYIN(BPEST) = 1 && ADKEYIN(BPOUEST) = 1 THEN
    GOTO POSITION
    END IF

    -----

  2. #2
    timouneur

    Re : Probleme picbasic 3H

    petit up

Discussions similaires

  1. Problème cable USB picbasic
    Par thomasalbert1993 dans le forum Électronique
    Réponses: 2
    Dernier message: 06/02/2008, 13h52
  2. problème picbasic TPE
    Par benoitcl dans le forum TPE / TIPE et autres travaux
    Réponses: 1
    Dernier message: 29/01/2007, 17h57
  3. problème picbasic TPE
    Par benoitcl dans le forum Électronique
    Réponses: 0
    Dernier message: 27/01/2007, 10h16
  4. problème programation picbasic
    Par piertomjack dans le forum Logiciel - Software - Open Source
    Réponses: 7
    Dernier message: 26/04/2006, 19h40
  5. Problème avec RTC DS1307 [picbasic pro]
    Par Gwen1400 dans le forum Électronique
    Réponses: 4
    Dernier message: 05/04/2006, 08h54
Découvrez nos comparatifs produits sur l'informatique et les technologies.