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
» un nouveau editeur panobasic
par pascal10000 Hier à 21:52

» COMPILATEUR V 0.9 beta 7 du 10 aout 2017
par Jack Hier à 20:23

» Pb 16 (en analyse): ON_CLOSE plante à l'exécution
par Jack Hier à 20:00

» Pb 15 (en analyse): TIMER_ON plante à l'exécution
par Jack Hier à 19:58

» Compilateur FBPano
par jean_debord Hier à 8:49

» KGF_dll - nouvelles versions
par Yannick Dim 13 Aoû 2017 - 17:35

» probleme d'outil
par Yannick Dim 13 Aoû 2017 - 17:32

» Carte de France des régions
par Yannick Sam 12 Aoû 2017 - 21:33

» Pb 14 (en analyse): PRINT_LOCATE plante à l'exécution
par Jack Ven 11 Aoû 2017 - 22:37

» Petit avertissement [Mots réservés]
par papydall Ven 11 Aoû 2017 - 13:45

» Distances sur plan
par JL35 Jeu 10 Aoû 2017 - 21:29

» Tracé : Triangle, Carrée, Dents de scie, Sinusoïde redressée
par papydall Jeu 10 Aoû 2017 - 14:52

» Troncature dans une image
par JL35 Mer 9 Aoû 2017 - 13:45

» A chacun son point de vue
par papydall Mar 8 Aoû 2017 - 17:20

» Problème avec les chaines de caractères
par bignono Dim 6 Aoû 2017 - 9:33

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2017
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 Pour gagner à Euro millions

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
F6DTL

avatar

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

MessageSujet: Pour gagner à Euro millions    Mer 12 Jan 2011 - 19: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 : 7961
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: Tirage Euro Million   Jeu 13 Jan 2011 - 1: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 : 64
Localisation : Brest
Date d'inscription : 12/10/2010

MessageSujet: Re: Pour gagner à Euro millions    Jeu 13 Jan 2011 - 6: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
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Jeux pour gagner des crédits
» mettre ma propre publicité sur mon forum pour gagner de l'argent
» Avez-vous eue un appel de DirectBuy pour 50,000$ pour une cuisine à Ottawa ?
» Packaprizz, forum pour gagner une multitude de codes allant du newpack au pack+
» Offre Triple Play: Gagner un nom de domaine, une suppression de pub et du stockage pour votre forum.

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