Kod z Bascoma:
Kod: Zaznacz cały
$large
$timeout
$crystal = 11059200
$baud = 19200
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = P1.4 , Db5 = P1.5 , Db6 = P1.6 , Db7 = P1.7 , E = P1.3 , Rs = P1.2
Config Scl = P2.0
Config Sda = P2.1
Cls
Cursor Off Noblink
Dim A As Byte
Const Pcf8591w = &B10011110
Const Pcf8591r = &B10011111
Cls
'I2cstart
'I2cwbyte Pcf8591w
'I2cwbyte 64
'I2cstop
'Wait 1
I2cstart
I2cwbyte Pcf8591r
I2crbyte A , Nack
I2cstop
Wait 1
Upperline
Lcd "Napiecie to: " ; A
End
http://img4.imageshack.us/img4/9365/chu ... roblem.jpg
W ogóle to chcę odczytać napięcie analogowe z pina AIN0 i przypisać je zmiennej A ale no w ogóle ta magistrala nie chodzi, więc na razie problem mam z inicjacją I2c.
Albo może co z pinami jest nie tak, bo jak przepiąłem piny SCL, SDA na P1.0 P1.1 a piny wyświetlacza na P0.x (oczywiście potem odpowiednio pozmieniałem w Bascomie) to w ogóle nawet wyświetlacz nie działał. To ja nie rozumiem tego języka Bascoma 8051. To jakiś ściemniacki język bo tu nic nie działa.