"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 ???

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

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

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

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.

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.

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

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

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

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

donc pas bon !