Velleman k8055 programme pour comprendre et utiliser le code (a tester avec la carte) (vb6)

Soyez le premier à donner votre avis sur cette source.

Vue 12 802 fois - Téléchargée 1 399 fois

Télécharger le projet
Commenter

Description

Ce programme permet de mieux comprendre les routines utilisées pour le K8055.

-Initialisation de l'interface
-Essais entrées analogiques et digitales
(les entrées sont lues à intervalles régulières définies par le Timer1
-Essais sorties analogiques et digitales
(les sorties sont activées/désactivées par la coche (pour l'exemple)
-Déconnection de l'interface

Source / Exemple : 


Option Explicit
Private Declare Function OpenDevice Lib "k8055d.dll" (ByVal CardAddress As Long) As Long
Private Declare Sub CloseDevice Lib "k8055d.dll" ()
Private Declare Sub WriteAllDigital Lib "k8055d.dll" (ByVal Data As Long)
Private Declare Sub ClearDigitalChannel Lib "k8055d.dll" (ByVal Channel As Long)
Private Declare Sub ClearAllDigital Lib "k8055d.dll" ()
Private Declare Sub SetDigitalChannel Lib "k8055d.dll" (ByVal Channel As Long)
Private Declare Sub SetAllDigital Lib "k8055d.dll" ()
Private Declare Function ReadDigitalChannel Lib "k8055d.dll" (ByVal Channel As Long) As Boolean
Private Declare Function ReadAllDigital Lib "k8055d.dll" () As Long
Private Declare Function ReadAnalogChannel Lib "k8055d.dll" (ByVal Channel As Long) As Long
Private Declare Sub ReadAllAnalog Lib "k8055d.dll" (Data1 As Long, Data2 As Long)
Private Declare Sub OutputAnalogChannel Lib "k8055d.dll" (ByVal Channel As Long, ByVal Data As Long)
Private Declare Sub OutputAllAnalog Lib "k8055d.dll" (ByVal Data1 As Long, ByVal Data2 As Long)
Private Declare Sub ClearAnalogChannel Lib "k8055d.dll" (ByVal Channel As Long)
Private Declare Sub SetAllAnalog Lib "k8055d.dll" ()
Private Declare Sub ClearAllAnalog Lib "k8055d.dll" ()
Private Declare Sub SetAnalogChannel Lib "k8055d.dll" (ByVal Channel As Long)

Private Sub Command1_Click()
ClearAllDigital
Check3.Value = 0
Check4.Value = 0
Check5.Value = 0
Check6.Value = 0
Check7.Value = 0
Check8.Value = 0
Check9.Value = 0
Check10.Value = 0

End Sub

Private Sub Check10_Click()
If Check10.Value = 1 Then SetDigitalChannel (8) Else ClearDigitalChannel (8)
End Sub

Private Sub Check3_Click()
If Check3.Value = 1 Then SetDigitalChannel (1) Else ClearDigitalChannel (1)
'si check3 est cochée alors activer sortie (1) sinon désactiver sortie (1)
End Sub

Private Sub Check4_Click()
If Check4.Value = 1 Then SetDigitalChannel (2) Else ClearDigitalChannel (2)
End Sub

Private Sub Check5_Click()
If Check5.Value = 1 Then SetDigitalChannel (3) Else ClearDigitalChannel (3)

End Sub

Private Sub Check6_Click()
If Check6.Value = 1 Then SetDigitalChannel (4) Else ClearDigitalChannel (4)
End Sub

Private Sub Check7_Click()
If Check7.Value = 1 Then SetDigitalChannel (5) Else ClearDigitalChannel (5)
End Sub

Private Sub Check8_Click()
If Check8.Value = 1 Then SetDigitalChannel (6) Else ClearDigitalChannel (6)
End Sub

Private Sub Check9_Click()
If Check9.Value = 1 Then SetDigitalChannel (7) Else ClearDigitalChannel (7)
End Sub

Private Sub Connect_Click()
Dim CardAddress As Long
Dim h As Long
CardAddress = 0
CardAddress = 3 - (SK5.Value + SK6.Value * 2)
h = OpenDevice(CardAddress)
Select Case h
  Case 0, 1, 2, 3
  Label1.Caption = "card" + Str(h) + " connected"
  Case -1
  Label1.Caption = "card" + Str(CardAddress) + " no found"
End Select

End Sub

Private Sub Form_Unload(Cancel As Integer)
CloseDevice
End Sub

Private Sub HScroll1_Scroll()
OutputAnalogChannel 2, HScroll1.Value
End Sub

Private Sub Timer1_Timer()
 Timer1.Enabled = False
    Dim i As Long
    Dim Data1 As Long
    Dim Data2 As Long
    i = ReadAllDigital
    ent1.Value = (i And 1)
    ent2.Value = (i And 2) / 2
    ent3.Value = (i And 4) / 4
    ent4.Value = (i And 8) / 8
    ent5.Value = (i And 16) / 16
    
    ReadAllAnalog Data1, Data2
    
    ProgressBar1.Value = Data1
    Label7.Caption = Data1
    
    ProgressBar2.Value = Data2
    Label8.Caption = Data2
    
    Timer1.Enabled = True
    
End Sub

Private Sub Unconnect_Click()
CloseDevice
Label1.Caption = "Deconnected"
End Sub

Private Sub VScroll1_Scroll()
OutputAnalogChannel 1, VScroll1.Value
End Sub

Conclusion :


N'oubliez pas que vous devez avoir le fichier K8055D.dll dans Windows\System pour que les routines fonctionnent! N'hésitez pas à poser vos questions!
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Signaler Commenter la réponse de julienmus
julienmus
Messages postés
51
Date d'inscription
lundi 7 juillet 2008
Statut
Membre
Dernière intervention
13 février 2012
 -
tres bien se code mais il ne change pas vraiment de ceux fourni par velleman
Signaler Commenter la réponse de PAT9SAB
PAT9SAB
Messages postés
22
Date d'inscription
dimanche 28 décembre 2008
Statut
Membre
Dernière intervention
6 décembre 2009
 -
SALUT je ne suis pas programateur
j'ai une carte k8055 est il possible d'ecrire un code de facon a activer les 8 sorties digitals un par un a partir de 8 executable par exemple du bureau de mon pc
ou peut etre plus facile 8 code un pour chaque sortie
merci
Signaler Commenter la réponse de nono7380
nono7380
Messages postés
11
Date d'inscription
samedi 25 avril 2009
Statut
Membre
Dernière intervention
16 octobre 2010
 -
bien sûr que tu peux faire 8 exe pour enclencher les sorties.
faudra juste copier coller la partie déclaration (lignes 1 à 18) et après pour enclencher la sortie,
If CheckZ.Value = 1 Then SetDigitalChannel (x) Else ClearDigitalChannel (x)
où Z est le numéro de la case à cocher, et où x est le numéro de la sortie.
et lorsque tu décoche, la sortie se coupe
Signaler Commenter la réponse de julienmus
julienmus
Messages postés
51
Date d'inscription
lundi 7 juillet 2008
Statut
Membre
Dernière intervention
13 février 2012
 -
je n'ai peu etre pas bien compris ta question mais sa peu peu etre t'aidé


alors par exemple pour commander la sorti numero 1 avec un boutton on :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SetDigitalChannel(1)
End Sub

ou pour la desactivé avec un 2eme bouton off par exemple:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
clearDigitalChannel(1)
End Sub
Signaler Commenter la réponse de PAT9SAB
PAT9SAB
Messages postés
22
Date d'inscription
dimanche 28 décembre 2008
Statut
Membre
Dernière intervention
6 décembre 2009
 -
MERCI de vos réponses
en faite je voudrais commender la sortie n°1 par exemple par l'intermedaire d'un fichier exe sans interface grafique donc pas par un bouton mais par un racoursi depuis le bureau du pc

alors peut etre utiliser la console d'aplication pour ecrire le code (visual basic 2005)
Afficher les 36 commentaires
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (nono7380)