Hola,
Haber si me puedean ayudar, me gustaria saber el fallo que hay en la multiplexión en el código ya que no consigo visualizar en el display de las unidades.
'2 Displays 7 Segmentos Anodo Comun/ Unidades (Transistor PuertoA.2) y las Decenas (Transistor PuertoA.3)
Gracias
____Código ___________________________________________________________________________ ____________
Device = 16F628A
Dim Contador As Byte
Dim Digito As Byte
Dim OutDisplay As Byte
Dim I As Byte
Symbol Unidades = PORTA.2 'Salida
Symbol Decenas = PORTA.3 'Salida
Symbol BMode = PORTA.0 'Entrada
Symbol BUp = PORTA.1 'Entrada
'Los 7 segmentos estan en Puerto B = A-RB0/B-RB1..G-RB6 (Anodo Comun)
CMCON= 7 'E/S Digitales
TRISA = %00000011 '0=Salidas/1=Entradas
TRISB=0 'Puerto B como salidas
Contador=0 'Variable contado a "0"
Ini:
'Button BUp,0,255,0,I,0, Loop
Contador=Contador+1
DelayMS 3000
GoSub Visualizar
GoTo Ini
Visualizar:
Digito =Contador Dig 1
OutDisplay = LookUp Digito ,[64,121,36,48,25,18,3,120,0,24] 'Anodo Comun
PORTB=OutDisplay
Decenas=0
Unidades=1
DelayMS 5
Digito =Contador Dig 0
OutDisplay = LookUp Digito ,[64,121,36,48,25,18,3,120,0,24] 'Anodo Comun
Unidades=0
PORTB=OutDisplay
Decenas=1
DelayMS 5
Return
End
___________________________________________________________________________