ayuda con dimmer digital

[RockLee_89]

hola amigo tengo varios dias intentando hacer funcionar mi dimmer para un proyecto mas completo que quiero realizar ya lei algunos ejemplos de dimmer que hay en el foro que en realidad son muchos pero aun con todo eso no he quedado satisfecho es por eso que realizo mis preguntas y si alguien save una mejor forma de hacerlo que me heche una mano

el lenguaje de programacion en basic ( pic simulador ide ) le adjunto el programa que tengo montado pero no se no me convence mucho que digamos el programa funciona y todo pero le quiero agregar lo que es controlarlo mediante un control hecho por mi mismo no se tengo 2 ideas unas hechas con otro pic como una especie de control remoto o por modulos rf pero hay esta mi duda
como hacer para interpretar la señal ya que es muy corto el tiempo entre interrupcion espero y alguien me ayude por que estoi muy liado con eso
saludos

Código: [Seleccionar]


AllDigital
'CONFIGURACION DE PINES
'------------------------------------------------------
TRISA = %00000011
TRISB = %00000001
TRISC = %00001110
'------------------------------------------------------


'CONFIGURACION DE INTERRUPCIONES
'------------------------------------------------------
INTCON.GIE = 1  'ACTIVACION GLOBAL DE INT.
INTCON.INTE = 1  'ACTIVACION DE INT. POR RB0
OPTION_REG.INTEDG = 1  'DETECCION DE FLANCO DE SUBIDA
'------------------------------------------------------


'DECLARACION DE VARIABLES DE USO GENERAL
'------------------------------------------------------
Dim switch As Byte
Dim a1 As Word
'------------------------------------------------------
'INICIALIZANDO VARIABLES A CERO
'------------------------------------------------------
switch = 0
a1 = 7500
RB.1 = 0
'------------------------------------------------------

inicio:
If RD.1 = 0 And RD.2 = 0 Then Goto inicio
If RD.1 = 0 And RD.2 = 1 Then Goto suma
If RD.1 = 1 And RD.2 = 0 Then Goto resta
If RD.1 = 1 And RD.2 = 1 Then Goto inicio

Goto inicio

suma:

If a1 >= 7500 Then Goto inicio
a1 = a1 + 1
Goto inicio

resta:
If a1 <= 2500 Then Goto inicio
a1 = a1 - 1
Goto inicio


End                                              

On Interrupt

INTCON.INTF = 0  'BORRAR BANDERA POR INT. DE RB0

switch = switch + 1
If switch = 1 Then OPTION_REG.INTEDG = 0  'DETECCION DE FLANCOS DE BAJADA

If switch = 2 Then
OPTION_REG.INTEDG = 1  'DETECCION DE FLANCO DE SUBIDA'
switch = 0
Endif

WaitUs a1
RB.1 = 1
WaitUs 100
RB.1 = 0
Resume                                            



adjunte una imagen ya que no se si me entenderian otra duda mi idea de curce por cero es cuando la señal pasa por sero, ya sea de forma asendente y decendente si no es asi desirme..
saludos