Gobillot

34
Membre
Inscription
14 mai 2004
Dernière intervention
21 juin 2007
Interventions
3 140
Signature
Daniel

ECRITURE FRACTIONNAIRE DES NOMBRES À ÉCRITURE DÉCIMALE INFINIE ET CYCLIQUE

/source/32554-ecriture-fractionnaire-des-nombres-a-ecriture-decimale-infinie-et-cyclique

"le cas de X=0.9999..... qui egal à 1" tu veux dire qu'avec ta méthode on prouve que x=0,999999... est égal à 1 ça semble juste à première vue: x = 0,99999999999999... (une infinité de 9) 10x = 9,9999999999999... (une infinité de 9) 10x = 9 + 0,9999999999999... (une infinité de 9) 10x = 9 + x 10x - x = 9 9x...

COMPARAISON SIMPLE DE DATE

/source/41593-comparaison-simple-de-date

si ça marche sauf dans certain cas: Dim d1 As Date Dim d2 As Date d1 = "01/12/1899 12:00:00" d2 = "01/12/1899 11:59:59" Select Case d1 Case Is > d2 MsgBox ("d1 + vieux") Case Is = d2 MsgBox ("d1 d2 =") Case Is < d2 MsgBox ("d2 + vieux") E...

CODEUR À CLE

/source/40874-codeur-a-cle

Bonjour, Une fonction pour trouver le nombre magik: Private Function Calcul_Magik(cle As Integer) As Integer Dim i As Integer For i = 1 To 36 If (cle * i) Mod 37 = 1 Then Calcul_Magik = i Exit For End If Next End Function voici le résultat pour les premières valeurs...

TEST DE LA FONCTION ALÉATOIRE RND DE VISUAL BASIC

/source/36436-test-de-la-fonction-aleatoire-rnd-de-visual-basic

et aussi de remplacer la fonction Rnd() par une fonction perso par exemple celle-ci de fréquence 2^48 (donc plus de possibilités) il suffit de remplacer les Rnd() par WRnd() Dim WW0 As Currency Dim WWA As Currency Dim WWC As Currency Dim WWM As Currency Private Sub Form_Load() WW0 = 28002971 WWA = 3235...

il s'agit ici de tester la fonction Rnd() et non pas de trouver les résultats du loto. tous les nombres devant sortir avec la même chance, chaque séquence de 6 nombres devraient aussi sortir avec la même chance. vrai ou pas ? le résultat est troublant...! y a t-il des séquences privilègiées ? réponse: OUI sur 16777216 possibilité...

Randomize n'est pas nécessaire dans le cas ici présent puisqu'il faut tester tous les cas. pas la peine non plus de faire un si grand nombre de tirages puisque la période n'est que de 2^24 donc sur 16777216 tirages maximum on doit trouver en théorie: 16777216 / 49 = 342392,1633 ce qui se vérifie après test: on trouve 2 group...

UTILITAIRE DE DE-PROTECTION EN ÉCRITURE DE FICHIERS

/source/39127-utilitaire-de-de-protection-en-ecriture-de-fichiers

non non c'est pas bon faut pas faire plusieurs SetFileAttributes, sinon seul le dernier sera pris en compte il faut faire un masque avec l'attribut qu'on veut enlever et c'est tout lngFileAttr = GetFileAttributes(strPath & strContent) If lngFileAttr And vbReadOnly Then SetFileAttributes strPath & strContent, lngFileAttr And (Not...

si le but est d'enlever seulement l'attribut ReadOnly, alors pourquoi enlever les autres aussi ? l'attribut Archive par exemple et plus grave encore, Système et Hidden seront supprimés par ton programme. attention SetAttr ne gère pas les attributs étendus, par contre il les enlève (attribut indexation sera supprimé également) il f...

ETUDE DE FONCTIONS ALÉATOIRES

/source/37405-etude-de-fonctions-aleatoires

qu'est ce que je raconte !!! je dis des bêtises excuses moi je lis à l'envers ignore le message précedent, sauf le bravo.

KEY INFOS (GETKEYSTATE / GETASYNCKEYSTATE) : UTILE POUR DÉVELOPPER DES APPS NÉCÉ

/source/37256-key-infos-getkeystate-getasynckeystate-utile-pour-developper-des-apps-necessitant-la-gestion-de-la-frappe-clavier

Description GetKeyState: La fonction GetKeyState retourne le status de la touche virtuelle (virtual-key code) spécifiée. Autrement dit, cette fonction permet de savoir si une touche est enfoncée (toutes les touches du clavier et les boutons de la souris). La fonction retourne 0 ou 1 lorsque la touche est inactive sinon -128 ou -127 lors...

effectivement la touche ENTER n'a qu'un seul code, je sais pas pourquoi, donc impossible de distinguer l'une de l'autre. pour la touche Ctrl, on utilise 16 si on veut pas distinguer la droite de la gauche, sinon on utilise 162 ou 163 GetAsyncKeyState est surtout utilisé pour les jeux où il faut de la rapidité, réponse directe du clav...

il me semblait que les ScanCodes étaient le mêmes pour tout le monde: Ctrl Gauche: 17, 162 Ctrl Droit: 17, 163 Alt: 18, 164 Alt Gr: 17, 18, 165 Shift Gauche: 16, 160 Shift Droit: 16, 161 CAPSLOCK: 20 NUMLOCK: 144 INS: 45 SCROLLLOCK: 145 GetAsyncKeyState renvoie l'état des touches ph...

DIMENSION DE L'INTÉRIEUR D'UNE FENÊTRE - RÉGLER LA TAILLE D'UNE FENÊTRE EN FONCT

/source/36636-dimension-de-l-interieur-d-une-fenetre-regler-la-taille-d-une-fenetre-en-fonction-de-l-espace-reellement-utilisable-par-les-controles

et si le Scalemode est égal à 3 F.Width est en Twips F.ScaleWidth est en Pixels donc pas bon !

FONCTION VRAIMENT ALÉATOIRE

/source/36257-fonction-vraiment-aleatoire

correction: désolé C est une constante: (X0 * A + C) / M

à part la première valeur, oui, on peut retrouver toutes les valeurs qui suivent. seul un Randomize (ou un Rnd négatif) peut briser la séquence le premier seed de départ toujours le même pour tout le monde est 327680 fonction de la forme: (X0 * A * C) / M X0 = 327680 A = 1140671485 C = 12820163 M = 16777216 la partie entière...

pas tout à fait Randomze(1) modifie le seed mais ne donne pas 1 pour seed Randomize 1: MsgBox Rnd Randomize 1: MsgBox Rnd donne 2 valeurs différentes pour réinitialiser le seed il faut un nombre négatif: Rnd -1234 à partir d'un seed donné (graine) tous les Rnd() qui suivent donne la même suite. 1677216 valeurs po...

ALGO DE TRI - MERGESORT VS BUBBLESORT - AVEC LISTE DE 30'000 MOTS

/source/36263-algo-de-tri-mergesort-vs-bubblesort-avec-liste-de-30-000-mots

oui mais ce que tu présentes là c'est pas le MergeSort mais c'est bel et bien le QuickSort. il n'est pas stable, c'est à dire qu'il ne conserve pas le tri précédent.

CONVERTIR DES SECONDES EN MINUTES, HEURES, JOURS

/source/35748-convertir-des-secondes-en-minutes-heures-jours

une autre version. calcul limité à une seule division. n'affiche pas si le nombre est égal à zéro. met le "s" si nécessaire. Private Function ConvertirSecondes(Valeur As Double) As String Dim dt As Date Dim Fmt As String Dim Fj As String Dim Fh As String Dim Fm As String D...

ENCADREMENTS ET APPROXIMATIONS

/source/35216-encadrements-et-approximations

toujours la même chose à rajouter approximation d'accord: 5 peut être la valeur approchée de 3 à 2 unités près. mais ici, puisqu'on fournit un paramètre, on demande une valeur approchée précise à 1/(10^2) près je cite: "j'ai dit "La fonction Roundinf renvoie une valeur TOUJOURS INFERIERE à n" on devrait obtenir alors -1 < 0 <...

oui mais le résultat est différent suivant la valeur: Roundinf (0.2,1) ==> 0.2 Roundsup (0.2,1) ==> 0.3 donc 0.2 1.1 Roundsup (1.2,1) ==> 1.2 donc 1.1 < 1.2