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