Eeprom speichern/lesen und über uart daten an excel senden

[Ronny81]

Hallo Max,

anbei eine kleine Tabelle in VBA mit Eventsteuerung, es werden also immer
die Daten am COMport ausgelesen sobald welche im Buffer sind.
Ich habe auch lange noch so was gesucht.

Du musst nur das "NETComm.ocx" in dein VAB einbinden. Da findest du daber genug im Netz. Gruß Ronny.


P.S.
Und noch was zum EEPROM von mir.

' Die gemessene Spannung wird in der Variablen W gespeichert.
' Channel ist der Pin, an dem die Spannung gemessen werden soll.
$regfile = "m32def.dat"
$crystal = 3686400
$baud = 9600

Config Adc = Single , Prescaler = Auto
Start Adc

Config Pinb.0 = Input
Portb.0 = 1

Dim W As Word , T As Single , T2 As Byte , Z As Integer , Z2 As Integer

Do
W = Getadc(0 , 20)
Z = Z + 2
Writeeeprom W , Z                                           'ADC 0 Adresse 2

W = Getadc(1)
Z = Z + 2
Writeeeprom W , Z                                           'ADC 1 Adresse 4

W = Getadc(2)
Z = Z + 2
Writeeeprom W , Z                                           'ADC 2 Adresse 6

W = Getadc(3)
Z = Z + 2
Writeeeprom W , Z                                           'ADC 3 Adresse 8

W = Getadc(4)
Z = Z + 2
Writeeeprom W , Z                                           'ADC 4 Adresse 10

W = Getadc(5)
Z = Z + 2
Writeeeprom W , Z                                           'ADC 5 Adresse 12

W = Getadc(6)
Z = Z + 2
Writeeeprom W , Z                                           'ADC 6 Adresse 14

W = Getadc(7)
Z = Z + 2
Writeeeprom W , Z                                           'ADC 7 Adresse 16



Z2 = Z


If Pinb.0 = 0 Then
For Z = 2 To Z2 Step 2
Readeeprom W , Z
Print W
Waitms 100                                                  'sehr wichtig, sonst kommt Excel nicht mit dem Auslesen nach
Next Z
Z = 0
Z2 = 0
End If

Wait 1

Loop
End