placeBet and betPlaced event problem

[alrodopial]

Hi,
I'm trying to place a bet using the com function "placeBet " asynchronous and get the bet details from the betPlaced event that will rise
The bet is fired ok ( matched, cancelled etc) but no betPlaced event rises
the code in a module is:

Code: Select all

Public ba As New BettingAssistantCom.ComClass

Sub testbet1()
    If ba Is Nothing Then
        Set ba = New BettingAssistantCom.ComClass
        ba.tabIndex = 1
    Else
        ba.tabIndex = 1
    End If
               
    ba.placeBet 1, "B", 5, 2, False, "", 10
   
End Sub

and in sheet1 object is:

Code: Select all

Public WithEvents ba As BettingAssistantCom.ComClass

Public Sub ba_betPlaced(ByVal ref As String, ByVal selecId As Long, ByVal avgPriceMatched As Double, ByVal sizeMatched As Double, ByVal resultCode As String, ByVal token As String)
   
    ThisWorkbook.Sheets("Sheet2").Range("AA1") = selecId & "/" & avgPriceMatched & "/" & sizeMatched
    Debug.Print selecId & "/" & avgPriceMatched & "/" & sizeMatched
   
End Sub

I tried to change from public to Dim the events or place them in sheet2 but with no success
The "Sub ba_betPlaced(ByVal ref As String, By ...." is taken from Garrys' file "PlaceBet_Async.xlsm"

Garry/Mark/anyone ???

[alrodopial]

ok, it is working if I move the macro testbet1 into sheet object , where the WithEvents and sub ba_betPlaced exists
I guess it will work with a function that will exists in sheet object and only fires the bet (with its data)(placeBet com function)
What if I want to keep the "ba.placeBet 1, "B", 5, 2, False, "", 10" inside the macro in my module where I have the rest of the code that checks the rules for firing the bet?

[alrodopial]

I want to use the com placeBet function for placing bets from sheet1, sheet2, sheet3 etc (macros from these sheets)
do I have to declare "Public WithEvents ba As BettingAssistantCom.ComClass" and also place the
Sub ba_betPlaced ( ......)
at every sheet1,sheet2 etc object?
Does this creates more than one instance of ba com? Can it be done?

or do I have to place them only in one sheet object and call only this one function from macros?

Anyone who uses the placeBet function knows?
There is no such info in the manual

Garry?

[MarkRussell]

Hi,

You need to set the tabIndex property prior to placing the bet.
It is a zero based index so tab page 1 use tabIndex=0 for the first tab page, tabIndex=1 for the second and so on.

Regards,
Mark

[alrodopial]

I know about the tab index
My code in the first post is setting it up
I wasn't asking this

I rephrase:

do I have to use ie the below code ONLY in sheet1: (some answers inside code)

Code: Select all

Public WithEvents ba As BettingAssistantCom.ComClass ' (or as New BettingAssistant.ComClass???)

Public Sub testbet1()
    If ba Is Nothing Then
        Set ba = New BettingAssistantCom.ComClass
        ba.tabIndex =  ......... ' setting the correct number here
    Else
        ba.tabIndex = ......... ' setting the correct number here    End If
               
    ba.placeBet 1, "B", 5, 2, False, "", 10
   
End Sub

Public Sub ba_betPlaced(ByVal ref As String, ByVal selecId As Long, ByVal avgPriceMatched As Double, ByVal sizeMatched As Double, ByVal resultCode As String, ByVal token As String)
   
' back up bet details here
    ..........
   
End Sub


what will happen if bet details from two bets come at the same time, how many betPlaced events will be raised?


or should I use the same as previous code but inside sheet1 object AND inside sheet2 object AND inside etc
and call from macros ie :
Call sheet1.tesBet1 ( ' bet details here)
or
Call sheet3.tesBet1 ( ' bet details here)

[osknows]

Take a look at this example https://www.dropbox.com/s/zbyl0jcezx44w ... .xlsm?dl=0

There is a ba object in Sheet1 which can be copied to multiple sheets if required.

Or there is classmodule which can be used as a single object and switch the tabIndex, or multiple instances can be created.

If multiple bets are in the placeBets then the event will fire multiple times.

Does that answer your question?

I don't know why a tab index is used though as surely it would be easier to just place bets via the marketId rather than what tab is selected.

[alrodopial]

Thanks Os,
give me a couple of days and I'll be back, probably next week