Moderator: 2020vision
by Fixador » Tue May 08, 2007 3:52 pm
by Fixador » Tue May 08, 2007 6:38 pm
by Mitch » Wed May 09, 2007 12:04 am
by Fixador » Wed May 09, 2007 12:03 pm
by Fixador » Wed May 09, 2007 12:12 pm
by Mitch » Wed May 09, 2007 7:31 pm
by Fixador » Thu May 10, 2007 2:22 pm
by Fixador » Thu May 10, 2007 3:06 pm
by Fixador » Fri May 11, 2007 12:55 pm
Private Sub Worksheet_Change(ByVal Target As Range)
'export to A10
Dim counter As Integer
counter = 0
If Target.Columns.Count <> 16 Then Exit Sub
Application.EnableEvents = False
Cells(1, 17) = counter: Cells(9, 18) = ""
If (counter = 0 And (Cells(1, 19) > 0) And (Cells(11, 6) = "") And (Cells(11, 5) = "Not In Play")) Then
'(1,24) is visual marker '(1,19) is sum(...) '(11,6) is suspended '(11,5) is in play
counter = 1: Cells(2, 17) = counter ' 1st pass is b4 inplay
End If
If (counter = 1 And (Cells(1, 19) = 0) And (Cells(11, 6) = "Suspended") And (Cells(11, 5) = "In Play")) Then
counter = 2 '2nd pass : clear and roll to inplay
Cells(3, 17) = counter: Cells(3, 18) = " 2nd pass"
End If
If (counter = 2 And (Cells(1, 19) > 0) And (Cells(11, 6) = "") And (Cells(11, 5) = "In Play")) Then
counter = 3 ' in play has confirmed
Cells(4, 17) = counter: Cells(4, 18) = "gone in play"
End If
If (counter = 3 And (Cells(1, 19) > 0) And (Cells(11, 6) = "Suspended") And (Cells(11, 5) = "In Play")) Then
counter = 2 'a temporary suspended has occurred - horse fall over ! '
Cells(5, 17) = counter: Cells(5, 18) = "short period suspension "
End If
If (counter = 3 And (Cells(1, 19) = 0) And (Cells(11, 6) = "Suspended") And (Cells(11, 5) = "In Play")) Then
counter = 4 'looks like end if race
Cells(1, 24) = "NO": Cells(1, 25) = "": Cells(6, 17) = counter
End If
If counter = 4 And Cells(1, 24) = "NO" And (Cells(11, 6) = "Suspended") And (Cells(11, 5) = "In Play") Then
Cells(1, 24) = "WAIT": Cells(1, 25) = Cells(11, 3): Cells(7, 17) = counter
'C11 ie time ( not countdown : D11 not reliable)
End If
If (counter = 4 And (Cells(11, 6) = "") And (Cells(11, 5) = "In Play")) Then
'suspended was a temporary one - a different type , so reset timer start
counter = 3: Cells(1, 24) = "": Cells(1, 25) = "": Cells(8, 17) = counter
Cells(8, 18) = "timer false start - reset done"
End If
If (Cells(11, 3) - Cells(1, 25) >= TimeSerial(0, 0, 20)) And counter = 4 And (Cells(11, 6) = "Suspended") And _
(Cells(11, 5) = "In Play") Then
Cells(1, 24) = "OK": counter = 0: Cells(1, 25) = "": Cells(9, 17) = counter: Cells(9, 18) = " job done once"
End If
Application.EnableEvents = True
End Sub
by Mitch » Fri May 11, 2007 7:56 pm
by Fixador » Sat May 12, 2007 12:09 am
by Fixador » Sat May 12, 2007 7:25 am
Do While (Cells(11, 5) = "In Play" And Cells(9, 18) = "")
by Mitch » Sat May 12, 2007 11:35 am
by Fixador » Sun May 13, 2007 12:02 pm
by Mitch » Sun May 13, 2007 2:17 pm
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.