Device=16F877
XTAL 4
dim SAY as dword
dim d0 as SAY.byte0
dim d1 as SAY.byte1
dim d2 as SAY.byte2
dim d3 as SAY.byte3
dim sonuc as word
'.................................................................................
Declare LCD_DTPIN PORTC.4 'DATA girişi PORTC'nin 4. ucundan başlayacak
Declare LCD_ENPIN PORTC.3
Declare LCD_RSPIN PORTC.2
Declare LCD_INTERFACE 4
Declare LCD_LINES 4 'LCD 4 satırdan oluşuyor
Declare KEYPAD_PORT PORTB 'KEYPAD'in bağlandığı port
PORTB_PULLUPS = 1 'PORTB'nin pull-upları aktif
REMINDERS = OFF
ALL_DIGITAL = True 'bütün çıkışlar dijital
'................................................................................
'____________________________________________________________________________________________
BASLA:
d0=1
d1=2
d2=3
d3=4
sonuc= SAY[d0,d1,d2,d3]
print at 1,1, @ sonuc
print at 2,1, dec2 sonuc
DelayMS 200
Goto BASLA
'..........................................................................
end