Faire tourner trois boucle for next en même temps ...?

Faire tourner trois boucle for next en même temps ...? - VB/VBA/VBS - Programmation

Marsh Posté le 16-02-2007 à 21:28:46    

Bonjour,
 
le titre ets je pense assez explicite, mais je vais développer.
 
Il faudrais que je puisse en basic faire 3 BFN (boucle for next) en même temps, avec le nombre d'état défférents [YY]  (FOR X=1 TO YY) pour les 3, et ce qu'il y a dedans de totalement différent également... et que ca change pas sur la précision du signal envoyé en sortie :)
 
Merci beaucoup par avance.
Thibault


---------------
Du bist das Mädchen, dass zu mir gehört !
Reply

Marsh Posté le 16-02-2007 à 21:28:46   

Reply

Marsh Posté le 16-02-2007 à 21:33:34    

imbrique les
je vois pas le rapport avec une quelconque "précision", et surtout de quel "signal" tu parles


---------------
What if I were smiling and running into your arms? Would you see then what I see now?  
Reply

Marsh Posté le 16-02-2007 à 21:41:37    

je vais vous expliquer...
 
Je doisi faire tourner 3 moteur spa sà pas via un ordinateur, pour le moment, le code est fonctionnel tel quel mais un par un.
 

Code :
  1. FOR R=1 TO PAS
  2.              TIMER PAUSE,[OUT3]
  3.              WAIT
  4.              [OUT3]
  5.              OUT(888),HIGH
  6.              GOSUB[ACTB]
  7.              TIMER 0
  9.              TIMER PAUSE,[OUT4]
  10.              WAIT
  11.              [OUT4]
  12.              OUT(888),SEND
  13.              GOSUB[ACTB]
  14.              TIMER 0
  15.              GOSUB[INC]
  16.              IF C = ARRET then
  17.              PRINT "La seringue contenant du ";COULEUR$;" est arrivée en fin de course ==> ARRET forcé"
  18.              GOSUB [CLEARALL]
  19.              END
  20.              END IF
  22.              NEXT R
  23.              GOSUB [CLEARALL]


 
je voudrais pouvoir programmer les 3 moteurs, et que tout se fasse.
 
je prend un exemple.
 
MOTEUR 1:
150Hz (1/T = 6.66ms)
500 pas (500impulsions FOR R=1 TO 500)
et des autres params peut importants
 
MOTEUR 2:
100Hz
45 pas (45impulsions FOR R=1 TO 500)
et des autres params peut importants
 
MOTEUR 3:
23Hz
98 pas (98impulsions FOR R=1 TO 500)
et des autres params peut importants
 
je voudrais crée de la 3 BFN afin de faire tourner les 3 moteur en même temps, sachant que si je let met "en série" (ce qui se passe actuellement) il faut attendre que le moteur 1 aie fini pour que le 2eme se mette en route etc....
 
Merci

Reply

Marsh Posté le 16-02-2007 à 21:59:25    

VB est-il vraiment le language qu'il te faut ?
c'est pour une simulation je pense. je sais pas si tu peux faire des thread en java. pour l'automatisme de puissance il y a des modules spécialisés sinon


---------------
What if I were smiling and running into your arms? Would you see then what I see now?  
Reply

Marsh Posté le 16-02-2007 à 22:44:48    

non, je dosi faire en basic, et ce n'est pas de la simulation, enfin je pense pas que ca s'appelle comme ça. MErci

Reply

Marsh Posté le 16-02-2007 à 23:01:55    

je ne sais pas ce qu'on peut faire en basic,, mais en VISUAL basic, tu peux chercher à faire un test sur la clock de ta machine... Mais des milli secondes, c'est chaud cacao...

Reply

Marsh Posté le 16-02-2007 à 23:06:23    

ca je sais faire, mais le problème ne se trouve pas là...

Reply

Marsh Posté le 17-02-2007 à 00:23:56    

c'est du code QBasic que tu dois produire ?

Reply

Marsh Posté le 17-02-2007 à 02:11:07    

3 threads en parallèle ? Sinon "simuler" un mode parallèle en répartissant au mieux tes 3 codes dans une unique boucle ? (pour faire genre c'est en parallèle, ou presque :sweat:)
 
Edit
Idée très très conne hein, c'était presque une blague... Faut du multithread et pis ché toute


Message édité par lkolrn le 17-02-2007 à 02:15:52
Reply

Marsh Posté le 17-02-2007 à 02:25:20    

A la tete du code posté, c'est pas du Vb, encore moins du Vb.net
 
AMHA c'est du QBasic. Tu vas en chier :spamafote:

Reply

Marsh Posté le 17-02-2007 à 02:25:20   

Reply

Marsh Posté le 17-02-2007 à 10:01:55    

THX, oui du basic
 
LKoLRn, c'est ce qu'on m'a conseillé (si je dois absolument faire ca en gardant le basic), car apparament le multi tasking n'est pas possible en Basic... mais ca ne sera jamais une fréquence juste, j'en parlerais avec mon prof.
 
qu'est-ce que le multithread ? Merci
 

Reply

Marsh Posté le 17-02-2007 à 10:07:01    

Le multithread, en gros, consiste a créer des "sous-taches" qu'on appellera des threads ( justement ), et qui peuvent tourner en pseudo-simultanéité sur une machine. Pour simplifier, tu crées par exemple deux fonctions:
 
Fonction A:  
   Faire
     Action_A_1;
     Action_A_2;
     Action_A_3;
   Fin Faire
 
Fonction B:  
   Faire
     Action_B_1;
     Action_B_2;
     Action_B_3;
   Fin Faire
 
CréerThread ( avec Fonction A );
CréerThread ( avec Fonction B );
 
Et l'exécution produira un truc du style:
 
Action_A_1
Action_B_1
Action_B_2
Action_A_2
... etc
 
edit : tu noteras qu'a l'exécution, on ne peut pas garantir un partage "équitable" du temps d'exécution, à part sur un système temps-réel ( qnx et consorts ), mais c'est off-topic


Message édité par -ThX- le 17-02-2007 à 10:08:35
Reply

Marsh Posté le 17-02-2007 à 10:10:39    

Ah okay ... Peux tu me donner une ébauche de code, malheureusement, je ne vois pas d'aide dans le programme liberty basic concernant le multi thread. Merci

Reply

Marsh Posté le 17-02-2007 à 10:13:50    

Désolé, mais dans l'implémentation du basic "basique :D", je pense que ce n'est pas prévu. En visual basic tu utiliserais les "Timers", en quelque sorte des threads encapsulés.  
 
Pour ton problème, il faut réussir à factoriser ton code dans une seule et unique boucle.

Reply

Marsh Posté le 17-02-2007 à 10:14:41    

bah zut, je ferais ca alors ;) tampis pour la précision :)

Reply

Marsh Posté le 17-02-2007 à 10:18:44    

Code :
  1. REM ---- Feinte de faux threads en basic ( lol ) 
  2.  
  3. DIM I AS INTEGER 
  4. I=0 
  5.  
  6. DO 
  7.  
  8.     IF I = 0 THEN CALL FUNC1 
  9.     IF I = 1 THEN CALL FUNC2 
  10.     IF I = 2 THEN CALL FUNC3 
  11.  
  12.     I = I + 1 
  13.     IF I = 3 THEN I = 0 
  14.  
  15. LOOP 
  16.  
  17. SUB FUNC1() 
  18.     REM --- gestion moteur PaP 1 
  19. END SUB 
  20.  
  21. SUB FUNC2() 
  22.     REM --- gestion moteur PaP 2 
  23. END SUB 
  24.  
  25. SUB FUNC3() 
  26.     REM --- gestion moteur PaP 3 
  27. END SUB


 

Reply

Marsh Posté le 17-02-2007 à 10:29:01    

j'avais pensé plutot (une ébauche ca marchera srmt pas)
 

Code :
  1. FOR R=1TO_LENOMBREDEPASLEPLUSGRAND_
  2. IF R < NBPASMOTEUR1 THEN
  3. GOSUB[PASAPAS1]
  4. END IF
  6. IF R < NBPASMOTEUR2 THEN
  7. GOSUB[PASAPAS2]
  8. END IF
  10. IF R < NBPASMOTEUR3 THEN
  11. GOSUB[PASAPAS3]
  12. END IF
  13. END


 
et je m'arrange pour que NBPASMOTEURx soit égal au nombre de pas entré + 1 (car on prends la valeur -1 car < )
 
Qu'en pense tu ?
 
Maintenant, j'aimerais faire ca aussi, mais je sais pas comemnt faire

Code :
  1. FOR R < NBPASMOTEUR1 AND C <> ARRETMOT1 THEN
  2. GOSUB[PASAPAS1]
  3. ENF IF


 
donc deux conditions dans le if, c'est possible ?


Message édité par nokthib le 17-02-2007 à 10:31:36
Reply

Marsh Posté le 17-02-2007 à 10:32:30    

Si NBPASMOTEUR1 > NBPASMOTEUR2, tu boucles pour rien :(

Message cité 1 fois
Reply

Marsh Posté le 17-02-2007 à 10:33:49    

apparament ca marche !!
 

Code :
  1. R1=6
  2. ARRET1=0
  3. FOR R=1 to 10
  4. IF R<R1 and C <> ARRET1 THEN
  5. PRINT R
  6. END IF
  7. NEXT R


si je met ARRET 1 à 0, bah ca arrete met rien, si je met à nimporte quoi, ca va jusque 5... Nickel koi

Reply

Marsh Posté le 17-02-2007 à 10:35:00    

-ThX- a écrit :

Si NBPASMOTEUR1 > NBPASMOTEUR2, tu boucles pour rien :(


 
ouais, mais si NBPASMOTEUR1 vaut 5, et que NBPASLEPLUSGRAND (lol) vaut 40... si on est passé 5, ca fera plus rien niveau du moteur1...

Reply

Marsh Posté le 17-02-2007 à 10:37:24    

Pour les IF avec plusieurs conditions, entoure les conditions avec des parentheses:
 
IF ( VARIABLE1 <> VALEUR1 ) AND ( VARIABLE2 = "CHOU FLEUR" )

Reply

Marsh Posté le 17-02-2007 à 10:39:38    

ah ouais nickel, regarde
 

Code :
  1. R1=98
  2. R2=47
  3. ARRET1=5
  4. ARRET2=9
  5. C=4
  6. FOR R=1 to 158
  7. IF (R<R1) and (C <> ARRET1) THEN
  8. PRINT "Premier moteur ";R
  9. END IF
  11. IF (R<R2) and (C <> ARRET2) THEN
  12. PRINT "Deuxième moteur ";R
  13. END IF
  14. PRINT
  15. NEXT R


 
donne ceci à l'écran:

Citation :

Premier moteur 1
Deuxième moteur 1
 
Premier moteur 2
Deuxième moteur 2
 
Premier moteur 3
Deuxième moteur 3
 
Premier moteur 4
Deuxième moteur 4
 
Premier moteur 5
Deuxième moteur 5
 
Premier moteur 6
Deuxième moteur 6
 
Premier moteur 7
Deuxième moteur 7
 
Premier moteur 8
Deuxième moteur 8
 
Premier moteur 9
Deuxième moteur 9
 
Premier moteur 10
Deuxième moteur 10
 
Premier moteur 11
Deuxième moteur 11
 
Premier moteur 12
Deuxième moteur 12
 
Premier moteur 13
Deuxième moteur 13
 
Premier moteur 14
Deuxième moteur 14
 
Premier moteur 15
Deuxième moteur 15
 
Premier moteur 16
Deuxième moteur 16
 
Premier moteur 17
Deuxième moteur 17
 
Premier moteur 18
Deuxième moteur 18
 
Premier moteur 19
Deuxième moteur 19
 
Premier moteur 20
Deuxième moteur 20
 
Premier moteur 21
Deuxième moteur 21
 
Premier moteur 22
Deuxième moteur 22
 
Premier moteur 23
Deuxième moteur 23
 
Premier moteur 24
Deuxième moteur 24
 
Premier moteur 25
Deuxième moteur 25
 
Premier moteur 26
Deuxième moteur 26
 
Premier moteur 27
Deuxième moteur 27
 
Premier moteur 28
Deuxième moteur 28
 
Premier moteur 29
Deuxième moteur 29
 
Premier moteur 30
Deuxième moteur 30
 
Premier moteur 31
Deuxième moteur 31
 
Premier moteur 32
Deuxième moteur 32
 
Premier moteur 33
Deuxième moteur 33
 
Premier moteur 34
Deuxième moteur 34
 
Premier moteur 35
Deuxième moteur 35
 
Premier moteur 36
Deuxième moteur 36
 
Premier moteur 37
Deuxième moteur 37
 
Premier moteur 38
Deuxième moteur 38
 
Premier moteur 39
Deuxième moteur 39
 
Premier moteur 40
Deuxième moteur 40
 
Premier moteur 41
Deuxième moteur 41
 
Premier moteur 42
Deuxième moteur 42
 
Premier moteur 43
Deuxième moteur 43
 
Premier moteur 44
Deuxième moteur 44
 
Premier moteur 45
Deuxième moteur 45
 
Premier moteur 46
Deuxième moteur 46
 
Premier moteur 47
 
Premier moteur 48
 
Premier moteur 49
 
Premier moteur 50
 
Premier moteur 51
 
Premier moteur 52
 
Premier moteur 53
 
Premier moteur 54
 
Premier moteur 55
 
Premier moteur 56
 
Premier moteur 57
 
Premier moteur 58
 
Premier moteur 59
 
Premier moteur 60
 
Premier moteur 61
 
Premier moteur 62
 
Premier moteur 63
 
Premier moteur 64
 
Premier moteur 65
 
Premier moteur 66
 
Premier moteur 67
 
Premier moteur 68
 
Premier moteur 69
 
Premier moteur 70
 
Premier moteur 71
 
Premier moteur 72
 
Premier moteur 73
 
Premier moteur 74
 
Premier moteur 75
 
Premier moteur 76
 
Premier moteur 77
 
Premier moteur 78
 
Premier moteur 79
 
Premier moteur 80
 
Premier moteur 81
 
Premier moteur 82
 
Premier moteur 83
 
Premier moteur 84
 
Premier moteur 85
 
Premier moteur 86
 
Premier moteur 87
 
Premier moteur 88
 
Premier moteur 89
 
Premier moteur 90
 
Premier moteur 91
 
Premier moteur 92
 
Premier moteur 93
 
Premier moteur 94
 
Premier moteur 95
 
Premier moteur 96
 
Premier moteur 97


 
Merci BCP !


Message édité par nokthib le 17-02-2007 à 10:40:25
Reply

Marsh Posté le 17-02-2007 à 10:40:54    

Tu diras juste a ton prof que le Basic c'est deprecated

Reply

Marsh Posté le 17-02-2007 à 10:42:31    

oui ca je le sais, mais il adore ça (ou sais faire que ca ?), alors bon... puis il ne m'a appris que ca, j'ai pas le temps d'apprendre un nv language.

Reply

Marsh Posté le 17-02-2007 à 22:27:10    

La preuve qu'une idée très très conne peut avoir du bon... Ca fait plaisir[:aras qui rit]

Reply

Marsh Posté le 18-02-2007 à 11:49:12    

J'avais deux heure à tuer, j'ai refait le programme avec cette optique, je vous épargne le développement de l'entré au clavier des données
 

Code :
  1. [ROUTINE_ENVOIE]
  3.              'GOSUB[INC]
  4.              C=456
  5.              FOR I=1 TO PASTOTAL
  6.              'BLEU'
  7.              IF I < PAS(1) AND C <> ARRET(0) THEN
  8.              PAUSE=INT((1/FREQ(0))*500)
  9.              TOTALhigh=TOTALbl+CLKSEND(0)
  10.              TOTALlow=TOTALbl
  11.              EN=2
  12.              COUL$="BLEU"
  13.              GOSUB[OUT]
  14.              END IF
  16.              'ROUGE'
  17.              IF I < PAS(2) AND C <> ARRET(1) THEN
  18.              PAUSE=INT((1/FREQ(1))*500)
  19.              TOTALhigh=TOTALro+CLKSEND(1)
  20.              TOTALlow=TOTALro
  21.              EN=2
  22.              COUL$="ROUGE"
  23.              GOSUB[OUT]
  24.              END IF
  26.              'VERT'
  27.              IF I < PAS(4) AND C <> ARRET(2) THEN
  28.              PAUSE=INT((1/FREQ(2))*500)
  29.              TOTALhigh=TOTALve+CLKSEND(2)
  30.              TOTALlow=TOTALve
  31.              EN=1
  32.              COUL$="VERT"
  33.              GOSUB[OUT]
  34.              END IF
  36.              NEXT I
  37.              GOSUB[CLEARALL]
  39.              RETURN
  41.              [OUT]
  42.              TIMER PAUSE,[OUT1]
  43.              WAIT
  44.              [OUT1]
  45.              OUT(888),TOTALhigh
  46.              OUT(890),EN
  47.              OUT(890),3
  48.              PRINT COUL$
  49.              TIMER 0
  51.              TIMER PAUSE, [OUT2]
  52.              WAIT
  53.              [OUT2]
  54.              OUT(888),TOTALlow
  55.              OUT(890),EN
  56.              OUT(890),3
  57.              TIMER 0
  58.              RETURN


 
aller, pour ceux que ca interesse, voici mon code:
 
Si éventuellement vous savez me faire part de modifications ... je suis prenneur ;)  
 
==> SURTOUT L 139 et 144
MERCI
 

Code :
  1. [HOME]
  2. GOSUB [CLEARALL]
  3. PRINT "                                COMMANDE DE MOTEURS PAS A PAS"
  4. PRINT "                                        VIA LE PORT //"
  5. PRINT "                             TFE 2006-2007 6TE "
  7. PRINT
  8. PRINT "BLEU [1] | ROUGE [2] | VERT [4] | ADDITION POSSIBLE "
  9. INPUT "Quelle(s) seringue(s) voulez vous utiliser ? ";NB
  10. IF NB > 7 then
  11. CLS
  12. PRINT "Veuillez entrer un nombre entre 1 et 7"
  13. PRINT
  14. GOTO [HOME]
  15. END IF
  16. IF NB < 1 then
  17. CLS
  18. PRINT "Veuillez entrer un nombre entre 1 et 7"
  19. PRINT
  20. GOTO [HOME]
  21. END IF
  22. COMPTEUR = 2
  24. [DEBUT_ROUTINE]
  25. IF COMPTEUR = -1 THEN GOTO [AFF]
  26. MINUS = 2^COMPTEUR
  28. IF NB > MINUS THEN 'ICI on enregistre le report après la soustraction'
  29. PRINT">"
  30. PRINT "=============> NOMBRE DE DEPART = ";NB
  31. PRINT "A soustraire : ";MINUS
  32. FORCOULEUR(MINUS)=MINUS
  33. PRINT "NB=";NB;"-";MINUS;
  34. NB=NB-MINUS
  35. PRINT "=";NB
  36. REPORT(COMPTEUR)=MINUS
  37. PRINT "Valeur enregistrée = ";REPORT(COMPTEUR)
  38. COMPTEUR=COMPTEUR-1
  39. PRINT "==> NV VALEUR COMPTEUR = ";COMPTEUR
  41. PRINT
  42. ENABLE(MINUS)=1                                    'ACTIVER LA SERINGUE QUI PORTE LE N° DE LA VALEUR A SOUSTRAIRE"
  43. IF NB <> 0 THEN GOTO [DEBUT_ROUTINE]
  44. END IF
  46. IF NB < MINUS THEN
  47. PRINT"<"
  48. PRINT "=============> NOMBRE DE DEPART = ";NB
  49. PRINT "IL N'Y A RIEN A SOUSTRAIRE"
  50. COMPTEUR=COMPTEUR-1
  51. PRINT "==> NV VALEUR COMPTEUR = ";COMPTEUR
  52. PRINT
  53. IF NB <> 0 THEN GOTO [DEBUT_ROUTINE]
  54. END IF
  56. IF NB = MINUS THEN 'ICI on enregistre le report avant la soustraction'
  57. PRINT"="
  58. PRINT "=============> NOMBRE DE DEPART = ";NB
  59. PRINT "A soustraire : ";MINUS
  60. PRINT "NB=";NB;"-";MINUS;
  61. REPORT(COMPTEUR)=MINUS
  62. FORCOULEUR(MINUS)=MINUS
  63. NB=NB-MINUS
  64. PRINT "=";NB
  65. PRINT "COMPTEUR= ";COMPTEUR
  66. PRINT "MINUS= ";MINUS
  67. PRINT "Valeur enregistrée = ";REPORT(COMPTEUR)
  68. COMPTEUR=COMPTEUR-1
  69. PRINT "==> NV VALEUR COMPTEUR = ";COMPTEUR
  70. PRINT
  71. ENABLE(MINUS)=1
  72. IF NB <> 0 THEN GOTO [DEBUT_ROUTINE]
  73. END IF
  76. [AFF]
  77. PRINT
  78. PRINT "Voici les valeures retenues lors de la décomposition"
  79. FOR R =0 TO 2
  80. PRINT "ENABLE(";R;" ) ==> La valeur n°";R;" : ";REPORT(R)
  81. NEXT R
  83. 'ENABLE(0) = BLEU
  84. 'ENABLE(1) = Rouge
  85. 'ENABLE(2) = Vert
  86. FMAX=250 'FREQ MAX
  88. FOR R=0 TO 4
  89. IF FORCOULEUR(R)=1 THEN COULEUR$(R)="BLEU"
  90. IF FORCOULEUR(R)=2 THEN COULEUR$(R)="ROUGE"
  91. IF FORCOULEUR(R)=4 THEN COULEUR$(R)="VERT"
  94. 'VARIABLE POUR BLEU' OUTA
  95. ENABLESEND(0)=1
  96. DPSEND(0)=2
  97. SENSSEND(0)=4
  98. CLKSEND(0)=8
  99. ARRET(0)=1
  102. 'VARIABLE POUR ROUGE' OUTA
  103. ENABLESEND(1)=16
  104. DPSEND(1)=32
  105. SENSSEND(1)=64
  106. CLKSEND(1)=128
  107. ARRET(1)=2
  110. 'VARIABLE POUR VERT' OUTB
  111. ENABLESEND(2)=1
  112. DPSEND(2)=2
  113. SENSSEND(2)=4
  114. CLKSEND(2)=8
  115. ARRET(2)=4
  117. IF ENABLE(R)=1 THEN
  119. IF R=1 THEN INDICE=0
  120. IF R=2 THEN INDICE=1
  121. IF R=4 THEN INDICE=2
  122. ENABLE(INDICE)=ENABLESEND(INDICE)
  123. PRINT
  124. [FREQ]
  125. INPUT "A quelle fréquence voulez-vous faire tourner la seringue de ";COULEUR$(R);" ? [FMAX=";FMAX;"] ";FREQ(R)
  126. IF FREQ(R) < 0 THEN
  127. PRINT "Veuillez entrer une fréquence entre 0 et ";FMAX;" Hz."
  128. GOTO [FREQ]
  129. END IF
  130. IF FREQ(R) > FMAX THEN
  131. PRINT "Veuillez entrer une fréquence entre 0 et ";FMAX;" Hz."
  132. GOTO [FREQ]
  133. END IF
  134. FREQ(INDICE)=FREQ(R)
  136. INPUT "Demi pas [1] ou pas entier [0], pour la seringue de ";COULEUR$(R);" ? ";DP(R)
  137. DP(INDICE)=0
  138. IF DP(R) = 1 THEN DP(INDICE) = DPSEND(INDICE)
  139. IF DP(1) <> 32 THEN DP(1)=0 'SI JE NE MET PAS CA, une valeur 1 est autoatribué pour DP(1) ??? EX: ESSAYER AVEC 1 OU 5
  141. INPUT "Avancer [1] ou reculer [0] la seringue de ";COULEUR$(R);" ? ";SENS(R)
  142. SENS(INDICE)=0
  143. IF SENS(R) = 1 THEN SENS(INDICE) = SENSSEND(INDICE)
  144. IF SENS(1) <> 64 THEN SENS(1)=0 'SI JE NE MET PAS CA, une valeur 1 est autoatribué pour SENS(1) ???
  146. INPUT "Nombre de pas pour la seringue de ";COULEUR$(R);" ? ";PAS(R)
  148. PASTOTAL=PASTOTAL+PAS(R)
  150. END IF
  151. NEXT R
  153. TOTALbl=DP(0)+ENABLE(0)+SENS(0)
  154. TOTALro=DP(1)+ENABLE(1)+SENS(1)
  155. TOTALve=DP(2)+ENABLE(2)+SENS(2)
  158. GOSUB[ROUTINE_ENVOIE]
  159. INPUT "Voulez vous recommancer ? OUI[1] NON[0]";RECO
  160. IF RECO=1 THEN
  161. CLS
  162. GOTO[HOME]
  163. END IF
  164. END
  165.              [ROUTINE_ENVOIE]
  167.              'GOSUB[INC]
  168.              C=456
  169.              FOR I=1 TO PASTOTAL
  170.              'BLEU'
  171.              IF I < PAS(1) AND C <> ARRET(0) THEN
  172.              PAUSE=INT((1/FREQ(0))*500)
  173.              TOTALhigh=TOTALbl+CLKSEND(0)
  174.              TOTALlow=TOTALbl
  175.              EN=2
  176.              COUL$="BLEU"
  177.              GOSUB[OUT]
  178.              END IF
  180.              'ROUGE'
  181.              IF I < PAS(2) AND C <> ARRET(1) THEN
  182.              PAUSE=INT((1/FREQ(1))*500)
  183.              TOTALhigh=TOTALro+CLKSEND(1)
  184.              TOTALlow=TOTALro
  185.              EN=2
  186.              COUL$="ROUGE"
  187.              GOSUB[OUT]
  188.              END IF
  190.              'VERT'
  191.              IF I < PAS(4) AND C <> ARRET(2) THEN
  192.              PAUSE=INT((1/FREQ(2))*500)
  193.              TOTALhigh=TOTALve+CLKSEND(2)
  194.              TOTALlow=TOTALve
  195.              EN=1
  196.              COUL$="VERT"
  197.              GOSUB[OUT]
  198.              END IF
  200.              NEXT I
  201.              GOSUB[CLEARALL]
  203.              RETURN
  205.              [OUT]
  206.              TIMER PAUSE,[OUT1]
  207.              WAIT
  208.              [OUT1]
  209.              OUT(888),TOTALhigh
  210.              OUT(890),EN
  211.              OUT(890),3
  212.              PRINT COUL$
  213.              TIMER 0
  215.              TIMER PAUSE, [OUT2]
  216.              WAIT
  217.              [OUT2]
  218.              OUT(888),TOTALlow
  219.              OUT(890),EN
  220.              OUT(890),3
  221.              TIMER 0
  222.              RETURN
  224.         [CLEARALL]
  225.         OUT(888),0
  226.         OUT(890),1
  227.         OUT(890),3
  228.         RETURN
  230.         [INC]
  231.         OUT(890),35:FOR I=1 to 100: NEXT I        'Port parallèle mis en lecture
  232.         OUT(890),39:FOR I=1 to 100: NEXT I        'Sélection port C
  233.         C=INP(888)                                'Entrer la valeur du port C en C
  234.         OUT(890),3:FOR I=1 TO 100:NEXT I          'Désélection de tout les ports
  235.         RETURN


Message édité par nokthib le 24-05-2012 à 14:05:03
Reply

Marsh Posté le 19-02-2007 à 14:45:49    

hé bé...
 
On dit "recommencer" sans "a" :p
 
C'est tout ce que je comprends de ton programme (faut dire que j'ai pas cherché à comprendre :D)
 
Sinon, niveau algo, je dirais un truc du genre (pseudo code C#):

Code :
  1. void Main()
  2. {
  3.   float cadencePremierMoteur = 150;
  4.   float cadenceSecondMoteur = 100;
  5.   float cadenceTroisiemeMoteur = 23;
  6.   int itterationsPremierMoteur = 500;
  7.   int itterationsSecondMoteur = 45;
  8.   int itterationsTroisiemeMoteur = 98;
  9.   for (int i = 0; i < cadencePremierMoteur * cadenceSecondMoteur * cadenceTroisiemeMoteur; i++)
  10.   {
  11.     if (i % (cadenceSecondMoteur * cadenceTroisiemeMoteur) == 0)
  12.     {
  13.       A(ref itterationsPremierMoteur);
  14.     }
  15.     if (i % (cadencePremierMoteur * cadenceTroisiemeMoteur) == 0)
  16.     {
  17.       B(ref itterationsSecondMoteur);
  18.     }
  19.     if (i % (cadencePremierMoteur * cadenceSecondMoteur) == 0)
  20.     {
  21.       C(ref itterationsTroisiemeMoteur);
  22.     }
  23.   }
  24. }
  26. void A(int ref cpt)
  27. {
  28.   if (cpt-- > 0)
  29.     printf("Action moteur1" );
  30. }
  32. void B(int ref cpt)
  33. {
  34.   if (cpt-- > 0)
  35.   printf("Action moteur2" );
  36. }
  38. void C(int ref cpt)
  39. {
  40.   if (cpt-- > 0)
  41.   printf("Action moteur3" );
  42. }


 
En te démerdant pour qu'un passage dans la boucle fasse exactement 1 / (cadencePremierMoteur * cadenceSecondMoteur * cadenceTroisiemeMoteur) secondes (sauf que ça en Basic je ne vois pas comment c'est possible :heink:)


Message édité par MagicBuzz le 19-02-2007 à 19:38:49
Reply

Marsh Posté le 19-02-2007 à 17:59:19    

mon programme fonctionne, donc je le laisse tel quel, je vais juste "l'améliorer" :)

Reply

Marsh Posté le    

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed