Publicité
MANUEL D'UTILISATION
9. Exemple en Visual Basic 6.0
Private Type Tabl1
tabbus(0 To 10) As Long
End Type
Private Type Tabl2
slotbus(0 To 10) As Long
End Type
Private Declare Function PI02_define_card _
Lib "PI02.dll" (ByVal bus As Integer, ByVal slot As Integer, ByVal func As
Integer, handle As Integer) As Integer
Private Declare Function PI02_undefine_card _
Lib "PI02.dll" (ByVal handle As Long) As Integer
Private Declare Function PI02_get_card_pos _
Lib "PI02.dll" (bus As Tabl1, slot As Tabl2, cards As Long) As Integer
Private Declare Function PI02_errors _
Lib "PI02.dll" () As Long
Private Sub PI02error_Click()
Dim LongRetour As Integer
Dim handle As Integer
Dim bus As Tabl1
Dim slot As Tabl2
Dim cards As Long
Dim tabbus(0 To 10) As Long
Dim tabslot(0 To 10) As Long
Print
Print
Print
cards = 4
LongRetour = PI02_get_card_pos(bus, slot, cards)
Print "bus"; bus.tabbus(0)
Print "slot"; slot.slotbus(0)
Print "cards"; cards
- 28 -
Publicité
