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
» Simuler l’appui de n’importe quelle touche.
par papydall Hier à 23:54

» Le Forum est en vacances.
par JL35 Hier à 21:20

» Une autre façon de terminer une application.
par JL35 Mar 22 Aoû 2017 - 14:27

» Compilateur FBPano
par Mike Lun 21 Aoû 2017 - 23:17

» Pb 20 (en analyse): plantage à l'appel d'un SUB
par Jack Lun 21 Aoû 2017 - 21:58

» Pb 19 (en analyse): libellé d'erreur dans des IF imbriqués
par Jack Lun 21 Aoû 2017 - 21:55

» Copier / coller du texte à partir de la fenêtre de commandes
par jean_debord Lun 21 Aoû 2017 - 9:46

» COMPILATEUR V 0.9 beta 8 du 18 aout 2017
par papydall Lun 21 Aoû 2017 - 5:01

» Mettre en windows en veille
par papydall Lun 21 Aoû 2017 - 4:15

» Stretch_on ne stretch plus...
par papydall Dim 20 Aoû 2017 - 15:22

» Pb 18 (en analyse): RESTORE_LABEL avec DATA à la fin
par Jack Dim 20 Aoû 2017 - 13:21

» Problème de traitement des opérateurs avec le compilateur.
par Pedro Alvarez Sam 19 Aoû 2017 - 20:01

» Pb 17 (résolu): ITEM_SELECT ne fonctionne pas
par Jack Jeu 17 Aoû 2017 - 19:26

» un nouveau editeur panobasic
par Jean Claude Jeu 17 Aoû 2017 - 10:18

» Le compilateur.
par Pedro Alvarez Jeu 17 Aoû 2017 - 8:36

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2017
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 Les joies de la fonction BIN_AND()

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

avatar

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

MessageSujet: Les joies de la fonction BIN_AND()   Lun 2 Sep 2013 - 3:39

Salut tout le monde.

Qui a expérimenté la fonction BIN_AND() en graphique ?
A ma connaissance, pas grand monde !

Un simple test sur BIN_AND permet d’obtenir des formidables figures graphiques !
C’est beau en couleur, mais le noir et blanc a aussi son charme.

Activez/désactivez l’appel à la SUB Couleur() de la ligne 23 et jugez vous-mêmes.
Essayez les différentes fonctions (a = bin_and(…)) des lignes 9 à 20.

Code:
' ******************************************************************************
' Les_joies_du_bin_and.bas par Papydall
' ******************************************************************************
dim a,x,y,x0,y0,ym,pi
full_space 0 : x0 = width(0)*.5 : y0 = height(0)-40 : pi = acos(-1): ym = y0/2
color 0,200,100,50 : display :2d_fill_color 255,255,255 : 2d_circle x0,y0/2+5,ym
for y = 1 to ym
   for x = 1 to y
       a = bin_and(x,y-x)
      ' a = bin_and(x,y+x)
      ' a = bin_and(y,y-x)
      ' a = bin_and(y/pi,y+x/sqr(2))
      ' a = bin_and(x,sqr(x*x+y*y))
      ' a = bin_and(bin_and(x,sqr(x*x+y*y)),y)
      ' a = bin_and(x*pi,y*pi)
      ' a = bin_and(bin_and(x*x,x*x),sqr(y*x+y*x))
      ' a = bin_and(bin_and(bin_and(x,x*y*pi),y),x)
      ' a = bin_and(x*x/y+pi,y*y/x+pi)
      ' a = bin_and(pi*x-y,pi*y)
      ' a = bin_and(exp(1)*x,exp(1)*y)

       if a <> 0
        '  couleur()
          2d_point x0+x,y+5    : 2d_point x0-x,y+5
          2d_point x0+x,y0-y+5 : 2d_point x0-x,y0-y+5
       end_if
   next x
next y
caption 0,"TERMINE"
end
' ******************************************************************
SUB Couleur()
    if a > 10 then 2d_pen_color 255,0,0
    if a > 20 then 2d_pen_color 0,255,0
    if a > 30 then 2d_pen_color 0,0,255
    if a > 40 then 2d_pen_color 255,255,0
    if a > 50 then 2d_pen_color 0,255,255
    if a > 60 then 2d_pen_color 127,0,0
    if a > 70 then 2d_pen_color 0,127,0
    if a > 80 then 2d_pen_color 0,0,127
    if a > 100 then 2d_pen_color rnd(255),rnd(255),rnd(255)
END_SUB
' *******************************************************************

Bon divertissement !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Yannick

avatar

Nombre de messages : 7975
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Lun 2 Sep 2013 - 6:43

C' est vrai que ca fait des trucs chouettes ( pas hibou Laughing )...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

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

MessageSujet: Re: Les joies de la fonction BIN_AND()   Lun 2 Sep 2013 - 8:40

Très joli Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 4989
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Les joies de la fonction BIN_AND()   Lun 2 Sep 2013 - 12:36

Très chouette,

j'ai ajouter une option pour arrêter avant la fin (çà permet de faire plein d'essai) et aussi une figure supplémentaire.
Code:
' ******************************************************************************
' Les_joies_du_bin_and.bas par Papydall
' ******************************************************************************
dim a,x,y,z,x0,y0,ym,pi:label fin
full_space 0 : x0 = width(0)*.5 : y0 = height(0)-40 : pi = acos(-1): ym = y0/2
color 0,200,100,50 : display :2d_fill_color 255,255,255 : 2d_circle x0,y0/2+5,ym
for y = 1 to ym
  if inkey$=""
  caption 0,"N'importe quelle touche pour arrêter"
     for x = 1 to y
'       a = bin_and(x,y-x)
'       a = bin_and(x,y+x)
'       a = bin_and(y,y-x)
'       a = bin_and(y/pi,y+x/sqr(2))
'       a = bin_and(x,sqr(x*x+y*y))
'       a = bin_and(bin_and(x,sqr(x*x+y*y)),y)
'       a = bin_and(x*pi,y*pi)
'       a = bin_and(bin_and(x*x,x*x),sqr(y*x+y*x))
'       a = bin_and(bin_and(bin_and(x,x*y*pi),y),x)
'       a = bin_and(x*x/y+pi,y*y/x+pi)
'       a = bin_and(pi*x-y,pi*y)
'       a = bin_and(exp(1)*x,exp(1)*y)
'       a = bin_and(bin_and(x,sqr(x*x+y*y)),y)
       a = bin_and(x,sqr(x*x+y*y)+9749.5)

         if a <> 0
'            couleur()
            2d_point x0+x,y+5   : 2d_point x0-x,y+5
            2d_point x0+x,y0-y+5 : 2d_point x0-x,y0-y+5
         end_if
     next x
  next y
  caption 0,"TERMINE"
else
  caption 0,"TERMINE"
end_if
end
' ******************************************************************
SUB Couleur()
    if a > 10 then 2d_pen_color 255,0,0
    if a > 20 then 2d_pen_color 0,255,0
    if a > 30 then 2d_pen_color 0,0,255
    if a > 40 then 2d_pen_color 255,255,0
    if a > 50 then 2d_pen_color 0,255,255
    if a > 60 then 2d_pen_color 127,0,0
    if a > 70 then 2d_pen_color 0,127,0
    if a > 80 then 2d_pen_color 0,0,127
    if a > 100 then 2d_pen_color rnd(255),rnd(255),rnd(255)
END_SUB
' *******************************************************************
fin:
terminate
A+


Dernière édition par Jean Claude le Lun 2 Sep 2013 - 17:27, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Les joies de la fonction BIN_AND()   Lun 2 Sep 2013 - 13:13

Merci Jean Claude pour l’option que tu as ajouter. Ha Ha Ha !!!

Je t'ai eu !
A la prochaine!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
papydall

avatar

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

MessageSujet: Re: Les joies de la fonction BIN_AND()   Lun 2 Sep 2013 - 13:54

La fonction BIN_AND(V1,V2) retourne la valeur du « ET » logique binaire entre les 2 variables V1 et V2.
Si on veut faire le « ET » logique binaire non pas sur seulement 2 variables mais sur 3 ou 4 ou plus de variables, on procède comme ceci :

Code:
dim  r

r = bin_and(191,205)  : print r : ' r = 191 and 205
r = bin_and(bin_and(191,205),251) : print r : ' r = 191 and 205 and 251
r = bin_and(bin_and(bin_and(191,205),251),1234) : print r : ' r = 191 and 205 and 251 and 1234

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

avatar

Nombre de messages : 4989
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Les joies de la fonction BIN_AND()   Lun 2 Sep 2013 - 17:27

Je suis vert de rage, il m'a encore eu.....

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Les joies de la fonction BIN_AND()   Lun 2 Sep 2013 - 17:46

Rassure-toi, ça ne sera pas la dernière !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Yannick

avatar

Nombre de messages : 7975
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Lun 2 Sep 2013 - 19:16

Méfie toi Papydall...je crois que jean Claude n' a pas eu son 4 heure...Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Les joies de la fonction BIN_AND()   

Revenir en haut Aller en bas
 
Les joies de la fonction BIN_AND()
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Les joies de Google Chrome
» (f) AURORA MOHN + l'amitié double les joies et réduit de moitié les peines.

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC 32 bits :: Vos sources, vos utilitaires à partager-
Sauter vers: