AGENDA - RAPPEL agenda, rappel, taches, Source N°44446

Information sur la source

Catégorie :Divers Classé sous : agenda, rappel, taches Niveau : Débutant Date de création : 20/10/2007 Date de mise à jour : 20/10/2007 16:43:27 Vu : 1 152

Auteur : Doudis

Site perso

Ecrire un message privé

Note :

7,00 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (5)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Voici ma premiere source , c'est un petit agenda qui rappel a l'ouverture de mirc les taches ou evenements qui se passe sur le jour définit du genre : l'anniversaire d'un proche etc... :) !!!!

Source

dialog rappel {
title "Gestion des Rappel"
size -1 -1 180 110
option dbu
box "( Gestion des Rappel )" 1, 5 4 170 100
list 2,15 16 150 10
list 3,15 24 150 10
list 4,15 32 150 10
list 5,15 40 150 10
list 6,15 48 150 10
list 7,15 56 150 10
list 8,15 64 150 10
list 9,15 72 150 10
list 10,15 80 150 10
button "Modifier" 11,68 92 50 10
}
on *:dialog:rappel:init:*:{
did -a rappel 2 %rappel1
did -a rappel 3 %rappel2
did -a rappel 4 %rappel3
did -a rappel 5 %rappel4
did -a rappel 6 %rappel5
did -a rappel 7 %rappel6
did -a rappel 8 %rappel7
did -a rappel 9 %rappel8
did -a rappel 10 %rappel9
}
on *:dialog:rappel:sclick:11:{
dialog -m modifrappel modifrappel
}
dialog modifrappel {
title "Modification des rappel"
size -1 -1 245 46
option dbu
text "Rappel N°" 1, 5 5 40 10
combo 2, 35 3 18 10,drop
combo 3, 60 3 50 10,drop
text "Le :" 4, 115 5 40 10
edit "1" 5,130 3 10 10
combo 6,145 3 40 10,drop
edit "" 7,192 3 40 10
text "Info :" 8, 5 23 20 10
edit "" 9,25 23 120 10
button "Ok" 10,150 23 50 10
}
on *:dialog:modifrappel:init:*:{
did -a modifrappel 2 1
did -a modifrappel 2 2
did -a modifrappel 2 3
did -a modifrappel 2 4
did -a modifrappel 2 5
did -a modifrappel 2 6
did -a modifrappel 2 7
did -a modifrappel 2 8
did -a modifrappel 2 9
did -a modifrappel 3 Anniversaire
did -a modifrappel 3 Reunion
did -a modifrappel 3 Rendez-vous
did -a modifrappel 3 Autres
did -a modifrappel 6 1
did -a modifrappel 6 2
did -a modifrappel 6 3
did -a modifrappel 6 4
did -a modifrappel 6 5
did -a modifrappel 6 6
did -a modifrappel 6 7
did -a modifrappel 6 8
did -a modifrappel 6 9
did -a modifrappel 6 10
did -a modifrappel 6 11
did -a modifrappel 6 12
did -a modifrappel 7 2007
}
on *:dialog:modifrappel:sclick:10:{
set %rappel $+ $did(2) $did(2) $+ . $did(3) le $did(5) $+ / $+ $did(6) $+ / $+ $did(7) $did(9)
set %date $+ $did(2) $did(5) $+ : $+ $did(6) $+ : $+ $did(7)
dialog -x modifrappel modifrappel
}
on *:start:{
if ($asctime(d:m:yyyy) == %date1) dialog -m alertrappel alertrappel
if ($asctime(d:m:yyyy) == %date1) dialog -m alertrappel alertrappel
if ($asctime(d:m:yyyy) == %date2) dialog -m alertrappel alertrappel
if ($asctime(d:m:yyyy) == %date3) dialog -m alertrappel alertrappel
if ($asctime(d:m:yyyy) == %date4) dialog -m alertrappel alertrappel
if ($asctime(d:m:yyyy) == %date5) dialog -m alertrappel alertrappel
if ($asctime(d:m:yyyy) == %date6) dialog -m alertrappel alertrappel
if ($asctime(d:m:yyyy) == %date7) dialog -m alertrappel alertrappel
if ($asctime(d:m:yyyy) == %date8) dialog -m alertrappel alertrappel
if ($asctime(d:m:yyyy) == %date9) dialog -m alertrappel alertrappel
}
dialog alertrappel {
title "Alert - Rappel"
size -1 -1 170 20
option dbu
text "" 2,18 5 150 10
}
on *:dialog:alertrappel:init:*:{
beep 1
if ($asctime(d:m:yyyy) == %date1) did -a alertrappel 2 Rappel : %rappel1
if ($asctime(d:m:yyyy) == %date2) did -a alertrappel 2 Rappel : %rappel2
if ($asctime(d:m:yyyy) == %date3) did -a alertrappel 2 Rappel : %rappel3
if ($asctime(d:m:yyyy) == %date4) did -a alertrappel 2 Rappel : %rappel4
if ($asctime(d:m:yyyy) == %date5) did -a alertrappel 2 Rappel : %rappel5
if ($asctime(d:m:yyyy) == %date6) did -a alertrappel 2 Rappel : %rappel6
if ($asctime(d:m:yyyy) == %date7) did -a alertrappel 2 Rappel : %rappel7
if ($asctime(d:m:yyyy) == %date8) did -a alertrappel 2 Rappel : %rappel8
if ($asctime(d:m:yyyy) == %date9) did -a alertrappel 2 Rappel : %rappel9
}

dialog rappel {
  title "Gestion des Rappel"
  size -1 -1 180 110
  option dbu
  box "( Gestion des Rappel )" 1, 5 4 170 100
  list 2,15 16 150 10
  list 3,15 24 150 10
  list 4,15 32 150 10
  list 5,15 40 150 10
  list 6,15 48 150 10
  list 7,15 56 150 10
  list 8,15 64 150 10
  list 9,15 72 150 10
  list 10,15 80 150 10
  button "Modifier" 11,68 92 50 10
}

on *:dialog:rappel:init:*:{

  did -a rappel 2 %rappel1
  did -a rappel 3 %rappel2
  did -a rappel 4 %rappel3
  did -a rappel 5 %rappel4
  did -a rappel 6 %rappel5
  did -a rappel 7 %rappel6
  did -a rappel 8 %rappel7
  did -a rappel 9 %rappel8
  did -a rappel 10 %rappel9

}

on *:dialog:rappel:sclick:11:{

  dialog -m modifrappel modifrappel

} 


dialog modifrappel {
  title "Modification des rappel"
  size -1 -1 245 46
  option dbu
  text "Rappel N°" 1, 5 5 40 10
  combo 2, 35 3 18 10,drop
  combo 3, 60 3 50 10,drop
  text "Le :" 4, 115 5 40 10
  edit "1" 5,130 3 10 10
  combo 6,145 3 40 10,drop
  edit "" 7,192 3 40 10
  text "Info :" 8, 5 23 20 10
  edit "" 9,25 23 120 10
  button "Ok" 10,150 23 50 10
}

on *:dialog:modifrappel:init:*:{

  did -a modifrappel 2 1
  did -a modifrappel 2 2
  did -a modifrappel 2 3
  did -a modifrappel 2 4
  did -a modifrappel 2 5
  did -a modifrappel 2 6
  did -a modifrappel 2 7
  did -a modifrappel 2 8
  did -a modifrappel 2 9

  did -a modifrappel 3 Anniversaire
  did -a modifrappel 3 Reunion
  did -a modifrappel 3 Rendez-vous
  did -a modifrappel 3 Autres

  did -a modifrappel 6 1
  did -a modifrappel 6 2
  did -a modifrappel 6 3
  did -a modifrappel 6 4
  did -a modifrappel 6 5
  did -a modifrappel 6 6
  did -a modifrappel 6 7
  did -a modifrappel 6 8
  did -a modifrappel 6 9
  did -a modifrappel 6 10
  did -a modifrappel 6 11
  did -a modifrappel 6 12

  did -a modifrappel 7 2007
}

on *:dialog:modifrappel:sclick:10:{

  set %rappel $+ $did(2) $did(2) $+ . $did(3) le $did(5) $+ / $+ $did(6) $+ / $+ $did(7) $did(9)
  set %date $+ $did(2) $did(5) $+ : $+ $did(6) $+ : $+ $did(7)
  dialog -x modifrappel modifrappel

}


on *:start:{ 

  if ($asctime(d:m:yyyy) == %date1) dialog -m alertrappel alertrappel
  if ($asctime(d:m:yyyy) == %date1) dialog -m alertrappel alertrappel
  if ($asctime(d:m:yyyy) == %date2) dialog -m alertrappel alertrappel
  if ($asctime(d:m:yyyy) == %date3) dialog -m alertrappel alertrappel
  if ($asctime(d:m:yyyy) == %date4) dialog -m alertrappel alertrappel 
  if ($asctime(d:m:yyyy) == %date5) dialog -m alertrappel alertrappel 
  if ($asctime(d:m:yyyy) == %date6) dialog -m alertrappel alertrappel
  if ($asctime(d:m:yyyy) == %date7) dialog -m alertrappel alertrappel
  if ($asctime(d:m:yyyy) == %date8) dialog -m alertrappel alertrappel
  if ($asctime(d:m:yyyy) == %date9) dialog -m alertrappel alertrappel


}


dialog alertrappel {
  title "Alert - Rappel"
  size -1 -1 170 20
  option dbu 
  text "" 2,18 5 150 10
}

on *:dialog:alertrappel:init:*:{
  beep 1
  if ($asctime(d:m:yyyy) == %date1) did -a alertrappel 2 Rappel : %rappel1 
  if ($asctime(d:m:yyyy) == %date2) did -a alertrappel 2 Rappel : %rappel2 
  if ($asctime(d:m:yyyy) == %date3) did -a alertrappel 2 Rappel : %rappel3
  if ($asctime(d:m:yyyy) == %date4) did -a alertrappel 2 Rappel : %rappel4 
  if ($asctime(d:m:yyyy) == %date5) did -a alertrappel 2 Rappel : %rappel5 
  if ($asctime(d:m:yyyy) == %date6) did -a alertrappel 2 Rappel : %rappel6 
  if ($asctime(d:m:yyyy) == %date7) did -a alertrappel 2 Rappel : %rappel7 
  if ($asctime(d:m:yyyy) == %date8) did -a alertrappel 2 Rappel : %rappel8 
  if ($asctime(d:m:yyyy) == %date9) did -a alertrappel 2 Rappel : %rappel9 

}

Conclusion

Il y a certe encore de petites ameliorations a faire , je ferais d'ici quelque jour une mise a jour de la source ^^ !!!

Historique

20 octobre 2007 16:43:27 :: suppression d'une ligne qui plantai :)

Sources de la même categorie

Toutes les sources de la catégorie Divers

Sources en rapport avec celle ci

Commentaires

Commentaire de uaip le 21/10/2007 00:56:48

mouai, pas bête l'idée.
pense cependant a regrouper certains trucs comme les events dialog
on *:dialog:rappel:*:*:{
if ($devent == ini) { ... }
if ($devent == sclick) && ($did == 11) {... }
}
etc...
et puis, je vois pas trop l'utilité des 9 listes, là...
par contre, un truc plus important :
de ca :

did -a modifrappel 2 1
did -a modifrappel 2 2
did -a modifrappel 2 3
did -a modifrappel 2 4
did -a modifrappel 2 5
did -a modifrappel 2 6
did -a modifrappel 2 7
did -a modifrappel 2 8
did -a modifrappel 2 9

did -a modifrappel 6 1
did -a modifrappel 6 2
did -a modifrappel 6 3
did -a modifrappel 6 4
did -a modifrappel 6 5
did -a modifrappel 6 6
did -a modifrappel 6 7
did -a modifrappel 6 8
did -a modifrappel 6 9
did -a modifrappel 6 10
did -a modifrappel 6 11
did -a modifrappel 6 12

tu peux passer a ca :

var %a 1 | while (%a <= 9) { did -a modifrappel 2 %a | inc %a }
var %a 1 | while (%a <= 12) { did -a modifrappel 6 %a | inc %a }

c'est quand même mieux, non ?
voila voila, et pense aussi à corriger les fautes, ca fait mauvaise impression dans un code (tu dis "des rappel" à 2 reprises)
Commentaire de RCA ArKanis le 21/10/2007 12:11:59

7/10 ? eh ben, t'es généreux je trouve :x

pense à utiliser des boucles ... ton code s'en retrouvera réduit à 15% de sa taille actuelle

au lieu d'utiliser des variables %date, utilise des fichiers .ini, c'est largement mieux pour stocker des infos

Pas très utile en soit, vu que trop limité ... 9 évènements seulement :(

regroupe tes évènements ON DIALOG :
on *:dialog:<le nom de la boîte de dialogue>:*:*:{
  if ($devent == init) {
    ...
  }
  elseif ($devent == sclick) {
    if ($did == 1) { ... }
    ...
  }
}
Commentaire de uaip le 21/10/2007 12:16:42

Doudis, Arakanis n'ayant [surement :p] pas lu mon post et ayant dit la même chose, ca renforce l'idée que c'est important de changer ces détails...
Arakanis, bah euh.. ué, jai mis 7 pour motiver (c'est plus gréable que de recevoir des 3 ou 4 pour une premiere source) et puis c'est deja mieux ca que la commande ping de minerbe =P
Commentaire de RCA ArKanis le 21/10/2007 12:21:29

j'avais juste pas vu le truc des dialogues :D

l'histoire des boucles prend tellement de place que je n'ai vu que ça :p
Commentaire de wims le 22/10/2007 19:40:32

ça n'a aucun interet de donné un 7/10 pour motivé, parce que un type qui fait dla merde et qui débute, si tu lui met des 7/10 tout le temps, forcément il va pas s'amélioré (et donc, il continura a faire des trucs déja vu, pour pas dire nul), t'es pas obligé de mettre une note, tu peux juste lui dire ce qui va pas + ton opignion, ça suffit, parce que là, c'est vrai que c'est pas original, mal codé, et surtout très "peu".
En ce moment, il y a une tel volonté de posté chez les nouveaux scripteurs, il faut pas poster pour poster, ce que vous posté doit avoir un interet quelconque.Il y en a ici qui post des trucs déja vu assez "merdique", et qui font la une du site a chaque fois pdt une semaine alors que ya des codes qui sont "mortel" comparé a ceux là et dont personne ne parle.

Vous ne faites pas les codes pour les autres, donc ne venez pas posté un auto-join juste pour dire c'est moi qui l'est fait..

Si j'écris plus ça va faire coup de geule (: