| Mai 2024 | | Lun | Mar | Mer | Jeu | Ven | Sam | Dim |
|---|
| | | 1 | 2 | 3 | 4 | 5 | | 6 | 7 | 8 | 9 | 10 | 11 | 12 | | 13 | 14 | 15 | 16 | 17 | 18 | 19 | | 20 | 21 | 22 | 23 | 24 | 25 | 26 | | 27 | 28 | 29 | 30 | 31 | | |  Calendrier |
|
| | | Bonne année 2021 |  |
|
+7Jack jjn4 Marc Jean Claude jean_debord Yannick papydall 11 participants | | Auteur | Message |
|---|
papydall
Nombre de messages : 7008
Age : 73
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012
| | Sujet: Bonne année 2021 Jeu 31 Déc 2020 - 21:47 | |
| | |
| | | | Yannick
Nombre de messages : 8610
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010
| | Sujet: re Ven 1 Jan 2021 - 2:01 | |
| Bonne année et meilleurs voeux à toutes et à tous ! | |
| | | | jean_debord
Nombre de messages : 1250
Age : 69
Localisation : Limoges
Date d'inscription : 21/09/2008
| | Sujet: Re: Bonne année 2021 Ven 1 Jan 2021 - 7:49 | |
| Bonne année à tous, et bonne chance pour vos projets ! | |
| | | | Jean Claude
Nombre de messages : 5950
Age : 69
Localisation : 83 Var
Date d'inscription : 07/05/2009
| | Sujet: Re: Bonne année 2021 Ven 1 Jan 2021 - 10:18 | |
| | |
| | | | papydall
Nombre de messages : 7008
Age : 73
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012
| | Sujet: Re: Bonne année 2021 Ven 1 Jan 2021 - 10:47 | |
| Bonjour tout le monde !
@Jean Claude
Bonne année à toi, à ta famille et à tous ceux qui te sont chers.
J’espère que tu vas mieux en ce moment et que la nouvelle année 2021 te rapporte du bonheur, de la joie et surtout une bonne santé.
Au plaisir de te lire! | |
| | | | Marc
Nombre de messages : 2392
Age : 63
Localisation : TOURS (37)
Date d'inscription : 17/03/2014
| | Sujet: Re: Bonne année 2021 Ven 1 Jan 2021 - 13:13 | |
| Je vous souhaite mes meilleurs vœux de bonne santé, joie, bonheur, réussite et prospérité à tous et à vos proches ! - Code:
-
' Animation Bonne année 2021 !
' Marc - Décembre 2020
label quitter
creerInfrastructure()
arrierePlan()
texte()
etoile()
neige()
animation()
end
sub creerInfrastructure()
width 0,width(0) - width_client(0) + 1000
height 0,height(0) - height_client(0) + 270
top 0,(screen_y - height(0))/2
left 0,(screen_x - width(0))/2
caption 0,"~ ~ ~ ~ ~ ~ ~ ~ Avec tous mes voeux de bonne santé, joie, bonheur, réussite et prospérité à tous et à vos proches ! ~ ~ ~ ~ ~ ~ ~ ~"
on_close 0,quitter
picture 1
width 1,1000
height 1,270
2d_target_is 1
print_target_is 1
image 8
scene2d 3
full_space 3
hide 3
end_sub
sub arrierePlan()
dim_local i%,c
c=0
FOR i%=0 to 167
2D_PEN_COLOR 0,255,c
2D_LINE i%,0,i%,50
c=c+1.52
NEXT i%
c=255
FOR i%=168 to 334
2D_PEN_COLOR 0,c,255
2D_LINE i%,0,i%,50
c=c-1.52
NEXT i%
c=0
FOR i%=335 to 501
2D_PEN_COLOR c,0,255
2D_LINE i%,0,i%,50
c=c+1.52
NEXT i%
c=255
FOR i%=502 to 668
2D_PEN_COLOR 255,0,c
2D_LINE i%,0,i%,50
c=c-1.52
NEXT i%
c=0
FOR i%=669 to 835
2D_PEN_COLOR 255,c,0
2D_LINE i%,0,i%,50
c=c+1.52
NEXT i%
c=255
FOR i%=836 to 1002
2D_PEN_COLOR c,255,0
2D_LINE i%,0,i%,50
c=c-1.52
NEXT i%
2d_image_copy 8,0,0,1000,50
sprite 1
sprite_image_load 1,8
sprite_position 1,0,105
sprite 2
sprite_image_load 2,8
sprite_position 2,0,105
end_sub
sub texte()
color 1,0,0,1
2d_fill_color 0,0,1
font_color 1,0,0,0
font_name 1,"Arial"
font_bold 1
font_italic 1
font_size 1,45
print_locate 50,95
print "Bonne année 2021 ! "
2d_image_copy 8,0,0,1000,270
sprite 3
sprite_image_load 3,8
sprite_position 3,0,0
end_sub
sub neige()
dim_local i%
2d_target_is 1
color 1,0,0,0
2d_pen_color 255,255,255
2d_fill_color 255,255,255
FOR i%=1 TO 500
2D_POINT INT(RND(1000)),INT(RND(270))
NEXT i%
FOR i%=1 TO 50
2D_CIRCLE INT(RND(1000)),INT(RND(270)),2
NEXT i%
2d_image_copy 8,0,0,1000,270
sprite 4
sprite_image_load 4,8
sprite_position 4,0,0
sprite 5
sprite_image_load 5,8
sprite_hide 5
end_sub
sub etoile()
dim_local p%(10,1),i%,j%,x,y
degrees
picture 10
width 10,280
height 10,280
2d_target_is 10
COLOR 10,0,0,0
2d_pen_color 255,0,0
j% = 0
FOR i% = 0 to 360 STEP 36
IF MOD(i%,72) = 0
x = COS(i%) * 120 / 2.62 + 140
y = SIN(i%) * 120 / 2.62 + 140
p%(j%,0) = x
p%(j%,1) = y
ELSE
x = COS(i%) * 120 + 140
y = SIN(i%) * 120 + 140
p%(j%,0) = x
p%(j%,1) = y
END_IF
j% = j% + 1
NEXT i%
2D_PEN_COLOR 200,180,0
2D_POLY_FROM p%(0,0),p%(0,1)
FOR j% = 0 to 10
2D_POLY_TO p%(j%,0),p%(j%,1)
NEXT j%
FOR i% = 1 to 10
2D_LINE p%(i%,0),p%(i%,1),140,140
NEXT i%
j%=0
FOR i% = 18 to 378 STEP 36
x=COS(i%) * 120 / 2.62 + 140
y=SIN(i%) * 120 / 2.62 + 140
p%(j%,0) = x
p%(j%,1) = y
j% = j% + 1
NEXT i%
2D_FLOOD p%(0,0),p%(0,1),255,255,0
2D_FLOOD p%(1,0),p%(1,1),240,180,0
2D_FLOOD p%(2,0),p%(2,1),255,200,0
2D_FLOOD p%(3,0),p%(3,1),255,255,0
2D_FLOOD p%(4,0),p%(4,1),240,180,0
2D_FLOOD p%(5,0),p%(5,1),255,255,0
2D_FLOOD p%(6,0),p%(6,1),255,255,0
2D_FLOOD p%(7,0),p%(7,1),255,200,0
2D_FLOOD p%(8,0),p%(8,1),255,255,0
2D_FLOOD p%(9,0),p%(9,1),240,180,0
2d_image_copy 8,0,0,280,280
sprite 6
sprite_image_load 6,8
sprite_position 6,660,0
hide 10
end_sub
sub animation()
dim_local x%,y%
show 3
sprite_show 5
while 0=0
for X% = 1 to 1000
width 0,width(0) - width_client(0) + 1000
height 0,height(0) - height_client(0) + 270
if inkey$ = chr$(27) then terminate
sprite_x_position 1,x%
sprite_x_position 2,x%-999
sprite_y_position 4,y%
sprite_y_position 5,y%-269
y% = y% + 1
if y% = 269 then y% = 0
next x%
end_while
terminate
end_sub
quitter:
terminate
return
| |
| | | | papydall
Nombre de messages : 7008
Age : 73
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012
| | Sujet: Re: Bonne année 2021 Ven 1 Jan 2021 - 13:33 | |
| Bonne année, Marc. En closant  par la croix rouge, j'obtiens :  Cela n'empêche pas que c'est un bon code, comme d'hab! | |
| | | | Marc
Nombre de messages : 2392
Age : 63
Localisation : TOURS (37)
Date d'inscription : 17/03/2014
| | Sujet: Re: Bonne année 2021 Ven 1 Jan 2021 - 14:30 | |
| Merci Papydall ! Bonne année à toi aussi et tous tes proches ! - Papydall a écrit:
- En closant par la croix rouge...:
J'utilise la version 0.29i9 via le make_Exe.exe et là, la fermeture (semble) s'effectue(r) proprement. La boucle While s'interrompt sans problème et le programme se ferme sans message d'erreur. Voici une variante du source pour sortir proprement de la boucle while. Il faut appuyer sur ESC pour mettre fin au programme. - Code:
-
' Animation Bonne année 2021 !
' Marc - Décembre 2020
creerInfrastructure()
arrierePlan()
texte()
etoile()
neige()
animation()
end
sub creerInfrastructure()
width 0,width(0) - width_client(0) + 1000
height 0,height(0) - height_client(0) + 270
top 0,(screen_y - height(0))/2
left 0,(screen_x - width(0))/2
caption 0,"ESC pour sortir ! ~ ~ ~ ~ ~ ~ ~ ~ Avec tous mes voeux de bonne santé, joie, bonheur, réussite et prospérité à tous et à vos proches ! ~ ~ ~ ~ ~ ~ ~ ~"
picture 1
width 1,1000
height 1,270
2d_target_is 1
print_target_is 1
image 8
scene2d 3
full_space 3
hide 3
end_sub
sub arrierePlan()
dim_local i%,c
c=0
FOR i%=0 to 167
2D_PEN_COLOR 0,255,c
2D_LINE i%,0,i%,50
c=c+1.52
NEXT i%
c=255
FOR i%=168 to 334
2D_PEN_COLOR 0,c,255
2D_LINE i%,0,i%,50
c=c-1.52
NEXT i%
c=0
FOR i%=335 to 501
2D_PEN_COLOR c,0,255
2D_LINE i%,0,i%,50
c=c+1.52
NEXT i%
c=255
FOR i%=502 to 668
2D_PEN_COLOR 255,0,c
2D_LINE i%,0,i%,50
c=c-1.52
NEXT i%
c=0
FOR i%=669 to 835
2D_PEN_COLOR 255,c,0
2D_LINE i%,0,i%,50
c=c+1.52
NEXT i%
c=255
FOR i%=836 to 1002
2D_PEN_COLOR c,255,0
2D_LINE i%,0,i%,50
c=c-1.52
NEXT i%
2d_image_copy 8,0,0,1000,50
sprite 1
sprite_image_load 1,8
sprite_position 1,0,105
sprite 2
sprite_image_load 2,8
sprite_position 2,0,105
end_sub
sub texte()
color 1,0,0,1
2d_fill_color 0,0,1
font_color 1,0,0,0
font_name 1,"Arial"
font_bold 1
font_italic 1
font_size 1,45
print_locate 50,95
print "Bonne année 2021 ! "
2d_image_copy 8,0,0,1000,270
sprite 3
sprite_image_load 3,8
sprite_position 3,0,0
end_sub
sub neige()
dim_local i%
2d_target_is 1
color 1,0,0,0
2d_pen_color 255,255,255
2d_fill_color 255,255,255
FOR i%=1 TO 500
2D_POINT INT(RND(1000)),INT(RND(270))
NEXT i%
FOR i%=1 TO 50
2D_CIRCLE INT(RND(1000)),INT(RND(270)),2
NEXT i%
2d_image_copy 8,0,0,1000,270
sprite 4
sprite_image_load 4,8
sprite_position 4,0,0
sprite 5
sprite_image_load 5,8
sprite_hide 5
end_sub
sub etoile()
dim_local p%(10,1),i%,j%,x,y
degrees
picture 10
width 10,280
height 10,280
2d_target_is 10
COLOR 10,0,0,0
2d_pen_color 255,0,0
j% = 0
FOR i% = 0 to 360 STEP 36
IF MOD(i%,72) = 0
x = COS(i%) * 120 / 2.62 + 140
y = SIN(i%) * 120 / 2.62 + 140
p%(j%,0) = x
p%(j%,1) = y
ELSE
x = COS(i%) * 120 + 140
y = SIN(i%) * 120 + 140
p%(j%,0) = x
p%(j%,1) = y
END_IF
j% = j% + 1
NEXT i%
2D_PEN_COLOR 200,180,0
2D_POLY_FROM p%(0,0),p%(0,1)
FOR j% = 0 to 10
2D_POLY_TO p%(j%,0),p%(j%,1)
NEXT j%
FOR i% = 1 to 10
2D_LINE p%(i%,0),p%(i%,1),140,140
NEXT i%
j%=0
FOR i% = 18 to 378 STEP 36
x=COS(i%) * 120 / 2.62 + 140
y=SIN(i%) * 120 / 2.62 + 140
p%(j%,0) = x
p%(j%,1) = y
j% = j% + 1
NEXT i%
2D_FLOOD p%(0,0),p%(0,1),255,255,0
2D_FLOOD p%(1,0),p%(1,1),240,180,0
2D_FLOOD p%(2,0),p%(2,1),255,200,0
2D_FLOOD p%(3,0),p%(3,1),255,255,0
2D_FLOOD p%(4,0),p%(4,1),240,180,0
2D_FLOOD p%(5,0),p%(5,1),255,255,0
2D_FLOOD p%(6,0),p%(6,1),255,255,0
2D_FLOOD p%(7,0),p%(7,1),255,200,0
2D_FLOOD p%(8,0),p%(8,1),255,255,0
2D_FLOOD p%(9,0),p%(9,1),240,180,0
2d_image_copy 8,0,0,280,280
sprite 6
sprite_image_load 6,8
sprite_position 6,660,0
hide 10
end_sub
sub animation()
dim_local x%,y%
show 3
sprite_show 5
while 0=0
for X% = 1 to 1000
if inkey$ = chr$(27) then terminate
width 0,width(0) - width_client(0) + 1000
height 0,height(0) - height_client(0) + 270
if inkey$ = chr$(27) then terminate
sprite_x_position 1,x%
sprite_x_position 2,x%-999
sprite_y_position 4,y%
sprite_y_position 5,y%-269
y% = y% + 1
if y% = 269 then y% = 0
next x%
end_while
terminate
end_sub
| |
| | | | jjn4
Nombre de messages : 2704
Date d'inscription : 13/09/2009
| | Sujet: Re: Bonne année 2021 Ven 1 Jan 2021 - 17:45 | |
| Bonne année à tout le monde ! Surtout une meilleure que la précédente !   @Papydall : C'est une blague, ton truc (https://wishknow...) ou bien il s'y serait rattaché un virus espionnant la carte bleue ? (parce que quand je clic sur ton truc, mon n° de CB apparaît ?)  | |
| | | | papydall
Nombre de messages : 7008
Age : 73
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012
| | Sujet: Re: Bonne année 2021 Ven 1 Jan 2021 - 18:05 | |
| - jjn4 a écrit:
- @Papydall :
C'est une blague, ton truc (https://wishknow...)
ou bien il s'y serait rattaché un virus espionnant la carte bleue ?
(parce que quand je clic sur ton truc, mon n° de CB apparaît ?)  Ce n'est pas une blague ! Voici ce que ça devrait donner ( et avec animation aussi!)  Est-ce quelqu'un d'autre a trouvé autre chose ? | |
| | | | Marc
Nombre de messages : 2392
Age : 63
Localisation : TOURS (37)
Date d'inscription : 17/03/2014
| | Sujet: Re: Bonne année 2021 Ven 1 Jan 2021 - 18:22 | |
| - Papydall a écrit:
- Est-ce quelqu'un d'autre a trouvé autre chose ?
R.A.S. de mon coté. Tout semble normal  | |
| | | | Jack
Admin
Nombre de messages : 2386
Date d'inscription : 28/05/2007
| | Sujet: Re: Bonne année 2021 Ven 1 Jan 2021 - 21:34 | |
| Je souhaite à tous une bonne année 2021, pleine de programmes. _________________  username : panoramic@jack-panoramic password : panoramic123 | |
| | | | JL35
Nombre de messages : 7095
Localisation : 77
Date d'inscription : 29/11/2007
| | Sujet: Re: Bonne année 2021 Ven 1 Jan 2021 - 22:36 | |
| Bonne année à vous tous ! | |
| | | | jos
Nombre de messages : 16
Date d'inscription : 16/10/2020
| | Sujet: Bonne Année 2021 Ven 1 Jan 2021 - 23:51 | |
| | |
| | | | lechat75
Nombre de messages : 72
Age : 70
Localisation : MONTREUIL 93
Date d'inscription : 26/08/2018
| | Sujet: Re: Bonne année 2021 Lun 4 Jan 2021 - 17:39 | |
| je souhaite à tous une très heureuse et fructueuse année ! grâce à une nouvelle tablette (merci Père Noël  )sur laquelle j'ai pu installer la version androïd de Panoramic je vais enfin pouvoir reprendre mes tests (précédemment j'étais sur androïd 5.0 et ça ne marchait pas) bien à vous Philippe | |
| | | | lepetitmarocain
Nombre de messages : 335
Age : 81
Localisation : Région Parisienne (à mon grand désespoir)
Date d'inscription : 04/07/2018
| | Sujet: Re: Bonne année 2021 Lun 11 Jan 2021 - 10:02 | |
| Bonjour à tous.
Je souhaite à vous tous une très bonne année 2021, en espérant que vous aurez tout le bonheur que vous souhaitez, et surtout que cette merde de Virus disparaîtra pour nous permettre de retrouver nos familles sans masques, sans distanciation, et en pouvant faire des bisous.
Espérons aussi que les compilateurs panoramic et apk reviendrons pour nous permettre de travailler sur de nouveaux projets.
Bonne journée. | |
| | | | Contenu sponsorisé
| | Sujet: Re: Bonne année 2021 | |
| |
| | | | | | Bonne année 2021 | |
|
Sujets similaires | |
|
| | Permission de ce forum: | Vous ne pouvez pas répondre aux sujets dans ce forum
| |
| |
| |
