OVH Cloud OVH Cloud

comment tester 3 OptionButton

25 réponses
Avatar
dav
j'ai 3 OptionButton sur ma feuille et je voudrais savoir lequel est
coché.....

j'ai envisagé :

dim i as integer
for i = 0 to 2
select case Option1(i).Value
case true

case false
end select
next

qu'en pensez vous ? y'a mieux ?
merci,
dav

5 réponses

1 2 3
Avatar
CoolCubix
J'aimerais ajouter et me corriger...
En fait, l'idée n'est pas dans le code écrit. On pourrait écrire aussi bien

if ( (A = True ) and (B = False) ) Or ( (A = False) and (B = True ) ) Then

que

If (A And Not B) Or (Not A And B) Then

Le problème de la relecture s'applique si l'on a oublié un élément des plus
importants... LE COMMENTAIRE !
On peut mettre l'expression qu'on veut tant qu'on documente précisément son
code et l'idée du programme.

@+ !

C
C U
O B
O !
L X

en passant... une question : quelqu'un a-t-il un module pour "décoder" du
HTML ? Je m'explique :
dans la chaine "salut%20toi%20!" je voudrais à parttir d'une fonction, avoir
un résultat direct "salut toi !". Bien entendu qui décoderait aussi les
autres caractères HTML ("%3D", "%22"...)

Merci d'avance
Avatar
Gilles RONSIN
"CoolCubix" , le ven. 08 oct. 2004 19:00:21,
écrivait ceci:

J'aimerais ajouter et me corriger...
En fait, l'idée n'est pas dans le code écrit. On pourrait écrire
aussi bien

if ( (A = True ) and (B = False) ) Or ( (A = False) and (B = True
) ) Then

que

If (A And Not B) Or (Not A And B) Then



Salut
c'est pas
If A XOR B Then
ça ?

--
Embryon de site : http://gilles.ronsin.free.fr
Nouvelle astuce : Script de création de raccourcis cible
http://gilles.ronsin.free.fr/#targetlnk
Il est impossible pour un optimiste d'être agréablement surpris.
Avatar
Jean-Marc
"Gilles RONSIN" a écrit dans le message de
news:
"CoolCubix" , le ven. 08 oct. 2004 19:00:21,
écrivait ceci:

> J'aimerais ajouter et me corriger...
> En fait, l'idée n'est pas dans le code écrit. On pourrait écrire
> aussi bien
>
> if ( (A = True ) and (B = False) ) Or ( (A = False) and (B = True
> ) ) Then
>
> que
>
> If (A And Not B) Or (Not A And B) Then
>
Salut
c'est pas
If A XOR B Then
ça ?




Hello,

Si, c'est bien un XOR. Il faut lire le thread
complet pour comprendre, c'était un exemple.

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
Avatar
Jean-Marc
"CoolCubix" a écrit dans le message de
news:
J'aimerais ajouter et me corriger...
En fait, l'idée n'est pas dans le code écrit. On pourrait écrire aussi


bien

if ( (A = True ) and (B = False) ) Or ( (A = False) and (B = True ) ) Then

que

If (A And Not B) Or (Not A And B) Then

Le problème de la relecture s'applique si l'on a oublié un élément des


plus
importants... LE COMMENTAIRE !
On peut mettre l'expression qu'on veut tant qu'on documente précisément


son
code et l'idée du programme.



Hello,

oui la je suis d'accord avec ça. Il faut
toujours commenter, l'idée étant qu'on doit surtout
s'attacher à commenter ses *intentions*, l'idée de
l'algorithme comme tu dis.
Les débutants (qui essaient de bien faire) mettent souvent
plein de commentaires inutiles: ils commentent le code et
pas l'intention sous-jacente, ce qui fait que les commentaires
sont inutiles; ils alourdissent sans clarifier.

Pour reprendre l'exmple précédent, un bon commentaire
serait quelque chose comme ça:

' The following is TRUE if the booleans A and B have
' opposite values. This implements a logical
' Exclusive OR (Xor).

If (A And Not B) Or (Not A And B) Then
' ...

Remarque: evidemment, ceci n'est qu'un exemple. Dans la
vraie vie, personne ne nommera une variable A ou B. Un
nom représentatif serait utilisé pour rendre la lecture
encore plus aisée.

Ceci dit, même avec un commentaire, il faut s'abstenir d'écrire
des horreurs :-))

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
Avatar
PR-VB6
If Option1(1).Value Then
'call
elseif Option1(2).Value Then
'Call...
elseIf Option1(3).Value Then
'call
endif


"dav" a écrit dans le message de
news:415c3cb9$0$3681$
j'ai 3 OptionButton sur ma feuille et je voudrais savoir lequel est
coché.....

j'ai envisagé :

dim i as integer
for i = 0 to 2
select case Option1(i).Value
case true

case false
end select
next

qu'en pensez vous ? y'a mieux ?
merci,
dav


1 2 3