Private Sub USBADCX1_OnADCRead()
Dim lngFreieZeile As Long
'Auslesen der Kanäle 1-8
With ThisWorkbook.Sheets(1)
.Cells(5, 8) = USBADCX1.ADC_CH0
.Cells(6, 8) = USBADCX1.ADC_CH1
.Cells(7, 8) = USBADCX1.ADC_CH2
.Cells(8, 8) = USBADCX1.ADC_CH3
.Cells(9, 8) = USBADCX1.ADC_CH4
.Cells(10, 8) = USBADCX1.ADC_CH5
.Cells(11, 8) = USBADCX1.ADC_CH6
.Cells(12, 8) = USBADCX1.ADC_CH7
'Schreiben in Tabelle
lngFreieZeile = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row + 1
.Cells(lngFreieZeile + 1, 1) = .Cells(5, 8)
.Cells(lngFreieZeile + 2, 1) = .Cells(6, 8)
.Cells(lngFreieZeile + 3, 1) = .Cells(7, 8)
.Cells(lngFreieZeile + 4, 1) = .Cells(8, 8)
.Cells(lngFreieZeile + 5, 1) = .Cells(9, 8)
.Cells(lngFreieZeile + 6, 1) = .Cells(10, 8)
.Cells(lngFreieZeile + 7, 1) = .Cells(11, 8)
.Cells(lngFreieZeile + 8, 1) = .Cells(12, 8)
End With
Application.OnTime Now + TimeValue("00:01:00"), "USBADCX1_OnADCRead", , True
End Sub
Sub ontime_beenden()
Application.OnTime Now + TimeValue("00:01:00"), "USBADCX1_OnADCRead", , False
End Sub
|