DEVICE = 16F84A
CONFIG XT_OSC , WDT_OFF , PWRTE_OFF
XTAL = 4
Symbol PORT_STEP = PORTB
Symbol BUTON1 = PORTA.0
Symbol BUTON2 = PORTA.1
Symbol BUTON3 = PORTA.2
Symbol BUTON4 = PORTA.3
TRISB = 0
TRISA = $FF
Dim YON As BYTE
Dim GECIKME As BYTE
Dim MOTOR As BYTE
'-------------------------------------------------------------------------------
MAIN:
PORT_STEP=%01010101
delayms 1000
PORT_STEP=%10101010
delayms 1000
PORT_STEP=%00000000
YON=0
MOTOR=0
GECIKME=50
DONGU:
IF BUTON1 = 0 THEN
L1:
IF BUTON1 = 0 THEN GOTO L1
IF MOTOR=1 THEN
MOTOR=0
goto j1
END IF
IF MOTOR=0 THEN MOTOR=1
j1:
END IF
IF BUTON2 = 0 THEN
L2:
IF BUTON2 = 0 THEN GOTO L2
GOSUB HIZIAZALT
END IF
IF BUTON3 = 0 THEN
L3:
IF BUTON3 = 0 THEN GOTO L3
GOSUB HIZIARTIR
END IF
IF MOTOR=1 THEN
GOSUB DONDUR
END IF
GOTO DONGU
END
'-------------------------------------------------------------------------------
HIZIAZALT:
GECIKME=GECIKME + 10
IF GECIKME> 200 THEN GECIKME=200
RETURN
'-------------------------------------------------------------------------------
HIZIARTIR:
IF GECIKME= 10 THEN GECIKME=20
GECIKME=GECIKME - 10
RETURN
'-------------------------------------------------------------------------------
DONDUR:
PORT_STEP = %00001001
DELAYMS GECIKME
PORT_STEP = %00001100
DELAYMS GECIKME
PORT_STEP =%00000110
DELAYMS GECIKME
PORT_STEP = %00000011
DELAYMS GECIKME
RETURN
END