Discussion :

[BlackoOSX]

Salut à tous les Cpdosiens!
Ah, ça faisais longtemps que je n'avais pas remis les pieds dans CPCDOS.
Il y a 2 semaines de ça, j'ai repris la programmation à 0 de HOS et je compte bien cette fois-ci finir la version 1.0.
Malheureusement je viens de tomber sur une impasse et je n'arrive pas à m'en dépêtrer.
Voilà, je suis rendus dans la programmation des paramètres de HOS, plus particulièrement les paramètres utilisateur (Mot de passe et nom de compte).
Pour changer de mot de passe j'ai mis une sécurité de vérification (Tapez 2 fois le MDP).
A ce moment là de mon code j'ai mis un bouton enregistrer qui dans son EV récupère le contenus des deux MDP rentré et du compte utilisateur rentré.
Ensuite il vérifie si MDP1 = MDP2, sauf que c'est tout le temps vrais même si le mot de passe n'est pas le même (j'ai vérifier à partir de message box).
Je suis sur que c'est une erreur très bête mais je ne la trouve pas...
Je vous met le code (La condition avec le bouton enregistrer est à la fin du code). Bonne chance, il y a 183 ligne!

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
REM/ Section Utilisateur de Parametres

:INFO:
REM/ Informations Personnels de l'Utilisateur
EXE/ & %SYSTEME%\PARA\EFF.CPC

FIX/ MDP1 = %MDPV%
FIX/ MDP2 = %MDPV%
FIX/ COMPTE1 = %COMPTEV%

INI/ LABEL(
    INI;FENETRE = "PARA"
    INI;NOM = "IFOP_LBL2"
    INI;TEXTE = "Informations"
    INI;COULEURF = "%COULFD_PARA%"
    INI;COULEURP = "255,255,255"
    INI;TRANSPARENT = "0"
    INI;TYPE = "0"
    INI;TX = "0"
    INI;TY = "0"
    INI;PX = "199"
    INI;PY = "10"
    CREER/
INI/ LABEL)

INI/ IMAGEBOX(
    INI;NOM = "RETOUR"
    INI;FENETRE = "PARA"
    INI;COULEUR = "000,000,000"
    INI;COULEURF = "001,001,001"
    INI;TYPE = "0"
    INI;IMAGE = "%MEDIA%\ICONES\PREC.BMP"
    INI;PX = "10"
    INI;PY = "10"
    INI;TX = "13"
    INI;TY = "13"
    CREER/
    EV/ %SYSTEME%\PARA\EFF.CPC
INI/ IMAGEBOX)

INI/ IMAGEBOX(
    INI;NOM = "IMG_UTL"
    INI;FENETRE = "PARA"
    INI;COULEUR = "000,000,000"
    INI;COULEURF = "001,001,001"
    INI;TYPE = "0"
    INI;IMAGE = "%MEDIA%\IUG\PERSOB.BMP"
    INI;PX = "430"
    INI;PY = "18"
    INI;TX = "50"
    INI;TY = "50"
    CREER/
INI/ IMAGEBOX)

INI/ TEXTEBOX(
    INI;NOM = "NUTL"
    INI;FENETRE = "PARA"
    INI;TYPE = "1"
    INI;COULEURF = "255,255,255"
    INI;COULEURP = "000,000,000"
    INI;TEXTE = "%COMPTEV%"
    INI;PX = "225"
    INI;PY = "45"
    INI;TX = "175"
    INI;TY = "15"
    CREER/
INI/ TEXTEBOX)

INI/ LABEL(
    INI;FENETRE = "PARA"
    INI;NOM = "NUTL_LBL"
    INI;TEXTE = "Nom du compte:"
    INI;COULEURF = "%COULFD_PARA%"
    INI;COULEURP = "255,255,255"
    INI;TRANSPARENT = "0"
    INI;TYPE = "0"
    INI;TX = "0"
    INI;TY = "0"
    INI;PX = "10"
    INI;PY = "52"
    CREER/
INI/ LABEL)

INI/ TEXTEBOX(
    INI;NOM = "CMDP"
    INI;FENETRE = "PARA"
    INI;TYPE = "P1"
    INI;COULEURF = "255,255,255"
    INI;COULEURP = "000,000,000"
    INI;TEXTE = "%MDPV%"
    INI;PX = "225"
    INI;PY = "65"
    INI;TX = "175"
    INI;TY = "15"
    CREER/
INI/ TEXTEBOX)

INI/ TEXTEBOX(
    INI;NOM = "CMDP2"
    INI;FENETRE = "PARA"
    INI;TYPE = "P1"
    INI;COULEURF = "255,255,255"
    INI;COULEURP = "000,000,000"
    INI;TEXTE = "%MDPV%"
    INI;PX = "225"
    INI;PY = "85"
    INI;TX = "175"
    INI;TY = "15"
    CREER/
INI/ TEXTEBOX)

INI/ LABEL(
    INI;FENETRE = "PARA"
    INI;NOM = "CMDP_LBL"
    INI;TEXTE = "Mot de passe du compte:"
    INI;COULEURF = "%COULFD_PARA%"
    INI;COULEURP = "255,255,255"
    INI;TRANSPARENT = "0"
    INI;TYPE = "0"
    INI;TX = "0"
    INI;TY = "0"
    INI;PX = "10"
    INI;PY = "72"
    CREER/
INI/ LABEL)

INI/ LABEL(
    INI;FENETRE = "PARA"
    INI;NOM = "CMDP_LBL2"
    INI;TEXTE = "Verification:"
    INI;COULEURF = "%COULFD_PARA%"
    INI;COULEURP = "255,255,255"
    INI;TRANSPARENT = "0"
    INI;TYPE = "0"
    INI;TX = "0"
    INI;TY = "0"
    INI;PX = "10"
    INI;PY = "92"
    CREER/
INI/ LABEL)

INI/ IMAGEBOX(
    INI;NOM = "ENRG"
    INI;FENETRE = "PARA"
    INI;COULEUR = "000,000,000"
    INI;COULEURF = "001,001,001"
    INI;TYPE = "0"
    INI;IMAGE = "%MEDIA%\IUG\ENRG.BMP"
    INI;PX = "370"
    INI;PY = "285"
    INI;TX = "100"
    INI;TY = "30"
    CREER/
    EV/ %SYSTEME%\PARA\UTL.CPC
INI/ IMAGEBOX)

PROC/ ENRG(CLIC)
    FIX/ MDP1 = %MDPV%
    FIX/ MDP2 = %MDPV%

    INI/ TEXTEBOX(
        INI; NOM = "NUTL"
        INI; TEXTE = "#%COMPTE1"
    INI/ TEXTEBOX)

    INI/ TEXTEBOX(
        INI; NOM = "CMDP"
        INI; TEXTE = "#%MDP1"
    INI/ TEXTEBOX)

    INI/ TEXTEBOX(
        INI; NOM = "CMDP2"
        INI; TEXTE = "#%MDP2"
    INI/ TEXTEBOX)

    SI/ %MDP1% N %MDP2% (:
        EXE/ %SYSTEME%\PARA\ERREUR.CPC /l:MDP
        STOP/
    FIN/ SI
        
    EXE/ %SYSTEME%\PARA\ENR.CPC /l:INFO_UTL
    STOP/
FIN/ PROC

PS: Sébastien si tu vois ce message, il est impossible d'accéder aux paramètres utilisateur de CraftyOS car il n'y a pas de procédure qui a été faite dans le fichier CFG_EV.CPC!

[MINEOSX]

Salut,

Essaye ça:

Code :

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

1
2
3
4
SI/ %MDP1% = %MDP2 (:
             EXE/ %SYSTEME%\PARA\ERREUR.CPC /l:MDP
             STOP/
         FIN/ SI

Si ça marche toujours pas, redemande

MINEOSX, Le créateur de MINEOSX et de MineShell 1.0

[BlackoOSX]

Re et merci de ta réponse ,
Malheureusement cela ne marche pas.
Peut-tu m'expliquer pour quoi sur les ligne 2, 3 et 4 de la condition tu as mis une tabulation supplémentaire?

[MINEOSX]

C'est pour faire jolie à la condition

Je sais pas te quoi dire c'est peut être une erreur que t'as faite au début du code, reverifie tout ce que tu as fait.

MINEOSX, Le Créateur de MINEOSX et de MineShell 1.0.

[BlackoOSX]

Merci de ton aide!

[cpcdos]

Salut! J'ai copié ton code je l'ai testé, j'ai cherché cherché, j'arrivais pas à savoir d'où venais le bug, j'ai finalement trouvé, alors premièrement promet nous de tuer personne .

Le problème est situé à l'endroit où tu récupère les propriétés

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    INI/ TEXTEBOX(
        INI; NOM = "NUTL"
        INI; TEXTE = "#%COMPTE1"
    INI/ TEXTEBOX)
    INI/ TEXTEBOX(
        INI; NOM = "CMDP1"
        INI; TEXTE = "#%MDP1"
    INI/ TEXTEBOX)

    INI/ TEXTEBOX(
        INI; NOM = "CMDP2"
        INI; TEXTE = "#%MDP2"
    INI/ TEXTEBOX)

Entre INI; et le nom de propriété tu as mis un espace " ". Oui c'est très bête, mais c'est aussi de ma faute que Cpcdos ne mette pas une alerte..

Voici la correction à copier :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    INI/ TEXTEBOX(
        INI;NOM = "NUTL"
        INI;TEXTE = "#%COMPTE1"
    INI/ TEXTEBOX)
    INI/ TEXTEBOX(
        INI;NOM = "CMDP1"
        INI;TEXTE = "#%MDP1"
    INI/ TEXTEBOX)

    INI/ TEXTEBOX(
        INI;NOM = "CMDP2"
        INI;TEXTE = "#%MDP2"
    INI/ TEXTEBOX)

Cordialement

[BlackoOSX]

Salut et merci Seb!
Je ne sais pas si tu as vu la fin de mon premier message mais il est impossible d'accéder aux paramètres utilisateur de CraftyOS car il n'y a pas de procédure qui a été faite dans le fichier CFG_EV.CPC!

[BlackoOSX]

Re, j'ai tester mais cela ne marche pas , je suis presser donc je fais ce message vite fait!

Voilà le code de la procédure modifiée:

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
PROC/ ENRG(CLIC)
    INI/ TEXTEBOX(
        INI;NOM = "NUTL"
        INI;TEXTE = "#%COMPTE1"
    INI/ TEXTEBOX)

    INI/ TEXTEBOX(
        INI;NOM = "CMDP"
        INI;TEXTE = "#%MDPPP"
    INI/ TEXTEBOX)

    INI/ TEXTEBOX(
        INI;NOM = "CMDP2"
        INI;TEXTE = "#%MDPP"
    INI/ TEXTEBOX)

    SI/ %MDP1% = %MDP2% (:
        EXE/ %SYSTEME%\PARA\ENR.CPC /l:INFO_UTL
        STOP/
    SINON/
        EXE/ %SYSTEME%\PARA\ERREUR.CPC /l:MDP
        STOP/
    FIN/ SI
FIN/ PROC

[BlackoOSX]

Salut tout le monde!
C'est bon j'ai réglé mon problème, je vous laisse le code pour ceux que ça intéresse:

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
REM/ Section Utilisateur de Parametres

:INFO:
REM/ Informations Personnels de l'Utilisateur
EXE/ & %SYSTEME%\PARA\EFF.CPC

FIX/ MDP1 = %MDPV%
FIX/ MDP2 = %MDPV%
FIX/ COMPTE1 = %COMPTEV%

INI/ LABEL(
    INI;FENETRE = "PARA"
    INI;NOM = "IFOP_LBL2"
    INI;TEXTE = "Informations"
    INI;COULEURF = "%COULFD_PARA%"
    INI;COULEURP = "255,255,255"
    INI;TRANSPARENT = "0"
    INI;TYPE = "0"
    INI;TX = "0"
    INI;TY = "0"
    INI;PX = "199"
    INI;PY = "10"
    CREER/
INI/ LABEL)

INI/ IMAGEBOX(
    INI;NOM = "RETOUR"
    INI;FENETRE = "PARA"
    INI;COULEUR = "000,000,000"
    INI;COULEURF = "001,001,001"
    INI;TYPE = "0"
    INI;IMAGE = "%MEDIA%\ICONES\PREC.BMP"
    INI;PX = "10"
    INI;PY = "10"
    INI;TX = "13"
    INI;TY = "13"
    CREER/
    EV/ %SYSTEME%\PARA\EFF.CPC
INI/ IMAGEBOX)

INI/ IMAGEBOX(
    INI;NOM = "IMG_UTL"
    INI;FENETRE = "PARA"
    INI;COULEUR = "000,000,000"
    INI;COULEURF = "001,001,001"
    INI;TYPE = "0"
    INI;IMAGE = "%MEDIA%\IUG\PERSOB.BMP"
    INI;PX = "430"
    INI;PY = "18"
    INI;TX = "50"
    INI;TY = "50"
    CREER/
INI/ IMAGEBOX)

INI/ TEXTEBOX(
    INI;NOM = "NUTL"
    INI;FENETRE = "PARA"
    INI;TYPE = "1"
    INI;COULEURF = "255,255,255"
    INI;COULEURP = "000,000,000"
    INI;TEXTE = "%COMPTEV%"
    INI;PX = "225"
    INI;PY = "45"
    INI;TX = "175"
    INI;TY = "15"
    CREER/
INI/ TEXTEBOX)

INI/ LABEL(
    INI;FENETRE = "PARA"
    INI;NOM = "NUTL_LBL"
    INI;TEXTE = "Nom du compte:"
    INI;COULEURF = "%COULFD_PARA%"
    INI;COULEURP = "255,255,255"
    INI;TRANSPARENT = "0"
    INI;TYPE = "0"
    INI;TX = "0"
    INI;TY = "0"
    INI;PX = "10"
    INI;PY = "52"
    CREER/
INI/ LABEL)

INI/ TEXTEBOX(
    INI;NOM = "CMDP"
    INI;FENETRE = "PARA"
    INI;TYPE = "P1"
    INI;COULEURF = "255,255,255"
    INI;COULEURP = "000,000,000"
    INI;TEXTE = "%MDPV%"
    INI;PX = "225"
    INI;PY = "65"
    INI;TX = "175"
    INI;TY = "15"
    CREER/
INI/ TEXTEBOX)

INI/ TEXTEBOX(
    INI;NOM = "CMDP2"
    INI;FENETRE = "PARA"
    INI;TYPE = "P1"
    INI;COULEURF = "255,255,255"
    INI;COULEURP = "000,000,000"
    INI;TEXTE = "%MDPV%"
    INI;PX = "225"
    INI;PY = "85"
    INI;TX = "175"
    INI;TY = "15"
    CREER/
INI/ TEXTEBOX)

INI/ LABEL(
    INI;FENETRE = "PARA"
    INI;NOM = "CMDP_LBL"
    INI;TEXTE = "Mot de passe du compte:"
    INI;COULEURF = "%COULFD_PARA%"
    INI;COULEURP = "255,255,255"
    INI;TRANSPARENT = "0"
    INI;TYPE = "0"
    INI;TX = "0"
    INI;TY = "0"
    INI;PX = "10"
    INI;PY = "72"
    CREER/
INI/ LABEL)

INI/ LABEL(
    INI;FENETRE = "PARA"
    INI;NOM = "CMDP_LBL2"
    INI;TEXTE = "Verification:"
    INI;COULEURF = "%COULFD_PARA%"
    INI;COULEURP = "255,255,255"
    INI;TRANSPARENT = "0"
    INI;TYPE = "0"
    INI;TX = "0"
    INI;TY = "0"
    INI;PX = "10"
    INI;PY = "92"
    CREER/
INI/ LABEL)

INI/ IMAGEBOX(
    INI;NOM = "ENRG"
    INI;FENETRE = "PARA"
    INI;COULEUR = "000,000,000"
    INI;COULEURF = "001,001,001"
    INI;TYPE = "0"
    INI;IMAGE = "%MEDIA%\IUG\ENRG.BMP"
    INI;PX = "370"
    INI;PY = "285"
    INI;TX = "100"
    INI;TY = "30"
    CREER/
    EV/ %SYSTEME%\PARA\UTL.CPC
INI/ IMAGEBOX)

PROC/ ENRG(CLIC)
    FIX/ MDP1 = %MDPV%
    FIX/ MDP2 = %MDPV%

    INI/ TEXTEBOX(
        INI;NOM = "NUTL"
        INI;TEXTE = "#%COMPTE1"
    INI/ TEXTEBOX)

    INI/ TEXTEBOX(
        INI;NOM = "CMDP"
        INI;TEXTE = "#%MDP1"
    INI/ TEXTEBOX)

    INI/ TEXTEBOX(
        INI;NOM = "CMDP2"
        INI;TEXTE = "#%MDP2"
    INI/ TEXTEBOX)

    SI/ %MDP1% N %MDP2% (:
        EXE/ %SYSTEME%\PARA\ERREUR.CPC /l:MDP
        STOP/
    FIN/ SI
        
    EXE/ %SYSTEME%\PARA\ENR.CPC /l:INFO_UTL
    STOP/
FIN/ PROC