Reprint 2017/2019 der 3. Auflage aus 2001 ZIP-Archiv

Aber auch heute kann mit den Mitteln dieses Buches ein preiswertes Messgerät zur Anwendung gebracht werden, um damit direkt in Word und Excel zu messen, zu steuern und zu regeln.

Ein Arduino wird per USB mit dem PC verbunden und erscheint dort als serielle Schnittstelle. Darauf greift die RSAPI in gewohnter Weise zu, die mit VBA-Makros in Excel aufgerufen werden kann. Um die fertigen eingebauten Interfaceroutinen zu benutzen, soll sich der Arduino so verhalten als sei an der Schnittstelle ein CompuLab angeschlossen. Ein kurzer Sketch erreicht dieses Ziel:

// CLAB_RSAPI17.INO
// Arduino als Compulab-Interface
// in Word und Excel ansprechen
// 2x Analog Eingang mit 8 Bit 
// 8x Digital Eingang
// 8x Digitalausgang
// Getestet mit RSAPI.DLL V1.7
// Original nur COM1: bis COM8:
// http://www.hjberndt.de/soft/indexcom.html
// http://www.hjberndt.de

#define AIN1 60
#define AIN2 58
#define DIN 211
#define DOUT 81

//DIGITAL OUT PINS 0 - 7 CLAB
byte Douts[] = {10,11,12,13,  16,17,18,19};
//DIGITAL IN  PINS 0 - 7 CLAB
byte Dins[]  = { 2, 3, 4, 5,   6, 7, 8, 9}; 
byte Bits[]  = {1,2,4,8,16,32,64,128};

// EXCEL:
// INITCOMPULAB(4)
// DELAY 2000 //!experimental!// 

void setup()
{Serial.begin(19200); 
 for(int i= 0;i<8;i++)pinMode(Douts[i],OUTPUT);
 for(int i= 0;i<8;i++)
 {pinMode(Dins [i],INPUT);// OPEN IS HIGH
  digitalWrite(Dins[i],HIGH); //WITH PULLUP 
 }
}

void loop()
{int i, inbyte; byte b;
 if (Serial.available()>0)
 {inbyte=Serial.read(); //data
  delay(20);//!experimental!//
  switch(inbyte)
  {case DIN:  for(i=0,b=0;i<8;i++) //PINS to BYTE
               b+= (digitalRead(Dins[i])==HIGH?Bits[i]:0);
              Serial.write(b);break; 
   case AIN1: Serial.write(analogRead(A0)>>2);break;
   case AIN2: Serial.write(analogRead(A1)>>2);break;
   case DOUT: b=Serial.read(); //OUTBYTE
              for(i=0;i<8;i++)
                digitalWrite(Douts[i],b&Bits[i]?HIGH:LOW);
              break;
  }
 }
}

Dieser Sketch benutzt die 2 Analogeingänge A0 und A1 des Arduino. Die 8 digitalen Ein- und Ausgänge können dem Listing entnommen werden. Wird dieser Sketch in den Arduino übertragen, so kann die RSAPI seriell mit dem Arduino als CompuLab kommunizieren, wenn dieser per USB verbunden ist.

Declare Function INITCOMPULAB% Lib "rsapi" (ByVal x%)
Declare Function AIN% Lib "rsapi" (ByVal x%) 
Declare Sub DELAY Lib "rsapi" (ByVal x%)

Damit können nun analoge Messungen nach CompuLab-Manier in Excel durchgeführt werden:

Sub test()
 INITCOMPULAB 4 
 DELAY 2000
 For Z = 1 To 10
  Cells(Z, 1) = AIN(1) / 51
  Cells(Z, 2) = AIN(2) / 51
  DELAY 100
 Next Z
End Sub

Die RSAPI öffnet hier mit INITCOMPULAB COM4 mit den CompuLab-Parametern und setzt intern die entsprechende Hardware. Der Aufruf von AIN reagiert nun so, als wäre ein CompuLab angeschlossen. Wie man eine Schnittstelle "umlegen" kann, ist hier beschrieben. Die 2 Sekunden Bedenkzeit nach dem Öffnen sollten eingehalten werden.

Der Aufruf des Tests liefert 10 Zeilen mit den Spannungen an A0 und A1 des Arduino in 0,1-Sekunden-Schritten im aktuellen Tabellenblatt.

Excel 15 und Arduino Messwerte

Der obige Sketch liefert die beiden Analogwerte mit AIN (1) und AIN(2) der Arduino Pins A0 und A1. Die Messung erfolgte bei offenem Eingang 1 und mit den 3,3 Volt des Arduino Uno an Eingang 2 (grün).

Um die LED an PIN 13 blinken zu lassen, müsste die sub DOUT aus der DLL deklariert werden, um dann mit DOUT 8 und DOUT 0 die Arduino-LED zu schalten - was ja übrigens auch im Direkt-Fenster funktioniert.

Die Windows-Umgebung besteht aus einem Tablet Dell Venue 8 Pro mit Windows 8.1 und dem mit gelieferten Office mit der Excelversion 15 (2013).