Les forms intenables

Salut !

Pour essayer TO_BACKGROUND et TO_FOREGROUND j'ai fait un bout de code.
Je me suis rendu compte que c'est un inutilitaire et c'est débile.

Code:

dim i

hide 0
form 1:caption 1,"Form 1"
form 2:left 2,30:top 2,30:caption 2,"Form 2"
for i=1 to 1000
  TO_BACKGROUND 1
  wait 100
  TO_FOREGROUND 2
  wait 100
next i

C'est pas mal, ça peut donner des idées.

J'ai une idée HI HI HI !

Mais il faut traversé le champ de bleuet !

Et ici il y a le code :

Encore des bleuet JJN4 en tou cas moi je trouve ça bon c'est le fruit emblème du lac st-jean (Je n'y habite pas).



Le code :

Code:

dim i,j:label go,fin
j=20

for i=3 to 4
  button i:left i,j:top i,30
  j=j+80
next i
caption 3,"Oui" : caption 4,"Non"
print_locate 5,5
print "Clique sur OUI si tu me fait confiance"
on_click 3,go : on_click 4,fin
end

go:
cls :hide 3:hide 4
left 0,500 : top 0,20 : print "Tu n'aurait pas du cliquer sur OUI je t'ai eu !!!":wait 5000:hide 0
form 1:caption 1,"Form 1"
form 2:left 2,30:top 2,30:caption 2,"Form 2"
for i=1 to 1000
  TO_BACKGROUND 1
  wait 100
  TO_FOREGROUND 2
  wait 100
next i
return

fin:
terminate

(Désolé mais j'ai cliquer Envoyer au lieu de Prévisualiser alors il y a deux messages)

C'est où, le lac St Jean ?

Au Canada.

Au Nord ouest du Canada.