Der Arduino Nano 3.0 kann auch mit Bascom programmiert werden.
I2C am Arduino Nano V3.0 mit Bascom
Den I2C-Bus hab ich an den Pins PC4 (A4) und PC5 (A5) angeschlossen.
Das kleine Demo-Programm schreibt ein Byte zur Ausgabekarte auf Adresse 64 und erhöht den Wert im nächsten Durchgang.
$regfile = "m328pdef.dat" $baud = 19200 $crystal = 16000000 'COM konfigurieren '================= $baud = 19200 Config Com1 = 19200 , Parity = None , Stopbits = 1 , Databits = 8 Print "I2C-Test" 'I2C Konfigurieren '================= Config Sda = Portc.4 ' SDA Config Scl = Portc.5 ' SCL I2cinit 'Variablen deklarieren '====================== Dim Ausg_wert As Byte ' Ausgangswert I2C Dim Ausg_adresse As Byte ' Adresse Ausgabekarte Ausg_adresse = 64 ' Alle Jumper auf OFF Main: Do Incr Ausg_wert ' Ausgabewert erhöhen Print Ausg_wert ' Wert auf COM ausgeben I2cstart I2cwbyte Ausg_adresse ' Adresse Pcf8574 Der Ausgabekarte I2cwbyte 255 - Ausg_wert ' Wert invertiert Schreiben I2cstop Waitms 50 Loop End