PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV 2025 → [WD15] pilotage kit velleman k8090
[WD15] pilotage kit velleman k8090
Iniciado por mickf, 21,jul. 2010 11:32 - 12 respuestas
Publicado el 21,julio 2010 - 11:32
bonjour,
je viens de monter le kit velleman k8090
http://www.velleman.eu/distributor/products/view/…

Malgré tout je n'arrive pas à le piloter par ordinateur.
J'ai bien mis les premières lignes de programme qui fonctionnent parfaitement:

***********************************************************
Declaration globale de fen_active_kit

hinst est une entier
hinst=ChargeDLL("c:\windows\system32\k8090D.dll")
ncode est une entier=AppelDLL32("k8090D.ddl","OpenDevice",0)
SI ncode=-1 ALORS
Info("la carte n'est pas branchée")
RETOUR
SINON
Info("cliquez sur bouton")
fIN
************************************************

mais je n'arrive pas a trouver le code pour allumer ou eteindre le diodes
la commande me parait être celle-ci mais je ne sais pas quels paramètres ajouter
AppelDLL32("k8090d.dll","SendCommand",...............)

le documents accompagnants le kit sont incompréhensibles (pour moi)

Merci par avance de m'aiguiller si vous trouvez une solution
ou si quelqu'un a dejà piloté cette carte.

bonne prog

Michel Fournier
Publicado el 21,julio 2010 - 17:02
Bonjour,
Voici ci dessous mon code pour une carte VELLEMAN 8055.
Je pense que les ordres sont identiques.
PROCEDURE SONNERIE()
hInst est un entier
hInst = ChargeDLL("C:\Program Files\Project1\K8055D.dll")
ncode est un entier = AppelDLL32("K8055D.dll","OpenDevice",0)
SI ncode=-1 ALORS
Info("La Carte USB pour la sonnerie n'est pas branchée")
RETOUR
SINON
//Info("La carte est correctement branchée la sonnerie sonne pendant 3Secondes")
AppelDLL32("K8055D.dll","ClearAllDigital")
AppelDLL32("K8055D.dll","ClearAllAnalog")
AppelDLL32("K8055D.dll","SetAnalogChannel",1)
AppelDLL32("K8055D.dll","SetDigitalChannel",1)
AppelDLL32("K8055D.dll","SetDigitalChannel",2)
SI TimerSys(FinSonnerie,300,1)=0 ALORS
Erreur("Création du Timmer Impossible")
FIN
FIN
PROCEDURE arretsonnerie()
AppelDLL32("K8055D.dll","ClearAllDigital")
AppelDLL32("K8055D.dll","ClearAllAnalog")
AppelDLL32("K8055D.dll","CloseDevice")
PROCEDURE FinSonnerie()
AppelDLL32("K8055D.dll","ClearAllDigital")
AppelDLL32("K8055D.dll","ClearAllAnalog")
AppelDLL32("K8055D.dll","CloseDevice")
FinTimerSys(1)
Bon Dev.
Bernard GINET
Publicado el 22,julio 2010 - 09:45
bonjour bernard,

merci pour le code de la carte k8055:
j'ai effectivement utilisé le debut du code pour l'initialisation mais pour le reste impossible de trouver le code d'allumage, extinction des leds.
les documents données avec le kit sont inexploitables pour moi.

je pense que le debut du code est bien celui-ci;
AppelDLL32("k8090d.dll","SendCommand",xxxxxxxxxxxxxxxxx)
mais je sais pas quels parametres mettre à la place des "xxxxxxxxxxxxxx"

les documentys sont dans:
"Software package for K8090, build 100219"
de :
http://www.velleman.eu/distributor/support/downloads/…

mais je n'arrive pas à trouver les bons parametres

je cherche depuis plusieurs jours

Merci de votre aide
bonne programmation

Michel
Publicado el 05,agosto 2010 - 11:06
Bonjour,

Le sujet m'intéresse aussi, avez-vous pu trouver une solution pour commander les relais et si oui comment ?

Amicalement

Eric Weins
Bruxelles

fournier a écrit dans le message de news <37a6a3d724a35a9fcacbe954f945bcff@news.pcsoft> :
bonjour bernard,

merci pour le code de la carte k8055:
j'ai effectivement utilisé le debut du code pour l'initialisation mais pour le reste impossible de trouver le code d'allumage, extinction des leds.
les documents données avec le kit sont inexploitables pour moi.

je pense que le debut du code est bien celui-ci;
AppelDLL32("k8090d.dll","SendCommand",xxxxxxxxxxxxxxxxx)
mais je sais pas quels parametres mettre à la place des "xxxxxxxxxxxxxx"

les documentys sont dans:
"Software package for K8090, build 100219"
de :
http://www.velleman.eu/distributor/support/downloads/…

mais je n'arrive pas à trouver les bons parametres

je cherche depuis plusieurs jours

Merci de votre aide
bonne programmation

Michel
Publicado el 05,agosto 2010 - 11:54
bonjour,

J'ai trouvé les éléments pour faire fonctionner
le kit velleman 8090
je vous communiquerai les informations dans les jours qui viennent
le temps de les mettre au propre

Bonne programmation

Michel
Publicado el 08,agosto 2010 - 16:23
Voici le résumé des codes pou
Pilotage de la carte k8090 de velleman Avec windev

- Ouvrir le programme de « demo » chargeable sur le site velleman
- Brancher le kit sur un port USB (la led « usb power » s’allume)
- Noter le numéro du port virtuel de la cellule « select your port » du programme démo
- Créer une fenêtre vierge sous windev
- Dans la « déclaration globale de la fenêtre »

// Chargement de la librairie
HndlLib=ChargeDLL("K8090D.dll")
SI HndlLib=0 ALORS
// Aucun panneau windows n'a encore été affiché pour signaler
// l'absence de la librairie, vous pouvez donc effectuer ici
// votre propre gestion d'erreur
Info("La Librairie n'est pas chargée")
FIN
//--fin code généré par l'assistant --

- Dans la « initialisation de la fenêtre »

scom est une chaîne= « numéro du port noté plus haut »
SI ncode_kit_k8090<1
ncode_kit_k8090= API("k8090D","OpenDevice",scom)
FIN

- Dans la fenêtre, créez 16 ou 8 boutons
Vous aves 2 possibilités de commande des leds des relais

2 boutons pour chaque led ; 1 pour allumer, 1 pour éteindre (soit 16 boutons)
// allumage led 1
API("K8090D.dll", "SendCommand",ncode_kit_k8090,17,1,0,0)
// extinction led 1
API("K8090D.dll", "SendCommand",ncode_kit_k8090,18,1,0,0)

// allumage led 2
API("K8090D.dll", "SendCommand",ncode_kit_k8090,17,2,0,0)
// extinction led 2
API("K8090D.dll", "SendCommand",ncode_kit_k8090,18,2,0,0)

// allumage led 3
API("K8090D.dll", "SendCommand",ncode_kit_k8090,17,4,0,0)
// extinction led 3
API("K8090D.dll", "SendCommand",ncode_kit_k8090,18,4,0,0)

etc, et voici pour les autres leds…………………………………………………………………..
//Led 4 ….ncode_kit_k8090,18,8,0,0)
//Led 5 ….ncode_kit_k8090,18,16,0,0)
//Led 6 ….ncode_kit_k8090,18,32,0,0)
//Led 7 ….ncode_kit_k8090,18,64,0,0)
//Led 8 ….ncode_kit_k8090,18,128,0,0)

ou 1 bouton pour chaque led ; 1 clic allume, 1 clic éteint (soit 8 boutons)

// allumage ou extinction de la led 1
API("K8090D.dll", "SendCommand",ncode_kit_k8090,20,1,0,0)
// allumage ou extinction de la led 2
API("K8090D.dll", "SendCommand",ncode_kit_k8090,20,2,0,0)
// allumage ou extinction de la led 3
API("K8090D.dll", "SendCommand",ncode_kit_k8090,20,4,0,0)

etc, voici pour les autres leds…………………………………………………………………..
//Led 4 ….ncode_kit_k8090,20,8,0,0)
//Led 5 ….ncode_kit_k8090,20,16,0,0)
//Led 6 ….ncode_kit_k8090,20,32,0,0)
//Led 7 ….ncode_kit_k8090,20,64,0,0)
//Led 8 ….ncode_kit_k8090,20,128,0,0)

Me recontacter si je n'ai pas été assez clair

Bonne prog

Michel
Publicado el 09,agosto 2010 - 12:21
Bonjour,

Comme ça, ça n'a pas l'air trop difficile mais je suis sûr que c'est l'aboutissement de nombreuses heures de recherches, d'essais, de recherches de contacts...etc

Merci à toi de nous faire partager ces beaux résultats.


Eric Weins
Bruxelles
Publicado el 09,agosto 2010 - 13:11
bonjour,

c'est ben effet plusieurs jours de recherche car les parametres doivent être traduits en décimal...et rien n'est indiqué sur la brochure.

Fais un essai et tiens moi au courant

Bonne prog

Michel
Publicado el 09,agosto 2010 - 23:37
Salut,

Ben, n'étant pas un as de la soudure j'attends avec impatience le kit Velleman VM8090 qu'on nous annonce pour bientôt et qui doit être le même que le K8090 mais monté et testé....... ce qui simplifie bien les choses.

Donc je guette.....

@+
Publicado el 06,diciembre 2012 - 12:56
En fait je me demande est ce qu'on peut faire les mêmes manipulation avec webdev pour la carte velleman K8055?
Publicado el 06,diciembre 2012 - 12:56
merci d'avance pour vos réponses :)
Miembro registrado
2 mensajes
Publicado el 06,diciembre 2012 - 13:53
Bonjour ;
Est ce que la manipulation de
la carte villeman k8055 se fait de
la même manière?

Merci.


Eric Weins a écrit dans le message de news <32e0cf7db63c8507eb75521712c83f43@news.pcsoft> :
Bonjour,

Le sujet m'intéresse aussi, avez-vous pu trouver une solution pour commander les relais et si oui comment ?

Amicalement

Eric Weins
Bruxelles

fournier a écrit dans le message de news <37a6a3d724a35a9fcacbe954f945bcff@news.pcsoft> :
bonjour bernard,

merci pour le code de la carte k8055:
j'ai effectivement utilisé le debut du code pour l'initialisation mais pour le reste impossible de trouver le code d'allumage, extinction des leds.
les documents données avec le kit sont inexploitables pour moi.

je pense que le debut du code est bien celui-ci;
AppelDLL32("k8090d.dll","SendCommand",xxxxxxxxxxxxxxxxx)
mais je sais pas quels parametres mettre à la place des "xxxxxxxxxxxxxx"

les documentys sont dans:
"Software package for K8090, build 100219"
de :
http://www.velleman.eu/distributor/support/downloads/…

mais je n'arrive pas à trouver les bons parametres

je cherche depuis plusieurs jours

Merci de votre aide
bonne programmation

Michel
Miembro registrado
15 mensajes
Publicado el 22,mayo 2020 - 17:49
Bonjour,
Je ne trouve pas la DLL pour la carte 8090. Peux tu m'indiquer ou tu l'as trouvé.
merci d'avance

bien a vous