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
» KGF.dll - demandes ou suggestions de modifications ou ajouts
par pascal10000 Aujourd'hui à 17:49

» Cartes de voeux, menus, etc.
par JL35 Aujourd'hui à 17:48

» Mah-Jong européen new-look
par jjn4 Aujourd'hui à 15:48

» a l'aide klaus
par Minibug Aujourd'hui à 11:42

» KGF_dll - nouvelles versions
par Minibug Aujourd'hui à 1:48

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Aujourd'hui à 0:16

» Jukebox : Serge Reggiani
par papydall Sam 9 Déc 2017 - 5:58

» Ecouter la radio fm sur votre pc
par pascal10000 Sam 9 Déc 2017 - 3:42

» anomalie
par Klaus Sam 9 Déc 2017 - 3:21

» hommage
par Jicehel Ven 8 Déc 2017 - 11:29

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Ven 8 Déc 2017 - 10:43

» carte son
par Klaus Ven 8 Déc 2017 - 2:37

» API Windows
par Klaus Jeu 7 Déc 2017 - 21:03

» mise a jour calculatrice
par joeeee2017 Mer 6 Déc 2017 - 22:19

» j'ai un petit problème
par JL35 Mer 6 Déc 2017 - 21:58

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
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 : 65
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 : 8002
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 : 65
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
-
» 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: