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 Jean Claude Aujourd'hui à 10:18

» Compilateur FBPano
par jean_debord Aujourd'hui à 10:07

» Le compilateur.
par Pedro Alvarez Aujourd'hui à 8:36

» 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

» 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

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 devenir riche !!!

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 devenir riche !!!   Ven 11 Nov 2011 - 1:38

Bah, l'important c'est d'y croire: une chance sur .... Pfff !!!
Quoi qu'il en soit, je me suis bien amusé à faire ce petit programme:

Mettez l'image de fond jointe dans le même répertoire que le programme.


Code:

left 0,221
top 0,200
width 0,719
height 0,234
caption 0,"Euro Millions"

picture 20
file_load 20,"FondEuro.bmp"
width 20,710
height 20,200

edit 1
left 1,60
top 1,50
width 1,55
height 1,41
font_size 1,20

edit 2
left 2,130
top 2,50
width 2,55
height 2,41
font_size 2,20

edit 3
left 3,200
top 3,50
width 3,55
height 3,41
font_size 3,20

edit 4
left 4,270
top 4,50
width 4,55
height 4,41
font_size 4,20

edit 5
left 5,340
top 5,51
width 5,55
height 5,41
font_size 5,20

edit 6
left 6,430
top 6,50
width 6,55
height 6,41
font_size 6,20

edit 7
left 7,500
top 7,50
width 7,55
height 7,41
font_size 7,20

button 8
left 8,620
top 8,50
width 8,55
height 8,41
caption 8,"GO"


edit 9
left 9,200
top 9,110
width 9,126

edit 10
left 10,340
top 10,110
width 10,55

dim N%(6)
dim E%(3)
dim x,compt,n$,e$,instrument
label debut,tir1,tir2,tir3,tir4,tir5,tir6,tir7,midi
on_click 8,debut

end
rem ----------------------------------------------------------------------------

debut:
hide 9
hide 10
instrument=13

' Jeux couleurs
for compt=1 to 7
color compt,0,255,255-(compt*20)
text compt,""
gosub midi
next compt

for compt=1 to 7
color compt,255,255-(compt*20),0
next compt

' Mise à zéro du tableau des numéros et étoiles
for compt=1 to 5
n%(compt)=0
next compt
for compt=1 to 2
e%(compt)=0
next compt

' Début des tirages
tir1:
n%(1)=int(rnd(51))
if n%(1)=0 then goto tir1
text 1,"  "+str$(n%(1))
color 1,n%(1)*4,255-(n%(1)),n%(1)*4
instrument=n%(1)
gosub midi

tir2:
n%(2)=int(rnd(51))
if n%(2)=0 or n%(2)=n%(1) then goto tir2
text 2,"  "+str$(n%(2))
color 2,n%(2)*4,255-(n%(2)),n%(2)*4
instrument=n%(2)
gosub midi

tir3:
n%(3)=int(rnd(51))
if n%(3)=0 or n%(3)=n%(1) or n%(3)=n%(2) then goto tir3
text 3,"  "+str$(n%(3))
color 3,n%(3)*4,255-(n%(3)),n%(3)*4
instrument=n%(3)
gosub midi

tir4:
n%(4)=int(rnd(51))
if n%(4)=0 or n%(4)=n%(1) or n%(4)=n%(2) or n%(4)=n%(3) then goto tir4
text 4,"  "+str$(n%(4))
color 4,n%(4)*4,255-(n%(4)),n%(4)*4
instrument=n%(4)
gosub midi

tir5:
n%(5)=int(rnd(51))
if n%(5)=0 or n%(5)=n%(1) or n%(5)=n%(2) or n%(5)=n%(3) or n%(5)=n%(4) then goto tir5
text 5,"  "+str$(n%(5))
color 5,n%(5)*4,255-(n%(5)),n%(5)*4
instrument=n%(5)
gosub midi

tir6:
E%(1)=int(rnd(12))
if e%(1)=0 then goto tir6
text 6," "+str$(E%(1))+"*"
instrument=(E%(1))+20
gosub midi

tir7:
E%(2)=int(rnd(12))
if e%(2)=0 or e%(2)=e%(1) then goto tir7
text 7," "+str$(E%(2))+"*"
instrument=(E%(2))+20
gosub midi

' Affichage date et heure
show 9
show 10
text 9,"          "+date$
text 10," "+time$


end

midi:
midi_on
midi_instrument instrument
midi_play 60,11
midi_off
return

left 0,221
top 0,200
width 0,719
height 0,234
caption 0,"Euro Millions"

picture 20
file_load 20,"FondEuro.bmp"
width 20,710
height 20,200

edit 1
left 1,60
top 1,50
width 1,55
height 1,41
font_size 1,20

edit 2
left 2,130
top 2,50
width 2,55
height 2,41
font_size 2,20

edit 3
left 3,200
top 3,50
width 3,55
height 3,41
font_size 3,20

edit 4
left 4,270
top 4,50
width 4,55
height 4,41
font_size 4,20

edit 5
left 5,340
top 5,51
width 5,55
height 5,41
font_size 5,20

edit 6
left 6,430
top 6,50
width 6,55
height 6,41
font_size 6,20

edit 7
left 7,500
top 7,50
width 7,55
height 7,41
font_size 7,20

button 8
left 8,620
top 8,50
width 8,55
height 8,41
caption 8,"GO"


edit 9
left 9,200
top 9,110
width 9,126

edit 10
left 10,340
top 10,110
width 10,55

dim N%(6)
dim E%(3)
dim x,compt,n$,e$,instrument
label debut,tir1,tir2,tir3,tir4,tir5,tir6,tir7,midi
on_click 8,debut

end
rem ----------------------------------------------------------------------------

debut:
hide 9
hide 10
instrument=13

' Jeux couleurs
for compt=1 to 7
color compt,0,255,255-(compt*20)
text compt,""
gosub midi
next compt

for compt=1 to 7
color compt,255,255-(compt*20),0
next compt

' Mise à zéro du tableau des numéros et étoiles
for compt=1 to 5
n%(compt)=0
next compt
for compt=1 to 2
e%(compt)=0
next compt

' Début des tirages
tir1:
n%(1)=int(rnd(51))
if n%(1)=0 then goto tir1
text 1,"  "+str$(n%(1))
color 1,n%(1)*4,255-(n%(1)),n%(1)*4
instrument=n%(1)
gosub midi

tir2:
n%(2)=int(rnd(51))
if n%(2)=0 or n%(2)=n%(1) then goto tir2
text 2,"  "+str$(n%(2))
color 2,n%(2)*4,255-(n%(2)),n%(2)*4
instrument=n%(2)
gosub midi

tir3:
n%(3)=int(rnd(51))
if n%(3)=0 or n%(3)=n%(1) or n%(3)=n%(2) then goto tir3
text 3,"  "+str$(n%(3))
color 3,n%(3)*4,255-(n%(3)),n%(3)*4
instrument=n%(3)
gosub midi

tir4:
n%(4)=int(rnd(51))
if n%(4)=0 or n%(4)=n%(1) or n%(4)=n%(2) or n%(4)=n%(3) then goto tir4
text 4,"  "+str$(n%(4))
color 4,n%(4)*4,255-(n%(4)),n%(4)*4
instrument=n%(4)
gosub midi

tir5:
n%(5)=int(rnd(51))
if n%(5)=0 or n%(5)=n%(1) or n%(5)=n%(2) or n%(5)=n%(3) or n%(5)=n%(4) then goto tir5
text 5,"  "+str$(n%(5))
color 5,n%(5)*4,255-(n%(5)),n%(5)*4
instrument=n%(5)
gosub midi

tir6:
E%(1)=int(rnd(12))
if e%(1)=0 then goto tir6
text 6," "+str$(E%(1))+"*"
instrument=(E%(1))+20
gosub midi

tir7:
E%(2)=int(rnd(12))
if e%(2)=0 or e%(2)=e%(1) then goto tir7
text 7," "+str$(E%(2))+"*"
instrument=(E%(2))+20
gosub midi

' Affichage date et heure
show 9
show 10
text 9,"          "+date$
text 10," "+time$


end

midi:
midi_on
midi_instrument instrument
midi_play 60,11
midi_off
return

http://i42.servimg.com/u/f42/17/02/16/43/fondeu13.jpg
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://electrans.brest.free.fr
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Pour devenir riche !!!   Ven 11 Nov 2011 - 1:54

Joli ! Mais attention au copy-right avec des images propriétaires capturées... En privé, tu fais ce que tu veux, mais ici, tu publies !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Jicehel

avatar

Nombre de messages : 5849
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Pour devenir riche !!!   Ven 11 Nov 2011 - 2:04

sympa Smile
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 devenir riche !!!   Ven 11 Nov 2011 - 11:48

Klaus a écrit:
Joli ! Mais attention au copy-right avec des images propriétaires capturées... En privé, tu fais ce que tu veux, mais ici, tu publies !

Effectivement, bonne remarque: Reste à savoir si ce blog est privé ou public ?
Quoi qu'il en soit, il est vrai qu'il faut être prudent en la matière.

F6DTL
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://electrans.brest.free.fr
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Pour devenir riche !!!   Ven 11 Nov 2011 - 11:54

La jurisprudence est très claire: les textes, photos vidéos et autres documents "publiés" sur internet, que ce soit un blog ou un autre support, sont visibles de façon publique, à tout le monde, et sont donc publiques et non privés.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
jjn4

avatar

Nombre de messages : 1594
Date d'inscription : 13/09/2009

MessageSujet: +++   Sam 12 Nov 2011 - 16:26

Ah, c'est intéressant !!!
Mais, petite demande de perfectionnement du programme :
Peux-tu élaborer un programme
qui ne sorte que les futures combinaisons gagnantes ?
Laughing alien Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Pour devenir riche !!!   Sam 12 Nov 2011 - 20:59

Ouiiiiiiiiii ! Je suis preneur !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
F6DTL

avatar

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

MessageSujet: Re: Pour devenir riche !!!   Dim 13 Nov 2011 - 0:53

jjn4 a écrit:
Ah, c'est intéressant !!!
Mais, petite demande de perfectionnement du programme :
Peux-tu élaborer un programme
qui ne sorte que les futures combinaisons gagnantes ?
Laughing alien Laughing

Non, mais un trèfle à quatre feuilles, un fer à cheval ou une patte de lapin ferons sûrement l'affaire !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://electrans.brest.free.fr
Contenu sponsorisé




MessageSujet: Re: Pour devenir riche !!!   

Revenir en haut Aller en bas
 
Pour devenir riche !!!
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Info: L'Adminactive ZEN change de pseudo pour devenir Vivi
» Les VIP / Qui sont-ils vraiment ?
» Classe liée au CSS
» Tentative pour devenir une orange
» Poster un message pour devenir membre

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: