'------------------------------------------------------------ 'Programın adı: Uyg_9_3.bas 'Programın işlevi: Program seri EEPROM'un (24LC32B) ilk 16 'adresine önce veri yazar, daha sonra da yazılan bu verileri 'okuyarak LCD'de gösterir. 'Tarih:01/08/2007 Uyarlama:1.00 Derleyici:PBP '-----------------------Tanımlamalar------------------------- DEFINE LCD_DREG PORTB ' RB0-->DB4 PortB.0 DEFINE LCD_DBIT 0 ' RB1-->DB5 PortB.1 ' RB2-->DB6 PortB.2 ' RB3-->DB7 PortB.3 DEFINE LCD_RSREG PORTB DEFINE LCD_RSBIT 4 ' RS PortB.4 DEFINE LCD_EREG PORTB DEFINE LCD_EBIT 5 ' E PortB.5 DEFINE LCD_BITS 4 ' 4 bit ile iletişim. DEFINE LCD_LINES 2 ' LCD satır sayısı. SCL var PORTC.3 ' Clock pin'i SDA var PORTC.4 ' Data pin'i B0 var WORD ' Adres B1 var BYTE ' Data 1 B2 var BYTE ' Data 2 Pause 100 ' LCD'nin açılmasını bekle. For B0 = 0 To 15 ' 16 defa döngü. B1 = B0 + 100 ' B1 EEPROM için üretilmiş datadır. I2CWRITE SDA,SCL,$A0,B0,[B1] ' Datayı adrese yaz. Pause 10 ' Her yazmadan sonra 10 mS bekle. Next B0 Dongu: For B0 = 0 To 15 Step 2 ' 8 defa döngü. I2CREAD SDA,SCL,$A0,B0,[B1,B2] 'Bir satırdaki 2 'adresi birden oku. Lcdout $fe,1,#B0,":",#B1 'İlk adrestekini LCD'de göster Lcdout $FE,$C0, #B0+1,":",#B2 ' İkinci adrestekini ' LCD'de göster. Pause 1000 Next B0 Goto Dongu End '---------------------------------------------------------