FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» quel est ce comportement de Panoramic_editor
par JL35 Aujourd'hui à 16:38

» bug BORDER_HIDE : bloque la commande full_space
par silverman Aujourd'hui à 1:19

» Découpe dans une image
par JL35 Hier à 22:00

» FNC IsDateValide(d$) pour vérifier la validité d'une date
par papydall Hier à 18:57

» Pour faire plaisir à jjn4.
par Pedro Alvarez Hier à 8:13

» Pour faire plaisir à Marc37.
par Marc Jeu 22 Fév 2018 - 21:46

» Couleur d'une variable qui n'est pas un mot-clé
par bignono Jeu 22 Fév 2018 - 14:03

» Un catalogue de photos de fleurs, avec KBDD, affichage HTML
par Klaus Mer 21 Fév 2018 - 22:44

» KGF_dll - nouvelles versions
par Klaus Mer 21 Fév 2018 - 22:30

» Mah-Jong anglais
par jjn4 Mer 21 Fév 2018 - 14:22

» Partie fractionnaire d'un flottant
par silverman Mer 21 Fév 2018 - 14:19

» bug CREATE_HIDE : corruption de form
par silverman Mer 21 Fév 2018 - 13:32

» Racine carrée d’un nombre par l’algorithme de Héron
par Ouf_ca_passe Mer 21 Fév 2018 - 9:52

» Méthode manuelle d'extraction de la racine carrée
par pascal10000 Mer 21 Fév 2018 - 7:47

» [annulé]ON_MOVE n,l ne fonctionne que sur le form 0
par silverman Mar 20 Fév 2018 - 16:52

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Février 2018
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
262728    
CalendrierCalendrier

Partagez | 
 

 Pour gagner à Euro millions

Aller en bas 
AuteurMessage
F6DTL

avatar

Nombre de messages : 28
Age : 65
Localisation : Brest
Date d'inscription : 12/10/2010

MessageSujet: Pour gagner à Euro millions    Mer 12 Jan 2011 - 17:07

Code:
rem Vous êtes en manque de chance en ce moment ? Essayer ce petit logiciel qui pourra changer votre vie

left 0,370
top 0,245
width 0,838
height 0,208
caption 0,"Tirage Euro Millions par F6DTL"
 
alpha 1
left 1,330
top 1,20
width 1,230
height 1,27

font_size 1,12
color 1,221,232,55

button 2
left 2,70
top 2,90
font_size 2,12
caption 2,"1er N°"

button 3
left 3,170
top 3,90
font_size 3,12
caption 3,"2eme N°"

button 4
left 4,270
top 4,90
font_size 4,12
caption 4,"3eme N°"

button 5
left 5,370
top 5,90
font_size 5,12
caption 5,"4eme N°"

button 6
left 6,470
top 6,90
font_size 6,12
caption 6,"5eme N°"

button 7
left 7,590
top 7,90
font_size 7,12
caption 7,"1ere *"

button 8
left 8,690
top 8,90
font_size 8,12
caption 8,"2eme *"


dim touche$,n,nr1,nr2,nr3,nr4,nr5,nr6,nr7
label start,hasard1,hasard2,hasard3,hasard4,hasard5,hasard6,hasard7
label test1,test2,test3,test4,test5,fin

rem -----------------Début du programme principal --------------------------
 start:
caption 1,"Appuyez sur une touche quelconque"
on_click 1,fin

hasard1:
color 0,66,115,154
touche$=""
nr1=0
while touche$=""
touche$=inkey$
n=n+1
if n>50
n=1
end_if
caption 2,n
end_while
nr1=n

hasard2:
color 0,66,115,90
touche$=""
nr2=0
while touche$=""
touche$=inkey$
n=n+1
if n>50
n=1
end_if
caption 3,n
end_while
nr2=n
gosub test1



hasard3:
color 0,127,58,93
touche$=""
nr3=0
while touche$=""
touche$=inkey$
n=n+1
if n>50
n=1
end_if
caption 4,n
end_while
nr3=n
gosub test2


hasard4:
color 0,157,134,93
touche$=""
nr4=0
while touche$=""
touche$=inkey$
n=n+1
if n>50
n=1
end_if
caption 5,n
end_while
nr4=n
gosub test3



hasard5:
color 0,119,156,52
touche$=""
nr5=0
while touche$=""
touche$=inkey$
n=n+1
if n>50
n=1
end_if
caption 6,n
end_while
nr5=n
gosub test4



hasard6:
color 0,119,156,165
touche$=""
nr6=0
while touche$=""
touche$=inkey$
n=n+1
if n>10
n=1
end_if
caption 7,n
end_while
nr6=n
gosub test5


hasard7:
color 0,119,96,165
touche$=""
nr7=0
while touche$=""
touche$=inkey$
n=n+1
if n>10
n=1
end_if
caption 8,n
end_while
nr7=n
gosub test5

caption 1,"Tirage terminé, Cliquez ici pour terminer"

touche$=""
while touche$=""
touche$=inkey$
if touche$="a"
goto fin
end_if
end_while
goto start

fin:
caption 1,"Cliquez sur X (haut à droite)"
end


rem -----------------------Fin du programme principal-------------------------

test1:
if (nr2=nr1)
goto hasard2
end_if
return

test2:
if (nr3=nr1) or (nr3=nr2)
goto hasard3
end_if
return

test3:
if (nr4=nr1) or (nr4=nr2) or (nr4=nr3)
goto hasard4
end_if
return

test4:
if (nr5=nr1) or (nr5=nr2) or (nr5=nr3) or (nr5=nr4)
goto hasard5
end_if
return

test5:
if (nr7=nr6)
goto hasard7
end_if
return
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://electrans.brest.free.fr
Yannick

avatar

Nombre de messages : 8015
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: Tirage Euro Million   Mer 12 Jan 2011 - 23:51

Je vois que certains prennent part
à la grande escroquerie du siècle...
Laughing

Mais cela marche t il ?....
scratch
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
F6DTL

avatar

Nombre de messages : 28
Age : 65
Localisation : Brest
Date d'inscription : 12/10/2010

MessageSujet: Re: Pour gagner à Euro millions    Jeu 13 Jan 2011 - 4:19

ygeronimi a écrit:
Je vois que certains prennent part
à la grande escroquerie du siècle...
Laughing

Mais cela marche t il ?....
scratch

Bah ! pas plus que le reste. Ce n'est que prétexte pour écrire quelques lignes de code Rolling Eyes
Pour m'apercevoir qu'il y a quelques bugs sérieux dans le basic Panoramic. Mais bon, c'est pas grave Very Happy
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://electrans.brest.free.fr
Contenu sponsorisé




MessageSujet: Re: Pour gagner à Euro millions    

Revenir en haut Aller en bas
 
Pour gagner à Euro millions
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» ma liste des 23 pour l'euro !!
» Avez-vous eue un appel de DirectBuy pour 50,000$ pour une cuisine à Ottawa ?
» Conduire un eurostar
» BeIn Sport 1 et 2 sur Bbox TV pour l'EURO 2012
» Qui veut gagner des millions arrive sur Bbox via Playin'TV

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Les inutilitaires-
Sauter vers: