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.
 


 może nawet na innym mniejszym procku
 może nawet na innym mniejszym procku