''''''''''''''''''''''''' HIZ HESABI - 23 MART 2005 '''''''''''''''''''''''''''' DEVICE = 16F84A CONFIG XT_OSC , WDT_OFF ,PWRTE_OFF , CP_OFF XTAL = 4 Symbol B = PORTB.0 Symbol A = PORTB.1 Symbol motor= PORTB.2 Symbol C = PORTB.3 Symbol E = PORTB.4 Symbol D = PORTB.5 Symbol G = PORTB.6 Symbol F = PORTB.7 Symbol T1 = PORTA.0 Symbol T2 = PORTA.1 Symbol T3 = PORTA.2 Symbol SWITCH = PORTA.3 TRISB = 0 TRISA = 8 Dim Sayac As WORD Dim Speed As WORD Dim YUZLER As BYTE Dim ONLAR As BYTE Dim BIRLER As BYTE Dim TEMP As BYTE MOTOR=0 T1=1 : T2=1 : T3=1 A=0 : B=0 : C=0 : D=0 : E=0 : F=0 : G=1 DELAYMS 1000 A=0 : B=0 : C=0 : D=0 : E=0 : F=0 : G=0 '------------------------------------------------------------------------------- MAIN: GOSUB MOTORUAC SAYAC=0 DONGU: DELAYMS 100 INC SAYAC IF SWITCH=0 THEN GOSUB HIZIHESAPLA GOSUB MOTORUDURDUR GOSUB EKRANGUNCELLE END IF GOTO DONGU END '------------------------------------------------------------------------------- MOTORUAC: MOTOR=1 RETURN '------------------------------------------------------------------------------- MOTORUDURDUR: MOTOR=0 RETURN '------------------------------------------------------------------------------- HIZIHESAPLA: speed=3500/sayac RETURN '------------------------------------------------------------------------------- EKRANGUNCELLE: YUZLER=SPEED/100 ONLAR=SPEED TEKRAR1: IF ONLAR > 100 THEN ONLAR=ONLAR-100 ELSE ONLAR=ONLAR/10 GOTO DEVAM1 END IF GOTO TEKRAR1 DEVAM1: BIRLER=SPEED TEKRAR2: IF BIRLER > 10 THEN BIRLER=BIRLER-10 ELSE GOTO DEVAM2 END IF GOTO TEKRAR2 DEVAM2: TEMP=YUZLER GOSUB DISPLAYDATA T1=1 : T2=0 : T3=0 DELAYMS 5 TEMP=ONLAR GOSUB DISPLAYDATA T1=0 : T2=1 : T3=0 DELAYMS 5 TEMP=BIRLER GOSUB DISPLAYDATA T1=0 : T2=0 : T3=1 DELAYMS 5 GOTO DEVAM2 RETURN '------------------------------------------------------------------------------- DISPLAYDATA: Select TEMP case 0 A=1 : B=1 : C=1 : D=1 : E=1 : F=1 : G=0 case 1 A=0 : B=1 : C=1 : D=0 : E=0 : F=0 : G=0 case 2 A=1 : B=1 : C=0 : D=1 : E=1 : F=0 : G=1 case 3 A=1 : B=1 : C=1 : D=1 : E=0 : F=0 : G=1 case 4 A=0 : B=1 : C=1 : D=0 : E=0 : F=1 : G=1 case 5 A=1 : B=0 : C=1 : D=1 : E=0 : F=1 : G=1 case 6 A=1 : B=0 : C=1 : D=1 : E=1 : F=1 : G=1 case 7 A=1 : B=1 : C=1 : D=0 : E=0 : F=0 : G=0 case 8 A=1 : B=1 : C=1 : D=1 : E=1 : F=1 : G=1 case 9 A=1 : B=1 : C=1 : D=1 : E=0 : F=1 : G=1 End Select RETURN END