Discussion :

[miamiaca83]

Salut tt le monde
j'ai un problème avec l'erreur 6 "dépassement de capacité"
Voila le code source

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
dim rib as string
---
---il ya des traitement concernat  le rib
---
rib = Val(rib)
ribinter = rib * 100
ribinter = ribinter Mod 97  --- ici l'erreur de dépassement de capacité
MsgBox ribinter

Merci de répondre

[Delbeke]

Si comme tes variables le sugérent, il s'agit de Rib bancaire, cette petite fonction de controle d'un rib poura peut être t'aider

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Public Function IsRibOk(ByVal rib As String)
  Dim RibOrg As String
  Dim RibFin As String
  Dim strTemp As String
  Dim iPnt As Integer
  Dim iposit As Integer
    rib = Left$(rib & String$(23, " "), 23)
    'table substitution des carateres
    RibOrg = "AJBKSCLTDMUENVFOWGPXHQYIRZ"
    RibFin = "11222333444555666777888999"
    'substitution
    For iPnt = 1 To 26  'lettres de l'alphabet
      iposit = InStr(rib, Mid$(RibOrg$, iPnt, 1))
      If iposit <> 0 Then
        Mid$(rib, iposit, 1) = Mid$(RibFin$, iPnt, 1)
      End If
    Next iPnt
    'division par 97
    strTemp = ""
    For iPnt = 1 To 23  'longeur du rib
        strTemp = Str$(Val(strTemp & Mid$(rib, iPnt, 1)) Mod 97)
    Next iPnt
    If Val(strTemp) <> 0 Then
        IsRibOk = False
    Else
        IsRibOk = True
    End If
End Function

c'est une routine que j'ai ecrit il y a bien lontemps, un temps ou on ecrivait des programmes qui devait tenir dans 32 k de mémoire.
Il y a certainement des possibilités de l'ecrire mieux mais elle fonctionne.
(la fonction val peut etre remplacée déjà) Le but du jeu etant de faire un modulo 97 sur un nombre de 23 chiffres !
Je ne connais pas de language ayant une instruction capable de le faire de façon native.

[miamiaca83]

merci
mais je ne pas compris cette fonction

[Vld44]

pourquoi tu travailles sur une string pour manipuler des chiffres ?

[Delbeke]

Parce que les nombres manipulés sont trop grand pour les mettre dans d'autre type de variable. J'emule donc la facon de diviser d'un homo erectus standard, muni d'un papier et d'un crayon ! Et la les nombres pouraient avoir plusieurs millers de chiffres !

[Vld44]

je parlais du code de Miamiac, il multiplie une string par 100 ...