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 - nouvelles versions
par Klaus Aujourd'hui à 23:33

» KGF.dll - demandes ou suggestions de modifications ou ajouts
par Pedro Alvarez Aujourd'hui à 22:45

» StratégoV8
par Jean Claude Aujourd'hui à 19:55

» probleme de touche (verr num)
par pascal10000 Aujourd'hui à 16:20

» Mah-Jong européen new-look
par jjn4 Aujourd'hui à 15:58

» track_bar circulaire
par Klaus Hier à 21:41

» Gestionnaire de Projets Panoramic
par Jean Claude Hier à 20:41

» Gestion de l'Unicode
par jean_debord Hier à 11:21

» Button_picture
par pascal10000 Jeu 14 Déc 2017 - 11:41

» Pourquoi le compilateur stagne
par Minibug Jeu 14 Déc 2017 - 11:09

» 4 (en analyse): SYNEDIT_TARGET_IS_OBJECT devient inactif
par Jack Jeu 14 Déc 2017 - 10:09

» 3 (en analyse): Mauvaise interprétation du string "THEN"
par Jack Jeu 14 Déc 2017 - 10:03

» API Windows
par Klaus Mar 12 Déc 2017 - 3:21

» Cartes de voeux, menus, etc.
par JL35 Lun 11 Déc 2017 - 17:48

» a l'aide klaus
par Minibug Lun 11 Déc 2017 - 11:42

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 tromper l'ennui.

Voir le sujet précédent Voir le sujet suivant Aller en bas 
Aller à la page : Précédent  1, 2
AuteurMessage
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: Pour tromper l'ennui.   Mer 14 Aoû 2013 - 0:25

Pas d’ennui, mais pas d’idées non plus.
Alors, quelques lignes de code pour dessiner des formes sans noms !
Code:
dim x,y,xc,yc,q
full_space 0 : xc = width(0)*.5 : yc = height(0)*.5 : color 0,0,0,0 : display
caption 0,"Veuillez patienter ...... <CLICK> pour arrêter"
FOR x = -10.4 TO 0 step .02
    FOR y = -5.8 TO 5.8 STEP .02
        q = x*x+y*y-x*y
     '   q = x*x + y*y*y
     '   q = x*x*x + y*y*y
     '   q = x*x*x + y*y
     '   q = x*x*x*x +y*y
     '   q = x*x*x*x + y*y*y
     '   q = x +y*y*y
     '   q =x*x*x-y*y*y+x*y
        if (q -4*int(q/4)) < 1 then 2d_pen_color 255,255,0 : else : 2d_pen_color 255,0,0
        2d_point xc+50*x,yc+50*y : 2d_point xc-50*x,yc+50*y
        if scancode <> 0 then terminate
    NEXT y
NEXT x
caption 0,"Terminé"
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

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

MessageSujet: Re: Pour tromper l'ennui.   Mer 14 Aoû 2013 - 9:36

J'aime bien du coup: couleurs avant d'aller bosser !!

Code:
dim x,y,xc,yc,q, L
dim C1,C2,C3
full_space 0 : L = width(0) : xc = L *.5 : yc = height(0)*.5 : color 0,0,0,0 : display
caption 0,"Veuillez patienter ...... <CLICK> pour arrêter"
C1 = 255 : C3 = 0
FOR x = -10.4 TO 0 step .02
    FOR y = -5.8 TO 5.8 STEP .02
    '  q = x*x+y*y-x*y
    '  q = x*x + y*y*y
        q = x*x*x + y*y*y
    '  q = x*x*x + y*y
    '  q = x*x*x*x +y*y
    '  q = x*x*x*x + y*y*y
    '  q = x +y*y*y
    '  q =x*x*x-y*y*y+x*y
        if (q -4*int(q/4)) < 1 then C2 = 255 - (abs(y-(height(0)/2)))/1.5 : else : C2 = 0 + (abs(y-(height(0)/2)))/1.5
        C1 = (abs(x-(L/2)))/6 : C3 = (abs(x-(L/2)))/6
        2d_pen_color C1,C2,C3
        2d_point xc+50*x,yc+50*y : 2d_point xc-50*x,yc+50*y
        if scancode <> 0 then terminate
    NEXT y
NEXT x
caption 0,"Terminé"
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Froggy One

avatar

Nombre de messages : 395
Date d'inscription : 06/01/2012

MessageSujet: Re   Jeu 15 Aoû 2013 - 11:07

@ Jicehel : Erreur ! la valeur de C2 est à -35 et des virgules. Je n'ai pas trouvé le moyen d'y remédier...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gaeldwest.wordpress.com
Jicehel

avatar

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

MessageSujet: Re: Pour tromper l'ennui.   Jeu 15 Aoû 2013 - 11:45

Tu peux mettre un abs() devant dans ce cas
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Froggy One

avatar

Nombre de messages : 395
Date d'inscription : 06/01/2012

MessageSujet: Re   Jeu 15 Aoû 2013 - 18:40

Niet ! le programme m'envoie ce message : la valeur doit être entre 0 et 255, après que j'aie examiné les lignes 16 à 18...

Voilivoilou:
 

confused   J'avoue sans complexe que cela reste un peu difficile pour mes compétences (papydall dirait : cavompavitavences) actuelles !?!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gaeldwest.wordpress.com
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: Pour tromper l'ennui.   Jeu 15 Aoû 2013 - 19:04

@Froggy One

Essaye de changer la ligne 16 comme ceci (en divisant par 2 au lieu de 1.5)
Code:
if (q -4*int(q/4)) < 1 then C2 = 255 - (abs(y-(height(0)/2)))/2 : else : C2 = 0 + (abs(y-(height(0)/2)))/2
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
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: Pour tromper l'ennui.   Jeu 15 Aoû 2013 - 19:07

Fonctions à deux variables.
Essayez avec d'autres valeurs de la constante coef (par exp : de 1 à 100)

Code:
' *********************************************************************
' 3D.BAS
' *********************************************************************
dim x,y,z,xp,yp,ymax,coef
full_space 0 : color 0,0,0,0 : display : coef = 70 : ' modifier coef entre 1 et 100
for z = 1 to 350
    for x = 1 to 800 step 5
        fonction(x,z) : y = y*coef : xp = 50 + x + z*2 : yp = 200 + 1.5*z - y
        if yp > ymax then ymax = yp
        if x > 1 then 2d_pen_color 255,255,0 : 2d_poly_to xp,yp
        2d_pen_color 255,0,0 : 2d_line xp,ymax,xp,yp
    next x
next z
end
' *********************************************************************
SUB Fonction(x,z)
    y = sin(x/30) + cos(z/10) * cos(x/100)
    ' y = sin(x/30 + z/5)
    ' y = cos(z/20+x)
    ' y = sin(z/10)*sin(cos(x/10))
END_SUB
' *********************************************************************
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Parpaiun

avatar

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

MessageSujet: Revue du sujet    Dim 8 Mai 2016 - 12:17

Papydall, sans me moquer de ce que tu fais, serais tu un peu du genre boulimique en programmes des fois ? Tu m'impressionnes drôlement avec ton abattage maison dans cette seule rubrique ! affraid scratch
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: Pour tromper l'ennui.   Dim 8 Mai 2016 - 15:22

Salut Parpaiun.
Primo, merci pour avoir déterré cet ancien post.
Secundo, tu me poses la question de savoir si je suis « boulimique en programmes ».
Ne sachant quoi te répondre, je dirais que c’était justement « pour tromper l’ennui » : c’est bien  le titre du topic, n’est-ce pas ?
Alors si tu es drôlement impressionné avec mon abattage maison (comme tu le disais), cela veut dire que mon objectif est atteint : IMPRESSIONNER.
Tertio, voici un code (moins impressionnant) pour toi.

Code:

rem ============================================================================
dim i,j,k,m,r,x1,x2,y1,y2,largx,hauty
width 0,600 : height 0,600
largx = width(0)/2 : hauty = height(0)/2 : k = 57.29577951308
2d_pen_width 2
for m = 4 to 12 step 2
  for i = 0.05 to 360 step 0.05
      j = sin(m*i/k)
      r = 200*sqr(abs(j))
      if j < 0 then r = -1*r
      2d_pen_color 0,abs(255-i*1.4),0
      x1 = largx + r*cos(i/k) : y1 = hauty + r*sin(i/k)
      x2 = largx + cos(i)     : y2 = hauty + sin(i)
      2d_line x1,y1,x2,y2 : display
      if scancode = 27 then end
  next i
  for i = 0 to 200 step 2
    2d_pen_color 255-i,i,255-i : 2d_fill_color i,i,0 : 2d_circle largx,hauty, 20 - (i / 10)
    wait 5
  next i
  if m < 12 then wait 1200:cls
next m
end
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

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

MessageSujet: Re: Pour tromper l'ennui.   Dim 8 Mai 2016 - 18:38

Changement de couleurs:
Code:
rem ============================================================================
dim i,j,k,m,r,x1,x2,y1,y2,largx,hauty
width 0,600 : height 0,600
largx = width(0)/2 : hauty = height(0)/2 : k = 57.29577951308
2d_pen_width 2
for m = 4 to 12 step 2
  for i = 0.05 to 360 step 0.05
      j = sin(m*i/k)
      r = 200*sqr(abs(j))
      if j < 0 then r = -1*r
      2d_pen_color abs(x1 - largx) / 2 + 50,abs(180-i) / 5,abs(y1 - hauty) / 4 + 50
      x1 = largx + r*cos(i/k) : y1 = hauty + r*sin(i/k)
      x2 = largx + cos(i)    : y2 = hauty + sin(i)
      2d_line x1,y1,x2,y2 : display
      if scancode = 27 then end
  next i
  for i = 0 to 200 step 2
    2d_pen_color i/2+150,i+50,50 + i/5 : 2d_fill_color i,i,0 : 2d_circle largx,hauty, 20 - (i / 10)
    wait 5
  next i
  if m < 12 then wait 1200:cls
next m
end
rem ============================================================================
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: Pour tromper l'ennui.   Dim 8 Mai 2016 - 18:56

En alphabet phonétique international:
Bravo Romeo Alpha Victor Oscar | Juliett India Charlie Echo Hotel Echo Lima Stop  


Dernière édition par papydall le Dim 8 Mai 2016 - 19:22, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

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

MessageSujet: Re: Pour tromper l'ennui.   Dim 8 Mai 2016 - 19:09

Merci Papydall, j'espère que nous aurons un diplôme de poètes numériques pour notre travail combiné Wink
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: Pour tromper l'ennui.   Dim 8 Mai 2016 - 19:15

Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé




MessageSujet: Re: Pour tromper l'ennui.   

Revenir en haut Aller en bas
 
Pour tromper l'ennui.
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 2 sur 2Aller à la page : Précédent  1, 2
 Sujets similaires
-
» Lutter contre l'ennui :)
» code pour inséré les anime (Fond transparent)
» Plugins Firefox pour sécuriser votre navigateur.
» Pb pour le choix de la voie
» hébergeur gratuit pour un site rein quand flash(RESOLUT)

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: