Simplification en Basic

[Neptunes]

Salut !!

Je sais pas si certains pourront m'aider mais je tente ma chance quand même

Pour mes cours, je dois faire un joli programme en BASIC (oui l'éducation national est en avance sur son temps ...)

J'utilise MicroCode Studio pour ceux que ça intéresse.

Le but du programme est : Lorsque je rentre un code en Hexadécimal, je dois commander 4 relais indépendamment.

Avec sur le même octet :
¤ 4 Premiers bits => Définir quel Relais activer
¤ 4 Derniers bits => Mettre le Relais en position Travail ou Repos
Ce sont des relais bistables

Bref c'est pour expliquer brièvement le programme

Mais mes professeurs me demandent de le simplifier au maximum pour éviter d'avoir un programme trop lourd ...
Et étant un vrai bille en Maths et en Programmation, je me retrouve sacrement coincé ...

Il faut apparemment faire une boucle ou je ne sais quoi de ce genre.

Bref si quelqu'un peut m'aider ce serait super. Si il vous manque quelques chose, je peux tout mettre à disposition évidemment.

Je met mon programme dans le prochain message pour plus de lisibilité !!

[Neptunes]

'------------------------------------------
' SORTIE
' commande d'une sortie
' entrée : A (byte) adresse sur le bus I2C
' B (byte) Quartet haut (OFF = 0, ON <> 0) quartet bas (N° du relais 1 à 4)
' sortie : rien
'--------------------------------------------


DEFINE LOADER_USED 1
DEFINE OSC 4


B var byte
Relais var byte


i2cwrite PortC.4,PortC.3, $42, $01, [$00] 'Tout le PortB mis en sortie


while 1 'Initialisation

Relais = B & %00001111 'on fait un ET logique sur les 4 premiers bits pour le N° du relais
B = B & %11110000 'on fait un ET logique sur les 4 derniers bits pour le ON/OFF des relais


If Relais = $01 and B != $00 then 'si Relais 1 et ON Alors
i2cwrite PortC.4, PortC.3, $42, $13, [$01] 'on active le relais 1 au travail
endif
If RELAIS = $01 and B = $00 then 'si Relais 1 et OFF Alors
i2cwrite PortC.4, PortC.3, $42, $13, [$02] 'on active le relais 1 au repos
endif
IF relais = $02 and B != $00 then 'si Relais 2 et ON Alors
i2cwrite PortC.4, PortC.3, $42, $13, [$04] 'on active le relais 2 au travail
endif
if relais = $02 and B = $00 then 'si Relais 2 et OFF Alors
i2cwrite PortC.4, PortC.3, $42, $13, [$08] 'on active le relais 2 au repos
endif
if relais = $04 and B != $00 then 'si Relais 3 et ON Alors
i2cwrite PortC.4, PortC.3, $42, $13, [$10] 'on active le relais 3 au travail
endif
if relais = $04 and B = $00 then 'si Relais 3 et OFF Alors
i2cwrite PortC.4, PortC.3, $42, $13, [$20] 'on active le relais 3 au repos
endif
if relais = $08 and B != $00 then 'si Relais 4 et ON Alors
i2cwrite PortC.4, PortC.3, $42, $13, [$40] 'on active le relais 4 au travail
endif
if relais = $08 and b = $00 then 'si Relais 4 et OFF Alors
i2cwrite PortC.4, PortC.3, $42, $13, [$80] 'on active le relais 4 au repos
endif
pause 500 'On fait une pause de 50ms
i2cwrite PortC.4, PortC.3, $42, $13, [$00] 'On remet tout à Zero

wend

[CaSa]

Je ne connais pas le BASIC (malgré mon âge un peu avancé ) mais en algorythmique tout ça c'est super lourd

If Relais = $01 and B != $00 then 'si Relais 1 et ON Alors
i2cwrite PortC.4, PortC.3, $42, $13, [$01] 'on active le relais 1 au travail
endif
If RELAIS = $01 and B = $00 then 'si Relais 1 et OFF Alors
i2cwrite PortC.4, PortC.3, $42, $13, [$02] 'on active le relais 1 au repos
endif
IF relais = $02 and B != $00 then 'si Relais 2 et ON Alors
i2cwrite PortC.4, PortC.3, $42, $13, [$04] 'on active le relais 2 au travail
endif
if relais = $02 and B = $00 then 'si Relais 2 et OFF Alors
i2cwrite PortC.4, PortC.3, $42, $13, [$08] 'on active le relais 2 au repos
endif
if relais = $04 and B != $00 then 'si Relais 3 et ON Alors
i2cwrite PortC.4, PortC.3, $42, $13, [$10] 'on active le relais 3 au travail
endif
if relais = $04 and B = $00 then 'si Relais 3 et OFF Alors
i2cwrite PortC.4, PortC.3, $42, $13, [$20] 'on active le relais 3 au repos
endif
if relais = $08 and B != $00 then 'si Relais 4 et ON Alors
i2cwrite PortC.4, PortC.3, $42, $13, [$40] 'on active le relais 4 au travail
endif
if relais = $08 and b = $00 then 'si Relais 4 et OFF Alors
i2cwrite PortC.4, PortC.3, $42, $13, [$80] 'on active le relais 4 au repos
endif
pause 500 'On fait une pause de 50ms
i2cwrite PortC.4, PortC.3, $42, $13, [$00] 'On remet tout à Zero

Tu passes dans plein de tests inutilement.
Une première optimisation serait ce genre là (en espérant que la syntaxe est bonne)

Code: Tout sélectionner

If Relais = $01 then
   if B != $00    then          'si Relais 1 et ON Alors
       i2cwrite PortC.4, PortC.3, $42, $13, [$01]   'on active le relais 1 au travail
   else
       i2cwrite PortC.4, PortC.3, $42, $13, [$02]   'on active le relais 1 au repos
    endif
else
    IF relais = $02 then
       if B != $00    then          'si Relais 2 et ON Alors
           i2cwrite PortC.4, PortC.3, $42, $13, [$04]   'on active le relais 2 au travail
       else
           i2cwrite PortC.4, PortC.3, $42, $13, [$08]   'on active le relais 2 au repos 
       endif
    else
       if relais = $04 then
         if B != $00    then          'si Relais 3 et ON Alors
            i2cwrite PortC.4, PortC.3, $42, $13, [$10]   'on active le relais 3 au travail
         else
            i2cwrite PortC.4, PortC.3, $42, $13, [$20]   'on active le relais 3 au repos
         endif
       else
         if relais = $08 then
            if B != $00    then          'si Relais 4 et ON Alors
               i2cwrite PortC.4, PortC.3, $42, $13, [$40]   'on active le relais 4 au travail
            else
               i2cwrite PortC.4, PortC.3, $42, $13, [$80]   'on active le relais 4 au repos
            endif
       endif
    endif
endif

... et s'il existe un "elsif" en BASIC c'est encore mieux.

[glenux]

et si dans ta version de basic, tu as la possibiltié de faire des fonctions (ou sub-routines), tu devrais penser a faire quelque chose du genre:

(à traduire en syntaxe basic)

fonction actionRelais ( Relais, action ) {
addresse <-- 0
si (relais = 01 ) alors adresse <-- 01
si (relais = 02 ) alors adresse <-- 04
si (relais = 04 ) alors adresse <-- 10
si (relais = 08 ) alors adresse <-- 40
si ( action != 0 ) alors adresse <-- adresse * 2
i2cwrite portc.4, portc.3, 42, 13, adresse
pause 500
i2cwrite portc.4, portc.3, 42, 13, 0
}


et dans ton code

while(true){
actionRelais( B & %00001111, B & %1111000 )
}

[Neptunes]

Salut !!

Et merci de prendre du temps pour moi

Casa je sais que je peux faire un truc de ce genre, et qui est beaucoup mieux que le mien qui est une programmation de bourrin Mais je sais rien faire d'autre et j'ai pas la logic mentale de la programmation.
Merci à toi

Mais la solution de Glenux est en gros ce que je cherche, un programme moins lourd et tout aussi compréhensible

Seulement un truc me chagrine :

si ( B != 0 ) alors adresse <-- adresse * 2

J'ai vraiment le droit de faire ça ?? Multiplier un code Hexa par 2 ?

[glenux]

Salut !!
J'ai vraiment le droit de faire ça ?? Multiplier un code Hexa par 2 ?

Et pourquoi pas ?

[Neptunes]

Ben je sais pas moi, ça me serais pas venu à l'idée


Merci beaucoup Glenux, je testerais ça mardi quand j'aurais ma carte