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
» Découpe dans une image
par JL35 Aujourd'hui à 23:03

» FNC IsDateValide(d$) pour vérifier la validité d'une date
par Marc Aujourd'hui à 21:51

» Pour faire plaisir à Marc37.
par Marc Aujourd'hui à 21:46

» Couleur d'une variable qui n'est pas un mot-clé
par bignono Aujourd'hui à 14:03

» Un catalogue de photos de fleurs, avec KBDD, affichage HTML
par Klaus Hier à 22:44

» KGF_dll - nouvelles versions
par Klaus Hier à 22:30

» Mah-Jong anglais
par jjn4 Hier à 14:22

» Partie fractionnaire d'un flottant
par silverman Hier à 14:19

» bug CREATE_HIDE : corruption de form
par silverman Hier à 13:32

» Racine carrée d’un nombre par l’algorithme de Héron
par Ouf_ca_passe Hier à 9:52

» Méthode manuelle d'extraction de la racine carrée
par pascal10000 Hier à 7:47

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

» Ludothèque Panoramic
par jjn4 Mar 20 Fév 2018 - 15:42

» Calculus
par Ouf_ca_passe Mar 20 Fév 2018 - 9:06

» 6 (en analyse):confusion de variable locale entre SUB et FNC
par Jack Mar 20 Fév 2018 - 8:18

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

Aller en bas 
AuteurMessage
F6DTL

avatar

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

MessageSujet: Pour devenir riche !!!   Jeu 10 Nov 2011 - 23: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 : 10575
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Pour devenir riche !!!   Jeu 10 Nov 2011 - 23: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 : 5895
Age : 45
Localisation : 77500
Date d'inscription : 18/04/2011

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

sympa Smile
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 devenir riche !!!   Ven 11 Nov 2011 - 9: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 : 10575
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Pour devenir riche !!!   Ven 11 Nov 2011 - 9: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 : 1679
Date d'inscription : 13/09/2009

MessageSujet: +++   Sam 12 Nov 2011 - 14: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 : 10575
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Pour devenir riche !!!   Sam 12 Nov 2011 - 18: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 : 65
Localisation : Brest
Date d'inscription : 12/10/2010

MessageSujet: Re: Pour devenir riche !!!   Sam 12 Nov 2011 - 22: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 !!!
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Les VIP / Qui sont-ils vraiment ?
» Tentative pour devenir une orange
» études pour devenir modeleur 3D
» Rythme FM / Devenir mannequin pour la collection de Véro
» Devenir Béta-Testeur pour The Elder Scrolls Online

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: