K8000 vb

Kits PC Related Projects
1

Bonjour,
jai depuis quelques années une carte K8000.
J’ai changé de windows, windows 98 vers windows XP.
Le programme que j’avais fait sous VB à l’aide d’une macro Excel ne marche plus…
J’ai téléchargé le K8D.dll pour faire marcher mon programme VB sous windows XP.
Le programme test marche bien, mais je dois réécrire mon programme en VB.
La première fois je l’avais fait avec les exemples,
Serait-il possible d’avoir un exemple pour la lecture des entrées (AD)
J’ai essayé avec :
Start_K8000
Cells(2, 2).Value = ReadADchannel(1)
Cells(2, 3).Value = ReadADchannel(2)
Cells(2, 4).Value = ReadADchannel(3)
Cells(2, 5).Value = ReadADchannel(4)
mais dans mon fichier Excel il est écrit VRAI 4 fois mais pas de valeurs.

Si vous voulez je peux décrire mon problème en Anglais ou Néerlandais si
vous le souhaiter.
Si c’est plus facile pour vous, vous pouvez me répondre en Anglais ou Néerlandais.
Merci par avance
Pierre

2

Sorry, there seems to be wrong function declaration in the Visual Basic example in the documentation:
'8 BIT AD CONVERTER FUNCTION
[color=blue]Private Declare Function ReadADchannel Lib “k8d.dll” (ByVal Channel_no As Long) As Boolean[/color]
Should be:
'8 BIT AD CONVERTER FUNCTION
[color=blue]Private Declare Function ReadADchannel Lib “k8d.dll” (ByVal Channel_no As Long) As Long[/color]

Excel treats the wrong declaration “As Boolean” and displays “TRUE” or “FALSE” in the cells according to the AD value returned by the function.