Device=16F877
XTAL 4
Dim s1 As word
Dim s2 As word
Dim s3 As word
Dim s4 As word
Dim ts 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:
s1=2
s2=3
ts=s1+s2
'Print At 2,sutun,@ ts 'KOD'u decimal olarak ekranda göster
DelayMS 200
GoTo sonuc
'.................................................................................................
sonuc:
cls
print at 1,1,"sonuc"
print at 2,1, ts
DelayMS 200
GoTo BASLA
end