shift register 74164

[hopa2007]

Hola

Non consigo hacer desplezar uno 74164.
No me inteindo con os  "0 " e " 1 ". mas o reset.
me ajude.
Grato

[hopa2007]

Aqui hay uno código de la revista ucontrol

clock var PORTb.0
dat var PORTb.1
reset var portb.2
coluna var Byte


TRISB = %00000000


main:

    For coluna = 1 To 8
        If dato.7 = 0 Then
           dat = 0
           clock = 0
           pause 1
           clock = 1
           pause 1
        Else
           dat = 1
           clock = 0
           pause 1
           clock = 1
           pause 1
        Endif
        aux = dato + 1
    Next coluna

goto main

[BrunoF]

Hola!

Proba así:

Código: Visual Basic

1. clock var PORTb.0
2. dat var PORTb.1
3. reset var portb.2
4. coluna var Byte
5. dato var Byte
6. aux var Byte
7.  
8. TRISB = %00000000
9.  
10. dato=%10101010
11.  
12. main:
13.  
14.     aux=dato
15.     For coluna = 1 To 8
16.         dat = 0
17.         If aux.7 = 1 Then dat=1
18.         clock = 1
19.         aux=aux*2
20.         clock=0
21.     Next coluna
22.  
23. goto main

[hopa2007]

Los leds ficam todos acesos, los dados %10101010 non se desplezam... porque?
saluto

[BrunoF]

Porque el pin RESET debe estar en ALTO para que funcione. Proba esto:

Código: Visual Basic

1. clock var PORTb.0
2. dat var PORTb.1
3. reset var portb.2
4. coluna var Byte
5. dato var Byte
6. aux var Byte
7.  
8. TRISB = %00000000
9.  
10. reset=1
11.  
12. dato=%10101010
13.  
14. main:
15.  
16.     aux=dato
17.     For coluna = 1 To 8
18.         dat = 0
19.         If aux.7 = 1 Then dat=1
20.         clock = 1
21.         aux=aux*2
22.         clock=0
23.     Next coluna
24.  
25. goto main

[hopa2007]

Muchas gracias Bruno

Funcionou.....vou tentar fazer una la matriz de leds de 7x5.
los dados  "dato" deberam serem colocados a las filas en estado
alto y depois bajo. Acho isto...
Vou tentar.

Gracias