Hallo,
ich habe da ein Problem mit meinem Excel Macro, das ich mit ihrem K8061 USB Board steuere.
Ich habe ein Programm geschrieben, dass das angeschlossenes USB Board steuert. Ich kann die Signale des Board setzen und auslesen. Die Analogen (2Stück) Signale habe ich mir über Labels anzeigen lassen, das ging auch. Jetzt wollte ich die Werte in eine Zelle schreiben, das macht er auch aber sobald ich irgend eine Eingabe in der Tabelle mache funktioniert das Programm nicht mehr richtig. Es kommt auch keine Fehlermeldung aber die Signale werden nicht mehr gelesen und ich kann auch keine setzten.
Bräuchte ihre Hilfe!
Hier der Code: markiert der Fehler, fast ganz unten
Code:
'Verbindung zu den Karten ################ Private Sub ToggleButton1_Click()
Dim i As Long
With Me.ToggleButton1
.BackColor = IIf(.Value = True, RGB(0, 255, 0), RGB(255, 0, 0))
.Caption = IIf(.Value = True _
, "CA läuft!" & vbCrLf & "(zum ausschalten klicken)" _
, "CA aus!" & vbCrLf & "(zum starten klicken)")
End With
If Me.ToggleButton1 = True Then
For i = 1 To 2 'Zweimal durchlaufen um beide Karten zu verbinden
Verbinden 'Makro Verbinden aufrufen
Next i
alle_an
While ToggleButton1 = True 'DI lesen
DoEvents
Me.CheckBox9 = ReadDigitalChannel(1, 1) 'Karte 1 DI lesen
'....
OutputAnalogChannel 1, 1, Tabelle1.Cells(26, 2) 'analog setzen als Zahl
'....
'analoge Signale lesen K1 und K2 'vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv== HIER #################
Me.Label1.Caption = Round(ReadAnalogChannel(2, 1) * 0.0098, 1) & "V"
Me.Label2.Caption = Round(ReadAnalogChannel(1, 1) / 19, 2) & "%"
Me.Range("G7") = Round(ReadAnalogChannel(1, 1) / 19, 2) '& "%"
Me.Range("G10") = Round(ReadAnalogChannel(2, 1) * 0.0098, 1) '& "V"
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^== HIER ################
DoEvents
Wend
Else
'alle_aus 'später einschalten, schaltet DO aus wenn keine Verbindung
CloseDevices ’ Trennen der Verbindung
Me.CheckBox1 = False
Me.CheckBox2 = False 'wenn alle_aus aktiv --> auskommentieren
Me.CheckBox3 = False
Me.CheckBox4 = False
Me.CheckBox5 = False
Me.CheckBox6 = False
MsgBox “Verbindung wurde getrennt!”
End If
End Sub