Mini Application Toute bête VBS (Ultra-débutant)

Version imprimable

26/04/2021, 15h41
legomanfr

1 pièce(s) jointe(s)

Mini Application Toute bête VBS (Ultra-débutant)
Bonjour, premier poste ici. Je suis débutant en VBS, j'aimerais me créer une mini application pour réaliser un calcul tout bête sur une valeur saisi. Voici de façon très qualitatif l'image de ce que je souhaite faire:

(Impossible d'insérer une image ??)
Si jamais l'image s'affiche, le cadre vert correspond au cadre 1, le rouge au cadre 2 et le cercle orange au bouton switch

Bon alors voila, sur une fenetre j'aimerais 2 cadre: On rentre une valeur sur l'un et admettons le carré de cette valeur s'affiche sur le deuxième cadre.

Grace a un bouton switch on pourrais inverser le calcul donc le deuxième cadre afficherais la racine carré.

Je voudrais vraiment que ce soit un outil rapide a utiliser, donc pas de bouton validation pour réaliser le calcul, j'aimerais que le calcul se fasse en "Live" lorsque l'on remplis le premier cadre. Je pensais coder ca en VBS mais si vous avez de meilleurs idée je suis preneur.

Voici un bout de code de ce que j'avais commencé a faire mais je n'arrive pas a aller plus loin.
Code:

1 2 3 4 5 6 7 8 a=1 while a <> 0 a = inputbox("test") a = a/1.15 + 0.01 msgbox a wend
Cordialement, Merci par avance.
26/04/2021, 16h23
ProgElecT

Salut

Regarde ce lien vers l'apprentissage de HTA, cela devrait te permettre de commencer a bricoler une page type web avec interface utilisateur.
26/04/2021, 16h29
legomanfr

Salut merci, cela à l'air bien différent du code VBS.. je vais me renseigner desus alors, je pensais pas que ce serait si compliqué de faire une interface utilisateur

PS: j'aurais du mettre ultra ultra ultra débutant dans le titre. Je suis déja incapable de mettre une saisie dans une variable avec le format .hta
26/04/2021, 16h40
ProgElecT

Re

En fait c'est du HTML avec une interaction fait avec du code VBScript.
Un autre lien d'exemples de réalisation, tu y trouveras plein de codes source.
26/04/2021, 17h27
legomanfr

Merci j'ai été chercher pas mal d'info et de code sources ca a l'air assez puissant en effet, J'ai été incapable de réussir quoi que ce soit !
Je vais laisser tomber cela nécessite de bonnes connaissances en programmation que je n'ai pas
je voulais juste avoir une mini appli très basic qui divise une valeur par 1.15 et ajoute 0.01.

Je ne vais pas me former pendant 20h pour juste cela ^^

Bonne fin de journée

re, bon... j'ai décidé de perséverer :3

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
<HTML>
	<HEAD> 
		<TITLE>Steam Converter taxes ?</TITLE>
		</script>
	</HEAD>
	<BODY>
		Saisir prix d'achat: <INPUT TYPE="number" NAME="Achat" SIZE="20" MAXLENGTH="30" VALUE="">
		<BR>
		Saisir prix de vente: <INPUT TYPE="number" NAME="Vente" SIZE="20" MAXLENGTH="30" VALUE="">
 
	<script language="VBScript">
                Sub CalculAchat
                        Vente = Achat * 1.15 - 0.01
                end sub
        </script>
	</BODY>
</HTML>

Comment fait-on pour éxécuter la procédure "CalculAchat" après la saisi d'un intputbox ?

Cordialement.

Salut

Tu peux faire de cette façon, mais il en existe d'autres,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
<HTML>
	<HEAD> 
		<TITLE>Steam Converter taxes ?</TITLE>
	</HEAD>
	<BODY>
		Saisir prix d'achat: <INPUT TYPE="number" NAME="Achat" onkeyup="CalculAchat()" SIZE="20" MAXLENGTH="30" VALUE="">
		<BR>
		Saisir prix de vente: <INPUT TYPE="number" NAME="Vente" SIZE="20" MAXLENGTH="30" VALUE="">
 
	<script language="VBScript">
                Sub CalculAchat()
                        Vente.value = Achat.value * 1.15 - 0.01
                end sub
        </script>
	</BODY>
</HTML>

ATTENTION, il n'y a pas de gestion d'erreurs de l'entrée utilisateur (tous caractères différent d'un chiffre)

Salut, merci bcp tu me fais avancer grandement.

Voici mon code désormais et j'ai 2 problèmes:

Si j'utilise le "." au lieu de la virgule "," ce met un message d'erreur.... Si je pouvais utiliser l'un et l'autre ce serait top pour éviter les erreurs...

Deuxiememnt, si je supprime une valeurs j'ai un message d'erreur sans doute parce qu'il essaye de calculer lorsque la cellule vaut un ensemble vide.

Sinon, je commence à avoir des semblant de résultats c'est super top.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
<HTML>
	<HEAD> 
		<TITLE>Steam Converter taxes ?</TITLE>
	</HEAD>
	<BODY>
		Saisir prix d'achat: <INPUT TYPE="number" NAME="Achat" onkeyup="CalculAchat()" SIZE="20" MAXLENGTH="30" VALUE="0">
		<BR>
		Saisir prix de vente: <INPUT TYPE="number" NAME="Vente" onkeyup="CalculVente()" SIZE="20" MAXLENGTH="30" VALUE="0">
 
	<script language="VBScript">
                Sub CalculAchat()
                        if Vente.value > 0 then
                        Vente.value = (Achat.value - 0.01) * 1.15
                        end if
                end sub
                Sub CalculVente()
                        if Achat.value > 0 then
                        Achat.value = (Vente.value / 1.15) + 0.01
                        end if
                end sub
        </script>
	</BODY>
</HTML>

Re

Il te manque le traitement d'erreur des entrées utilisateur, voici un code qui fait le taf.

Code:

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
51
52
53
<HTML>
	<HEAD> 
		<TITLE>Steam Converter taxes ?</TITLE>
    <style>
    /* partie estetique des différents controles sur la page */
      label{
        position: relative;
        left:10px;
        color:blue;
      }
      input{
        position:absolute;
        left:150px
      }
    </style>
	</HEAD>
	<BODY>
		<label id="Lab1">Saisir prix d'achat:</label> <INPUT TYPE="text" id="Achat" Title="Enter pour calculer" SIZE="20" MAXLENGTH="30" VALUE="">
		<BR>
		<label id="Lab2">Saisir prix de vente:</label> <INPUT TYPE="text" id="Vente" Title="Enter pour calculer" SIZE="20" MAXLENGTH="30" VALUE="">
 
		<script language="VBScript">
                        'message pour traitement d'erreur, la variable MsG est valide dans toutes la partie ScripT
                        dim MsG: MsG = "Entrez un nombre valide (Exemple: 123,456)"
 
                        Sub Window_Onload()
                                Achat.focus() 'pour que le curseur souris soit sur l'input Achat
                        end sub
 
                        Sub Achat_onkeyup()
                                If (window.event.keyCode) = 13 Then ' si la touche est Enter faire ...
                                        'gestion du separateur decimale
                                        Achat.value = replace(Achat.value,".",",")
                                        if EntrerValide(Achat.value)=false then msgbox MsG:exit sub 'quitte imediatement la sub
                                        'ici on sait que l'on traite bien un nombre
                                        Vente.value = FormatNumber((Achat.value * 1.15 - 0.01),2)'on limite à 2 decimale
                                end if
                        end sub
 
                        Sub Vente_onkeyup()
                                If (window.event.keyCode) = 13 Then
                                        Vente.value = replace(Vente.value,".",",")
                                        if EntrerValide(Vente.value)=false then msgbox MsG:exit sub
                                        Achat.value = FormatNumber((Vente.value+0.01) / 1.15,2)
                                end if
                        end sub
 
                        function EntrerValide(valeur)
                                EntrerValide = IsNumeric(valeur) 'renvoie false si valeur n'est pas un nombre, sinon true
                        end function
                </script>
	</BODY>
</HTML>

J'ai essayé de mettre en commentaire des information de se que fait chaque lignes de commande, tu me diras tes questionnements restant.

27/04/2021, 11h11
legomanfr

Wow, c'est lourd merci.

Alors je pense que je comprend bien l'idée des procédures et fonctions que tu as rajouté.

J'aurais deux dernier petit détails que j'aimerais poffiner:

• Comment redimensionner la fenêtre de départ ? qu'elle soit relativement petit en fait.

• Et j'aimerais que le calcul se fasse automatiquement en Live sans avoir a presser "Enter" comme avant. C'est possible? Ou cela n'est pas compatible avec la gestion des erreurs.

Merci bcp du temps passé sur mon prob !

Citation:

redimensionner la fenêtre de départ

voir ligne 10, avec centrage à l'écran

Code:

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
51
52
53
54
55
56
57
58
59
60
61
<HTML>
	<HEAD> 
		<HTA:APPLICATION
 				MAXIMIZEBUTTON="no"
				SCROLL="no"
				BORDER = "thin"
		>
		<SCRIPT language="VBScript" type="text/vbscript">
        'redimensionner la fenêtre de départ
        ResizeTo 350,120: MoveTo (Screen.Width-350)/2,(Screen.Height - 120) / 2
                </SCRIPT>
   <style>
    /* partie estetique des différents controles sur la page */
      label{
        position: relative;
        left:10px;
        color:blue;
      }
      input{
        position:absolute;
        left:150px
      }
    </style>
	</HEAD>
	<BODY>
		<label id="Lab1">Saisir prix d'achat:</label> <INPUT TYPE="text" id="Achat" Title="Enter pour calculer" SIZE="20" MAXLENGTH="30" VALUE="">
		<BR>
		<label id="Lab2">Saisir prix de vente:</label> <INPUT TYPE="text" id="Vente" Title="Enter pour calculer" SIZE="20" MAXLENGTH="30" VALUE="">
 
		<script language="VBScript">
                        'message pour traitement d'erreur, la variable MsG est valide dans toutes la partie ScripT
                        dim MsG: MsG = "Entrez un nombre valide (Exemple: 123,456)"
 
                        Sub Window_Onload()
                                Achat.focus() 'pour que le curseur souris soit sur l'input Achat
                        end sub
 
                        Sub Achat_onkeyup()
                                If (window.event.keyCode) = 13 Then ' si la touche est Enter faire ...
                                        'gestion du separateur decimale
                                        Achat.value = replace(Achat.value,".",",")
                                        if EntrerValide(Achat.value)=false then msgbox MsG:exit sub 'quitte imediatement la sub
                                        'ici on sait que l'on traite bien un nombre
                                        Vente.value = FormatNumber((Achat.value * 1.15 - 0.01),2)'on limite à 2 decimale
                                end if
                        end sub
 
                        Sub Vente_onkeyup()
                                If (window.event.keyCode) = 13 Then
                                        Vente.value = replace(Vente.value,".",",")
                                        if EntrerValide(Vente.value)=false then msgbox MsG:exit sub
                                        Achat.value = FormatNumber((Vente.value+0.01) / 1.15,2)
                                end if
                        end sub
 
                        function EntrerValide(valeur)
                                EntrerValide = IsNumeric(valeur) 'renvoie false si valeur n'est pas un nombre, sinon true
                        end function
                </script>
	</BODY>
</HTML>

Citation:

j'aimerais que le calcul se fasse automatiquement en Live sans avoir a presser "Enter"

Pas sûr que ce soit une bonne idée, si l'utilisateur tape vide au clavier et qu'il y a une erreur de frappe ou une entrée non valide, la boite d'alerte va apparaitre alors qu'il continuera ses entrées, pas très cool.

Sinon, il suffit de supprimer la condition If (window.event.keyCode) = 13 Then dans les sub Achat_onkeyup() et Vente_onkeyup() , attention d'enlever les end if aussi.

27/04/2021, 12h37
legomanfr

C'est parfait !

J'ai supprimé la condition if, et j'ai rajouté ceci en début de procédure:

Code:

if Achat.value = "" then exit sub

Comme cela, si j'efface le contenue et que la cellule est vide pas d'erreurs. En contrepartie j'ai une erreur dès que je saisi un lettre ou quoi mais c'est pas grave, je tape au pavé numérique donc très peu de risque d'erreurs.

merci pour toutes ces réponses et solutions.
A+ !! Bonne journée

Re, la der

Citation:

En contrepartie j'ai une erreur dès que je saisi un lettre ou quoi

Je pense que l'essentiel est géré

Code:

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
<HTML>
	<HEAD> 
    <title>Mon premier prog de calcul</title>
		<HTA:APPLICATION
 				MAXIMIZEBUTTON="no"
				SCROLL="no"
				BORDER = "thin"
		>
		<SCRIPT language="VBScript" type="text/vbscript">
        'redimensionner la fenêtre de départ en centrant la page 
        ResizeTo 350,120: MoveTo (Screen.Width-350)/2,(Screen.Height - 120) / 2
                </SCRIPT>
		<style>
                        /* partie estetique des différents controles sur la page */
                        label{
                                position: relative;
                                left:10px;
                                color:blue;
                        }
                        input{
                                position:absolute;
                                left:150px
                        }
                </style>
	</HEAD>
	<BODY>
		<label id="Lab1">Saisir prix d'achat:</label> <INPUT TYPE="text" id="Achat" Title="Enter pour calculer" SIZE="20" MAXLENGTH="30" VALUE="">
		<BR>
		<label id="Lab2">Saisir prix de vente:</label> <INPUT TYPE="text" id="Vente" Title="Enter pour calculer" SIZE="20" MAXLENGTH="30" VALUE="">
 
		<script language="VBScript">
            'message pour traitement d'erreur, la variable MsG est valide dans toutes la partie Script
                        dim MsG: MsG = "Entrez un nombre valide (Exemple: 123,456)"
 
                        ' ----------------------------- évènement controle -------------------------------------------
                        Sub Window_Onload()
                                Achat.focus() 'pour que le curseur souris soit sur l'input Achat
                        end sub
 
                        Sub Achat_onkeyup()
                                if ToucheValide(window.event.keyCode) = false then exit sub
                                'gestion du separateur decimale
                                Achat.value = replace(Achat.value,".",",")
                                if EntrerValide(Achat.value)=false then msgbox MsG:exit sub 'quitte imediatement la sub
                                        'ici on sait que l'on traite bien un nombre
                                        Vente.value = FormatNumber((Achat.value * 1.15 - 0.01),2)'on limite à 2 decimale
                        end sub
 
                        Sub Vente_onkeyup()
                                if ToucheValide(window.event.keyCode) = false then exit sub
                                Vente.value = replace(Vente.value,".",",")
                                if EntrerValide(Vente.value)=false then msgbox MsG:exit sub
                                Achat.value = FormatNumber((Vente.value+0.01) / 1.15,2)
                        end sub
 
                        ' ----------------------------------- gestion globale des erreurs ------------------------------
                        function ToucheValide(CodeKey)
                                ToucheValide = true
                                if CodeKey <> 13 then ' si la touche est inégale à Enter
                                        'vérifier que la touche égal un chiffre ou un point ou une virgule
                                        if ((CodeKey <49 Or CodeKey > 59) and (CodeKey <> 46 or CodeKey <> 44)) then
                                                'si non, faire quitter la sub qui a appelée cette fonction
                                                ToucheValide = false
                                        end if
                                end if 
                        end function
                        function EntrerValide(valeur)
                                EntrerValide = IsNumeric(valeur) 'renvoie false si valeur n'est pas un nombre, sinon true
                        end function
 
                </script>
	</BODY>
</HTML>