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:
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 :
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
Partager