FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.

FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic

Dernières images

Dernières images

Derniers sujets

» Logiciel de planétarium.

Faire clignoter un texte Empty

par Pedro Aujourd'hui à 8:08

» Un autre pense-bête...

Faire clignoter un texte Empty

par Froggy One Jeu 21 Nov 2024 - 15:54

» Récupération du contenu d'une page html.

Faire clignoter un texte Empty

par Pedro Sam 16 Nov 2024 - 14:04

» Décompilation

Faire clignoter un texte Empty

par JL35 Mar 12 Nov 2024 - 19:57

» Un album photos comme du temps des grands-mères

Faire clignoter un texte Empty

par jjn4 Mar 12 Nov 2024 - 17:23

» traitement d'une feuille excel

Faire clignoter un texte Empty

par jjn4 Jeu 7 Nov 2024 - 3:52

» Aide-mémoire mensuel

Faire clignoter un texte Empty

par jjn4 Lun 4 Nov 2024 - 18:56

» Des incomprèhension avec Timer

Faire clignoter un texte Empty

par Klaus Mer 30 Oct 2024 - 18:26

» KGF_dll - nouvelles versions

Faire clignoter un texte Empty

par Klaus Mar 29 Oct 2024 - 17:58

» instructions panoramic

Faire clignoter un texte Empty

par maelilou Lun 28 Oct 2024 - 19:51

» Figures fractales

Faire clignoter un texte Empty

par Marc Ven 25 Oct 2024 - 12:18

» Panoramic et Scanette

Faire clignoter un texte Empty

par Yannick Mer 25 Sep 2024 - 22:16

» Editeur d étiquette avec QR évolutif

Faire clignoter un texte Empty

par JL35 Lun 23 Sep 2024 - 22:40

» BUG QR Code DelphiZXingQRCode

Faire clignoter un texte Empty

par Yannick Dim 22 Sep 2024 - 11:40

» fichier.exe

Faire clignoter un texte Empty

par leclode Ven 20 Sep 2024 - 19:02

Navigation

Portail
Index
Membres
Profil
FAQ
Rechercher

Rechercher

Novembre 2024

Le deal à ne pas rater :

Code promo Nike : -25% dès 50€ d’achats sur tout le site Nike

FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Présentation et bavardage

Faire clignoter un texte

4 participants

Auteur

Message

papydall

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

Faire clignoter un texte Empty

Sujet: Faire clignoter un texte Jeu 23 Jan 2014 - 16:20

Salut tout le monde. Panoramic ne dispose pas d’une commande BLINK qui fait clignoter un texte. J’ai tenté ce code, mais je me demande s’il n’y a pas une autre solution plus élégante ? Code: rem ============================================================================ rem Faire clignoter un texte rem ============================================================================ label blink1,blink2 color 0,0,0,0 alpha 20 : top 20,50 : left 20,50 : font_size 20,18 :font_name 20,"comic sans ms" caption 20,"!!! Avertissement !!! Warning !!! Achtung !!!" timer 9998 : timer_interval 9998, 500 : on_timer 9998, blink1 timer 9999 : timer_interval 9999, 500 : on_timer 9999, blink2 end rem ============================================================================ blink1: timer_off 9998 : timer_on 9999 font_color 20,255,0,0 return rem ============================================================================ blink2: timer_off 9999 : timer_on 9998 font_color 20,0,255,0 return rem ============================================================================

Revenir en haut

http://papydall-panoramic.forumarabia.com/

Yannick

Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010

Faire clignoter un texte Empty

Sujet: re Jeu 23 Jan 2014 - 16:26

je pense que tu peux réduire à un timer avec une variable de plus...

Revenir en haut

Invité
Invité

Sujet: Re: Faire clignoter un texte Jeu 23 Jan 2014 - 17:23

Oui, Ygenorimi a raison. Cela me foutrais la trouille de me servir d'un même objet pour une même chose avec deux timers, quoique tu arrêtes l'autre timer. Je préfère cette méthode: Code: rem ============================================================================ rem Faire clignoter un texte rem ============================================================================ label blink1,blink2 dim blink% color 0,0,0,0 alpha 20 : top 20,50 : left 20,50 : font_size 20,18 :font_name 20,"comic sans ms" caption 20,"!!! Avertissement !!! Warning !!! Achtung !!!" timer 9998 : timer_interval 9998, 500 : on_timer 9998, blink1 ' timer 9999 : timer_interval 9999, 500 : on_timer 9999, blink2 end rem ============================================================================ blink1: blink% = -1-blink% if blink% = 0 then font_color 20,255,0,0 : else : font_color 20,0,255,0 return

Revenir en haut

papydall

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

Faire clignoter un texte Empty

Sujet: Re: Faire clignoter un texte Jeu 23 Jan 2014 - 17:49

Bravo Cosmos 70. Il fallait y penser, ce que je n'arrive pas à le faire ces derniers temps!

Revenir en haut

http://papydall-panoramic.forumarabia.com/

Jean Claude

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

Faire clignoter un texte Empty

Sujet: Re: Faire clignoter un texte Jeu 23 Jan 2014 - 18:22

Bonne idée le texte qui clignote, Je l'ai un peu arrangé à ma sauce Code: rem ============================================================================ rem Faire clignoter un texte rem ============================================================================ label blink1 dim blink%,texte$ color 0,0,0,0 : width 0,720 alpha 20 : top 20,50 : left 20,50 : font_size 20,18 :font_name 20,"comic sans ms" timer 9998 : timer_interval 9998, 500 : on_timer 9998, blink1 end rem ============================================================================ blink1: texte$="!!! Avertissement !!! Warning !!! Achtung !!! çà va sauter !" clignote(20,255,0,0,0,255,0,texte$) return ' ---------- sub clignote(nobj%,c1r%,c1g%,c1b%,c2r%,c2g%,c2b%,txt$) blink% = -1-blink% caption nobj%,txt$ if blink% = 0 then font_color nobj%,c1r%,c1g%,c1b% : else : font_color nobj%,c2r%,c2g%,c2b% end_sub A+

Revenir en haut

papydall

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

Faire clignoter un texte Empty

Sujet: Re: Faire clignoter un texte Jeu 23 Jan 2014 - 18:36

C'est donc la *blink sauce*

Revenir en haut

http://papydall-panoramic.forumarabia.com/

Yannick

Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010

Faire clignoter un texte Empty

Sujet: re Jeu 23 Jan 2014 - 20:59

@ Jean Claude, Citation : if blink% = 0 then font_color nobj%,c1r%,c1g%,c1b% : else : font_color nobj%,c2r%,c2g%,c2b% tu as un "then" en trop il me semble...

Revenir en haut

papydall

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

Faire clignoter un texte Empty

Sujet: Re: Faire clignoter un texte Ven 24 Jan 2014 - 0:00

Tu es sûr que tu as bu ton café Il n’y a ni un then en trop ni en moins mais tout juste ce qu’il faut

Revenir en haut

http://papydall-panoramic.forumarabia.com/

Invité
Invité

Sujet: Re: Faire clignoter un texte Ven 24 Jan 2014 - 0:03

Non pas du tout Ygeronimi. La syntaxe est correct. Je sais que tu en a une autre: IF ... : ELSE : END_IF Soit tu mets le THEN, soit tu mets END_IF (mais pas les deux) Croisé avec Papydall.

Revenir en haut

Klaus

Nombre de messages : 12331
Age : 75
Localisation : Ile de France
Date d'inscription : 29/12/2009

Faire clignoter un texte Empty

Sujet: Re: Faire clignoter un texte Ven 24 Jan 2014 - 0:12

Dans le cas su IF..ELSE..END_IF, il n'y a pas de THEN..

Revenir en haut

http://klauspanoramic.comxa.com/index.html

Yannick

Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010

Faire clignoter un texte Empty

Sujet: re Ven 24 Jan 2014 - 2:04

J'ai dit une bêtise... Je ne connaissais pas cette structure " If Then else" Perso, je ne l'utiliserai pas mais si cela fonctionne....

Revenir en haut

Jean Claude

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

Faire clignoter un texte Empty

Sujet: Re: Faire clignoter un texte Sam 25 Jan 2014 - 8:19

@Ygeronimi, moi n'on plus je n'utilise pas cette méthode, je n'ai fait qu'adapter le code de Papydall, sans m'en apercevoir. Finalement c'est pas mal, car on écrit qu'une ligne de code au lieu de 5. Code: if blink% = 0 font_color nobj%,c1r%,c1g%,c1b% else font_color nobj%,c2r%,c2g%,c2b% end_if A+

Revenir en haut

papydall

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

Faire clignoter un texte Empty

Sujet: Re: Faire clignoter un texte Sam 25 Jan 2014 - 11:52

Et bien : tout est bien qui fini bien ! Quelqu’un a appris quelque chose. C’est déjà ça ! PS : Sorry ! Je n’ai pas trouvé une plaisanterie meilleure

Revenir en haut

http://papydall-panoramic.forumarabia.com/

Contenu sponsorisé

Sujet: Re: Faire clignoter un texte

Revenir en haut

Faire clignoter un texte

Revenir en haut

Page 1 sur 1

Sujets similaires

» Rotation de texte
» Texte sur image
» Problème d'affichage dans FORM
» Texte incliné
» Rotation de texte

Permission de ce forum:

Vous ne pouvez pas répondre aux sujets dans ce forum

FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Présentation et bavardage

Sauter vers: