https://ameblo.jp/maziha/ ブログの説明を入力します。 ja
ブラックジャック自動　３００ｗｍ

バカラ自動　３００ｗｍ

強制釣り（sｐtファイルです　５００ｗｍ

座標指定（瞬間移動）　５００ｗｍ

家具合成　３００ｗｍ

白黒＆海賊じゃんけん（sptファイルです５００ｗｍ

ハルク＆超ミニマム　３００ｗｍ

スロット高速　３００ｗｍ

いかたこウィルス　３００ｗｍ




買いたいのがあったらコメよろしくｗｗ ]]> https://ameblo.jp/maziha/entry-11022676030.html Mon, 19 Sep 2011 14:58:06 +0900 {&H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF _
　, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF} _
,{&H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF _
　, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF} _
,{&H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF _
　, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF} _
,{&HFFFFFF, &HFFFFFF, &HFFFFFF, &HFFFFFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF _
　, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF} _
,{&HFFFFFF, &HFFFFFF, &HFFFFFF, &HFFFFFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF _
　, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF} _
,{&H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF _
　, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF} _
}
Private Shared markAll As Integer(,) = New Integer(,) { _
{&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF _
,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF _
,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF} _
,{&H6532FF,&H784BFF,&H8D67FF,&H7244FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF _
,&H6532FF,&H6532FF,&H6F3FFF,&H8057FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF _
,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6F3FFF,&H8057FF,&H6532FF} _
,{&HA98CFF,&HFFFFFF,&HFFFFFF,&HFBFAFF,&H9A79FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF _
,&H6532FF,&H8258FF,&HFBF9FF,&HFFFFFF,&HA486FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF _
,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H8258FF,&HFBF9FF,&HFFFFFF,&HA486FF} _
}
Private Const APPNAME As String = "自動ミニバカラ"
Public Shared Sub main()
　　If form01.Visible = False Then
　　　　form01initial()
　　　　form01.Show()
　　End If
　　Dim offsetx As Integer
　　Dim gamePos As Point = imageSearch(markGame)
　　Dim prog As Integer = 0
　　If gamePos.X = -1 Then
　　　　MessageBox.Show("ミニバカラウインドウの位置が読み取れませんでした。" & ControlChars.CrLf _
　　　　　　& "1.[停止]" & ControlChars.CrLf _
　　　　　　& "2.ミニバカラウインドウを少し移動" & ControlChars.CrLf _
　　　　　　& "3.[再生]して下さい。" & ControlChars.CrLf _
　　　　　　& "再びエラーメッセージが出なければ大丈夫です",APPNAME)
　　　　Exit Sub
　　End If
　　Do While stopFlag = False
　　　　If form01Pause.Checked Then
　　　　　　If prog = 0 Then
　　　　　　　　prog = 1
　　　　　　　　form01text("+")
　　　　　　Else
　　　　　　　　prog = 0
　　　　　　　　form01text("*")
　　　　　　End If
　　　　　　offsetx = getOffsetx(gamePos)
　　　　　　If offsetx <> -1 Then　　'BET可能
　　　　　　　　If form01Supply.Checked Then
　　　　　　　　　　If supply() Then
　　　　　　　　　　　　form01text("補充")
　　　　　　　　　　End If
　　　　　　　　End If
　　　　　　　　form01text("BET")
　　　　　　　　bet(gamePos, offsetx)
　　　　　　　　betAfter(gamePos)
　　　　　　End If
　　　　End If
　　　　waitMilliSecR(1000)
　　Loop
End Sub
Private Shared Function getOffsetx(ByVal gamePos As Point) As Integer
　　For num As Integer = 0 To 4 Step 1
　　　　If getColor(gamePos.X + 71 + (135 * num), gamePos.Y + 235) = &Hfdfdfd Then
　　　　　　waitMilliSec(500)
　　　　　　If getColor(gamePos.X + 71 + (135 * num), gamePos.Y + 235) = &Hfdfdfd Then
　　　　　　　　Return num * 135
　　　　　　End If
　　　　End If
　　Next
　　Return -1
End Function
Private Shared Sub form01text(ByVal str As String)
　　form01.text = str & " " & APPNAME
End Sub
Private Shared Function supply() As Boolean
　　Dim allPos As Point = imageSearch(markAll)
　　If allPos.X <> -1 Then
　　　　mMoveR(allPos.X - 87, allPos.Y)
　　　　mClick(1)
　　　　Return True
　　End If
　　Return False
End Function
Private Shared Sub bet(ByVal gamePos As Point, ByVal offsetx As Integer)
　　Dim r As Random = New Random
　　Dim tie1 As Integer
　　Dim tie2 As Integer
　　Dim tie3 As Integer
　　Dim banker1 As Integer
　　Dim banker2 As Integer
　　Dim banker3 As Integer
　　Dim player1 As Integer
　　Dim player2 As Integer
　　Dim player3 As Integer
　　Dim resultFlag As Boolean = False
　　If form01Radio(1).Checked OrElse form01Radio(2).Checked Then
　　　　resultFlag = analyze(gamePos)
　　　　If form01Radio(2).Checked Then
　　　　　　resultFlag = Not resultFlag
　　　　End If
　　ElseIf form01Radio(3).Checked Then
　　　　resultFlag = False
　　ElseIf form01Radio(4).Checked Then
　　　　resultFlag = True
　　Else
　　　　If r.Next(0,2) < 1 Then
　　　　　　resultFlag = False
　　　　Else
　　　　　　resultFlag = True
　　　　End If
　　End If
　　If resultFlag = False Then
　　　　tie1 = CInt(form01tie(1).SelectedItem)
　　　　tie2 = CInt(form01tie(2).SelectedItem)
　　　　tie3 = CInt(form01tie(3).SelectedItem)
　　　　banker1 = CInt(form01banker(1).SelectedItem)
　　　　banker2 = CInt(form01banker(2).SelectedItem)
　　　　banker3 = CInt(form01banker(3).SelectedItem)
　　　　player1 = CInt(form01player(1).SelectedItem)
　　　　player2 = CInt(form01player(2).SelectedItem)
　　　　player3 = CInt(form01player(3).SelectedItem)
　　Else
　　　　tie1 = CInt(form01tie(4).SelectedItem)
　　　　tie2 = CInt(form01tie(5).SelectedItem)
　　　　tie3 = CInt(form01tie(6).SelectedItem)
　　　　banker1 = CInt(form01banker(4).SelectedItem)
　　　　banker2 = CInt(form01banker(5).SelectedItem)
　　　　banker3 = CInt(form01banker(6).SelectedItem)
　　　　player1 = CInt(form01player(4).SelectedItem)
　　　　player2 = CInt(form01player(5).SelectedItem)
　　　　player3 = CInt(form01player(6).SelectedItem)
　　End If
　　If tie1 > 0 OrElse tie2 > 0 OrElse tie3 > 0 Then
　　　　betTie(gamePos, offsetx, tie1, tie2, tie3)
　　　　waitMilliSecR(300)
　　End If
　　If banker1 > 0 OrElse banker2 > 0 OrElse banker3 > 0 Then
　　　　betBanker(gamePos, offsetx, banker1, banker2, banker3)
　　　　waitMilliSecR(300)
　　End If
　　betPlayer(gamePos, offsetx, player1, player2, player3)
　　waitMilliSecR(300)
End Sub
Private Shared Sub betTie(ByVal gamePos As Point, ByVal offsetx As Integer, ByVal b1 As Integer, ByVal b2 As Integer, ByVal b3 As Integer)
　　mMoveR(gamePos.X + 71 + offsetx, gamePos.Y + 213)
　　waitMilliSecR(500)
　　If b3 > 0 Then
　　　　mMoveR(gamePos.X + 225 + offsetx, gamePos.Y + 195)
　　　　For num As Integer = 1 To b3 Step 1
　　　　　　mClick(1)
　　　　　　waitMilliSecR(200)
　　　　Next
　　End If
　　waitMilliSecR(100)
　　If b2 > 0 Then
　　　　mMoveR(gamePos.X + 179 + offsetx, gamePos.Y + 195)
　　　　For num As Integer = 1 To b2 Step 1
　　　　　　mClick(1)
　　　　　　waitMilliSecR(200)
　　　　Next
　　End If
　　waitMilliSecR(100)
　　If b1 > 0 Then
　　　　mMoveR(gamePos.X + 131 + offsetx, gamePos.Y + 195)
　　　　For num As Integer = 1 To b1 Step 1
　　　　　　mClick(1)
　　　　　　waitMilliSecR(200)
　　　　Next
　　End If
End Sub
Private Shared Sub betBanker(ByVal gamePos As Point, ByVal offsetx As Integer, ByVal b1 As Integer, ByVal b2 As Integer, ByVal b3 As Integer)
　　mMoveR(gamePos.X + 71 + offsetx, gamePos.Y + 249)
　　waitMilliSecR(500)
　　If b3 > 0 Then
　　　　mMoveR(gamePos.X + 254 + offsetx, gamePos.Y + 232)
　　　　For num As Integer = 1 To b3 Step 1
　　　　　　mClick(1)
　　　　　　waitMilliSecR(200)
　　　　Next
　　End If
　　waitMilliSecR(100)
　　If b2 > 0 Then
　　　　mMoveR(gamePos.X + 207 + offsetx, gamePos.Y + 232)
　　　　For num As Integer = 1 To b2 Step 1
　　　　　　mClick(1)
　　　　　　waitMilliSecR(200)
　　　　Next
　　End If
　　waitMilliSecR(100)
　　If b1 > 0 Then
　　　　mMoveR(gamePos.X + 160 + offsetx, gamePos.Y + 232)
　　　　For num As Integer = 1 To b1 Step 1
　　　　　　mClick(1)
　　　　　　waitMilliSecR(200)
　　　　Next
　　End If
End Sub
Private Shared Sub betPlayer(ByVal gamePos As Point, ByVal offsetx As Integer, ByVal b1 As Integer, ByVal b2 As Integer, ByVal b3 As Integer)
　　mMoveR(gamePos.X + 71 + offsetx, gamePos.Y + 302)
　　waitMilliSecR(500)
　　If b3 > 0 Then
　　　　mMoveR(gamePos.X + 254 + offsetx, gamePos.Y + 285)
　　　　For num As Integer = 1 To b3 Step 1
　　　　　　mClick(1)
　　　　　　waitMilliSecR(200)
　　　　Next
　　End If
　　waitMilliSecR(100)
　　If b2 > 0 Then
　　　　mMoveR(gamePos.X + 207 + offsetx, gamePos.Y + 285)
　　　　For num As Integer = 1 To b2 Step 1
　　　　　　mClick(1)
　　　　　　waitMilliSecR(200)
　　　　Next
　　End If
　　waitMilliSecR(100)
　　If b1 > 0 Then
　　　　mMoveR(gamePos.X + 160 + offsetx, gamePos.Y + 285)
　　　　For num As Integer = 1 To b1 Step 1
　　　　　　mClick(1)
　　　　　　waitMilliSecR(200)
　　　　Next
　　End If
　　waitMilliSecR(100)
　　mMoveR(gamePos.X + 169 + offsetx, gamePos.Y + 329)
　　mClick(1)
End Sub
Private Shared Sub betAfter(ByVal gamePos As Point)
　　For num As Integer = 0 To 30 Step 1
　　　　If getColor(gamePos.X + 263, gamePos.Y + 75) <> &H33cc33 AndAlso getColor(gamePos.X + 263, gamePos.Y + 75) <> &H6532ff Then
　　　　　　Exit For
　　　　End If
　　　　waitMilliSecR(1000)
　　　　If num Mod 2 = 0 Then
　　　　　　form01text("-")
　　　　Else
　　　　　　form01text("/")
　　　　End If
　　Next
　　waitMilliSecR(3000)
End Sub
Private Shared Sub mMoveR(ByVal x As Integer, ByVal y As Integer)　　'ヒューマナイズ
　　Dim r As Random = New Random
　　mMove(x + r.Next(-5,5), y + r.Next(-3,3))
End Sub
Private Shared Sub waitMilliSecR(ByVal num As Integer)　　'ヒューマナイズ
　　Dim r As Random = New Random
　　waitMilliSec(num + r.Next(-50,50))
End Sub
Private Shared Function analyze(ByVal gamePos As Point) As Boolean
　　Dim col(39) As Integer
　　Dim p As Integer
　　Dim count As Integer = 0
　　For num As Integer = 0 To 38 Step 1
　　　　col(num) = -1
　　　　p = getColor(gamePos.X + 631 - (num * 15), gamePos.Y + 43)
　　　　If p = &H00CCFF Then　　'Banker
　　　　　　col(count) = 0
　　　　ElseIf p = &H0000FF Then　　'Player
　　　　　　col(count) = 1
　　　　End If
　　　　count += 1
　　Next
　　col(39) = -1
　　Dim analyzeResultBanker(15) As Integer
　　Dim analyzeResultPlayer(15) As Integer
　　For level As Integer = 1 To 15 Step 1
　　　　analyzeResultBanker(level) = analyzeSubBanker(col, level)
　　　　If analyzeResultBanker(level) <> -1 Then
　　　　　　form01LB(level).Text = CSng(analyzeResultBanker(level) / 10.0).ToString("#0.0") & "%"
　　　　Else
　　　　　　form01LB(level).Text = "---"
　　　　End If
　　　　analyzeResultPlayer(level) = analyzeSubPlayer(col, level)
　　　　If analyzeResultPlayer(level) <> -1 Then
　　　　　　form01LP(level).Text = CSng(analyzeResultPlayer(level) / 10.0).ToString("#0.0") & "%"
　　　　Else
　　　　　　form01LP(level).Text = "---"
　　　　End If
　　Next
　　Dim maxBanker As Integer = 0
　　Dim maxPlayer As Integer = 0
　　Dim posBanker As Integer = 0
　　Dim posPlayer As Integer = 0
　　For level As Integer = 1 To 15 Step 1
　　　　If analyzeResultBanker(level) > maxBanker Then
　　　　　　maxBanker = analyzeResultBanker(level)
　　　　　　posBanker = level
　　　　End If
　　　　If analyzeResultPlayer(level) > maxPlayer Then
　　　　　　maxPlayer = analyzeResultPlayer(level)
　　　　　　posPlayer = level
　　　　End If
　　　　form01LB(level).BackColor = Color.Transparent
　　　　form01LP(level).BackColor = Color.Transparent
　　Next
　　If maxBanker > maxPlayer Then
　　　　If posBanker > 0 Then
　　　　　　form01LB(posBanker).BackColor = Color.Yellow
　　　　End If
　　　　return True　　'Banker
　　Else
　　　　If posPlayer > 0 Then
　　　　　　form01LP(posPlayer).BackColor = Color.Yellow
　　　　End If
　　　　return False　　'Player
　　End If
End Function
Private Shared Function analyzeSubBanker(ByVal col As Integer(), ByVal level As Integer) As Integer
　　Dim sample As Integer = 0
　　Dim result As Integer = 0
　　Dim goukei As Integer
　　For current As Integer = 0 To (39 - level) Step 1
　　　　If col(current + level) <> -1 Then
　　　　　　goukei = 0
　　　　　　For num As Integer = 1 To level Step 1
　　　　　　　　If col(current + num) <> -1 Then
　　　　　　　　　　goukei += col(current + num)
　　　　　　　　End If
　　　　　　Next
　　　　　　sample += 1
　　　　　　If goukei < (level / 2) AndAlso col(current) = 0 Then
　　　　　　　　result += 1
　　　　　　End If
　　　　End If
　　Next
　　If sample > 5 Then
　　　　return result * 1000 / sample
　　End If
　　return -1
End Function
Private Shared Function analyzeSubPlayer(ByVal col As Integer(), ByVal level As Integer) As Integer
　　Dim sample As Integer = 0
　　Dim result As Integer = 0
　　Dim goukei As Integer
　　For current As Integer = 0 To (39 - level) Step 1
　　　　If col(current + level) <> -1 Then
　　　　　　goukei = 0
　　　　　　For num As Integer = 1 To level Step 1
　　　　　　　　If col(current + num) <> -1 Then
　　　　　　　　　　goukei += col(current + num)
　　　　　　　　End If
　　　　　　Next
　　　　　　sample += 1
　　　　　　If goukei > (level / 2) AndAlso col(current) = 1 Then
　　　　　　　　result += 1
　　　　　　End If
　　　　End If
　　Next
　　If sample > 5 Then
　　　　return result * 1000 / sample
　　End If
　　return -1
End Function
Private Shared form01 As Form = New Form
Private Shared form01Pause As CheckBox = New CheckBox
Private Shared form01Supply As CheckBox = New CheckBox
Private Shared form01tie(6) As ComboBox
Private Shared form01banker(6) As ComboBox
Private Shared form01player(6) As ComboBox
Private Shared form01LP(15) As Label
Private Shared form01LB(15) As Label
Private Shared form01Radio(5) As RadioButton
Private Shared form01Label(27) As Label
Private Shared Sub form01initial()
　　For num As Integer = 1 To 6 Step 1
　　　　form01tie(num) = New ComboBox
　　　　form01banker(num) = New ComboBox
　　　　form01player(num) = New ComboBox
　　Next
　　For num As Integer = 1 To 15 Step 1
　　　　form01LP(num) = New Label
　　　　form01LB(num) = New Label
　　Next
　　For num As Integer = 1 To 5 Step 1
　　　　form01Radio(num) = New RadioButton
　　Next
　　For num As Integer = 1 To 27 Step 1
　　　　form01Label(num) = New Label
　　Next
　　form01Pause.AutoSize = True
　　form01Pause.Location = New Point(185, 6)
　　form01Pause.Text = "実行/一時停止"
　　form01Supply.AutoSize = True
　　form01Supply.Location = New Point(313, 6)
　　form01Supply.Text = "カジノ＄補充"
　　form01tie(1).FormattingEnabled = True
　　form01tie(1).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
　　form01tie(1).Location = New Point(185, 135)
　　form01tie(1).Size = New Size(38, 20)
　　form01tie(2).FormattingEnabled = True
　　form01tie(2).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
　　form01tie(2).Location = New Point(225, 135)
　　form01tie(2).Size = New Size(38, 20)
　　form01tie(3).FormattingEnabled = True
　　form01tie(3).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
　　form01tie(3).Location = New Point(265, 135)
　　form01tie(3).Size = New Size(38, 20)
　　form01tie(4).FormattingEnabled = True
　　form01tie(4).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
　　form01tie(4).Location = New Point(325, 135)
　　form01tie(4).Size = New Size(38, 20)
　　form01tie(5).FormattingEnabled = True
　　form01tie(5).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
　　form01tie(5).Location = New Point(365, 135)
　　form01tie(5).Size = New Size(38, 20)
　　form01tie(6).FormattingEnabled = True
　　form01tie(6).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
　　form01tie(6).Location = New Point(405, 135)
　　form01tie(6).Size = New Size(38, 20)
　　form01banker(1).FormattingEnabled = True
　　form01banker(1).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
　　form01banker(1).Location = New Point(185, 156)
　　form01banker(1).Size = New Size(38, 20)
　　form01banker(2).FormattingEnabled = True
　　form01banker(2).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
　　form01banker(2).Location = New Point(225, 156)
　　form01banker(2).Size = New Size(38, 20)
　　form01banker(3).FormattingEnabled = True
　　form01banker(3).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
　　form01banker(3).Location = New Point(265, 156)
　　form01banker(3).Size = New Size(38, 20)
　　form01banker(4).FormattingEnabled = True
　　form01banker(4).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
　　form01banker(4).Location = New Point(325, 156)
　　form01banker(4).Size = New Size(38, 20)
　　form01banker(5).FormattingEnabled = True
　　form01banker(5).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
　　form01banker(5).Location = New Point(365, 156)
　　form01banker(5).Size = New Size(38, 20)
　　form01banker(6).FormattingEnabled = True
　　form01banker(6).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
　　form01banker(6).Location = New Point(405, 156)
　　form01banker(6).Size = New Size(38, 20)
　　form01player(1).FormattingEnabled = True
　　form01player(1).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
　　form01player(1).Location = New Point(185, 177)
　　form01player(1).Size = New Size(38, 20)
　　form01player(2).FormattingEnabled = True
　　form01player(2).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
　　form01player(2).Location = New Point(225, 177)
　　form01player(2).Size = New Size(38, 20)
　　form01player(3).FormattingEnabled = True
　　form01player(3).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
　　form01player(3).Location = New Point(265, 177)
　　form01player(3).Size = New Size(38, 20)
　　form01player(4).FormattingEnabled = True
　　form01player(4).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
　　form01player(4).Location = New Point(325, 177)
　　form01player(4).Size = New Size(38, 20)
　　form01player(5).FormattingEnabled = True
　　form01player(5).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
　　form01player(5).Location = New Point(365, 177)
　　form01player(5).Size = New Size(38, 20)
　　form01player(6).FormattingEnabled = True
　　form01player(6).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
　　form01player(6).Location = New Point(405, 177)
　　form01player(6).Size = New Size(38, 20)
　　form01Radio(1).AutoSize = True
　　form01Radio(1).Location = New Point(146, 25)
　　form01Radio(1).Text = "最適値がPLAYERの場合にAパターンで賭ける(BANKERの場合はB)"
　　form01Radio(2).AutoSize = True
　　form01Radio(2).Location = New Point(146, 42)
　　form01Radio(2).Text = "最適値がPLAYERの場合にBパターンで賭ける(BANKERの場合はA)"
　　form01Radio(3).AutoSize = True
　　form01Radio(3).Location = New Point(146, 59)
　　form01Radio(3).Text = "無条件でAパターンで賭ける"
　　form01Radio(4).AutoSize = True
　　form01Radio(4).Location = New Point(146, 76)
　　form01Radio(4).Text = "無条件でBパターンで賭ける"
　　form01Radio(5).AutoSize = True
　　form01Radio(5).Location = New Point(146, 93)
　　form01Radio(5).Text = "ランダムにAとBを選択する"
　　For num As Integer = 1 To 15 Step 1
　　　　form01LP(num).AutoSize = False
　　　　form01LP(num).Location = New Point(39, 41 + ((num - 1) * 12))
　　　　form01LP(num).Text = "00.0%"
　　　　form01LP(num).TextAlign = System.Drawing.ContentAlignment.TopRight
　　　　form01LP(num).Size = New Size(31, 12)
　　　　form01LB(num).AutoSize = False
　　　　form01LB(num).Location = New Point(89, 41 + ((num - 1) * 12))
　　　　form01LB(num).Text = "00.0%"
　　　　form01LB(num).TextAlign = System.Drawing.ContentAlignment.TopRight
　　　　form01LB(num).Size = New Size(31, 12)
　　　　form01Label(num + 3).AutoSize = True
　　　　form01Label(num + 3).Location = New Point(15, 41 + ((num - 1) * 12))
　　　　form01Label(num + 3).Text = num.ToString
　　Next
　　form01Label(1).AutoSize = True
　　form01Label(1).Location = New Point(7, 7)
　　form01Label(1).Text = "直前N個の平均が次に来る傾向"
　　form01Label(2).AutoSize = True
　　form01Label(2).Location = New Point(13, 25)
　　form01Label(2).Text = "N"
　　form01Label(3).AutoSize = True
　　form01Label(3).Location = New Point(30, 25)
　　form01Label(3).Text = "PLAYER/BANKER"
　　form01Label(19).AutoSize = True
　　form01Label(19).Font = New System.Drawing.Font("MS UI Gothic", 9.0!, System.Drawing.FontStyle.Bold)
　　form01Label(19).Location = New Point(217, 120)
　　form01Label(19).Text = "Aパターン"
　　form01Label(20).AutoSize = True
　　form01Label(20).Font = New System.Drawing.Font("MS UI Gothic", 9.0!, System.Drawing.FontStyle.Bold)
　　form01Label(20).Location = New Point(357, 120)
　　form01Label(20).Text = "Bパターン"
　　form01Label(21).AutoSize = True
　　form01Label(21).Location = New Point(160, 139)
　　form01Label(21).Text = "TIE"
　　form01Label(22).AutoSize = True
　　form01Label(22).Location = New Point(131, 160)
　　form01Label(22).Text = "BANKER"
　　form01Label(23).AutoSize = True
　　form01Label(23).Location = New Point(134, 181)
　　form01Label(23).Text = "PLAYER"
　　form01Label(24).AutoSize = True
　　form01Label(24).Location = New Point(311, 139)
　　form01Label(24).Text = "T"
　　form01Label(25).AutoSize = True
　　form01Label(25).Location = New Point(310, 160)
　　form01Label(25).Text = "B"
　　form01Label(26).AutoSize = True
　　form01Label(26).Location = New Point(311, 181)
　　form01Label(26).Text = "P"
　　form01Label(27).AutoSize = True
　　form01Label(27).ForeColor = System.Drawing.Color.Firebrick
　　form01Label(27).Location = New Point(183, 208)
　　form01Label(27).Text = "このウインドウを閉じた場合は再コンパイルして下さい"
　　form01.ShowIcon = False
　　form01.text = APPNAME
　　form01.Size = New Size(510, 270)
　　form01.TopMost = True
　　form01.Controls.Add(form01Pause)
　　form01.Controls.Add(form01Supply)
　　For num As Integer = 1 To 6 Step 1
　　　　form01.Controls.Add(form01tie(num))
　　　　form01.Controls.Add(form01banker(num))
　　　　form01.Controls.Add(form01player(num))
　　　　form01tie(num).SelectedItem = "0"
　　　　form01banker(num).SelectedItem = "0"
　　　　form01player(num).SelectedItem = "0"
　　Next
　　For num As Integer = 1 To 15 Step 1
　　　　form01.Controls.Add(form01LP(num))
　　　　form01.Controls.Add(form01LB(num))
　　Next
　　For num As Integer = 1 To 5 Step 1
　　　　form01.Controls.Add(form01Radio(num))
　　Next
　　For num As Integer = 1 To 27 Step 1
　　　　form01.Controls.Add(form01Label(num))
　　Next
　　form01Radio(1).Checked = True
　　form01player(3).SelectedItem = "2"
　　form01banker(6).SelectedItem = "2"
End Sub
]]> https://ameblo.jp/maziha/entry-11002297435.html Tue, 30 Aug 2011 14:33:36 +0900 　, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF} _
,{&H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF _
　, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF} _
,{&HFFFFFF, &HFFFFFF, &HFFFFFF, &HFFFFFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF _
　, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF} _
,{&HFFFFFF, &HFFFFFF, &HFFFFFF, &HFFFFFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF _
　, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF} _
,{&H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF _
　, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF} _
}
Private Shared markAll As Integer(,) = New Integer(,) { _
{&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF _
,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF _
,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF} _
,{&H6532FF,&H784BFF,&H8D67FF,&H7244FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF _
,&H6532FF,&H6532FF,&H6F3FFF,&H8057FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF _
,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6F3FFF,&H8057FF,&H6532FF} _
,{&HA98CFF,&HFFFFFF,&HFFFFFF,&HFBFAFF,&H9A79FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF _
,&H6532FF,&H8258FF,&HFBF9FF,&HFFFFFF,&HA486FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF _
,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H8258FF,&HFBF9FF,&HFFFFFF,&HA486FF} _
}
Private Const APPNAME As String = "自動ミニバカラ"
Public Shared Sub main()
　　If form01.Visible = False Then
　　　　form01initial()
　　　　form01.Show()
　　End If
　　Dim offsetx As Integer
　　Dim gamePos As Point = imageSearch(markGame)
　　Dim prog As Integer = 0
　　If gamePos.X = -1 Then
　　　　MessageBox.Show("ミニバカラウインドウの位置が読み取れませんでした。" & ControlChars.CrLf _
　　　　　　& "1.[停止]" & ControlChars.CrLf _
　　　　　　& "2.ミニバカラウインドウを少し移動" & ControlChars.CrLf _
　　　　　　& "3.[再生]して下さい。" & ControlChars.CrLf _
　　　　　　& "再びエラーメッセージが出なければ大丈夫です",APPNAME)
　　　　Exit Sub
　　End If
　　Do While stopFlag = False
　　　　If form01Pause.Checked Then
　　　　　　If prog = 0 Then
　　　　　　　　prog = 1
　　　　　　　　form01text("+")
　　　　　　Else
　　　　　　　　prog = 0
　　　　　　　　form01text("*")
　　　　　　End If
　　　　　　offsetx = getOffsetx(gamePos)
　　　　　　If offsetx <> -1 Then　　'BET可能
　　　　　　　　If form01Supply.Checked Then
　　　　　　　　　　If supply() Then
　　　　　　　　　　　　form01text("補充")
　　　　　　　　　　End If
　　　　　　　　End If
　　　　　　　　form01text("BET")
　　　　　　　　bet(gamePos, offsetx)
　　　　　　　　betAfter(gamePos)
　　　　　　End If
　　　　End If
　　　　waitMilliSecR(1000)
　　Loop
End Sub
Private Shared Function getOffsetx(ByVal gamePos As Point) As Integer
　　For num As Integer = 0 To 4 Step 1
　　　　If getColor(gamePos.X + 71 + (135 * num), gamePos.Y + 235) = &Hfdfdfd Then
　　　　　　waitMilliSec(500)
　　　　　　If getColor(gamePos.X + 71 + (135 * num), gamePos.Y + 235) = &Hfdfdfd Then
　　　　　　　　Return num * 135
　　　　　　End If
　　　　End If
　　Next
　　Return -1
End Function
Private Shared Sub form01text(ByVal str As String)
　　form01.text = str & " " & APPNAME
End Sub
Private Shared Function supply() As Boolean
　　Dim allPos As Point = imageSearch(markAll)
　　If allPos.X <> -1 Then
　　　　mMoveR(allPos.X - 87, allPos.Y)
　　　　mClick(1)
　　　　Return True
　　End If
　　Return False
End Function
Private Shared Sub bet(ByVal gamePos As Point, ByVal offsetx As Integer)
　　Dim r As Random = New Random
　　Dim tie1 As Integer
　　Dim tie2 As Integer
　　Dim tie3 As Integer
　　Dim banker1 As Integer
　　Dim banker2 As Integer
　　Dim banker3 As Integer
　　Dim player1 As Integer
　　Dim player2 As Integer
　　Dim player3 As Integer
　　Dim resultFlag As Boolean = False
　　If form01Radio(1).Checked OrElse form01Radio(2).Checked Then
　　　　resultFlag = analyze(gamePos)
　　　　If form01Radio(2).Checked Then
　　　　　　resultFlag = Not resultFlag
　　　　End If
　　ElseIf form01Radio(3).Checked Then
　　　　resultFlag = False
　　ElseIf form01Radio(4).Checked Then
　　　　resultFlag = True
　　Else
　　　　If r.Next(0,2) < 1 Then
　　　　　　resultFlag = False
　　　　Else
　　　　　　resultFlag = True
　　　　End If
　　End If
　　If resultFlag = False Then
　　　　tie1 = CInt(form01tie(1).SelectedItem)
　　　　tie2 = CInt(form01tie(2).SelectedItem)
　　　　tie3 = CInt(form01tie(3).SelectedItem)
　　　　banker1 = CInt(form01banker(1).SelectedItem)
　　　　banker2 = CInt(form01banker(2).SelectedItem)
　　　　banker3 = CInt(form01banker(3).SelectedItem)
　　　　player1 = CInt(form01player(1).SelectedItem)
　　　　player2 = CInt(form01player(2).SelectedItem)
　　　　player3 = CInt(form01player(3).SelectedItem)
　　Else
　　　　tie1 = CInt(form01tie(4).SelectedItem)
　　　　tie2 = CInt(form01tie(5).SelectedItem)
　　　　tie3 = CInt(form01tie(6).SelectedItem)
　　　　banker1 = CInt(form01banker(4).SelectedItem)
　　　　banker2 = CInt(form01banker(5).SelectedItem)
　　　　banker3 = CInt(form01banker(6).SelectedItem)
　　　　player1 = CInt(form01player(4).SelectedItem)
　　　　player2 = CInt(form01player(5).SelectedItem)
　　　　player3 = CInt(form01player(6).SelectedItem)
　　End If
　　If tie1 > 0 OrElse tie2 > 0 OrElse tie3 > 0 Then
　　　　betTie(gamePos, offsetx, tie1, tie2, tie3)
　　　　waitMilliSecR(300)
　　End If
　　If banker1 > 0 OrElse banker2 > 0 OrElse banker3 > 0 Then
　　　　betBanker(gamePos, offsetx, banker1, banker2, banker3)
　　　　waitMilliSecR(300)
　　End If
　　betPlayer(gamePos, offsetx, player1, player2, player3)
　　waitMilliSecR(300)
End Sub
Private Shared Sub betTie(ByVal gamePos As Point, ByVal offsetx As Integer, ByVal b1 As Integer, ByVal b2 As Integer, ByVal b3 As Integer)
　　mMoveR(gamePos.X + 71 + offsetx, gamePos.Y + 213)
　　waitMilliSecR(500)
　　If b3 > 0 Then
　　　　mMoveR(gamePos.X + 225 + offsetx, gamePos.Y + 195)
　　　　For num As Integer = 1 To b3 Step 1
　　　　　　mClick(1)
　　　　　　waitMilliSecR(200)
　　　　Next
　　End If
　　waitMilliSecR(100)
　　If b2 > 0 Then
　　　　mMoveR(gamePos.X + 179 + offsetx, gamePos.Y + 195)
　　　　For num As Integer = 1 To b2 Step 1
　　　　　　mClick(1)
　　　　　　waitMilliSecR(200)
　　　　Next
　　End If
　　waitMilliSecR(100)
　　If b1 > 0 Then
　　　　mMoveR(gamePos.X + 131 + offsetx, gamePos.Y + 195)
　　　　For num As Integer = 1 To b1 Step 1
　　　　　　mClick(1)
　　　　　　waitMilliSecR(200)
　　　　Next
　　End If
End Sub
Private Shared Sub betBanker(ByVal gamePos As Point, ByVal offsetx As Integer, ByVal b1 As Integer, ByVal b2 As Integer, ByVal b3 As Integer)
　　mMoveR(gamePos.X + 71 + offsetx, gamePos.Y + 249)
　　waitMilliSecR(500)
　　If b3 > 0 Then
　　　　mMoveR(gamePos.X + 254 + offsetx, gamePos.Y + 232)
　　　　For num As Integer = 1 To b3 Step 1
　　　　　　mClick(1)
　　　　　　waitMilliSecR(200)
　　　　Next
　　End If
　　waitMilliSecR(100)
　　If b2 > 0 Then
　　　　mMoveR(gamePos.X + 207 + offsetx, gamePos.Y + 232)
　　　　For num As Integer = 1 To b2 Step 1
　　　　　　mClick(1)
　　　　　　waitMilliSecR(200)
　　　　Next
　　End If
　　waitMilliSecR(100)
　　If b1 > 0 Then
　　　　mMoveR(gamePos.X + 160 + offsetx, gamePos.Y + 232)
　　　　For num As Integer = 1 To b1 Step 1
　　　　　　mClick(1)
　　　　　　waitMilliSecR(200)
　　　　Next
　　End If
End Sub
Private Shared Sub betPlayer(ByVal gamePos As Point, ByVal offsetx As Integer, ByVal b1 As Integer, ByVal b2 As Integer, ByVal b3 As Integer)
　　mMoveR(gamePos.X + 71 + offsetx, gamePos.Y + 302)
　　waitMilliSecR(500)
　　If b3 > 0 Then
　　　　mMoveR(gamePos.X + 254 + offsetx, gamePos.Y + 285)
　　　　For num As Integer = 1 To b3 Step 1
　　　　　　mClick(1)
　　　　　　waitMilliSecR(200)
　　　　Next
　　End If
　　waitMilliSecR(100)
　　If b2 > 0 Then
　　　　mMoveR(gamePos.X + 207 + offsetx, gamePos.Y + 285)
　　　　For num As Integer = 1 To b2 Step 1
　　　　　　mClick(1)
　　　　　　waitMilliSecR(200)
　　　　Next
　　End If
　　waitMilliSecR(100)
　　If b1 > 0 Then
　　　　mMoveR(gamePos.X + 160 + offsetx, gamePos.Y + 285)
　　　　For num As Integer = 1 To b1 Step 1
　　　　　　mClick(1)
　　　　　　waitMilliSecR(200)
　　　　Next
　　End If
　　waitMilliSecR(100)
　　mMoveR(gamePos.X + 169 + offsetx, gamePos.Y + 329)
　　mClick(1)
End Sub
Private Shared Sub betAfter(ByVal gamePos As Point)
　　For num As Integer = 0 To 30 Step 1
　　　　If getColor(gamePos.X + 263, gamePos.Y + 75) <> &H33cc33 AndAlso getColor(gamePos.X + 263, gamePos.Y + 75) <> &H6532ff Then
　　　　　　Exit For
　　　　End If
　　　　waitMilliSecR(1000)
　　　　If num Mod 2 = 0 Then
　　　　　　form01text("-")
　　　　Else
　　　　　　form01text("/")
　　　　End If
　　Next
　　waitMilliSecR(3000)
End Sub
Private Shared Sub mMoveR(ByVal x As Integer, ByVal y As Integer)　　'ヒューマナイズ
　　Dim r As Random = New Random
　　mMove(x + r.Next(-5,5), y + r.Next(-3,3))
End Sub
Private Shared Sub waitMilliSecR(ByVal num As Integer)　　'ヒューマナイズ
　　Dim r As Random = New Random
　　waitMilliSec(num + r.Next(-50,50))
End Sub
Private Shared Function analyze(ByVal gamePos As Point) As Boolean
　　Dim col(39) As Integer
　　Dim p As Integer
　　Dim count As Integer = 0
　　For num As Integer = 0 To 38 Step 1
　　　　col(num) = -1
　　　　p = getColor(gamePos.X + 631 - (num * 15), gamePos.Y + 43)
　　　　If p = &H00CCFF Then　　'Banker
　　　　　　col(count) = 0
　　　　ElseIf p = &H0000FF Then　　'Player
　　　　　　col(count) = 1
　　　　End If
　　　　count += 1
　　Next
　　col(39) = -1
　　Dim analyzeResultBanker(15) As Integer
　　Dim analyzeResultPlayer(15) As Integer
　　For level As Integer = 1 To 15 Step 1
　　　　analyzeResultBanker(level) = analyzeSubBanker(col, level)
　　　　If analyzeResultBanker(level) <> -1 Then
　　　　　　form01LB(level).Text = CSng(analyzeResultBanker(level) / 10.0).ToString("#0.0") & "%"
　　　　Else
　　　　　　form01LB(level).Text = "---"
　　　　End If
　　　　analyzeResultPlayer(level) = analyzeSubPlayer(col, level)
　　　　If analyzeResultPlayer(level) <> -1 Then
　　　　　　form01LP(level).Text = CSng(analyzeResultPlayer(level) / 10.0).ToString("#0.0") & "%"
　　　　Else
　　　　　　form01LP(level).Text = "---"
　　　　End If
　　Next
　　Dim maxBanker As Integer = 0
　　Dim maxPlayer As Integer = 0
　　Dim posBanker As Integer = 0
　　Dim posPlayer As Integer = 0
　　For level As Integer = 1 To 15 Step 1
　　　　If analyzeResultBanker(level) > maxBanker Then
　　　　　　maxBanker = analyzeResultBanker(level)
　　　　　　posBanker = level
　　　　End If
　　　　If analyzeResultPlayer(level) > maxPlayer Then
　　　　　　maxPlayer = analyzeResultPlayer(level)
　　　　　　posPlayer = level
　　　　End If
　　　　form01LB(level).BackColor = Color.Transparent
　　　　form01LP(level).BackColor = Color.Transparent
　　Next
　　If maxBanker > maxPlayer Then
　　　　If posBanker > 0 Then
　　　　　　form01LB(posBanker).BackColor = Color.Yellow
　　　　End If
　　　　return True　　'Banker
　　Else
　　　　If posPlayer > 0 Then
　　　　　　form01LP(posPlayer).BackColor = Color.Yellow
　　　　End If
　　　　return False　　'Player
　　End If
End Function
Private Shared Function analyzeSubBanker(ByVal col As Integer(), ByVal level As Integer) As Integer
　　Dim sample As Integer = 0
　　Dim result As Integer = 0
　　Dim goukei As Integer
　　For current As Integer = 0 To (39 - level) Step 1
　　　　If col(current + level) <> -1 Then
　　　　　　goukei = 0
　　　　　　For num As Integer = 1 To level Step 1
　　　　　　　　If col(current + num) <> -1 Then
　　　　　　　　　　goukei += col(current + num)
　　　　　　　　End If
　　　　　　Next
　　　　　　sample += 1
　　　　　　If goukei < (level / 2) AndAlso col(current) = 0 Then
　　　　　　　　result += 1
　　　　　　End If
　　　　End If
　　Next
　　If sample > 5 Then
　　　　return result * 1000 / sample
　　End If
　　return -1
End Function
Private Shared Function analyzeSubPlayer(ByVal col As Integer(), ByVal level As Integer) As Integer
　　Dim sample As Integer = 0
　　Dim result As Integer = 0
　　Dim goukei As Integer
　　For current As Integer = 0 To (39 - level) Step 1
　　　　If col(current + level) <> -1 Then
　　　　　　goukei = 0
　　　　　　For num As Integer = 1 To level Step 1
　　　　　　　　If col(current + num) <> -1 Then
　　　　　　　　　　goukei += col(current + num)
　　　　　　　　End If
　　　　　　Next
　　　　　　sample += 1
　　　　　　If goukei > (level / 2) AndAlso col(current) = 1 Then
　　　　　　　　result += 1
　　　　　　End If
　　　　End If
　　Next
　　If sample > 5 Then
　　　　return result * 1000 / sample
　　End If
　　return -1
End Function
Private Shared form01 As Form = New Form
Private Shared form01Pause As CheckBox = New CheckBox
Private Shared form01Supply As CheckBox = New CheckBox
Private Shared form01tie(6) As ComboBox
Private Shared form01banker(6) As ComboBox
Private Shared form01player(6) As ComboBox
Private Shared form01LP(15) As Label
Private Shared form01LB(15) As Label
Private Shared form01Radio(5) As RadioButton
Private Shared form01Label(27) As Label
Private Shared Sub form01initial()
　　For num As Integer = 1 To 6 Step 1
　　　　form01tie(num) = New ComboBox
　　　　form01banker(num) = New ComboBox
　　　　form01player(num) = New ComboBox
　　Next
　　For num As Integer = 1 To 15 Step 1
　　　　form01LP(num) = New Label
　　　　form01LB(num) = New Label
　　Next
　　For num As Integer = 1 To 5 Step 1
　　　　form01Radio(num) = New RadioButton
　　Next
　　For num As Integer = 1 To 27 Step 1
　　　　form01Label(num) = New Label
　　Next
　　form01Pause.AutoSize = True
　　form01Pause.Location = New Point(185, 6)
　　form01Pause.Text = "実行/一時停止"
　　form01Supply.AutoSize = True
　　form01Supply.Location = New Point(313, 6)
　　form01Supply.Text = "カジノ＄補充"
　　form01tie(1).FormattingEnabled = True
　　form01tie(1).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
　　form01tie(1).Location = New Point(185, 135)
　　form01tie(1).Size = New Size(38, 20)
　　form01tie(2).FormattingEnabled = True
　　form01tie(2).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
　　form01tie(2).Location = New Point(225, 135)
　　form01tie(2).Size = New Size(38, 20)
　　form01tie(3).FormattingEnabled = True
　　form01tie(3).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
　　form01tie(3).Location = New Point(265, 135)
　　form01tie(3).Size = New Size(38, 20)
　　form01tie(4).FormattingEnabled = True
　　form01tie(4).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
　　form01tie(4).Location = New Point(325, 135)
　　form01tie(4).Size = New Size(38, 20)
　　form01tie(5).FormattingEnabled = True
　　form01tie(5).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
　　form01tie(5).Location = New Point(365, 135)
　　form01tie(5).Size = New Size(38, 20)
　　form01tie(6).FormattingEnabled = True
　　form01tie(6).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
　　form01tie(6).Location = New Point(405, 135)
　　form01tie(6).Size = New Size(38, 20)
　　form01banker(1).FormattingEnabled = True
　　form01banker(1).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
　　form01banker(1).Location = New Point(185, 156)
　　form01banker(1).Size = New Size(38, 20)
　　form01banker(2).FormattingEnabled = True
　　form01banker(2).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
　　form01banker(2).Location = New Point(225, 156)
　　form01banker(2).Size = New Size(38, 20)
　　form01banker(3).FormattingEnabled = True
　　form01banker(3).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
　　form01banker(3).Location = New Point(265, 156)
　　form01banker(3).Size = New Size(38, 20)
　　form01banker(4).FormattingEnabled = True
　　form01banker(4).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
　　form01banker(4).Location = New Point(325, 156)
　　form01banker(4).Size = New Size(38, 20)
　　form01banker(5).FormattingEnabled = True
　　form01banker(5).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
　　form01banker(5).Location = New Point(365, 156)
　　form01banker(5).Size = New Size(38, 20)
　　form01banker(6).FormattingEnabled = True
　　form01banker(6).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
　　form01banker(6).Location = New Point(405, 156)
　　form01banker(6).Size = New Size(38, 20)
　　form01player(1).FormattingEnabled = True
　　form01player(1).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
　　form01player(1).Location = New Point(185, 177)
　　form01player(1).Size = New Size(38, 20)
　　form01player(2).FormattingEnabled = True
　　form01player(2).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
　　form01player(2).Location = New Point(225, 177)
　　form01player(2).Size = New Size(38, 20)
　　form01player(3).FormattingEnabled = True
　　form01player(3).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
　　form01player(3).Location = New Point(265, 177)
　　form01player(3).Size = New Size(38, 20)
　　form01player(4).FormattingEnabled = True
　　form01player(4).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
　　form01player(4).Location = New Point(325, 177)
　　form01player(4).Size = New Size(38, 20)
　　form01player(5).FormattingEnabled = True
　　form01player(5).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
　　form01player(5).Location = New Point(365, 177)
　　form01player(5).Size = New Size(38, 20)
　　form01player(6).FormattingEnabled = True
　　form01player(6).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
　　form01player(6).Location = New Point(405, 177)
　　form01player(6).Size = New Size(38, 20)
　　form01Radio(1).AutoSize = True
　　form01Radio(1).Location = New Point(146, 25)
　　form01Radio(1).Text = "最適値がPLAYERの場合にAパターンで賭ける(BANKERの場合はB)"
　　form01Radio(2).AutoSize = True
　　form01Radio(2).Location = New Point(146, 42)
　　form01Radio(2).Text = "最適値がPLAYERの場合にBパターンで賭ける(BANKERの場合はA)"
　　form01Radio(3).AutoSize = True
　　form01Radio(3).Location = New Point(146, 59)
　　form01Radio(3).Text = "無条件でAパターンで賭ける"
　　form01Radio(4).AutoSize = True
　　form01Radio(4).Location = New Point(146, 76)
　　form01Radio(4).Text = "無条件でBパターンで賭ける"
　　form01Radio(5).AutoSize = True
　　form01Radio(5).Location = New Point(146, 93)
　　form01Radio(5).Text = "ランダムにAとBを選択する"
　　For num As Integer = 1 To 15 Step 1
　　　　form01LP(num).AutoSize = False
　　　　form01LP(num).Location = New Point(39, 41 + ((num - 1) * 12))
　　　　form01LP(num).Text = "00.0%"
　　　　form01LP(num).TextAlign = System.Drawing.ContentAlignment.TopRight
　　　　form01LP(num).Size = New Size(31, 12)
　　　　form01LB(num).AutoSize = False
　　　　form01LB(num).Location = New Point(89, 41 + ((num - 1) * 12))
　　　　form01LB(num).Text = "00.0%"
　　　　form01LB(num).TextAlign = System.Drawing.ContentAlignment.TopRight
　　　　form01LB(num).Size = New Size(31, 12)
　　　　form01Label(num + 3).AutoSize = True
　　　　form01Label(num + 3).Location = New Point(15, 41 + ((num - 1) * 12))
　　　　form01Label(num + 3).Text = num.ToString
　　Next
　　form01Label(1).AutoSize = True
　　form01Label(1).Location = New Point(7, 7)
　　form01Label(1).Text = "直前N個の平均が次に来る傾向"
　　form01Label(2).AutoSize = True
　　form01Label(2).Location = New Point(13, 25)
　　form01Label(2).Text = "N"
　　form01Label(3).AutoSize = True
　　form01Label(3).Location = New Point(30, 25)
　　form01Label(3).Text = "PLAYER/BANKER"
　　form01Label(19).AutoSize = True
　　form01Label(19).Font = New System.Drawing.Font("MS UI Gothic", 9.0!, System.Drawing.FontStyle.Bold)
　　form01Label(19).Location = New Point(217, 120)
　　form01Label(19).Text = "Aパターン"
　　form01Label(20).AutoSize = True
　　form01Label(20).Font = New System.Drawing.Font("MS UI Gothic", 9.0!, System.Drawing.FontStyle.Bold)
　　form01Label(20).Location = New Point(357, 120)
　　form01Label(20).Text = "Bパターン"
　　form01Label(21).AutoSize = True
　　form01Label(21).Location = New Point(160, 139)
　　form01Label(21).Text = "TIE"
　　form01Label(22).AutoSize = True
　　form01Label(22).Location = New Point(131, 160)
　　form01Label(22).Text = "BANKER"
　　form01Label(23).AutoSize = True
　　form01Label(23).Location = New Point(134, 181)
　　form01Label(23).Text = "PLAYER"
　　form01Label(24).AutoSize = True
　　form01Label(24).Location = New Point(311, 139)
　　form01Label(24).Text = "T"
　　form01Label(25).AutoSize = True
　　form01Label(25).Location = New Point(310, 160)
　　form01Label(25).Text = "B"
　　form01Label(26).AutoSize = True
　　form01Label(26).Location = New Point(311, 181)
　　form01Label(26).Text = "P"
　　form01Label(27).AutoSize = True
　　form01Label(27).ForeColor = System.Drawing.Color.Firebrick
　　form01Label(27).Location = New Point(183, 208)
　　form01Label(27).Text = "このウインドウを閉じた場合は再コンパイルして下さい"
　　form01.ShowIcon = False
　　form01.text = APPNAME
　　form01.Size = New Size(510, 270)
　　form01.TopMost = True
　　form01.Controls.Add(form01Pause)
　　form01.Controls.Add(form01Supply)
　　For num As Integer = 1 To 6 Step 1
　　　　form01.Controls.Add(form01tie(num))
　　　　form01.Controls.Add(form01banker(num))
　　　　form01.Controls.Add(form01player(num))
　　　　form01tie(num).SelectedItem = "0"
　　　　form01banker(num).SelectedItem = "0"
　　　　form01player(num).SelectedItem = "0"
　　Next
　　For num As Integer = 1 To 15 Step 1
　　　　form01.Controls.Add(form01LP(num))
　　　　form01.Controls.Add(form01LB(num))
　　Next
　　For num As Integer = 1 To 5 Step 1
　　　　form01.Controls.Add(form01Radio(num))
　　Next
　　For num As Integer = 1 To 27 Step 1
　　　　form01.Controls.Add(form01Label(num))
　　Next
　　form01Radio(1).Checked = True
　　form01player(3).SelectedItem = "2"
　　form01banker(6).SelectedItem = "2"
End Sub
]]> https://ameblo.jp/maziha/entry-11002285584.html Tue, 30 Aug 2011 14:17:30 +0900