Moderator: 2020vision
by cjones198 » Wed Sep 30, 2020 10:27 am
by Captain Sensible » Wed Sep 30, 2020 10:50 am
by cjones198 » Wed Sep 30, 2020 11:07 am
by Captain Sensible » Wed Sep 30, 2020 11:35 am
by Captain Sensible » Wed Sep 30, 2020 11:56 am
Sub floor()
Dim i As Integer, end_of_loop As Integer
Dim direction As String: direction = ""
Dim old_price As Currency, new_price As Currency, volume As Currency
old_price = 2.2
new_price = 2.02
volume = 50
i = getTicks(old_price, new_price)
If i >= 0 Then direction = "up"
i = Abs(i)
end_of_loop = WorksheetFunction.floor(i, 2)
For i = 2 To i Step 2
If direction = "up" Then
Worksheets("Sheet1").Range("A" & 15 + i / 2).Value = "Recording price " & plusTicks(old_price, 2)
Else
Worksheets("Sheet1").Range("A" & 15 + i / 2).Value = "Recording price " & minusTicks(old_price, 2)
End If
If i = end_of_loop Then
Worksheets("Sheet1").Range("C" & 15 + i / 2).Value = volume
Else
Worksheets("Sheet1").Range("C" & 15 + i / 2).Value = 0
End If
Next i
End Sub
by Captain Sensible » Wed Sep 30, 2020 11:57 am
For i = 2 To i Step 2
If direction = "up" Then
Worksheets("Sheet1").Range("A" & 15 + i / 2).Value = "Recording price " & plusTicks(old_price, 2)
Else
Worksheets("Sheet1").Range("A" & 15 + i / 2).Value = "Recording price " & minusTicks(old_price, 2)
End If
If i = end_of_loop Then
Worksheets("Sheet1").Range("C" & 15 + i / 2).Value = volume
Else
Worksheets("Sheet1").Range("C" & 15 + i / 2).Value = 0
End If
Next i
by cjones198 » Wed Sep 30, 2020 1:03 pm
by cjones198 » Wed Sep 30, 2020 1:18 pm
by cjones198 » Wed Sep 30, 2020 1:28 pm
by cjones198 » Wed Sep 30, 2020 1:39 pm
by Captain Sensible » Wed Sep 30, 2020 2:45 pm
cjones198 wrote:also why is there no end if for line If i >= 0 Then direction = "up"?
If i >= 0 Then
direction = "up"
End If
If i >= 0 Then
direction = "up"
something_else="yes"
End If
by Captain Sensible » Wed Sep 30, 2020 2:52 pm
Dim direction As String: direction = ""
Dim direction As String
direction = ""
by cjones198 » Wed Sep 30, 2020 9:03 pm
by cjones198 » Thu Oct 01, 2020 5:51 am
by cjones198 » Thu Oct 01, 2020 10:27 am
The strength of Gruss Software is that it’s been designed by one of you, a frustrated sports punter, and then developed by listening to dozens of like-minded enthusiasts.
Gruss is owned and run by brothers Gary and Mark Russell. Gary discovered Betfair in 2004 and soon realised that using bespoke software to place bets was much more efficient than merely placing them through the website.
Gary built his own software and then enhanced its features after trialling it through other Betfair users and reacting to their improvement ideas, something that still happens today.
He started making a small monthly charge so he could work on it full-time and then recruited Mark to help develop the products and Gruss Software was born.
We think it’s the best of its kind and so do a lot of our customers. But you can never stand still in this game and we’ll continue to improve the software if any more great ideas emerge.