Gambas France BETA


Pas de compte ? Incription

While Wend et port parallele

Ce sujet est résolu.

12
AuteurMessages
Reivillo#16 Posté le 31/3/2014 à 23:29:34
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »J'ai oublié des parenthèse, après LecturePort
désolé...

Après avoir Déclaré < TotalDesBroches379 > en < String >,
1
2
3
4
5
6
7
8
9
10
11
12
WHILE (Val(LecturePort()) AND 128) = 0
......
WEND

PUBLIC FUNCTION LecturePort() AS STRING

hPort = OPEN devport FOR READ WRITE ' A déplacer peut-être de préférence dans Form_Open, avec < hPort > déclaré < Public >
SEEK #hPort, &H379
READ #hPort, TotalDesBroches379
RETURN TotalDesBroches379

END
Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr .
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR
PapyBasic#17 Posté le 1/4/2014 à 08:34:29
"Parfois l'obstination est une voie !"Salut Reivillo, merci pour ton investissement dans mes questions. :)
Là je suis au boulot, et la maquette du sismographe est à la maison !
Je regarde ce soir, car effectivement, hier soir, rien ne fonctionnait !
Pour l'instant j'ai toujours un message "type mismatch et ainsi de suite"
L'erreur est toujours entre la chaise et le clavier. Dés que j'aurais ( dés que nous aurons) trouvé, et je suis certain que la solution n'est pas forcement compliqué, le noyau de commande sera finalisé.
Ensuite l'enregistrement et l'interfaçage graphique ne posera pas de problème , car par ailleurs déjà résolu !
Merci je te tiens au courant, à ce soir.
Cordialement Papy
PapyBasic#18 Posté le 1/4/2014 à 18:51:47
"Parfois l'obstination est une voie !" :cheers: Bonsoir Reivillo,
Pour ce tronçon cela fonctionne.
Un grand merci pour ton aide, je vais maintenant connecter l'interface avec le MAX 187.
Dés que j'obtiens des datas cohérents, je passe l'ensemble du code sur la forge.
Pépère il est content ! :)
Cordialement Papy :santa:
Reivillo#19 Posté le 1/4/2014 à 19:11:27
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Peux-tu nous dire ce que tu as fais ?
Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr .
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR
PapyBasic#20 Posté le 1/4/2014 à 20:44:23
"Parfois l'obstination est une voie !"Bonsoir,

Dans form open :

hPort = OPEN devport FOR READ WRITE




dans le code ( qui est dans un timer ) :



WHILE (Val(LecturePort()) AND 128) = 0

WEND



Voilà , plus loin j'ai un autre blocage, mais je suis dessus !
Merci , cordialement Papy :santa:
PapyBasic#21 Posté le 1/4/2014 à 20:57:52
"Parfois l'obstination est une voie !"En relisant ma réponse je remarque que j'ai oublié la "sous-routine"


PUBLIC FUNCTION LecturePort() AS String


SEEK #hPort, &H379
READ #hPort, TotalDesBroches379
RETURN TotalDesBroches379

END





Voilà, je retourne à mes lignes de codes, cordialement Papy :santa:
Reivillo#22 Posté le 1/4/2014 à 21:14:59
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Ok...

Donc c'est bien une String, qu'il attendait.
Vu dans l'exemple ICI

J'avais remarqué que sa variable < Dim iValue as Byte >, renvoyait aussi ton Erreur.
Puis je l'ai testé en < Dim iValue as String >, plus d'erreur.

Bon courage, pour la suite.

Reivillo.
Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr .
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR
12