hola que tal gente del foro
necesito su ayuda para hacer este ejemplo es un contador acendente y decendente con 2 pulsadores con 4 displey de 7 segmentos por el metodo de multiplexacion el compilador que utilizo es el
basic (pic simulador ide) llevo varios dias rompiendome la cabeza de como hacerlo pero no encuentro la forma espero alguien con mas experiencia con los pic me pueda ayudar y tal vez asi ayudar a otros usarios del foro que no tenga idea de como hacerlo tengan un ejemplo ala mano.
saludos y adjunto lo que tengo
AllDigital
'DECLARACION DE LAS CONFIGURACIONES DE LOS PUERTOS
'_...................................................._
TRISA = %000000
TRISC = %00000000
TRISD = %00000011
'_...................................................._
'DECLARACION DE VARIABLES
'_...................................................._
Dim a1 As Word
Dim uni As Byte
Dim dec As Byte
Dim cen As Byte
Dim und As Byte
'_...................................................._
a1 = 0
uni = 0
dec = 0
cen = 0
PORTC = 0x40
RA.0 = 1
RA.1 = 1
inicio:
If RD.0 = 1 Then
h:
If RD.0 = 1 Then Goto h
a1 = a1 + 1
Endif
If RD.1 = 1 Then
l:
If RD.1 = 1 Then Goto l
a1 = a1 - 1
Endif
Gosub unidades
Gosub decenass
Goto inicio
End
'SUBRUTINAS PARA LAS UNIDADES
unidades:
'_...................................................._
RA.0 = 0
If a1 = 9 Then uni = 0
PORTC = LookUp(0x40, 0x79, 0x24, 0x30, 0x19, 0x12, 0x02, 0x38, 0x00, 0x18), uni
RA.1 = 1
WaitMs 17
Return
Goto unidades
'_...................................................._
'SUBRUTINAS PARA LAS DECENAS
'_...................................................._
decenass:
RA.1 = 0
PORTC = LookUp(0x40, 0x79, 0x24, 0x30, 0x19, 0x12, 0x02, 0x38, 0x00, 0x18), dec
RA.0 = 1
WaitMs 17
Return
Goto decenass
'_...................................................._
'SUBRUTINAS PARA LAS CENTENAS
'_...................................................._
centenas:
PORTC = LookUp(0x40, 0x79, 0x24, 0x30, 0x19, 0x12, 0x02, 0x38, 0x00, 0x18), cen
WaitMs 17
Return
Goto centenas
'_...................................................._
'SUBRUTINAS PARA LAS UNIDADES DE MILLAR
'_...................................................._
unidades_d_m:
RA.1 = 0
PORTC = LookUp(0x40, 0x79, 0x24, 0x30, 0x19, 0x12, 0x02, 0x38, 0x00, 0x18), und
RA.0 = 1
WaitMs 17
Return
Goto unidades_d_m
'_...................................................._