High-Tech
Santé-Médecine
Droit-Finances
CodeS-SourceS
Inscription
Plan
Connexion
Rechercher un code, un tuto, une réponse
Accueil
Forum
Tutoriels
Codes Sources
Snippets
Top membres
Tous les langages
Delphi / Pascal
Java
Python
SQL
RegEx
Flash
ASM
IRC
Graphisme
PDA
ColdFusion
Foxpro
Flex
Visual Basic / VB.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
PHP
Forum
Tutoriels
Codes Sources
Snippets
Top membres
C/C++/C++.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
Javascript
Forum
Tutoriels
Codes Sources
Snippets
Top membres
C#/.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
ASP/ASP.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
Accueil
Connexion
Déposer un code
Code
Recherche
Haut
Forum
Commentaires sur une source
Sujet Précédent
Sujet Suivant
TREMBLOTTE
cs_blabla
Messages postés
112
Date d'inscription
mercredi 28 août 2002
Statut
Membre
Dernière intervention
13 mars 2004
- 3 nov. 2002 à 15:35
cs_zappy
Messages postés
161
Date d'inscription
mardi 19 juin 2001
Statut
Membre
Dernière intervention
10 avril 2007
-
18 déc. 2002 à 13:52
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/3202-tremblotte
cs_zappy
Messages postés
161
Date d'inscription
mardi 19 juin 2001
Statut
Membre
Dernière intervention
10 avril 2007
2
18 déc. 2002 à 13:52
j'ai été voir comme tu me l'as demandé, il y a pas de quoi pavaner
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
74
3 nov. 2002 à 16:02
a la place de :
Select Case tr
Case 0: Left
Left - 50: tr
1
Case 1: Left
Left + 50: tr
0
End Select
tu peux mettre :
Left = Left + IIf(tr, -50, 50)
tr = Not (tr)
cs_blabla
Messages postés
112
Date d'inscription
mercredi 28 août 2002
Statut
Membre
Dernière intervention
13 mars 2004
3 nov. 2002 à 15:35
je trouve ca terrible ! bravo et merci
jte met 1 pti 7/10
Votre réponse
Rejoignez-nous
18 déc. 2002 à 13:52
3 nov. 2002 à 16:02
Select Case tr
Case 0: Left Left - 50: tr 1
Case 1: Left Left + 50: tr 0
End Select
tu peux mettre :
Left = Left + IIf(tr, -50, 50)
tr = Not (tr)
3 nov. 2002 à 15:35
jte met 1 pti 7/10