Master

holt sich 18 Daten vom Slave :
Code:
Sub M32datenholen()                                         'Holt 18 Daten vom M32 Slave
For I = 1 To 18

I2creceive &H82 , Datas(i)                                  'Variable Datas(i) vom M32 Slave
'Print "Data " ; Datas(i)

Next I

Waitms 150

End Sub