Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

8 commentaire(s) de mmptj sur des sources sur tout CodeS-SourceS

Le : 20/01/2009 13:51:40
Source : JEU DE PUZZLE AVEC CHOIX IMAGES
A priori il manque des fichiers qui se trouvent dans w:Microsoft.visualbasic.targets ???


Le : 24/04/2008 14:30:42
Source : EMPÊCHER LE CLIC SUR UN ONGLET (TABPAGE) D’UN TABCONTROL
Bonjour,

Merci pour cette source qui m'a permis de résoudre mon problème.
Mon application utilise 3 onglets pour afficher des informations générées par une autre application.
Je voulais afficher le 1er onglet à chaque fois que rechargeais les informations.
J'ai donc donné une valeur à la propriété selectedtab


Le : 14/12/2007 11:15:15
Source : FONCTION ARRONDIR COMPLÈTE. (DÉCIMALE, MULTIPLE, PAR DÉFAUT, PAR EXCÈS, AU PLUS PRÈS)
Il existe un problème avec cette fonction l'arrondi par exces d'une valeur multiple du "multiple" doit donner la valeur.
ex: Arrondir(1234, 1, ParExces)=1234 et non pas 1235.

je propose de modifier la fonction ainsi:

Function Arrondir(Nb, ByVal Multiple As Double, Optional ByVal Sens As ctArrondi = AuPlusPres) As Double
If Not IsNumeric(Nb) Then Nb = Val(Replace(Nb, ",", "."))
Dim valMin As Double
valMin = Int(Nb / Multiple) * Multiple
If valMin = Nb Then
    Arrondir = valMin
Else
    Arrondir = Int(Nb / Multiple + (Sens + 1) / 2) * Multiple
End If
End Function


Le : 03/12/2007 14:12:21
Source : FONCTION ARRONDIR COMPLÈTE. (DÉCIMALE, MULTIPLE, PAR DÉFAUT, PAR EXCÈS, AU PLUS PRÈS)
Bonjour,

Allopeck :

Je n'ai pas bien compris le problème, X mod 2 donne un résultat compris entre 0 et 1.999999...
ex 10.45 mod 2 = 0.45
   10.50 mod 2 = 0.5
   11.45 mod 2 = 1.45


La fonction arrondir(10.45,1.0,0) donne 10.0
            arrondir(10.50,1.0,0) donne 11.0

En espérant que ceci sera utile...



Le : 26/11/2007 09:01:06
Source : FONCTION ARRONDIR COMPLÈTE. (DÉCIMALE, MULTIPLE, PAR DÉFAUT, PAR EXCÈS, AU PLUS PRÈS)
Bravo pour ce code dont tout le monde a déjà eu besoin.

Pour ma part je préfère remplacer le dernier argument par un entier
ce qui permet d'employer une variable
-1 = par défaut
0 = au plus pres
1 = par exces
dans mon cas la fonction s'écrira
Arrondi = Int(Nb / Multiple + (Sens+1) / 2) * Multiple


Le : 28/11/2005 12:10:09
Source : MODULE DE CALCUL MATHÉMATIQUES/STRING DIVERS
pour calculer Pi j'utise le calcul suivant:

pi = 4# * Atn(1#)

je ne sais pas si c'est plus précis, c'est plus beau et cela m'évite de connaitre les n decimales de Pi

@+


Le : 15/12/2004 17:04:04
Source : ECRITURE DE VALEUR EN UTILISANT LES FORMATS D'ÉCRITURE DU FORTRAN
cela fonctionne bien pour les chaines de caractères, as tu une solution pour les expressions numériques ?


Le : 23/09/2003 10:36:47
Source : METTRE UNE IMP PAR DEFAUT
A priori il manque 2 formulaires dans le .zip, sinon l'executable fonctionne bien avec windows XP.



1


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Comparez les prix Nouvelle version

Photothèque Nouveau !



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,172 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.