Mirley - Elektronika i Programowanie

$regfile = "M8def.dat"
$crystal = 8000000
$hwstack = 128
Config I2cdelay = 100
'-----------------------------------------------------
 
'-----------------------------------------------------
Dim Adres As Byte                                           'zmienna adres
Config Sda = Portc.4
Config Scl = Portc.5
 
'********************* Konfiguracja podświetlania
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portd.7 , Db6 = Portd.6 , Db7 = Portd.5 , E = Portb.6 , Rs = Portb.7
Config Lcd = 16 * 2
 
 
'I2cinit
 
 
Initlcd
Cursor Off
Cls
 
 
 
 
 
For Adres = 100 To 255
Waitms 100
I2cstart
I2cwbyte Adres
I2cstop
Cls
If Err = 0 Then
 
Lcd "Uklad pod " ; Adres
Wait 2
Else
Lcd "Brak pod " ; Adres
End If
Next Adres
Cls
Lcd "Koniec"
End