Discussion :

[MrPARODIE100]

Bonjour,

Je suis entrain de faire un petit programme pour calculer le nombre prêt sur le minage.
Oui, il y a plusieurs sites qui le propos... Mais, il y a tellement de monnaie que les sites ne peut tout les lister.
J'ai la formule algorithme mais dans mon programme il me donne un 0.

• H = Hashrate (hashes / second)
• D = Difficulty (Reference for values below)
• B = Reward per Block (Reference for value below)
• N = Number of days per month (default = 30)
• S = Number of seconds per day (S = 60 * 60 * 24 = 86400)

Dans mon Function:

Code VB.NET :

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

1
2
3
4
5
Function AlgoM(ByVal Days As Int32, ByVal Reward As Int32, ByVal Hsahrate As Int32) As Int32
        Dim Cout As Int32
        Cout = FormatNumber((30 * NumericUpDown4.Value * NumericUpDown1.Value * 86400) / (NumericUpDown6.Value * 2 ^ 32))
        Return Cout
    End Function

Dans le button1 :

Code VB.NET :

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

1
2
3
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Label18.Text = AlgoM(Me.NumericUpDown4.Value, Me.NumericUpDown1.Value, Me.NumericUpDown6.Value)
    End Sub

Je me suis planter ?
Merci d'avance

[MrPARODIE100]

J'ai testé un autre méthode

Code :

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

1
2
 
Me.TextBox1.Text = ((30 * 21990232555520 * 25 * 86400) / (47427554950.648 * 2 ^ 32))

Le problèmeme c'est qu'il est en type long et je ne sais pas comment le mettre en double?

[MrPARODIE100]

[MrPARODIE100]

Code :

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

1
2
 Dim nhash As ULong = 21990232555520
        Me.RedemptionTextBox1.Text = ((30 * nhash * 25 * 86400) / (47427554950.648 * 2 ^ 32))