Tweet
Sub mostrarpreco(ByVal MpriceResp As BFUK.GetMarketPricesResp)
'TALBA
tablaprecos.Columns.Clear()
tablaprecos.Rows.Clear()
Dim oMarketReq As New BFUK.GetMarketReq 'Create the request object
Dim oMarketResp As BFUK.GetMarketResp 'Create a varaible for the response object
Dim rowprecos As DataRow
Dim precoback As Decimal
Dim oddback As Decimal
Dim precolay As Decimal
Dim oddlay As Decimal
'Dim Lay, Back As String
Dim selid As String = ""
Dim name As String = ""
With tablaprecos.Columns 'Set up all columns
.Add("SELECTION ID")
.Add("NAME")
.Add("ODD BACK")
.Add("ODD BACK PREÇO")
.Add("ODD LAY")
.Add("ODD LAY PREÇO")
End With
With oMarketReq
.header = Me.oHeaderUK()
.marketId = LBLteste.Text
End With
oMarketResp = Me.BetFairUK.getMarket(oMarketReq) 'Call the API (getMarket)
'FIM(TALBA)
With oMarketResp 'Process the response
Me.CheckHeader(.header)
If .errorCode = BFUK.GetMarketErrorEnum.OK Then
With .market
For i = 0 To .runners.Length - 1
With .runners(i)
selid = .selectionId
name = .name
End With
Next
End With
End If
End With
With MpriceResp
CheckHeader(.header)
Print("ErrorCode = " & .errorCode.ToString)
If .errorCode = BFUK.GetMarketPricesErrorEnum.OK Then
With .marketPrices
For i = 0 To .runnerPrices.Length - 1
With .runnerPrices(i)
For j = 0 To .bestPricesToBack.Length - 1
With .bestPricesToBack(j)
precoback = .price
oddback = Int(.amountAvailable)
End With
Next
For j = 0 To .bestPricesToLay.Length - 1
With .bestPricesToLay(j)
precolay = .price
oddlay = Int(.amountAvailable)
End With
Next
rowprecos = tablaprecos.NewRow
rowprecos("SELECTION ID") = selid
rowprecos("NAME") = name
rowprecos("ODD BACK") = precoback
rowprecos("ODD BACK PREÇO") = oddback
rowprecos("ODD LAY") = precolay
rowprecos("ODD LAY PREÇO") = oddlay
tablaprecos.Rows.Add(rowprecos)
End With
Next
End With
End If
End With
GVPrecos.DataSource = tablaprecos 'Show the data
GVPrecos.Refresh()
End Sub
Dim oMarketsReq As New BFUK.GetAllMarketsReq
Dim oMarketsResp As New BFUK.GetAllMarketsResp
With oMarketsReq
.header = oHeaderUK()
ReDim .eventTypeIds(0) : .eventTypeIds(0) = 4339 'For greyhound racing
ReDim .countries(1) : .countries(0) = "GBR" : .countries(1) = "ZAF"
.fromDate = Now
.toDate = Now.AddDays(1)
End With
Dim i As Integer = 0
oMarketsResp = BetFairUK.getAllMarkets(oMarketsReq) 'Call the UK API
With oMarketsResp
CheckHeader(.header)
Print("oMarketsResp errorCode = " & .errorCode.ToString)
If .errorCode = BFUK.GetAllMarketsErrorEnum.OK Then
Dim AllMarkets As New UnpackAllMarkets(.marketData) 'Create an object and unpack the string
With AllMarkets
.
.
.
Comment