Help
ldci22-Apr-2011/10:55:19+2:00
Bonjour à tous
Voici une fonction qui fait bien son travail et qui ouvre le port série passé en paramètre par acport
exemple: resultat: Open_AC p1 'port3

Comment faire pour que la variable acport renvoie bien un port ouvert sur p1 ?

Merci aux gourous


Open_AC: func [ acport btport
/local result]
[
result: 0
   if error? try [
         acport: open/no-wait to-url rejoin ["serial://" btport "/115200/8/none/1"]
         wait 2
         insert acport join "ENABLE" newline
         result: 0]
   [result: 1]
return result
]
DocKimbel22-Apr-2011/13:16:23+2:00
La solution suivante devrait marcher:

Open_AC: func [ 'acport btport /local result][
   result: 0
   if error? try [
         set acport open/no-wait to-url rejoin ["serial://" btport "/115200/8/none/1"]
         wait 2
         insert get acport join "ENABLE" newline 
         result: 0]
   [result: 1]
   return result 
]
DocKimbel22-Apr-2011/13:18:51+2:00
Tu également remplacer
to-url rejoin ["serial://" btport "/115200/8/none/1"]

par
join serial:// [btport "/115200/8/none/1"]

pour avoir ligne de code plus courte.
ldci22-Apr-2011/14:57:04+2:00
@DocKimbel
J'avais essayé avec set, mais mon erreur était de ne pas passer 'acport comme paramètre.

Le passage de paramètre que tu propose est correct et un ? acport (avant open) renvoie bien ACPORT is a word of value p1
Ca marche parfaitement
Merci

Login required to Post.


Powered by RebelBB and REBOL 2.7.8.4.2