Autor Tema: como puedo hacer un flip flop en proton  (Leído 2435 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado 16f

  • PIC12
  • **
  • Mensajes: 73
como puedo hacer un flip flop en proton
« 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
« Última modificación: 30 de Abril de 2008, 00:14:02 por 16f »

Desconectado 16f

  • PIC12
  • **
  • Mensajes: 73
Re: como puedo hacer un flip flop en proton
« Respuesta #1 en: 30 de Abril de 2008, 12:51:30 »
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