Aide pour prog. de PIC

[lafritte57]

Bonjour,j'ai besoin de votre aide, j'ai ce programme qui sert à tester des relais dans un ordre croissant, du 1er au 8ème :


Dim a As Byte
Dim i As Byte

TRISA = 0
TRISB = 10001111b
TRISC = 0

debut:
a = 1
For i = 0 To 7
PORTC = a
a = ShiftLeft(a, 1)
WaitUs 10
Next i
Goto debut
End

et je souhaite modifier les deux lignes en bleu pour que le test s'effectue mais du 8ème au 1er !
J'utilise Pic simulator IDE .
Je pensais utiliser "ShiftRight(a, 1)" mais je n'y arrive pas ...

Donc si un pro de la prog de pic est présent ^^ !

Merci d'avance
p.s: le pic est un 16F77
-----

[Seb.26]

Essaye avec ça :

Dim a As Byte
Dim i As Byte

TRISA = 0
TRISB = 10001111b
TRISC = 0

debut:
a = 128
For i = 0 To 7
PORTC = a
a = ShiftRight(a, 1)
WaitUs 10
Next i
Goto debut
End

Mais je connais pas du tout ton langage, alors c'est du pifomètre ...

[lafritte57]

Merci beaucoup,ça marche !!! c'est du basic le langage il me semble ...
Peut tu m'expliquer d'où vient le "a = 128" stp ??

En tout cas merci

[Seb.26]

Peut tu m'expliquer d'où vient le "a = 128" stp ??

Si tu préfère, écris :

a = 10000000b

C'est plus clair

... 10000000b car si tu décale à droite, il faut que ton bit soit à gauche, sinon il disparait ...

En tout cas merci

De rien

[A voir en vidéo sur Futura]

[lafritte57]

Merci !!! Je n'est pas trop compris le pourquoi du parce que mais merci quand même !

[lafritte57]

Non c'est bon,j'ai compris !! le 1 0 0 0 0 0 0b
bit7 6 5 4 3 2 1

Merci,je t'aime lol !!!