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

Ce site au démarrage

begin process at 2010 02 09 22:51:48

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

AGENDA - RAPPEL

Information sur la source

Note :

7,00 / 10

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 :2 556

Auteur : Doudis

Ecrire un message privé

Site perso

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

COMMANDES FANTAISIES ( OP DEOP , VOICE DEVOICE ) ORIGINALES par Orona

CORRECTEUR par Orona

[DLL] DESSINER COMME LES PICWINS SUR UNE DIALOGBOX (BONUS: J... par uaip

[DLL] AJOUT D'UN CONTRÔLE RICHEDIT SCINTILLA SUR LES DIALOG... par uaip

WORLDDMT - GESTION DE CAISSE V 1.0 par WorldDMT

Toutes les sources de la catégorie Divers

Sources en rapport avec celle ci

PROPRIÉTÉS BUREAU WINDOWS ET BARRE DES TÂCHES par Bestdoud

AGENDA / ORGANISER par BSmax

Commentaires et avis

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

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 (:

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Comment Mettre mIRC en un petit icone dans la barre des taches ? [ par Yann1213 ] Bonsoir,J'avais une petite quesion a vous poser, est-ce possible de mettre la fenetre mIRC en un petit icone en bas a droite au lieu que sa soit au mi Faire clignoter icone dans barre des taches [ par ranny ] Salut,existe t-il une commande qui permet de faire clignoter l'icone dans la barre des taches lors d'une remote ? agenda de groupe distribué en RMI [ par imenetrabelsi ] je cherche un code source en rmi d'une agenda de groupe distribué sur internet

Nos sponsors

Derniers Blogs

[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion

TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice

TECHDAYS PARIS 2010 : DéPLOIEMENT DE NOUVELLES TECHNOLOGIES - RETOUR D'EXPéRIENCE PAR L'INFORMATIQUE DE MICROSOFT par ROMELARD Fabrice

TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010 par ROMELARD Fabrice

TECHDAYS PARIS 2010 : LA PLEINIèRE DU SECOND JOUR par ROMELARD Fabrice

Forum

RE : ON RAWMODE par WorldDMT

RE : PROBLEME AVEC UN QUIZZ par vincent67190

RE : PROBLèME FLAG IRCOP par WebiK

AVERTISSMENT ET KIKK par mouhcine951990

RE : PROBLèME FLAG IRCOP par Benjamin37

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

PLATEFORME SUR L ESOTERISME VOYANCE - sans charte graphique
Budget : 3 500€
Joomla 15 module paiement adaptation composant cuisine
Budget : 250€
Integrateur web dans template
Budget : 500€

Logiciels

DB-MAIN (9.1.0)
DB-MAIN (9.1.0)

DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal...

Cliquez pour télécharger DB-MAIN
Xilisoft DPG Convertisseur (5.1.37.0120)
XILISOFT DPG CONVERTISSEUR (5.1.37.0120)

Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé...

Cliquez pour télécharger Xilisoft DPG Convertisseur
GraphicsGale (2.01.01)
GRAPHICSGALE (2.01.01)

GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ...

Cliquez pour télécharger GraphicsGale
Architecte 3D (Platinum 2010)
ARCHITECTE 3D (PLATINUM 2010)

Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é...

Cliquez pour télécharger Architecte 3D
TeamViewer 5 (TeamViewer 5)
TEAMVIEWER 5 (TEAMVIEWER 5)

Dépanner un ami,expliquer une manipulation devient un jeu d'enfant. Prise en main d'un autre ord...

Cliquez pour télécharger TeamViewer 5