Gast
#1507900
Hallo,
ich würde gerne einen USB-AD-Wandler auslesen. Dieser wird über die
"libadx.ocx" angesprochen. Für Visual Basic ist nachfolgendes
Beispielprogramm enthalten. Ich hab die "libadx.ocx" Datei bereits über
regsvr32.exe registriert.
Jetzt wäre meine Frage, wie kann ich die Funktionen dieser Datei auch in
VBA verwenden? Wie initalisiere ich die Datei?
Gruß Tobi
Object = "{FFE1D535-EC3C-40CF-B51D-A9F23819E524}#1.0#0"; "libadx.ocx"
Begin VB.Form MainForm
Begin LIBADX.LIBADX LIBADX1
Height = 225
Left = 3840
TabIndex = 2
Top = 600
Width = 240
_Version = 65536
_ExtentX = 423
_ExtentY = 397
_StockProps = 0
End
End
Option Explicit
Const SAMPLES As Integer = 1000
Const PATH As String = "scan1.lfx"
Private Sub Start_Click()
If Not LIBADX1.Open(Device.Text) Then
MsgBox "Konnte Messsystem " & Device.Text & " nicht öffnen"
Exit Sub
End If
Start.Enabled = False
'100Hz abtastrate, 1000 samples (= 1 sec.)
LIBADX1.ScanPrepare 0.01, SAMPLES
'kanal 1 & 2 speichern
LIBADX1.ScanAnalogIn 1, 0
LIBADX1.ScanAnalogIn 2, 0
'Scan durchführen
LIBADX1.Scan
'Scan speichern
If Not LIBADX1.ScanSave(PATH) Then
MsgBox "Messdatei " & PATH & " konnte nicht angelegt werden"
Exit Sub
End If
MsgBox "Scan unter " & PATH & " gespeichert"
Start.Enabled = True
End Sub