Formule d'algorithme VB.NET

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)

Pièce jointe 581788

Dans mon Function:

Code:

---

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:

---

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

J'ai testé un autre méthode

Code:

---

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?

https://induste.com/data/attachments...679ff0b8b7.jpg

Code:

---

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

---