Besoin d'aide sur mes premiers essais SUB()

Sujet: Besoin d'aide sur mes premiers essais SUB() Ven 2 Nov 2012 - 8:33

Bonjour à tous,

Je ne comprends pas ce que je ne fait pas bien avec PW$

Code:: Dim_label()

' création de Form n%
no%=10:cre_form(1024,768,"G")

hide 0

END:' §§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§

sub cre_form(W%,H%,T%,PW$)
Form no%:width no%,W%:height no%,H%

if PW$="C"
left no%,(screen_x - width(no%))/2
else
if PW$="D"
left no%,screen_x - width(no%)
else
if PW$="G"
left no%,0
else
message "MESSAGE AU PROGRAMMEUR: La position horizontale de Form "+str$(no%)+" est mal définie (de 1 à 3)":terminate
end_if
end_if
end_if

caption no%," Form "+str$(no%)
end_sub

' --------
sub Dim_label()
dim n%,no%
end_sub

Avec PW% (valeur de 1 à 3 çà marche) confused

Merci de votre aide...

A+

Sujet: Re: Besoin d'aide sur mes premiers essais SUB() Ven 2 Nov 2012 - 9:22

Ta procédure cre_form est définie avec 4 paramètres. Or, tu l'appelles avec 3 seulement. Change l'appel comme ceci:

Code:: ' création de Form n%
no%=10:cre_form(1024,768,0,"C")

Pour le moment, ton paramètre formel T% semble inutilisé - je l'ai passé avec 0.

Sujet: Re: Besoin d'aide sur mes premiers essais SUB() Ven 2 Nov 2012 - 9:23

Bonjour Jean-Claude, Smile

Tu as laissé trainer un T% dans la sub cre_form, et tu ne peux pas envoyer la lettre C,G ou D à T%!
J'ai essayé de raccourcir aussi ton code.

Code:: Dim_label()

' création de Form n%
no%=10:cre_form(1024,768,"C")

' hide 0

END:' §§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§

sub cre_form(W%,H%,PW$)
Form no%:width no%,W%:height no%,H%

if PW$="C" then left no%,(screen_x - width(no%))/2
if PW$="D" then left no%,screen_x - width(no%)
if PW$="G" then left no%,0
caption no%," Form "+str$(no%)
end_sub

' --------
sub Dim_label()
dim n%,no%
end_sub

A+

Sujet: Re: Besoin d'aide sur mes premiers essais SUB() Ven 2 Nov 2012 - 10:45

Merci à vous deux,

Je crois que j'ai besoin de reprendre des forces Very Happy

, Je suis resté bloqué sur un problème on ne peut plus simple....

J'ai bien fait d'aller faire un tour, çà m'a revigoré... Very Happy

Sujet: Re: Besoin d'aide sur mes premiers essais SUB() Ven 2 Nov 2012 - 11:14

Salut Jean Claude

Jean Claude a écrit:: Je suis resté bloqué sur un problème on ne peut plus simple....

Tu aurais dû poser ta question au lieu de rester bloqué !
Tu as toi-même dis quelque chose de ce genre !
Bon.

Moi aussi j’apporte mon grain de sel.
J’ai modifié un peu ton code pour mieux voir les choses.

Code:: Dim_label()
' création de Form n%
no% = 10
cre_form(1024/2,768,"p") : ' modifier le dernier paramètre (c,d,g,ou autre chose)
hide 0

END:' §§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§

SUB cre_form(W%,H%,PW$)
DIM_LOCAL tex$
Form no% : width no%,W% : height no%,H%
if upper$(PW$) = "C"
left no%,(screen_x - width(no%))/2
else
if upper$(PW$) = "D"
left no%,screen_x - width(no%)
else
if upper$(PW$) = "G"
left no%,0
else
tex$ = "MESSAGE AU PROGRAMMEUR:" + chr$(13)+ chr$(13)
tex$ = tex$ + "La position horizontale de Form " + str$(no%)
tex$ = tex$ + " est mal définie." + chr$(13)
tex$ = tex$ + "Donc, je la définie par défaut à gauche"
message tex$
end_if
end_if
end_if
caption no%," Form "+str$(no%)
color no%,0,0,0 : font_color no%,255,255,0 : font_size no%,24 : font_bold no%
print_target_is no% : print "SALUT !"
END_SUB

' --------
SUB Dim_label()
dim no%
END_SUB

Sujet: Re: Besoin d'aide sur mes premiers essais SUB() Ven 2 Nov 2012 - 13:26

Merci Papydall,

Avant de soumettre mon problème j'ai essayé de trouver mon erreur, je pense tout de même qu'il faut chercher un minimum avant d’appeler à l'aide. Surtout que dans mon cas, j'étais persuadé que le problème était sûrement gros comme une maison...

Merci pour ta proposition que je ne vais pas retenir car il s'agit de message prévenant mon étourderie donc très personnel....

Merci A+

» besoin daide pour code
» appeller une dll pour carte vm110n
» Operation PRINT sur PICTURE (clipping ou flickering)
» Compilateur les essais de Yannick
» FILEBIN : Mes premier essais...