begin process at 2008 08 30 12:13:11
1 234 003 membres
37 nouveaux aujourd'hui
14 294 membres club

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 : 1 994

Note :
10 / 10 - par 1 personne
10,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 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 en rapport avec celle ci

  • signaler à un administrateur
    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

  • signaler à un administrateur
    Commentaire de tofu le 04/07/2005 19:37:32

    je rejoins totalement le pt de vue de MaX_62

  • signaler à un administrateur
    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

  • signaler à un administrateur
    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) }

  • signaler à un administrateur
    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é..

  • signaler à un administrateur
    Commentaire de wims le 05/07/2005 14:27:37

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

    mdr ?

  • signaler à un administrateur
    Commentaire de tofu le 05/07/2005 14:32:32

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

  • signaler à un administrateur
    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

  • signaler à un administrateur
    Commentaire de tofu le 05/07/2005 19:17:34

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

  • signaler à un administrateur
    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

  • signaler à un administrateur
    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) ...

  • signaler à un administrateur
    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 ;)

  • signaler à un administrateur
    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...

  • signaler à un administrateur
    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

Ajouter un commentaire

Pub



Appels d'offres

Recherche developpeur ...
Budget : 700€
SITE MARCHAND LOCATION...
Budget : 3 000€
SITE MARCHAND POUR HOTEL
Budget : 4 000€

CalendriCode

Août 2008
LMMJVSD
    123
45678910
11121314151617
18192021222324
25262728293031

VS Express FR Gratuit !

VS Express en français et 100% gratuit !

Téléchargements

Logiciels à télécharger sur le même thème :

Boutique

Boutique de goodies CodeS-SourceS