Es un contador de pulsos, el cual, tiene como tope 100 y 200 pulsos. Esta selección la hago con una llave que conecta a masa o 5V.
Lo programe en Basic con Proton IDE y lo simulé con Proteus 8. en el simulador anda bien, cuando hago la placa, no anda.
Al presionar el botón de arranque, no entra en el bucle donde habilita el Relay y cuanta los pulsos que llegan del sensor.
Mi programa: (Tiene unos encendidos de leds y relay para probar que todo anda antes de empezar... y funciona de maravilla)
Desde ya muchisimas gracias! ...
Lo programe en Basic con Proton IDE y lo simulé con Proteus 8. en el simulador anda bien, cuando hago la placa, no anda.
Al presionar el botón de arranque, no entra en el bucle donde habilita el Relay y cuanta los pulsos que llegan del sensor.
Mi programa: (Tiene unos encendidos de leds y relay para probar que todo anda antes de empezar... y funciona de maravilla)
Código:
Device 16F628A
Symbol Sensor=PORTA.7
Symbol Out=PORTA.1
Symbol Inicio=PORTA.2
Symbol Fin=PORTA.4
Symbol Limite=PORTB.0
Symbol LedR=PORTB.4
Symbol LedV=PORTB.6
Dim Contador As Byte
Dim Tope As Byte
TRISA=%10110100
TRISB=%00000001
Out = 0
Tope = 0
Contador=0
LedV = 1
DelayMS 1000
LedV = 0
LedR = 1
DelayMS 1000
LedR=0
Out = 1
DelayMS 1000
Out = 0
While 1=1
If Limite=0 Then
Tope = 4
LedR = 0
LedV = 1
Else
Tope = 8
LedV = 0
LedR = 1
EndIf
If Inicio = 1 Then GoSub Bucle
Wend
Bucle:
While Inicio = 1
Wend
Out = 1
While Contador <> Tope
If Fin = 1 Then
Out = 0
Contador = 0
Return
EndIf
If Sensor = 1 Then Contador = Contador + 1
While Sensor = 1
Wend
Wend
Out = 0
Contador = 0
Return
Desde ya muchisimas gracias! ...
Última edición por un moderador: