quote:

Device = 16F877
Config XT_OSC,WDT_OFF,PWRTE_ON,BODEN_ON,LVP_OFF,DEBUG_OFF,CP_ALL
Xtal = 4
All_Digital= TRUE 'ADC PORTLARININ TAMAMI DİJİTAL GİRİŞ VEYA ÇIKIŞ
LCD_DTPort = PORTD 'GLCD DATA PORTLARI PORTB'YE BAĞLI
LCD_RSPin = PORTC.5 'GLCD RS PİNİ PORTC.5 BAĞLI
LCD_ENPin = PORTC.1 'GLCD ENABLE PİNİ PORTC.1 BAĞLI
LCD_RWPin = PORTC.4 'GLCD RW PİNİ PORTC.4 BAĞLI
LCD_CS1Pin = PORTC.2 'GLCD CS1 PİNİ PORTC.2 BAĞLI
LCD_CS2Pin = PORTC.3 'GLCD CS2 PİNİ PORTC.3 BAĞLI
LCD_Type = GRAPHIC 'GLCD TİPİ GRAFİK KS0108 128*64B WİNSTAR
Internal_Font = On
Font_Addr = 0
GLCD_EXTERNAL_PRINT = PPRINT
Cls
DelayMS 500

Dim Xpos As Byte
Dim Ypos As Byte
Dim Addr As Word
Dim char As Byte
If PORTA.0=1 Then arabalar1
If PORTA.1=1 Then dikkat2
If PORTA.2=1 Then kamyon

arabalar1:
Cls
DelayMS 100
arabalar2:
For Ypos = 0 To 7
For Xpos = 0 To 127

Addr = (Ypos*128)+Xpos
char = CRead arabalar+Addr
LCDWrite Ypos,Xpos,[char]
Next
Next

If PORTA.0=1 Then arabalar1
If PORTA.1=1 Then dikkat2
If PORTA.2=1 Then kamyon
DelayMS 100

GoTo arabalar2

dikkat2:
Cls
DelayMS 100
dikkat3:
For Ypos = 0 To 7
For Xpos = 0 To 127

Addr = (Ypos*128)+Xpos
char = CRead dikkat+Addr
LCDWrite Ypos,Xpos,[char]
Next
Next
If PORTA.0=1 Then arabalar1
If PORTA.1=1 Then dikkat2
If PORTA.2=1 Then kamyon

DelayMS 100

GoTo dikkat3
kamyon:
Cls
DelayMS 100
kamyon2:
For Ypos = 0 To 7
For Xpos = 0 To 127

Addr = (Ypos*128)+Xpos
char = CRead kamyonaraba+Addr
LCDWrite Ypos,Xpos,[char]
Next
Next
If PORTA.0=1 Then arabalar1
If PORTA.1=1 Then dikkat2
If PORTA.2=1 Then kamyon

DelayMS 100

GoTo kamyon2


Include "kamyonaraba.inc"
Include "arabalar.inc"
Include "dikkat.inc"