Indel IMP Handbuch Seite 47

Rev. 1.17
VB-Beispiel (Verwendung Klassenmodul INCO_32.BAS)
' Code in beliebiger Form reagiert auf das Ereignis Click eines Buttons
Private Sub GetInputs_Click()
On Error GoTo ERROR_HANDLER
Dim lInputs(1 To 2) As Long
Dim lError As Long, lInputAddress As Long
Dim sTargetName As String
sTargetName = „PPC"
lError = 0
' holen der Basisadresse der digitalen Eingänge
lError = GetVBVariable(sTargetName, „Digital.Inputs!Address",
' alles in Ordnung? Fehlerfrei?
If lError Then GoTo ERROR_HANDLER
' holen der ersten 64 (2*32-Bit-Karten) Eingänge
lError = GetBlock32(sTargetName, lInputAddress, lInputs(1), 2)
' alles in Ordnung? Fehlerfrei?
If lError Then GoTo ERROR_HANDLER
MsgBox „Inputs from the second 32-bit card:
Exit Sub
ERROR_HANDLER:
Dim sErrorMsg As String
If lError Then
End If
' Ausgabe des Fehlertextes
MsgBox sErrorMsg + Err.Description, vbExclamation + vbOKOnly, „Error"
End Sub
Achtung
Wegen der Little- / Big-Endian Problematik funktioniert obiges Beispiel nur mit der GetBlock32()
Funktion. Bei den Funktionen GetBlock8(), GetBlock16() und GetBlock64() stimmt die Reihenfolge
der Bytes nicht!
CH-8332 Russikon
22. Juni 2004
' holen des Fehlertextes
Call GetVBErrorDescription(sTargetName, lError, sErrorMsg, 100)
0x" & Hex(lInputs(2)), vbOKOnly, „Message"
IMP - Indel Modular Peripherie
lInputAddress)
47