LIRE UN BYTE PAR API

Commentaire de EBArtSoft le 13/10/2006 21:32:55 administrateur CS

Tout ça pour ça ? Je dirais plutot :

dim b as byte 'Octet
dim a as long 'Adresse

Open "C:\MonFichier" for binary as #1
get #1,1 + a,b
close #1

@+

Commentaire de Galain le 13/10/2006 21:35:07

bien joué EBArtSofT

Commentaire de Mayzz le 14/10/2006 23:45:22

Dans le titre de ton code tu as oublié de spécifier 'avec les API' c'est claire, mais sinon il n'en reste pas moins que c'est une bonne démo des bases de la gestion des fichiers par API.

D'après ce que j'ai vu c'est ta première source dc tu es pardonné :D

Commentaire de BruNews le 20/11/2006 22:33:07 administrateur CS

"...manipuler les APIs, on écrit en C,.."

Confondre API et byte, dur dur...

Commentaire de Duke49 le 14/01/2011 10:28:38

GALAIN: Niveau: Initié; pas débutant.

EBArtSoft: LIRE PAR API et non PAS VB.

MAYZZ: Merci pour ta compréhension ^^ dommage tu ne me remonte pas la note des confrères-assassins.

BruNews: "Manipuler les API en C...", on peu le faire dans tous les langages objets.
         Je n'ai pas fait de liaison entre API et BYTE, a cet époque je savais déjà que
         c'était des interfaces programmables.

btsmai2: C'est quoi Unity ? Développe, ci je peux t'aider je le ferai.

Commentaire de Duke49 le 14/01/2011 11:14:02

Il faut s'inspirer de la lecture sur port série (RS 232).
Sans utiliser les API, tu as le composant "MS COMM CONTROL v6" sous VB6 qui permet d'effectuer une connexion/déconnexion ainsi qu'une communication entré/sortie.

Automate > Ordinateur > Port Série
VB > Connexion par le port
Communication > Envoi d'une commande a l'automate
Communication > Réception provenant de l'automate
VB > Déconnexion du port

Dans ton exemple, si l'automate redirige tous les informations sur entrée de l'ordinateur, vb sera capable de les lires. J'avais fait le test avec un port parallèle et une carte à puce, sa fonctionnait très bien.

Commentaire de Duke49 le 14/01/2011 11:23:43

Que représente le bit %M3 ?
Arrivez vous a convertir ce bit en binaire ?

(Si vous codez et décodez en binaire, beaucoup de chose peuvent être traduite.)

Commentaire de Duke49 le 14/01/2011 11:35:30

Bah... peut-être ceci ?

Dim Result As ReadMultipleRegistersResult
Dim rtRead(0) As Integer
Dim iID As Integer
Dim iADR As Integer
Dim iQTE As Integer

rtRead = ReadMultipleRegisters(iID, iADR, iQTE)

La question c'est de savoir ce que contient ReadMultipleRegistersResult pour le comparer
a rtRead.

Commentaire de btsmai2 le 14/01/2011 11:43:34

Je ne comprend pas. Pourquoi comme ceci ?
Je pensais plutôt a
Dim Data as Boolean
data = wsmobj.wsm_ReadMultipleRegisters  
Le problème c'est que il ne le prend pas , je n'arrive pas a lui donner la bonne "adresse" a aller chercher.
Comme par exemple quand nous allons chercher un "mot" on fait comme suit :
Data = wsmobj.wsm_ReadMultipleRegisters(0, 0, 5)
Sachant que le 2 éme 0 est l'adresse du "mot" a aller chercher ici %MW0 et le 5 de %MW0 a %MW4.
Ce que je voudrais c'est aller chercher le bit %M0 par exemple.
Merci beaucoup de ton aide.

Commentaire de btsmai2 le 14/01/2011 13:13:54

Oui pour le mot on lit 5 entrées , mais je veux chercher un bit précis , mais avec RMR (ReadMultipleRegisters ?) il me dit bien "impossible d'affecter a un tableau quand j'essaye ta commande donc je ne peux pas lire sa valeur.
Je n'arrive pas donc a lire juste la valeur de ce bit , qu'elle soit 1 ou 0.