N3wN00l3_vb.net
New member
- Joined
- Oct 21, 2020
- Messages
- 1
- Programming Experience
- Beginner
Hello,
I am in the process of making a small program to calculate the number ready on the mining.
Yes,there are several sites that do... But, there is so much currency that the sites cannot list them all.
I have the algorithm formula but in my program it gives me a 0.
Thank you in advance
I am in the process of making a small program to calculate the number ready on the mining.
Yes,
I have the algorithm formula but in my program it gives me a 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)
Button1:
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
Button1:
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
Thank you in advance