ASV SIMPLE ET CLAIRE

Information sur la source

Catégorie :AddOns Classé sous : asv Niveau : Débutant Date de création : 08/09/2006 Date de mise à jour : 10/09/2006 09:17:45 Vu / téléchargé: 2 209 / 51

Auteur : Dragounix

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (22)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

voila jai créer un asv hiere soire je vien de la finir aujoudhui c'est ma premier source soyè simpa svp a+ =))

Source

menu menubar {
Asv:dialog -m Lasv Lasv
}
dialog Lasv {
title "°-=~ Asv ~=-°"
size -1 -1 185 216
option dbu
box "Asv Information Personnel", 1, 2 1 181 196
text " Age ", 2, 7 29 31 9
text " Sexe ", 3, 7 43 31 9
text " Ville ", 4, 7 57 31 9
text " Poids", 5, 7 75 31 9
text " Couleur de t'es cheveux", 6, 7 87 69 9
text " Couleur de t'es yeux", 7, 7 96 61 9
text " Taille", 8, 7 109 31 9
text " E-mail", 9, 7 118 31 9
text " Portable", 10, 7 127 31 9
text " Prénom", 11, 7 20 31 9
text " Nom", 12, 7 11 31 9
edit %nom, 13, 50 11 57 10, autohs
edit %prenom, 14, 50 20 57 10, autohs
edit %age, 15, 50 29 57 10, autohs
edit %ville, 17, 50 57 57 10, autohs
edit %poids, 18, 50 75 57 10, autohs
edit %cheveux, 19, 80 87 57 10, autohs
edit %yeux, 20, 80 96 57 10, autohs
edit %taille, 21, 50 108 57 10, autohs
edit %mail, 22, 50 117 57 10, autohs
edit %portable, 23, 50 126 57 10, autohs
text " Asv normal ex: 20 h 94", 24, 7 139 66 9
edit %asv, 25, 82 138 57 10, autohs
button "Dire tout", 26, 6 150 47 9
button "Dire seulement le sexe", 27, 5 160 74 9
button "Dire seulement son asv normal", 28, 5 170 86 9
button "Dire seulement son prénom et son nom", 29, 55 150 105 9
button "Enregistrer", 30, 5 200 46 12, ok
button "Annuler", 31, 55 200 39 12, cancel
radio "Homme", 16, 50 43 28 10
radio "Femme", 32, 80 43 29 10
button "Dire seulement son e-mail", 33, 80 160 78 9
button "Dire en notice sur le salon ou priver choisie", 34, 5 180 107 9
text " Caractère ", 35, 7 66 32 9
edit %caractere, 36, 50 66 57 10, autohs
button "Dire en priver choisie", 38, 93 170 61 9
button "Dire sur un salon choisie", 39, 114 180 66 9
}
on *:dialog:Lasv:*:*:{
if ($devent == edit) {
if ($did == 13) set %nom $did(13)
if ($did == 14) set %prenom $did(14)
if ($did == 15) set %age $did(15)
if ($did == 17) set %ville $did(17)
if ($did == 18) set %poids $did(18)
if ($did == 19) set %cheveux $did(19)
if ($did == 20) set %yeux $did(20)
if ($did == 23) set %portable $did(23)
if ($did == 22) set %mail $did(22)
if ($did == 25) set %asv $did(25)
if ($did == 21) set %taille $did(21)
if ($did == 36) set %caractere $did(36)
}
if ($devent == sclick) {
if ($did == 16) set %sexe homme
if ($did == 27) {
if (%sexe == homme) msg $active Je suis Un Homme
if (%sexe == femme) msg $active Je suis Une Femme
}
elseif ($did == 26) msg $active Je m'appelle %nom %prenom jai %age ans je suis un/une %sexe j'abite a %ville je pèse %poids kg la couleur de mes yeux %yeux la couleur de mes cheveux %cheveux je mesure %taille je suis %caractere mon e-mail %mail mon numero de portable %portable
elseif ($did == 28) msg $active Mon asv est %asv
elseif ($did == 29) msg $active Je m'appelle %nom %prenom
elseif ($did == 32) set %sexe femme
elseif ($did == 33) msg $active Mon adresse e-mail est %mail
elseif ($did == 34) {
set %notice $$?="Pseudo ou Salon ?"
notice %notice $me Je m'appelle %nom %prenom jai %age ans je suis un/une %sexe j'abite a %ville je pèse %poids kg la couleur de mes yeux %yeux a couleur de mes cheveux %cheveux je mesure %taille je suis %caractere mon e-mail %mail mon numero de portable %portable
}
if ($did == 38) {
set %pseudo $$?="Pseudo ?"
msg %pseudo Je m'appelle %nom %prenom jai %age ans je suis un/une %sexe j'abite a %ville je pèse %poids kg la couleur de mes yeux %yeux la couleur de mes cheveux %cheveux je mesure %taille je suis %caractere mon e-mail %mail mon numero de portable %portable
}
if ($did == 39) {
set %salon $$?="Salon ?"
msg %salon Je m'appelle %nom %prenom jai %age ans je suis un/une %sexe j'abite a %ville je pèse %poids kg la couleur de mes yeux %yeux la couleur de mes cheveux %cheveux je mesure %taille je suis %caractere mon e-mail %mail mon numero de portable %portable
}
}
if ($devent == init) {
if (%sexe == homme) did -c Lasv 16
if (%sexe == femme) did -c Lasv 32
}
}

menu menubar {
  Asv:dialog -m Lasv Lasv
}

dialog Lasv {
  title "°-=~ Asv ~=-°"
  size -1 -1 185 216
  option dbu
  box "Asv Information Personnel", 1, 2 1 181 196
  text "     Age  ", 2, 7 29 31 9
  text "     Sexe  ", 3, 7 43 31 9
  text "     Ville  ", 4, 7 57 31 9
  text "     Poids", 5, 7 75 31 9
  text "     Couleur de t'es cheveux", 6, 7 87 69 9
  text "     Couleur de t'es yeux", 7, 7 96 61 9
  text "     Taille", 8, 7 109 31 9
  text "     E-mail", 9, 7 118 31 9
  text "     Portable", 10, 7 127 31 9
  text "     Prénom", 11, 7 20 31 9
  text "     Nom", 12, 7 11 31 9
  edit %nom, 13, 50 11 57 10, autohs
  edit %prenom, 14, 50 20 57 10, autohs
  edit %age, 15, 50 29 57 10, autohs
  edit %ville, 17, 50 57 57 10, autohs
  edit %poids, 18, 50 75 57 10, autohs
  edit %cheveux, 19, 80 87 57 10, autohs
  edit %yeux, 20, 80 96 57 10, autohs
  edit %taille, 21, 50 108 57 10, autohs
  edit %mail, 22, 50 117 57 10, autohs
  edit %portable, 23, 50 126 57 10, autohs
  text "     Asv normal ex: 20 h 94", 24, 7 139 66 9
  edit %asv, 25, 82 138 57 10, autohs
  button "Dire tout", 26, 6 150 47 9
  button "Dire seulement le sexe", 27, 5 160 74 9
  button "Dire seulement son asv normal", 28, 5 170 86 9
  button "Dire seulement son prénom et son nom", 29, 55 150 105 9
  button "Enregistrer", 30, 5 200 46 12, ok
  button "Annuler", 31, 55 200 39 12, cancel
  radio "Homme", 16, 50 43 28 10
  radio "Femme", 32, 80 43 29 10
  button "Dire seulement son e-mail", 33, 80 160 78 9
  button "Dire en notice sur le salon ou priver choisie", 34, 5 180 107 9
  text "     Caractère  ", 35, 7 66 32 9
  edit %caractere, 36, 50 66 57 10, autohs
  button "Dire en priver choisie", 38, 93 170 61 9
  button "Dire sur un salon choisie", 39, 114 180 66 9
}

on *:dialog:Lasv:*:*:{ 
  if ($devent == edit) {
    if ($did == 13) set %nom $did(13) 
    if ($did == 14) set %prenom $did(14) 
    if ($did == 15) set %age $did(15) 
    if ($did == 17) set %ville $did(17) 
    if ($did == 18) set %poids $did(18) 
    if ($did == 19) set %cheveux $did(19) 
    if ($did == 20) set %yeux $did(20) 
    if ($did == 23) set %portable $did(23) 
    if ($did == 22) set %mail $did(22) 
    if ($did == 25) set %asv $did(25) 
    if ($did == 21) set %taille $did(21) 
    if ($did == 36) set %caractere $did(36) 
  } 
  if ($devent == sclick) { 
    if ($did == 16) set %sexe homme  
    if ($did == 27) { 
      if (%sexe == homme) msg $active Je suis Un Homme 
      if (%sexe == femme) msg $active Je suis Une Femme 
    } 
    elseif ($did == 26) msg $active Je m'appelle %nom %prenom jai %age ans je suis un/une %sexe j'abite a %ville je pèse %poids kg la couleur de mes yeux %yeux la couleur de mes cheveux %cheveux je mesure %taille je suis %caractere mon e-mail %mail mon numero de portable %portable 
    elseif ($did == 28) msg $active Mon asv est %asv 
    elseif ($did == 29) msg $active Je m'appelle %nom %prenom 
    elseif ($did == 32) set %sexe femme 
    elseif ($did == 33) msg $active Mon adresse e-mail est %mail
    elseif ($did == 34) { 
      set %notice $$?="Pseudo ou Salon ?" 
      notice %notice $me Je m'appelle %nom %prenom jai %age ans je suis un/une %sexe j'abite a %ville je pèse %poids kg la couleur de mes yeux %yeux a couleur de mes cheveux %cheveux je mesure %taille je suis %caractere mon e-mail %mail mon numero de portable %portable 
    } 
    if ($did == 38) { 
      set %pseudo $$?="Pseudo ?" 
      msg %pseudo Je m'appelle %nom %prenom jai %age ans je suis un/une %sexe j'abite a %ville je pèse %poids kg la couleur de mes yeux %yeux la couleur de mes cheveux %cheveux je mesure %taille je suis %caractere mon e-mail %mail mon numero de portable %portable 
    }
    if ($did == 39) { 
      set %salon $$?="Salon ?" 
      msg %salon Je m'appelle %nom %prenom jai %age ans je suis un/une %sexe j'abite a %ville je pèse %poids kg la couleur de mes yeux %yeux la couleur de mes cheveux %cheveux je mesure %taille je suis %caractere mon e-mail %mail mon numero de portable %portable
    } 
  }
  if ($devent == init) { 
    if (%sexe == homme) did -c Lasv 16 
    if (%sexe == femme) did -c Lasv 32 
  }
}

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Lasv.txt 4 504 octets
Readme.txt 198 octets

Télécharger le zip

Historique

08 septembre 2006 18:22:19 :: changement de la source. merci pour ton aide atlentisfr =)
08 septembre 2006 20:38:37 :: enlevement des couleurs je voie que des couleurs de ma source se sen volatilisé je voi pas pourquoi.. je mé la source en telechargement pour les couleurs voila a+ =))
08 septembre 2006 22:13:38 :: changement de la source remerciment a atlantisfr pour ton aide merci =)))
10 septembre 2006 00:56:36 :: bon le dialog veu pas marché avec les elseif erf alors g mis if pour les $devent == edit pareil pour le sexe g toute eseiller pour le faire marchéba vue ki fonctionne la voila allé a plus je métrai en telechargement pour les couleurs a++ =)
10 septembre 2006 09:17:45 :: sayè enfin terminé =)

Sources du même auteur

ASCII

Toutes les sources de Dragounix

Sources de la même categorie

Toutes les sources de la catégorie AddOns

Commentaires

Commentaire de atlantisfr le 08/09/2006 17:34:20

Les dialogs d'ASV c'est du vu et revu. Si tu approtes des nouveauter comme un ASV en picwin, skinnable et encore le systeme d'ASV c'est pas trés utile. Niveau code, utilise des identifieurs $devent et $did, quand tu as une seule commande par $did retire les { }.

Exemple :
on *:dialog:Lasv:*:*:{
  if ($devent == edit) {
    if ($did == 13) set %nom $did(13)
    if ($did == 14) set %prenom $did(14)
    if ($did == 15) set %age $did(15)
    if ($did == 17) set %ville $did(17)
    if ($did == 18) set %poids $did(18)
    if ($did == 19) set %cheveux $did(19)
    if ($did == 20) set %yeux $did(20)
    if ($did == 23) set %portable $did(23)
    if ($did == 22) set %mail $did(22)
    if ($did == 25) set %asv $did(25)
    if ($did == 21) set %taille $did(21)
    if ($did == 36) set %caractere $did(36)
  }
}

Au lieu de :
on *:dialog:Lasv:edit:13:{ set %nom $did(13) }
on *:dialog:Lasv:edit:14:{ set %prenom $did(14) }
on *:dialog:Lasv:edit:15:{ set %age $did(15) }
on *:dialog:Lasv:edit:17:{ set %ville $did(17) }
on *:dialog:Lasv:edit:18:{ set %poids $did(18) }
on *:dialog:Lasv:edit:19:{ set %cheveux $did(19) }
on *:dialog:Lasv:edit:20:{ set %yeux $did(20) }
on *:dialog:Lasv:edit:23:{ set %portable $did(23) }
on *:dialog:Lasv:edit:22:{ set %mail $did(22) }
on *:dialog:Lasv:edit:25:{ set %asv $did(25) }
on *:dialog:Lasv:edit:21:{ set %taille $did(21) }
on *:dialog:Lasv:edit:36:{ set %caractere $did(36) }

Voilà donc essaye d'optimiser ton code, modifie ta source sur le site et on revoit ta note aprés.
Commentaire de RCA ArKanis le 08/09/2006 17:38:13

mets plutôt des elseif que plein de if à la suite, question rapidité d'execution
tu utilises des variables, c'est vraiment pas terrible :/

pas grand intérêt, et le code est bourré de fautes d'orthographe
Commentaire de Dragounix le 08/09/2006 17:40:11

ok atlantisfr merci je le modifi dessuite :)
Commentaire de Dragounix le 08/09/2006 20:42:29

atlantisfr je c'est pas faire un dialog en picwin sui un petit debutent
Commentaire de atlantisfr le 08/09/2006 21:27:33

Dragounix, de bons tutoriaux sur les picwins on était fait par KiNdErMaXi sur ce site.
Commentaire de Panthouffle le 08/09/2006 21:46:31

Le dialog est pas beau, et niveau code, rassemble tout tes évènements, y'a pas seulement qu'avec edit que ça fonctionne, faut aussi le faire avec les autres, en utilisant $devent :

if ($devent == edit) { ... }
elseif ($devent == sclick) { ... }
elseif (...) { ... }

Désolé mais je suis pas persuadé que ce soit une bonne idée de transformer se code en picwin :/
Commentaire de atlantisfr le 08/09/2006 21:52:09

Tu optimises que une partie de tes "On dialog". Cadeau pour cette foi si :

on *:dialog:Lasv:*:*:{
  if ($devent == edit) {
    elseif ($did == 13) set %nom $did(13)
    elseif ($did == 14) set %prenom $did(14)
    elseif ($did == 15) set %age $did(15)
    elseif ($did == 17) set %ville $did(17)
    elseif ($did == 18) set %poids $did(18)
    elseif ($did == 19) set %cheveux $did(19)
    elseif ($did == 20) set %yeux $did(20)
    elseif ($did == 23) set %portable $did(23)
    elseif ($did == 22) set %mail $did(22)
    elseif ($did == 25) set %asv $did(25)
    elseif ($did == 21) set %taille $did(21)
    elseif ($did == 36) set %caractere $did(36)
  }
  if ($devent == sclick) {
    elseif ($did == 16) set %sexe homme
    elseif ($did == 27) {
      elseif (%sexe == homme) msg $active Je suis Un Homme
      elseif (%sexe == femme) msg $active Je suis Une Femme
    }
    elseif ($did == 26) msg $active Je m'appelle %nom %prenom jai %age ans je suis un/une %sexe j'abite a %ville je pèse %poids la couleur de mes yeux %yeux la couleur de mes cheveux %cheveux je mesure %taille je suis %caractere mon e-mail %mail mon numero de portable %portable
    elseif ($did == 28) msg $active Mon asv est %asv
    elseif ($did == 29) msg $active Je m'appelle %nom %prenom
    }
    elseif ($did == 32) set %sexe femme
    elseif ($did == 33) msg $active Mon adresse e-mail est %mail
    elseif ($did == 34) {
      set %notice $$?="Pseudo ou Salon ?"
      notice %notice $me Je m'appelle %nom %prenom jai %age ans je suis un/une %sexe j'abite a %ville je pèse %poids a couleur de mes yeux %yeux a couleur de mes cheveux %cheveux je mesure %taille je suis %caractere mon e-mail %mail mon numero de portable %portable
    }
    elseif ($did == 38) {
      set %pseudo $$?="Pseudo ?"
      msg %pseudo Je m'appelle %nom %prenom jai %age ans je suis un/une %sexe j'abite a %ville je pèse %poids la couleur de mes yeux %yeux la couleur de mes cheveux %cheveux je mesure %taille je suis %caractere mon e-mail %mail mon numero de portable %portable
    }
    elseif ($did == 39) {
      set %salon $$?="Salon ?"
      msg %salon Je m'appelle %nom %prenom jai %age ans je suis un/une %sexe j'abite a %ville je pèse %poids la couleur de mes yeux %yeux la couleur de mes cheveux %cheveux je mesure %taille je suis %caractere mon e-mail %mail mon numero de portable %portable
    }
  }
  if ($devent == init) {
    elseif (%sexe == homme) did -c Lasv 16
    elseif (%sexe == femme) did -c Lasv 32
  }
}
Commentaire de Dragounix le 08/09/2006 21:57:49

au merci atlantisfr :)))) je trouve que c'est mieu arengé merci pour ton aide =)))
Commentaire de atlantisfr le 08/09/2006 22:03:24

Derien Dragounix
Commentaire de RCA ArKanis le 08/09/2006 22:13:36

tu utilises tjrs des variables, donc ça sux encore :(

En effet panthouffle, le rendre en PW, c'est inutile, déjà qu'il ne l'est pas beaucoup ;)
Tu aurais beaucoup plus de lignes, et ça ne rendrait pas terrible

faire des PWs pour des trucs compliqués, OK, mais pour ça, pas d'accord :)
Ca ne mérite pas qu'on y passe plus d'une heure à mon avis :p

tu as oublié ELSEif pour if ($devent == sclick)
Commentaire de Dragounix le 08/09/2006 23:00:10

atlantisfr ma source veu plu marché :(
Commentaire de RCA ArKanis le 09/09/2006 00:19:55

if ($devent == edit) {
    elseif ($did == 13) set %nom $did(13)

puis   if ($devent == sclick) {
    elseif ($did == 16) set %sexe homme

  if ($devent == init) {
    elseif (%sexe == homme) did -c Lasv 16

deviennent (dans l'ordre)

if ($devent == edit) {
    if ($did == 13) set %nom $did(13)

puis   elseif ($devent == sclick) {
    if ($did == 16) set %sexe homme

  elseif ($devent == init) {
    if (%sexe == homme) did -c Lasv 16

en gros, tu ne peux pas faire que ta première condition soit un ELSEIF (ce qui est tout à fait logique)
Commentaire de S333 le 09/09/2006 11:51:36

set %notice $$?="Pseudo ou Salon ?"
notice %notice $me Je m'app...

Notice $$?="Pseudo ou Salon ?" $me Je m'appelle...
Ca revient au même :) et au moins, tu ne crées pas une variable.

Comme l'a dit arkanis, il y a souvent des elseif qui commencent une série de if...
C'est if truc, sinon(elseif) truc,sinon etc...

Il y a aussi une erreur dans le if $devent = sclick, à l'endroit de elseif ($did == 29)
Tu as mis une accolade fermée } alors que tu ne l'as pas ouverte dans le elseif(ce qui était d'ailleurs bon). Il faut la supprimmée, parce que tout ce qui suis ne fait pas parti du on click. Même si ça marche comme ça... puisque, on ne peut edit un boutton ou scroll, enfin... un dclick, un uclick, rclick, drop, réagissent aussi dans ce cas. Donc autant les intégrer au sclick.

--- Encore un rappel ---
Lorsque vous utilisez des variables globales(set) dans un add-on... il serait préférable que ces variables ne soient pas déjà utilisées par un autre add-on... Donc mettez des choses plus spécifiques... %pseudo %salon... ce sont des choses qui ont grande chance d'être déjà utilisées... même si on essaie de moins en moins utiliser les variables globales.
Commentaire de Dragounix le 09/09/2006 19:42:22

ok merci a vous deux je vait eseillé de le re faire marché =))
Commentaire de Dragounix le 09/09/2006 20:43:40

je ne comprend pas trop rca arkanis je suis nul je sui vrment un ti debutent qui c'est rien faire :(( snif
Commentaire de RCA ArKanis le 09/09/2006 20:56:51

ben j'ai tout dit, si tu comprends pas, relis plusieurs fois ce que s333 et moi avons dit, jusqu'à ce que tu comprennes.

en gros, tu ne peux pas commencer une série de ELSEIF s'il n'y a pas un IF tout au début
pour "rappel", elseif signifie SINON SI
le schéma "if, elseif, else" signifie :
Si (...) alors ...
Sinon si (...) alors ...
Sinon ...

toi ce que tu as fait, c'est ça :
Sinon si (...) alors ...
Sinon ...

j'espère que tu comprends qu'il n'est pas possible de commencer par "SINON SI"
Commentaire de Dragounix le 09/09/2006 21:00:21

ok merci rca arkanis je relit plain de foi comme ça jai pigé merci pour toute votre aides =))))
Commentaire de CestFortEnChocolat le 12/09/2006 20:44:26

juste une opinion, pourquoi ne pas utiliser $iif ?
Si la personne n'a pas mis son numéro de portable par exemple...

alors on met lors du msg $active : $iif(%telephone,Mon num de portable est : $v1)

pour
#   if ($devent == init) {
#     if (%sexe == homme) did -c Lasv 16
#     if (%sexe == femme) did -c Lasv 32

ca serai plus utile de faire
if $devent == init { did -c lasv $iif(%sexe == homme,16,32) }
enfin je pense ^^

Bonne continuation
Commentaire de Dragounix le 13/09/2006 15:37:46

ok merci CestFortEnChocolat ^^
Commentaire de CestFortEnChocolat le 20/09/2006 13:54:27

pourquoi ne pas regrouper toutes ces variables
en un seul fichier INI ?

renseigne toi dessus

/writeini /remini
$readini

Bonne continuation
Commentaire de Keanu85 le 22/09/2006 11:08:35

addonds basique ^^ et en plus le dialogue y a plein de perte de place :o tu tes pas cassé le ***
Commentaire de Dragounix le 25/09/2006 14:41:32

lol je debute en scripting :o)