FATAL-ERROR

Forum des concepteurs-développeurs de la formation HALF-LIFE/UNREAL
 
AccueilFAQRechercherS'enregistrerMembresGroupesConnexion

Partagez | 
 

 Extrait de travail

Aller en bas 
AuteurMessage
Cédric
Admin
Admin
avatar

Nombre de messages : 86
Age : 39
Localisation : Dans Ton Cul
Date d'inscription : 31/01/2007

MessageSujet: Extrait de travail   Lun 12 Fév - 13:45

plop petit extrait de code que j'ai fais sous webdev
Code:
//declaration des variable N, N1 ect... representant les mois sélectionnés pour l'analyse
N,N1,N2,NA1,N1A1,N2A1 sont des chaînes
//désignation du chemin tempo dans le repertoire temporaire du systeme de l'utilisateur pour stocker les infos
tempo est une chaîne
tempo=fRépertoireTemp()
N=UploadCopieFichier(Sai_Mois,tempo,"N")
N1=UploadCopieFichier(Sai_Mois,tempo,"N-1")
N2=UploadCopieFichier(Sai_Mois,tempo,"N-2")
NA1=UploadCopieFichier(Sai_Mois,tempo,"NA-1")
N1A1=UploadCopieFichier(Sai_Mois,tempo,"N-1A-1")
N2A1=UploadCopieFichier(Sai_Mois,tempo,"N-2A-1")
//verification du fichier sélectionner non vide et bien de type .txt
SI  Sai_Mois ="" OU Droite(N,4)<>".txt" OU Droite(N1,4)<>".txt" OU Droite(N2,4)<>".txt"...
OU Droite(NA1,4)<>".txt" OU Droite(N1A1,4)<>".txt" OU Droite(N2A1,4)<>".txt" ALORS
   Info("veuillez selectionner un fichier txt")
//enregistrement des données   
SINON
   SELON BTN_Choix..Libellé
   CAS "Mois N" :
      Lib_TextEtat..Visible=Vrai
      BTN_Choix..Libellé="Mois N-1"
      UploadCopieFichier(Sai_Mois,tempo,"N")
   CAS "Mois N-1" : 
      BTN_Choix..Libellé="Mois N-2"
      Lib_TextEtat..Valeur="Vous avez sélectionné le deuxième mois, merci de choisir le mois N-2 ."
      Lib_TextEtat..Couleur=iRougeFoncé
      UploadCopieFichier(Sai_Mois,tempo,"N-1")
   CAS "Mois N-2" :
      BTN_Choix..Libellé="Mois N de Année-1"
      Lib_TextEtat..Valeur="Vous avez sélectionné le mois N-2 , merci de choisir le mois N de l'année PRECEDENTE."
      UploadCopieFichier(Sai_Mois,tempo,"N-2")
   CAS "Mois N de Année-1" :
      BTN_Choix..Libellé="Mois N-1 de Année-1"
      Lib_TextEtat..Valeur="Vous avez sélectionné le mois N de l'année PRECEDENTE , merci de choisir le mois N-1 de l'année PRECEDENTE."
      UploadCopieFichier(Sai_Mois,tempo,"NA-1")
   CAS "Mois N-1 de Année-1" :
      BTN_Choix..Libellé="Mois N-2 de Année-1"
      Lib_TextEtat..Valeur="Vous avez sélectionné le mois N-1 de l'année PRECEDENTE , merci de choisir le mois N-2 de l'année PRECEDENTE."
      UploadCopieFichier(Sai_Mois,tempo,"N-1A-1")
   CAS "Mois N-2 de Année-1" :
      BTN_Choix..Visible=Faux
      Lib_TextEtat..Valeur="Vous avez sélectionné le mois N-2 de l'année PRECEDENTE , cliquez sur envoyer pour voir les valeurs demandées."
      UploadCopieFichier(Sai_Mois,tempo,"N-2A-1")
FIN
FIN

je suis assez content j'arrive pour l'i,nstant a bien m'en sortir , et a mort VB et vive windev et webdev lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://fatalerror.superforum.fr
copain_celine
GOD OF HTML
GOD OF HTML
avatar

Nombre de messages : 141
Age : 32
Localisation : maxeville
Date d'inscription : 01/02/2007

MessageSujet: Re: Extrait de travail   Lun 12 Fév - 16:23

Qu'est ce qui a,qu'est ce qui a toi tu m'engraine????
lol
Sa va mais regarde ce que moi j'ai fait!!!
Toi c'est rien par rapport à moi

//declaration des variable N, N1 ect... representant les mois sélectionnés pour l'analyse
N,N1,N2,NA1,N1A1,N2A1 sont des chaînes
//désignation du chemin tempo dans le repertoire temporaire du systeme de l'utilisateur pour stocker les infos
tempo est une chaîne
tempo=fRépertoireTemp()
N=UploadCopieFichier(Sai_Mois,tempo,"N")
N1=UploadCopieFichier(Sai_Mois,tempo,"N-1")
N2=UploadCopieFichier(Sai_Mois,tempo,"N-2")
NA1=UploadCopieFichier(Sai_Mois,tempo,"NA-1")
N1A1=UploadCopieFichier(Sai_Mois,tempo,"N-1A-1")
N2A1=UploadCopieFichier(Sai_Mois,tempo,"N-2A-1")
//verification du fichier sélectionner non vide et bien de type .txt
SI Sai_Mois ="" OU Droite(N,4)<>".txt" OU Droite(N1,4)<>".txt" OU Droite(N2,4)<>".txt"...
OU Droite(NA1,4)<>".txt" OU Droite(N1A1,4)<>".txt" OU Droite(N2A1,4)<>".txt" ALORS
Info("veuillez selectionner un fichier txt")
//enregistrement des données
SINON
SELON BTN_Choix..Libellé
CAS "Mois N" :
Lib_TextEtat..Visible=Vrai
BTN_Choix..Libellé="Mois N-1"
UploadCopieFichier(Sai_Mois,tempo,"N")
CAS "Mois N-1" :
BTN_Choix..Libellé="Mois N-2"
Lib_TextEtat..Valeur="Vous avez sélectionné le deuxième mois, merci de choisir le mois N-2 ."
Lib_TextEtat..Couleur=iRougeFoncé
UploadCopieFichier(Sai_Mois,tempo,"N-1")
CAS "Mois N-2" :
BTN_Choix..Libellé="Mois N de Année-1"
Lib_TextEtat..Valeur="Vous avez sélectionné le mois N-2 , merci de choisir le mois N de l'année PRECEDENTE."
UploadCopieFichier(Sai_Mois,tempo,"N-2")
CAS "Mois N de Année-1" :
BTN_Choix..Libellé="Mois N-1 de Année-1"
Lib_TextEtat..Valeur="Vous avez sélectionné le mois N de l'année PRECEDENTE , merci de choisir le mois N-1 de l'année PRECEDENTE."
UploadCopieFichier(Sai_Mois,tempo,"NA-1")
CAS "Mois N-1 de Année-1" :
BTN_Choix..Libellé="Mois N-2 de Année-1"
Lib_TextEtat..Valeur="Vous avez sélectionné le mois N-1 de l'année PRECEDENTE , merci de choisir le mois N-2 de l'année PRECEDENTE."
UploadCopieFichier(Sai_Mois,tempo,"N-1A-1")
CAS "Mois N-2 de Année-1" :
BTN_Choix..Visible=Faux
Lib_TextEtat..Valeur="Vous avez sélectionné le mois N-2 de l'année PRECEDENTE , cliquez sur envoyer pour voir les valeurs demandées."
UploadCopieFichier(Sai_Mois,tempo,"N-2A-1")
FIN
FIN
ET REFIN ET TOK!!!!!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
 
Extrait de travail
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» retour au travail....
» [Résolu] Je ne voit plus mes lecteur dans mon poste de travail!!!
» Probleme Virus : au travail,ce n'est pas un mabraze ici!
» conditions de travail Bouygues
» Mais ou va le travail dans les vfx?

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FATAL-ERROR :: News-
Sauter vers: