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

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 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 : 10244
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 : 5863
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 : 65
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 : 10244
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 : 1625
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 : 10244
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 : 65
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
-
» 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: