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 Klaus Aujourd'hui à 19:12

» KGF_dll - nouvelles versions
par Klaus Aujourd'hui à 16:47

» track_bar circulaire
par Klaus Aujourd'hui à 13:54

» API Windows
par Klaus Aujourd'hui à 3:21

» Cartes de voeux, menus, etc.
par JL35 Hier à 17:48

» Mah-Jong européen new-look
par jjn4 Hier à 15:48

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

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Hier à 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

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

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 | 
 

 Carrés disséqués

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Parpaiun

avatar

Nombre de messages : 192
Age : 78
Localisation : HERAULT
Date d'inscription : 15/04/2015

MessageSujet: Carrés disséqués   Dim 26 Avr 2015 - 17:36

Voici un bel inutilitaire:
Code:
Code:
rem Carrés disséqués de Kurt Schmucker
rem Auteur: Parpaiun
rem Date-version: 16/04/2015
dim a,c,i,j,sw,x,y
x=30:y=10
c=20
for a=1 to 19
sw=1
for j=1 to 4
for i=1 to c
2d_rectangle x,y,x+c,y+c
select sw
case 1
x=x+c
case 2
y=y+c
case 3
x=x-c
case 4
y=y-c
end_select
next i
sw=sw+1
next j
x=x+c: y=y+c
c=c-1
next a

Il n'y a évidemment rien à tirer de cette œuvre d'art mathématique si ce n'est que de l'admirer.
C'est à Kurt Schmucker qu'on doit d'avoir créé cette figure en 2D. Est elle en forme de puits ou de pyramide ? Comme le magazine que je possède n'a fourni que très peu de formules et aucun programme, j'ai dû user de mes méninges pour fignoler ce très court programme de mon cru.

Dites moi un peu ce que vous en pensez, chers visiteurs. Merci ! De la part de Parpaiun lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Nardo26

avatar

Nombre de messages : 2294
Age : 49
Localisation : Valence
Date d'inscription : 02/07/2010

MessageSujet: Re: Carrés disséqués   Dim 26 Avr 2015 - 18:13

Sympa, j'aime bien le rendu !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://nardo26.lescigales.org
The Gamer

avatar

Nombre de messages : 110
Age : 23
Localisation : Toulouse (31)
Date d'inscription : 11/05/2010

MessageSujet: Re: Carrés disséqués   Dim 26 Avr 2015 - 18:21

Super beau ! J'adore !

Je connaissait pas cet aspect de la programmation (création de figures mathématiques) mais je trouve ça très intéressant ! J'ai regardé tes programmes ainsi que ceux de Papydall (ex: La foret) et je trouve tout ca absolument génial !

Ca me donne envie d'essayer Smile
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://pierrehardy.pagesperso-orange.fr/
papydall

avatar

Nombre de messages : 5613
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Carrés disséqués   Dim 26 Avr 2015 - 19:09

Bravo Parpaium

Une petite modification de ton code

Code:

rem Carrés disséqués de Kurt Schmucker
rem Auteur: Parpaiun
rem Date-version: 16/04/2015
dim a,c,i,j,sw,x,y,t$
alpha 10 : top 10,100 : left 10,470 : font_bold 10 : font_size 10,12
t$ = "<CLICK>"  +chr$(13) + "n'importe"+chr$(13)+"  où"+chr$(13) +"pour" + chr$(13) + "arrêter"
caption 10,t$
repeat
   cls
   x = 30 : y = 10 : c = 20
   2d_pen_color 255,0,0
   2d_fill_color rnd(255),rnd(255),rnd(255)
   for a = 1 to 19
       sw = 1
       for j = 1 to 4
           for i = 1 to c
               select sw
                 case 1 : x = x + c
                 case 2 : y = y + c
                 case 3 : x = x - c
                 case 4 : y = y - c
              end_select
              2d_rectangle x,y,x+c,y+c
           next i
           sw = sw + 1
       next j
       x = x + c : y = y + c : c = c - 1
       pause 10
   next a
   pause 2000
until scancode <> 0
terminate
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

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

MessageSujet: Re: Carrés disséqués   Dim 26 Avr 2015 - 19:46

Papydall te le dira, quand j'aime souvent je fais ma petite colorisation à moi (j'aime les couleurs)
Je te poste donc une petite variante de ton programme (plus colorée)

Code:
' =============================================================================
rem Titre:        Carrés disséqués de Kurt Schmucker
rem Auteur:      Parpaiun
rem Date-version: 16/04/2015
' =============================================================================

dim a,c,i,j,x,y,t$

cls
x = 30 : y = 10 : c = 20
for a = 1 to 19
    for j = 1 to 4
          for i = 1 to c
              2d_fill_color abs(220-x),abs(220 -y),c*12
              2d_rectangle x,y,x+c,y+c
              select j
                  case 1: x=x+c
                  case 2: y=y+c
                  case 3: x=x-c
                  case 4: y=y-c
              end_select
          next i
    next j
    x = x + c : y = y + c : c = c - 1
next a
pause 3000
terminate
' =============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Nardo26

avatar

Nombre de messages : 2294
Age : 49
Localisation : Valence
Date d'inscription : 02/07/2010

MessageSujet: Re: Carrés disséqués   Dim 26 Avr 2015 - 22:32

ta version Jicehel !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://nardo26.lescigales.org
Jicehel

avatar

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

MessageSujet: Re: Carrés disséqués   Lun 27 Avr 2015 - 0:34

Merci Nardo. On est toujours plus fort quand on travaille en équipe et moi, je n'ai mis qu'un peu de couleur, heureusement, je n'ai pas eu à faire la partie mathématique ^^
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5613
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Carrés disséqués   Lun 27 Avr 2015 - 2:59

Chacun son truc.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

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

MessageSujet: Re: Carrés disséqués   Lun 27 Avr 2015 - 11:42

En tout cas j'aime bien c'est petits programmes gaphiques (Ca faisait un moment qu'il n'y avait plus eu de nouveaux programmes qui fassent des dessins 2D. Un jour il faudra que l'on se fasse un programme de démo qui reprenne un peu tout ça pour nous exploser les yeux avec des beaux tracés multicolores de toutes sortes Wink )

J'ai hate de voir le prochain que va nous concevoir Parpaiun et sur quelle formule il va se baser...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Parpaiun

avatar

Nombre de messages : 192
Age : 78
Localisation : HERAULT
Date d'inscription : 15/04/2015

MessageSujet: Patience !   Mar 28 Avr 2015 - 7:32

Grand merci chers invités pour vos encourageantes réponses. Je suis flatté d'apprendre que vous avez apprécié la beauté des figures 2D mathématiquement sorties de mes méninges ! Pour vous satisfaire, j'ai pas moins de 50 programmes à traduire de mon GFA Basic 32 en Panoramic. Plusieurs sont courts, quelques un longs. Alors, comme je l'ai dit à Papydall, patience, patience !

Parpaiun cheers lol! cheers
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Carrés disséqués   

Revenir en haut Aller en bas
 
Carrés disséqués
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Apres prises CPL, plus de télé erreur "4 carrés"
» [Résolu] le pc de ma fille n affiche plus que des carrés
» Décodeur TV - prises CPL - 4 petits carrés ....
» Mon décodeur affiche 4 carrés
» MÉTHODE du plus petit carré (régression linéaire)

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: