TODOPIC
Microcontroladores PIC => Lenguaje Basic para microcontroladores PIC => Mensaje iniciado por: 16f en 29 de Abril de 2008, 23:33:20
-
hola amigos requiero hacer un FF , en basic.
si tengo un interruptor y lo dejo activo las salidas cambiaran de estado, si suelto el interruptor las salidas seguiran igual
si activo el interruptor y lo dejo activo por tiempo indefinido cambiara de estado.
la cosa es que un ff se comporta igualmente con un interruptor que con un pulsador, este detecta el un flanco no el pulso completo
-
De tanto pasearme por la red y hablar con amigos y otros no tanto hacer un FF no era tan sencillo
Include "proton_20.inc"
Dim PortBflag As Bit
Dim RunLedSpeed As Bit
Dim RunTime As Word
Symbol Led1 = PORTB.1
Symbol Led2 = PORTB.2
Symbol GIE = INTCON.7
Symbol INTEDG = OPTION_REG.6
Symbol INTE = INTCON.4 ' External RB0
Symbol INTF = INTCON.1 ' External Interrupcion Flag
ALL_DIGITAL = true
PORTB_PULLUPS = true
ON_INTERRUPT GoTo INPUT_INTERRUP
GoTo inicio_subs
'-----------------------------------------------------------------------------------------
INPUT_INTERRUP:
If INTF = 1 Then '
If Led1= 0 Then
Led1=1
Led2=0
Else
Led1=0
Led2=1
EndIf
EndIf
Clear INTF
DelayMS 1000
Return
inicio_subs:
GIE = 0 ' disable interrupts
Clear INTF
INTEDG=0
INTE = 1
GIE = 1
PortBflag = 0
'-----------------------------------------------------------------------------------------
inicio:
'Programa
GoTo inicio