Discussion :

[Smerlee]

Bonjour,
J'ai pour projet personnel de faire un lanceur de programme sous WinDev 21, mais je suis actuellement bloqué à une certaine partie depuis maintenant plusieurs jours. Je précise que je suis très débutant en WinDev et en programmation en général.
Merci d'avance à tous ceux qui m'aiguilleront vers la solution.

Le problème auquel je fais face concerne la temporisation à la fin de mon code et la saisie de l'intervalle au début.
Mon but est que lors de la saisie de l'intervalle par l'utilisateur en format HHMMSS, si il rentre par exemple "000003" la temporisation sera de 3 seconde avant la réexécution du Shell exécute puis de la temporisation à nouveau et ainsi de suite indéfiniment, si il rentre "001232" la temporisation sera de 12 minutes et 32 secondes, si il rentre "012312" la temporisation sera de 1 heures 23 minutes et 12 secondes.

Cependant, lorsque j'entre dans la saisie de l'intervalle "000003" le Shell exécute ne se fait pas toutes les 3 secondes mais par défaut environ toutes les 8 secondes et je ne comprends pas pourquoi.

Voici mon code qui se trouve dans un bouton sous WinDev 21 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
sRépertoire est une chaîne
sRépertoire = fSélecteur("Ce PC", "", "", ".")
 
LIB_cheminfichier =  sRépertoire
SI sRépertoire <> "" ALORS
	LIB_cheminfichier =  sRépertoire
SINON
	LIB_cheminfichier = "Aucun fichier"
FIN
 
dAtedepart est une Date = Saisie("Veuillez sélectionner la date de départ", dAtedepart)
hEuredepart est une Heure = Saisie("Veuillez sélectionner l'heure de départ", hEuredepart)
nIntervalle est une chaîne = Saisie("Veuillez saisir l'intervalle sous forme  : HHMMSS", nIntervalle)
DateHeureDepart est une DateHeure
 
SI dAtedepart = Null ET hEuredepart = Null ALORS
	DateHeureDepart = DateHeureSys()
SINON SI dAtedepart = Null ALORS
	dAtedepart = DateSys()
FIN
 
TANTQUE 2>1
         tempsattente est un entier = 0
	SI Taille(nIntervalle) = 6 ALORS
		nIntervalle = Gauche(nIntervalle, 2) + ":" + Milieu(nIntervalle, 3, 4) + ":" + Droite(nIntervalle, 2)
	FIN
 
	SI Val(Gauche(nIntervalle, 2)) > 0 ALORS
		tempsattente += Val(Gauche(nIntervalle, 2)) * 3600 // heures --> secondes
	FIN
 
	SI Val(Milieu(nIntervalle, 3, 4)) > 0 ALORS
		tempsattente += Val(Milieu(nIntervalle, 3, 4)) * 60 // minutes --> secondes
	FIN
 
	SI Val(Droite(nIntervalle, 2)) > 0 ALORS 
		tempsattente += Val(Droite(nIntervalle, 2)) // secondes
	FIN
 
	SI Val(nIntervalle) < 1000 ALORS
		tempsattente = Val(nIntervalle)
	SINON
		tempsattente = Val(nIntervalle) / 1000
	FIN
        tempsattente = tempsattente * 1000 // secondes --> millisecondes
 
        ShellExecute(sRépertoire)
        Temporisation(tempsattente)
FIN

[frenchsting]

Bonjour,

Tout le monde a été débutant un jour...

Utilise les balises CODE pour plus de lisibilité (bouton #).

Ta variable nIntervalle est une chaine et tu la préfixes "n" qui correspond plutôt à un numérique (entier). Il vaut mieux utiliser un préfixe s (string) ou chn. Ca n'empêche pas le code de fonctionner mais ça évite des erreurs...

Ta boucle TANTQUE 2>1 est assez déroutante dans le sens, ou elle est inutile (2 sera toujours supérieur à 1)

Pour répondre à ta question, il vaut mieux utiliser la fonction TimerSys() pour lancer ton code.

[Voroltinquo]

Bonjour,
J'ajouterai six choses à la remarque de frenchsting.
1-Outre le balisage, le préfixage, le fait de mettre tes déclarations en plein milieu de code fait brouillon, le code n'a pas été pensé et ne facilite pas la lisibilité.
2-Ne prend pas la mauvaise habitude de coder à même le bouton, c'est intestable. Le bouton est là pour appeler une fonction/Procédure, ou pour 2 ou 3 lignes de code.
3-Pourquoi ne pas utiliser une variable durée pour ton intervalle ?
4-Saisie renvoie 0 ou 1 et tu affectes cette valeur à la variable qui reçoit ce résultat
5-L'utilisation de Null est ardue pour un débutant et encore plus en WLangage qu'ailleurs. En règle générale, Null signifie non affecté ou inconnu. Tu compares un dateheure ou un date avec Null, hors lorsque tu déclares un date, un dateheure ou un heure, la variable est initialisée avec la valeur système correspondante donc ne sera jamais Null. Donc dans tous les cas de figure, DateHeureDepart sera toujours DateheureSys, en effet, tu ne l'affectes jamais. D'ailleurs, tu ne l'utilises pas non plus à part dans ta comparaison avec Null
Il est préférable d'écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
dDébut est une Date
hDebut est une Heure
duIntervalle est une durée
dhDébut est dateheure
 
//Saisie des données
Saisie("Saisissez la date de début", dDébut)
Saisie("Saisissez l'heure de début", hDébut)
Saisie("Saisissez la durée", duIntervalle)
//Affectation
dhDébut..PartieDate=dDébut
dhDébut..PartieHeure=hDébut
 
BOUCLE
     LanceAppliAssociée(saRépertoire)
     Temporisation(duIntervalle..EnSeconde*100,tempoSourisEtClavier) //Autre syntaxe : Temporisation(duIntervalle,tempoSourisEtClavier)
FIN

6-Au niveau de l'utilisateur, faire 3 validations, n'est pas agréable. Pourquoi ne pas créer une fenêtre de saisie avec les champ adéquates (comme Sheila.)

Comme le faisais remarquer frenchsting, TANTQUE 2>1 va boucler indéfiniment, si c'est le résultat souhaité, pourquoi ne pas utiliser BOUCLE qui serait moins déroutant. Il faut toutefois se donner (dans les 2 cas) la possibilité de sortir. Quelle que soit la méthode, ta boucle devient bloquante, i.e. tant qu'elle tourne tu ne pourra plus utiliser ta fenêtre. Pour éviter ce problème, il faut lancer la boucle dans un thread secondaire. Un sujet similaire a été traité ici

En ce qui concerne la durée, l'appli que tu lances dure peut être 5 sec. Il faudrait utiliser l'outil d'audit statique

[Smerlee]

Bonjour, tout d'abord, merci Voroltinquo et frenchsting pour vos réponses, je les ai pris en compte.

Cependant Voroltinquo, il y a un point que je n'ai pas compris "4 - Saisie renvoie 0 ou 1 et tu affectes cette valeur à la variable qui reçoit ce résultat".

[serendib]

Cependant Voroltinquo, il y a un point que je n'ai pas compris "4 - Saisie renvoie 0 ou 1 et tu affectes cette valeur à la variable qui reçoit ce résultat".

Bonjour Smerlee,

Entre nous, je pense que tu devrais commencer par le commencement :
Un petit (voir grand) tour par le cours d'autoformation.
J'ai du mal à comprendre ces jeunes qui se lancent au volant d'une F1 sans avoir le permis.

Ceci dit en toute cordialité.
Bien entendu, tu peux toujours persister dans cette voie, il y aura toujours quelqu'un ici, pour faire ton travail.
Mais ceux qui te filent du poisson te file, en fait, du poison.

A bon entendeur...

[Voroltinquo]

Cependant Voroltinquo, il y a un point que je n'ai pas compris "4 - Saisie renvoie 0 ou 1 et tu affectes cette valeur à la variable qui reçoit ce résultat".

Je cite une partie la doc de "Saisie"

<Résultat> : Entier
Identifie la réponse sélectionnée par l'utilisateur :
0 : l'utilisateur a cliqué sur le bouton "Annuler".
1 : l'utilisateur a cliqué sur le bouton "OK".

Tu as des lignes du type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
MaVar=Saisie("Saisissez Mavar",MaVar)

Si tu appuies sur "Annuler" MaVar vaudra "0" (resp. 0) et "1" (resp 1) si tu appuies sur "OK"
Tu peux facilement vérifier ça avec le mode pas à pas

Entre nous, je pense que tu devrais commencer par le commencement :
Un petit (voir grand) tour par le cours d'autoformation.

Sans oublier de consulter la doc. La mienne (celle de WD 10) est passée chez le relieur plusieurs fois et est couverte d'annotations (c'est pour ça que j'utilise toujours celle de WD 10.)
Dans ton cas tu utilise des variable liées au temps. Il y a un chapitre qui leur est consacrées, avec en autre les fonctions et propriétés de ce type de variable.

[Smerlee]

Je cite une partie la doc de "Saisie"

Tu as des lignes du type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
MaVar=Saisie("Saisissez Mavar",MaVar)

Si tu appuies sur "Annuler" MaVar vaudra "0" (resp. 0) et "1" (resp 1) si tu appuies sur "OK"
Tu peux facilement vérifier ça avec le mode pas à pas


Sans oublier de consulter la doc. La mienne (celle de WD 10) est passée chez le relieur plusieurs fois et est couverte d'annotations (c'est pour ça que j'utilise toujours celle de WD 10.)
Dans ton cas tu utilise des variable liées au temps. Il y a un chapitre qui leur est consacrées, avec en autre les fonctions et propriétés de ce type de variable.

[tbc92]

Tu as une boucle TANTQUE 2>1 ... FIN
Je ne vais pas te le reprocher, c'est quelque chose que je fais (régulièrement).

Normalement, tu devrais avoir :
Etape 1 saisie des paramètres, controle de validité , etc.
A la fin de cette étape 1, ta variable tempsattente devrait être connue, et figée. On n'y touche plus.
Et après cette étape 1, tu devrais avoir ta boucle TANTQUE 2>1 ou quelque chose plus propre.

Donc toutes les instructions qui servent à calculer tempsattente, elles devraient être avant la ligne 'TANTQUE 2>1'.

Et toutes ces instructions, j'ai l'impression qu'elles peuvent être remplacées par une seule instruction, parce que Windev est un outil qui te mâche le travail à l'extrême. Quand tu as une variable de type durée, Windev sait que "011000", c'est 1 heure 10 minutes, et c'est 4200 secondes. Il n'y a donc rien à faire pour convertir "011000" en 4200, il suffit de travailler avec une variable de type durée.

3ème point : ShellExecute (ou LanceAppliAssociee en français), c'est généralement utilisé pour ouvrir un fichier : on sélectionne un fichier XLS, et LanceAppliAssociée détecte qu'il faut lancer Excel, et ouvrir ce fichier. (Comme le double-clic dans l'explorateur de fichier). Si tu sais que le fichier à lancer est un exécutable, c'est plus propre d'utiliser LanceAppli() au lieu de LanceAppliAssociee(). Et dans ce cas, tu peux spécifier un paramètre : Lancer l'appli, et attendre qu'elle se termine (et on ne sait pas combien de temps attendre ... peut-être plus de 3 secondes), ou alors Lancer l'appli (en tache parallèle en quelque sorte), et reprendre la main instantanément... pour lancer un chronomètre qui va temporiser pendant 3 secondes.

4ème point : Serendib a totalement raison : il faut lire l'autoformation, faire les différents exercices, passer quelques jours à se former, avant de se lancer dans un mini travail personnel.
Voici un lien intéressant.

J'ajoute un point : l'aide en ligne de Windev est vraiment très bien faite. C'est l'atout majeur de Windev, surtout pour un francophone. Quand tu utilises une fonction (la fonction saisie par exemple), il faut absolument aller voir l'aide, pour comprendre le fonctionnement de cette fonction. Et il faut lire la page entière, même si on est persuadé de comprendre tout tout de suite. Ca prend 30 secondes ou 1 minute, et ça permet souvent d'économiser une heure voire beaucoup plus. Et il ne faut pas hésiter à regarder les 'Voir Aussi', ça présente d'autres outils qui peuvent être plus adaptés que la page que tu es en train de regarder. Pendant des années, j'étais déjà un développeur très confirmé, mais je prenais au moins une heure par semaine à naviguer au hasard dans les pages d'aide de Windev, juste pour consolider mes connaissances, sans but précis.