AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 12 11:45:48
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 !

38 commentaire(s) de Gobillot sur des sources sur tout CodeS-SourceS

Le : 15/04/2007 00:35:21
Source : ECRITURE FRACTIONNAIRE DES NOMBRES À ÉCRITURE DÉCIMALE 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 = 9
   x = 1

et pourtant c'est faux bien sûr parce que e = x - 1 est une valeur qu'on peut rendre la plus petite possible mais non nulle, sinon tous les points d'une droite seraient confondus, et même pire l'univers serait réduit à un point
ha bon pourquoi pas, certaines théories disent que l'espace et le temps n'existent pas et ne seraient qu'une illusion...

mais revenons sur terre
e étant une valeur non nulle, multiplier e par 10 donne 10e et non pas e:
   x = 1 - e
   10x = 10 - 10e
   10x - x = 10 - 10e - 1 + e
   9x = 9 - 9e
   x = 1 - e   (on tourne en rond)

maintenant il s'agit de savoir pourquoi ça marche avec les autres valeurs ???
le cas 0.99999... est tout a fait normal pour moi
alors est ce que toutes les autres valeurs ne seraient pas l'exception ???

Le : 22/02/2007 23:43:32
Source : 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")
        End Select

Le : 03/01/2007 03:11:19
Source : CODEUR À 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
   Cle = 2:  Magik = 19
   Cle = 3:  Magik = 25
   Cle = 4:  Magik = 28
   Cle = 5:  Magik = 15
   Cle = 6:  Magik = 31
   Cle = 7:  Magik = 16
   Cle = 8:  Magik = 14
   Cle = 9:  Magik = 33
   Cle = 10: Magik = 26
   Cle = 11: Magik = 27
   Cle = 12: Magik = 34
   Cle = 13: Magik = 20

pour les autres valeurs modulo 37 c'est la même chose
ainsi la valeur 457 correspond au 13 (457 = 12*37 + 13)
qui a pour correspondant le nombre magik 20 (ou 57,94,131,168,205,242,etc ...)

il y a un problème dans le codage pour la lettre "A", comme R=0 elle sera codée de la même façon (donc toujours "A") quelle que soit la clé

d'ailleurs il y a une erreur dans le code, c'est toujours la lettre "A" qui est répétée
  If Mid(Text2.Text, x, 1) = "a" Or Mid(Text2.Text, x, 1) = "A" Then R = 0
  If Mid(Text2.Text, x, 1) = "b" Or Mid(Text2.Text, x, 1) = "A" Then R = 1
  If Mid(Text2.Text, x, 1) = "c" Or Mid(Text2.Text, x, 1) = "A" Then R = 2
  If Mid(Text2.Text, x, 1) = "d" Or Mid(Text2.Text, x, 1) = "A" Then R = 3
  If Mid(Text2.Text, x, 1) = "e" Or Mid(Text2.Text, x, 1) = "A" Then R = 4
  If Mid(Text2.Text, x, 1) = "f" Or Mid(Text2.Text, x, 1) = "A" Then R = 5
  If Mid(Text2.Text, x, 1) = "g" Or Mid(Text2.Text, x, 1) = "A" Then R = 6
  etc ...

tu pourrais simplifier tous ces tests par une fonction plus simple pour la recherche de R:
   c$ = Ucase$(Mid(Text2.Text, x, 1))
   R = Chr$(Asc(c) - 65)  (uniquement pour les lettres)
  
   ou pour l'ensemble:
   s$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ., !éèà?'()"
   R = InStr(s$, c$) - 1

Le : 26/10/2006 23:37:06
Source : TEST DE LA FONCTION ALÉATOIRE 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 = 32353
    WWC = 6534
    WWM = 28147497671.0656
End Sub

Private Function WRnd() As Double
    Dim x  As Currency
    x = WWA * WW0 + WWC
    WWC = Int(x / WWM)
    WW0 = x - WWC * WWM
    WRnd = WW0 / WWM
End Function

Le : 18/08/2006 03:29:04
Source : UTILITAIRE DE DE-PROTECTION EN ÉCRITURE 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 vbReadOnly)
   End If

ok pour le Hidden, mais vaut mieux prendre de bonnes habitudes,
si on modifie un attribut, il faut laisser les autres intacts

Le : 17/08/2006 02:02:11
Source : UTILITAIRE DE DE-PROTECTION EN ÉCRITURE DE FICHIERS
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 faut utiliser GetFileAttributes et SetFileAttributes beaucoup plus performant.


Le : 08/05/2006 21:31:02
Source : ETUDE DE FONCTIONS ALÉATOIRES
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.

Le : 26/04/2006 18:27:36
Source : KEY INFOS (GETKEYSTATE / GETASYNCKEYSTATE) : UTILE POUR DÉVELOPPER DES APPS NÉCÉSSITANT 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 lorsque la touche est enfoncée.

Description GetAsyncKeyState:
Cette fonction permet de connaitre l'état appuyé ou relâché des touches, même si l'application n'est pas active.

donc pour tester une touche:
< 0 --> touche enfonçée
>=0 --> touche au repos

16 --> "Q'
17 --> "W"
je parlais des codes que l'on devrait obtenir directement à partir du port clavier ...!!!

ça se complique:
voilà d'autres fonctions intéressantes, qui sont en rapport avec les Scan Codes, mais j'ai pas trouvé beaucoup de documentation sur elles.

Private Declare Function OemKeyScan Lib "user32" (ByVal wOemChar As Integer) As Long
Private Declare Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Private Declare Function VkKeyScan Lib "user32" Alias "VkKeyScanA" (ByVal cChar As Byte) As Integer
Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long

Le : 26/04/2006 15:09:54
Source : KEY INFOS (GETKEYSTATE / GETASYNCKEYSTATE) : UTILE POUR DÉVELOPPER DES APPS NÉCÉSSITANT LA GESTION DE LA FRAPPE CLAVIER
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 clavier. sinon la touche reste dans le buffer virtuel tant qu'on ne l'a pas enlevée.

pour les ScanCodes, je suis pas sur que ce soit les mêmes,
ceux du système, de windows ou de vb ???
puisque 16 correspond à "Q" et 17 à "W" pour le système,
à vérifier ...

pour l'état des touches, ça dépend des touches:
   If GetKeyState(VK_INSERT) = 1 Then
      Text1 = "Touche INSERT activée"
      Else
      Text1 = "Touche INSERT non activée"
      End If

   If GetKeyState(VK_NUMLOCK) = 0 Then
      Text1 = "Touche NUMLOCK activée"
      Else
      Text1 = "Touche NUMLOCK non activée"
      End If

Le : 26/04/2006 14:16:09
Source : KEY INFOS (GETKEYSTATE / GETASYNCKEYSTATE) : UTILE POUR DÉVELOPPER DES APPS NÉCÉSSITANT LA GESTION DE LA FRAPPE CLAVIER
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 physiques du clavier,
sans passer par le buffer interne


1 2 3 4


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Appels d'offres

Comparez les prix Nouvelle version


Console Nintendo DSi Blanche
Entre 160€ et 170€


Visiter le guide achat

Photothèque Nouveau !

Photo pretty girlsPhoto friends
Photo alphabet langue des sourds 

Visiter la photothèque


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,218 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é.