Archive for July 10th, 2013

 

GUI for 5 Card Poker Hand

Brad Steinburg

VB.NET Source Code to evaluate a poker hand

C# Source Code to evaluate a poker hand

1 Comment. Join the Conversation

With New Jersey recently legalizing online poker as well as the long anticipated opening of Nevada’s online poker games, it was only a matter of time before other states began legalizing online poker too. The tiny state of Delaware followed suit with legalizing online poker and we’ve heard rumors of California and even Iowa allowing online poker as well. Now, Pennsylvania becomes the latest state that may possibly enter the legal online poker fray.  The bill would also allow for other type’s of casino games, not just poker. For a business to provide online poker or other online casino games, it would need to be an established land based casino in the state, and users would register with the site by going to the casino. Third party providers could work with the casino to provide the software (so a casino may partner with say 888 Poker to provide games). Pennsylvania is a fairly large state and currently has the second largest gaming market, recently overtaking New Jersey. If online poker is legalized there, it would be a huge step towards a general legalization effort in the United States.

Be the first to comment

float play from the big blind

Posted July 10, 2013 By martin

*** HOLE CARDS ***
Dealt to zx martin xz 8c5h
UTG: folds
UTG+1: folds
MP: folds
HJ: folds
CT: folds
SB: calls 125
zx martin xz: checks

—– this is a great flop to float—–

*** FLOP *** 4c4hQs
SB: bets 500

—– at this point you pause, already planning on raising the turn, and flat call his bet —–

zx martin xz: calls 500

*** TURN *** 4c4hQs 3d
SB: bets 500

—– a very fast raise (the smallest that will get the job done)  here will portray an excited newb and should work —–

zx martin xz: raises 500 to 1000

—– he didn’t get lucky (2 cards in 46 = 4% chance he had the 4) and folds the winning hand—–

SB: folds

Uncalled bet (500) returned to zx martin xz
zx martin xz collected 2710 from pot
zx martin xz: shows 8c5h

*** SUMMARY ***
Total pot 2710 | Rake 0
Board 4c4hQs3d

Be the first to comment

this took me awhile to figure out and I’ve had to change it on occasion after some pokerstars updates, besides the PS updates, it’s never failed.

I included the GetText declarations because It’s simple to first grab any text you may be typing in the pokerstars chat enter area at the moment the sub fires, save it as a string somewhere, and then replace it after the sub has sent the programmed chat. This will keep any text you’re typing to the table from being wiped out by the Sub.

use the sub like this:  SendChatToPokerstarsTable(“nice hand”)

Martin Carter – psxpoker.com
PrivateConst WM_SETTEXT = &HC 
PrivateConst WM_GETTEXT = &HD 
PublicConst WM_CHAR = &H102

PublicDeclareFunction GetWindowTextLength Lib“user32.dll”Alias“GetWindowTextLengthA” (ByVal hWnd AsLong) AsLong

PublicDeclareFunction GetWindowText Lib“user32.dll”Alias“GetWindowTextA” (ByVal hWnd AsLong, ByVal prmstrString AsString, ByVal nMaxCount AsLong) AsLong

PublicDeclareFunction FindWindow Lib“user32”Alias“FindWindowA” (ByVal lpClassName AsString, ByVal lpWindowName AsString) AsInteger

PublicDeclareFunction FindWindowEx Lib“user32”Alias“FindWindowExA” (ByVal hWnd1 AsInteger, ByVal hWnd2 AsInteger, ByVal lpsz1 AsString, ByVal lpsz2 AsString) AsInteger

PublicDeclareFunction SendMessageSTRING Lib“user32”Alias“SendMessageA” (ByVal hwnd AsInteger, ByVal wMsg AsInteger, ByVal wParam AsInteger, ByVal lParam AsString) AsInteger

DeclareFunction sendmessagebynum& Lib“user32”Alias“SendMessageA” (ByVal hWnd AsInteger, ByVal wMsg AsInteger, ByVal wParam AsInteger, ByVal lParam AsInteger)

PublicSub SendChatToPokerstarsTable(ByVal Chat)

Dim pokerstarstableframeclass AsLong = FindWindow(“pokerstarstableframeclass”, vbNullString)

Dim pokerstarschateditorclass AsLong = FindWindowEx(pokerstarstableframeclass, 0&, “pokerstarschateditorclass”, vbNullString)

If pokerstarschateditorclass = 0 Then

Exit Sub

Else

Call SendMessageSTRING(pokerstarschateditorclass, WM_SETTEXT, 0&, Chat)

Call sendmessagebynum(pokerstarschateditorclass, WM_CHAR, 13, 0)

EndIf

EndSub

 

You can also loop thru a textbox and instantly send multilines of text to the table.

Dim ChatLines() AsString = Split(TextBox1.Text, vbNewLine)

ForEach line In ChatLines

If line = “” Then line = “.”

 SendChatToPokerstarsTable(line)

Next

PLEASE DONT SPAM THE TABLES WITH THESE CODES! THIS IS FOR “NICE HAND” or “PAYOUTS AS FOLLOWS…” ETC!

6 Comments so far. Join the Conversation

By , INVESTOR’S BUSINESS DAILY

Caesars Entertainment (CZR) and 11 other Atlantic City casinos have begun  the process of getting Internet gaming permits ahead of a Sunday deadline set by  New Jersey regulators.

They’re part of a rush to get in on the ground floor as online gambling gets  ready to go mainstream nationwide.

New Jersey will in November be the third state to launch statewide online  poker and other gaming, after Nevada and Delaware.

A sample poker game is played on the Ultimate Gaming website in Las Vegas of April 29, 2013. The Trump Taj Mahal casino in Atlantic City, N.J., has...A sample poker game is played on the  Ultimate Gaming website in Las Vegas

The new gaming outlet became possible when the federal government did an  about-face in December 2011. After adamantly opposing online gambling for years,  the government said states could issue licenses, but must limit gambling to  residents who live within that state.

Las Vegas casinos Las Vegas Sands (LVS), the world’s largest casino resort operator,  MGM Resorts International (MGM) and Wynn Resorts (WYNN) are expected to jump into online  gambling.

Sands, MGM and Wynn all have multibillion-dollar hotel casino complexes in  Macau and rely on it for the bulk of their growth.

Former Portuguese colony Macau, on China’s southern coast across the straits  from Hong Kong, is the world’s top gambling destination and fastest-growing.

Caesars, which missed the boat to Macau, hopes to rake in the chips online.  Analysts project the online gambling revenue opportunity in New Jersey alone at  $500 million to $1 billion annually.

Analysts speculate online companies such as leading social network Facebook (FB), which offers non-money games now,  might join the party. Facebook rose 0.5% Wednesday.

Caesars fell 1.2% Wednesday in stock market trading.

Sands was unchanged, MGM Resorts rose 0.4% and Wynn Resorts edged down  fractionally.

Caesars has focused mainly on its U.S. properties and is one of the biggest  casino operators in Atlantic City. It also has resorts in Las Vegas and Reno,  Nev., Baltimore, New Orleans, Philadelphia and other U.S. cities, as well as in  Cairo, London and Emerald, South Africa.

It was one of the first to file for a permit earlier this year.

Caesars CEO Gary Loveman told reporters on a May earnings calls, “We’re  pursuing emerging opportunities, including real-money online gaming in the  United States and international expansion.

“The successful launch of real-money online gaming in Nevada and New Jersey  could be a model for other states considering the legalization of online  gaming,” Loveman added.

Like other casinos, Caesars is teaming with an established online gaming  company. The four Atlantic City casinos owned by Caesars paired with European  online gaming operator 888 Holdings.

The Trump Taj Mahal casino signed an agreement with Las Vegas-based Ultimate  Gaming to bring online gambling to New Jersey. In April, Ultimate Gaming  launched online poker in Nevada.

And Atlantic City’s Borgata Hotel Casino, jointly owned by an MGM divestiture  trust and Boyd Gaming (BYD), teamed with British territory Gibraltar-based  Bwin.Party. Boyd fell 0.5% Wednesday.

 

Be the first to comment

Hit Counter provided by shuttle service from lax