Sample code - get a bid
'---VB.Net code example to get a bid after entering prior calls:
Dim dealer, k, j, new_bid, position, vulnerability, strain, level As Integer
Dim meaning As String
Dim info() As Integer
'---structure hand must be previously declared as:
'Private Structure TYPE_HAND
' Dim suit() As String
'End Structure
Dim Player() As Object
Const C_PASS As Integer = 0
Const C_DOUBLE As Integer = 1
Const C_REDOUBLE As Integer = 2
Const C_CLUBS As Integer = 0
Const C_DIAMONDS As Integer = 1
Const C_HEARTS As Integer = 2
Const C_SPADES As Integer = 3
Const C_NT As Integer = 4
Const C_NS As Integer = 0
Const C_WE As Integer = 1
Const C_MP As Integer = 0
Const C_IMP As Integer = 1
Const C_INTERPRETED As Integer = 13
Dim hand() As TYPE_HAND
ReDim Player(3)
For k = 0 To 3
'Player(k) = New EPBot32.EPBot
Player(k) = New EPBot86.EPBot
'Player(k) = New EPBot64.EPBot
Next k
ReDim hand(3)
For k = 0 To 3
ReDim hand(k).suit(3)
Next
position = 0
dealer = 0 '---
vulnerability = 0 '--- 0 - none, 1 - WE, 2 - NS, 3 - both
hand(position).suit(3) = ""
hand(position).suit(2) = "AJ2"
hand(position).suit(1) = "AQ9765"
hand(position).suit(0) = "KQJ2"
With Player(position)
.new_hand(position, hand(position).suit, dealer, vulnerability)
.scoring = 0
'---Example: 1D-(P)-1H-(P)-2C-(P)-3NT-(P)-?
'---set bid for myself
new_bid = 1 * 5 + C_DIAMONDS
.set_bid(position, new_bid)
'---LHO
new_bid = C_PASS
.set_bid(position + 1, new_bid)
'---set bid of partner
new_bid = 1 * 5 + C_HEARTS
.set_bid(position + 2, new_bid)
'---RHO
new_bid = C_PASS
.set_bid(position + 3, new_bid)
'---set bid for myself
new_bid = 2 * 5 + C_CLUBS
.set_bid(position, new_bid)
'---LHO
new_bid = C_PASS
.set_bid(position + 1, new_bid)
'---set bid of partner
new_bid = 3 * 5 + C_NT
.set_bid(position + 2, new_bid)
'---RHO
new_bid = C_PASS
.set_bid(position + 3, new_bid)
'---get bid
new_bid = .get_bid
level = new_bid \ 5
strain = new_bid Mod 5
'---interpret the potential bid (C_INTERPRETED = 13) - the new bid is not set yet,
'---can only be used as a bid hint for the player to whom it is bidding.
.interpret_bid(new_bid)
'---if you use .set_bid(position, new_bid), information is the same, but the bid is set
'---get info (string) from Player(position) about interpreted player
meaning = .info_meaning(C_INTERPRETED)
'---arrays()
'info = .info_feature(C_INTERPRETED)
'info = .info_honors(C_INTERPRETED)
'info = .info_max_length(C_INTERPRETED)
'info = .info_min_length(C_INTERPRETED)
'info = .info_probable_length(C_INTERPRETED)
'info = .info_suit_power(C_INTERPRETED)
End With
Player = Nothing