Je donne mon code comme promis mais ...

Nombre de messages : 17 Date d'inscription : 28/03/2009

Je donne mon code comme promis mais je ne sais pas si c'est un cadeau ...

Car je suis en train de pas mal batailler pour l'instant. Enfin je le publierais régulièrement au fur et à mesure que ça ira mieux aussi j'espère ..

Donc voila :

Code:: DIM a, b, v, etat
a=0
b=0
v=0
etat=0

Label prep, main, init, bcl, exit, cole, lache, laser, att, fd, fn

Goto main

prep:

left 0,223
top 0,182
width 0,550
height 0,492
caption 0,"Form 0"

button 1
left 1,36
top 1,28
height 1,47
caption 1,"RESET"

button 2
left 2,36
top 2,96
caption 2,"START"

memo 3
left 3,338
top 3,91
width 3,86
height 3,35

scene2D 4
left 4,163
top 4,26
width 4,260
height 4,48

alpha 5
left 5,163
top 5,93
width 5,161
height 5,26
caption 5,"TEMPS DE CHUTE EN m S-------->"

scene3D 6
left 6,43
top 6,147
width 6,383
height 6,286

Return

init:
etat=1
print_target_is 3
dll_on "K8055D.dll"
v=dll_call1("OpenDevice",1)
return

exit:
dll_call0("CloseDevice")
dll_off
return

cole:
v=dll_call1("SetDigitalChannel",0)
return

lache:
v=dll_call1("ClearDigitalChannel",0)
return

laser:
v=dll_call1("ReadDigitalChannel",0)
return

fd:
return

fn:
return

att:
gosub laser
if (v=1)
gosub fd
if (b=1)
then etat=2
end_if
if (v=0)
then gosub fn
goto att
return

bcl:
while (1=1)
a=a+1

print v

wait 10
end_while
return

main:
gosub prep
gosub init
gosub att
gosub bcl
gosub exit
terminate

Admin Nombre de messages : 2386 Date d'inscription : 28/05/2007

Je n'ai pas essayé ton code, mais quelque chose ne va pas dans les sous_programme att. Il y a 3 IF qui n'ont pas de END_IF
att:
gosub laser
if (v=1)
gosub fd
if (b=1)
then etat=2
end_if
if (v=0)
then gosub fn
goto att
return

Je pense que des lignes ont été tronquées car deux fois on trouve THEN sur une ligne suivant IF.

Il y a 2 syntaxes possibles pour le IF:
1 - on met toutes les instructions sur la même ligne, mais dans ce cas, le ELSE n'est pas possible:
if condition then instruction1 : instruction2 : - - - : instruction n

2 - on fait un "bloc" et le ELSE est possible, mais le END_IF est obligatoire (pour marquer la fin du bloc):
if condition
instruction1
instruction2 : - - - : instruction n
end_if

ou

if condition
instruction1
instruction2 : - - - : instruction n
else
instruction1
instruction2 : - - - : instruction n
end_if

Nombre de messages : 17 Date d'inscription : 28/03/2009

Ah ok, merci, justement j'avais un problème à cet endroit, je vais y travailler.

boujour TIM,
Pendant que PANORAMIC pofine la prochaine version, j'explore le Forum.
Je me suis permis de rectifier ton code, mais j'ai dès le départ un message d'erreur (136) impossible to load DLL.
Comme je connais quedal au DLL, peus-tu m'expliquer.

Voici le code rectifié:

Code:: DIM a, b, v, etat
a=0
b=0
v=0
etat=0

Label prep, main, init, bcl, exit, cole, lache, laser, att, fd, fn

Goto main

prep:

left 0,223
top 0,182
width 0,550
height 0,492
caption 0,"Form 0"

button 1
left 1,36
top 1,28
height 1,47
caption 1,"RESET"

button 2
left 2,36
top 2,96
caption 2,"START"

memo 3
left 3,338
top 3,91
width 3,86
height 3,35

scene2D 4
left 4,163
top 4,26
width 4,260
height 4,48

alpha 5
left 5,163
top 5,93
width 5,161
height 5,26
caption 5,"TEMPS DE CHUTE EN m S-------->"

scene3D 6
left 6,43
top 6,147
width 6,383
height 6,286

Return

init:
etat=1
print_target_is 3
dll_on "windows/system32/K8055D.dll"
v=dll_call1("OpenDevice",1)
return

exit:
dll_call0("CloseDevice")
dll_off
return

cole:
v=dll_call1("SetDigitalChannel",0)
return

lache:
v=dll_call1("ClearDigitalChannel",0)
return

laser:
v=dll_call1("ReadDigitalChannel",0)
return

fd:
return

fn:
return

att:
gosub laser
if (v=1)then gosub fd
if (b=1)then etat=2
rem end_if
if (v=0)then gosub fn
goto att
return

bcl:
while (1=1)
a=a+1

print v

wait 10
end_while
return

main:
gosub prep
gosub init
gosub att
gosub bcl
gosub exit
terminate

Je ne prétends pas avoir resolu le probléme, j'essais d'y voir clair.
A+

Nombre de messages : 17 Date d'inscription : 28/03/2009

Salut Jean Claude et merci de ton message.

Je pense que si tu as eu l'erreur sur la DLL, c'est peut-être du fait que tu n'as pas la bonne version de panoramique. Moi aussi j'ai eu du mal avec ça. Sinon, pour ce qui est du projet en soit, il a pris du retard avec les vacances. Mais on va devoir s'y remettre...

Si tu me disais quel version cela m'évitera de les técharger toutes

Nombre de messages : 17 Date d'inscription : 28/03/2009

Oui mais en fait, c'est la même que celle qui est en téléchargement mais je crois que panoramic y a fait juste une modif pour que les DLL fonctionnent justement. Je ne peux pas vérifier le numéro car le PC avec le-quel on développe le projet n'est pas là ( je suis en vacance là ). Mais si tu viens de la télécharger normalement, ça devrait être bon.

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

Déjà, première remarque, tu aurais peut-être pu dire avant toute chose ce que ce code est censé faire ???
Et il n'y a aucun commentaire explicatif...
Et j'ai également l'erreur sur le chargement de la dll, alors comme ça ne marche pas, c'est le mystère le plus complet.

» Comme un timer. Mais un chronomètre
» Une commande petite comme ça, efficace comme ça!
» Balises code /code du forum
» Vertigo : Ça donne le vertige
» ROTOR : le jeu qui vous donne du fil à RETORDRE !!!