Etepic

Device 16F877A

Include "font.inc"
All_Digital= TRUE ' ADC PORTLARIN HEPSİ I/O
LCD_DTPort= PORTD
LCD_RSPin= PORTC.5
LCD_ENPin= PORTC.1
LCD_RWPin= PORTC.4
LCD_CS1Pin= PORTE.2
LCD_CS2Pin= PORTE.3
LCD_Type= GRAPHIC
Internal_Font= On
Font_Addr=0
'GLCD_EXTERNAL_PRINT = PPRINT
Cls
DelayMS 500

YUKARI VAR Word
ASAGI VAR Word
PERIYOT VAR Word
SONUC1 VAR Word
SONUC2 VAR Word
SONUC3 VAR Word
SONUC4 VAR Word
SONUC5 VAR Word
SONUC6 VAR Word
SONUC7 VAR Word
SONUC8 VAR Word
SONUC9 VAR Word
SONUC0 VAR Word

Basla:
PulsIn PORTB.0,0,ASAGI
PulsIn PORTB.0,1,YUKARI
PERIYOT= (ASAGI+YUKARI)
SONUC0=(10000/(PERIYOT/10))*30
PulsIn PORTB.1,0,ASAGI
PulsIn PORTB.1,1,YUKARI
PERIYOT= (ASAGI+YUKARI)
SONUC1=(10000/(PERIYOT/10))*30
PulsIn PORTB.2,0,ASAGI
PulsIn PORTB.2,1,YUKARI
PERIYOT= (ASAGI+YUKARI)
SONUC2=(10000/(PERIYOT/10))*30
PulsIn PORTB.3,0,ASAGI
PulsIn PORTB.3,1,YUKARI
PERIYOT= (ASAGI+YUKARI)
SONUC3=(10000/(PERIYOT/10))*30
PulsIn PORTB.4,0,ASAGI
PulsIn PORTB.4,1,YUKARI
PERIYOT= (ASAGI+YUKARI)
SONUC4=(10000/(PERIYOT/10))*30
PulsIn PORTB.5,0,ASAGI
PulsIn PORTB.5,1,YUKARI
PERIYOT= (ASAGI+YUKARI)
SONUC5=(10000/(PERIYOT/10))*30
PulsIn PORTB.6,0,ASAGI
PulsIn PORTB.6,1,YUKARI
PERIYOT= (ASAGI+YUKARI)
SONUC6=(10000/(PERIYOT/10))*30
PulsIn PORTB.7,0,ASAGI
PulsIn PORTB.7,1,YUKARI
PERIYOT= (ASAGI+YUKARI)
SONUC7=(10000/(PERIYOT/10))*30
PulsIn PORTA.1,0,ASAGI
PulsIn PORTB.1,1,YUKARI
PERIYOT= (ASAGI+YUKARI)
SONUC8=(10000/(PERIYOT/10))*30
PulsIn PORTA.2,0,ASAGI
PulsIn PORTA.2,1,YUKARI
PERIYOT= (ASAGI+YUKARI)
SONUC9=(10000/(PERIYOT/10))*30

'LCDOUT $FE,1,"FAN 1= ", dec SONUC1," RPM"
Print Font Digit____20o25
Print At 8,8, SONUC0

DelayMS 1000
GoTo Basla
End
Include "digital-7.ttf.txt"