CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 05 23:10:01

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : PIRATER LE MOT DE PASS MSN par Mauricelepoisson

RE : PIRATER LE MOT DE PASS MSN par IrX

PIRATER LE MOT DE PASS MSN par kaniboss

RE : ENVOI DE MP SUR COMMANDE + AUTO-VOICE AUTOMATIQUE par okier

+ de logiciels à télécharger

1 464 910 membres
401 nouveaux aujourd'hui
15 045 membres club

Trouver une ressource

Trouvez une ressource parmi 40 095 codes, 1 303 030 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

POST-IT

Information sur la source

Catégorie :AddOns Classé sous : postit, postit, notepad Niveau : Débutant Date de création : 04/07/2005 Vu : 2 244

Auteur : IceTempest

Ecrire un message privé

Note :

10,00 / 10

Commentaire sur cette source (14)

Ajouter un commentaire et/ou une note

Description

Ben voila c'est un Post-it tout simple. Alt+R et mettre dans les remotes

Source

dialog post {
title "« Post-It »"
size -3 -3 248 217
edit "", 10, 10 0 230 180, return, multi, vsbar
button "Enregistrer", 18, 10 187 80 25, ok default
button "Effacer", 19, 160 187 80 25
}
on 1:dialog:post:edit:10:{
unset %post
set %i 0
:debut
inc %i
set %post %post $+ $did(10,%i).text $+ $crlf
if (%i >= $did(10).lines) { goto fin }
goto debut
:fin
}
alias post {
set %dreturn $dialog(post,post,-1)
}
on 1:dialog:post:init:0: {
did -a post 10 %post
}
on 1:dialog:post:sclick:19: {
did -r post 10
unset %post
}

dialog post {
  title "« Post-It »"
  size -3 -3 248 217
  edit "", 10, 10 0 230 180, return, multi, vsbar
  button "Enregistrer", 18, 10 187 80 25, ok default
  button "Effacer", 19, 160 187 80 25
}

on 1:dialog:post:edit:10:{
  unset %post
  set %i 0
  :debut
  inc %i
  set %post %post $+ $did(10,%i).text $+ $crlf

  if (%i >= $did(10).lines) { goto fin }
  goto debut
  :fin
}
alias post {
  set %dreturn $dialog(post,post,-1)
}
on 1:dialog:post:init:0: {
  did -a post 10 %post
}
on 1:dialog:post:sclick:19: { 
  did -r post 10
  unset %post
}

Conclusion

Voila et bon Scripting à vous

Sources du même auteur

"RESIZE" SANS DLL

DES EFFETS D'OUVERTURE DE DIALOG

LECTEUR MP3, WAV ET WMA

MENU DE CONNECTION

AUTO VOICE ET AUTO MESSAGE À LA CONNECTION

Toutes les sources de IceTempest

Sources de la même categorie

LAZER (JEU EN PICWIN) par Zova

MP3 EN DIALOG ET INPUT par Vor4x

WORLDDMT - DETECTEUR DE PSEUDOS ET DE CLONES + AFFICHEUR DE ... par WorldDMT

TELECHARGEMENT DE FICHIER PAR PROTOCOLE HTTP 1.0 VIA SOCKET par hisoka2501

LISTE COACH/FONDATEURS/MEMBRES POUR ORANGE par m0zilla

Toutes les sources de la catégorie AddOns

Sources en rapport avec celle ci

POST-IT PICWIN V1.0 par fjxokt

Commentaires et avis

Commentaire de MaX_62 le 04/07/2005 17:47:54

Bof, bof, très basique et mal codé... quelques idée d'optimisations :
L'alias /post est très "bizarre", mets plutot ça :
alias post dialog -m post post
car la tu /set une variable inutilement

Je pense pas qu'une variable ait une très grande capacité, je pense qu'il vaut mieux tout stocker dans un fichier.txt (et après le recopier éventuellement avec le file handling)

Regroupe tes évènements de dialog :
on *:DIALOG:post:*:*:{
  if ($devent == init) { ... }
  elseif ($devent == sclick) {
    if ($did == 1) { ... }
    elseif ($did == 2) { ... }
  }
}

Les boucles avec /goto, beurk :( utilises les /while et les variables locales !

Je trouve que le dialog est pas très beau :s

Améliores tout ça car c'est vraiment pas terrible... bonne continuation

Commentaire de tofu le 04/07/2005 19:37:32

je rejoins totalement le pt de vue de MaX_62

Commentaire de KiNdErMaXi le 04/07/2005 21:26:08

si je veux mettre plusieurs post it ? :(
pourquoi tu sa un bouton 18 alors que tu ne le fais pas réagir au sclick ???

bonne continuation

Commentaire de Mc_AbBeR le 05/07/2005 11:41:26

Met plutot sa:

on *:dialog:post:*:*:{
  if $devent == edit {
    if $did == 10 {
      unset %post
      set %i 0
      :debut
      inc %i
      set %post %post $+ $did(10,%i).text $+ $crlf
      if (%i >= $did(10).lines) { goto fin }
      goto debut
      :fin
    }
  }
  if $devent == init {
    if $did == 0 {
      did -a post 10 %post
    }
  }
  if $devent == sclick {
    if $did == 19 {
      did -r post 10
      unset %post
    }
  }
}
alias post { set %dreturn $dialog(post,post,-1) }

Commentaire de tofu le 05/07/2005 14:26:36

quitte à vouloir optimiser, optimise vrment là les changements que tu as fais changent queud à part la lisibilité..

Commentaire de wims le 05/07/2005 14:27:37

if $devent == init {
if $did == 0 {

mdr ?

Commentaire de tofu le 05/07/2005 14:32:32

oui, desfois qu'il y ait un $did == 1 dans le init... :P HaHa ..

Commentaire de IceTempest le 05/07/2005 15:08:58

Merci de votre franchise. Mais de la à vous foutre de ma gueule j'apprécie pas trop.
Alors si c'est pour faire ça, autant ne rien mettre.
Merci

Commentaire de tofu le 05/07/2005 19:17:34

on parlait de la "pseudo optimisation" de mc_abber pas de ton code tkt.

Commentaire de sky_175 le 08/07/2005 02:55:36

Heu, j'viens de voir un truc là. C'est exactement le même post-it que dans le Blizzard v.3 ...

A part la variable %post qui est nommé %post.it dans le script.

Donc pourquoi posté une source si on n'en est pas l'auteur ?
Bye

Commentaire de COOLMAN002 le 08/07/2005 23:01:29

Mise à part enlever les "/splay" et renommer les variables, et le dialog, c'est EXACTEMENT le même que celui de Blizzard Script 3 (par Epsilon) ...

Commentaire de Asphere le 12/07/2005 02:55:19

Mon avis diffère du votre, ca marche, et j'en suis très content.

Bravo à toi ;)

Commentaire de Asphere le 12/07/2005 03:09:39

Après mûre réflexion c'est vrai qu'il ressemble très étrangement à celui du Blizzard...

Commentaire de hisoka2501 le 24/11/2006 15:49:34

#  unset %post
#   set %i 0
#   :debut
#   inc %i
#   set %post %post $+ $did(10,%i).text $+ $crlf
#
#   if (%i >= $did(10).lines) { goto fin }
#   goto debut
#   :fin

les goto :/
les /set ....

bon reprenons:

  unset %post
   var %i 1 , %n = $did(10).lines
   while (%i <= %n) {
   set %post $+(%post,$did(10,%i).text,$crlf)
   inc %i
}
je declare %n pour évite de revoir rappeler l'identifieur à chaque iteration de la boucle, donc gain de vitesse
c'est plus lisibile, plus rapide et plus optimisé :)
pour ce genre de code utilise plutot un ini:
/help /writeini
/help $readini