Discussion :

[vorx]

Bonjour à tous
je suis amateur en VB6
Dans un prog testant des entiers pour la conjecture de Syracuse(Rappel:prendre un entier s'il est pair le diviser par 2,s'il est impair le multiplier par 3 et ajouter 1:on finit tjrs par tomber sur le cycle 4-2-1[conjecture non démontrée]),
j'entre dans une zone de texte un entier quelconque;puis
dans une liste j'obtient tous les entiers qui découlent de la conjecture.
Cependant quand le nbre entier initial dépasse 15 chiffres j'obtient des entiers arrondis .
Question:Y-a-t'il moyen de formater ou d'obtenir un entier à + de 15 chiffres sans que celui ci soit arrondi
Merci d'avance pour votre aide

[HPJ]

Il faut implémenter les grands nombres dans une variable texte et redéfinir les opérations de base...
Je crois qu'on en a déjà parlé: fais une recherche

[Mandalar]

avec un chiffre de type single ou double on peut pas ?

[ThierryAIM]

Code :

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

1
2
3
4
5
 
Dim d As Variant
 
d = CDec("79 228 162 514 264 337 593 543 950 335 ") 'Maxi possible !!!
MsgBox d

[ThierryAIM]

Comme il n'est jamais trop tard pour s'instruire, ca m'a paru interessant et j'aurai appris qque chose aujourd'hui

ma modeste contribution :

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
 
Function IsPair(ByVal MyVar As Variant) As Boolean
    IsPair = (MyVar Mod 2 = 0)
End Function
 
Private Sub Command1_Click()
    Dim result As Variant
    RichTextBox1.Text = ""
    result = CDec(Text1.Text)
    RichTextBox1.Text = RichTextBox1.Text & result & vbCrLf
    While result <> 1
        DoEvents
        If IsPair(CInt(Right(CStr(result), 1))) Then
            result = CDec(result / 2)
        Else
            result = CDec((result * 3) + 1)
        End If
        RichTextBox1.Text = RichTextBox1.Text & result & vbCrLf
    Wend
End Sub