BASCOM + I2C mit dem Arduino Nano

Der Arduino Nano 3.0 kann auch mit Bascom programmiert werden.

I2C am Arduino Nano V3.0 mit Bascom

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

 

 

 

 

 

 

 

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.