Windowsゲームプログラミング 質問スレat GAMEDEV
Windowsゲームプログラミング 質問スレ - 暇つぶし2ch235:名前は開発中のものです。
06/07/16 20:12:58 xoc97HXo
VB.NETでゲーム(ブラックジャック)を作っていますが、わからない箇所が出てきまして、もし見識者の方が居られましたら、是非にお教え下さい。Label4.Textに、ランダムで現れたLabel2.TextとLabel3.Textの中の数の和を表したいのです。
Dim a, b As String Dim c, d As Integer
Private Sub Timer1_Tick:Label1.Text = Int((4 * Rnd()) + 18)
Label2.Text = Int((13 * Rnd()) + 1)
Label3.Text = Int((13 * Rnd()) + 1)
Private Sub Button1_Click:Timer1.Enabled = True
Private Sub Button2_Click:Timer1.Enabled = False
a = Val(Label2.Text)
b = Val(Label3.Text)
c = Str(Label2.Text)
d = Str(Label3.Text)
Label4.Text = c + d
If a = 11 Then
Label2.Text = "J"
ElseIf a = 12 Then
Label2.Text = "Q"
ElseIf a = 13 Then
Label2.Text = "K"
End If
If b = 11 Then
Label3.Text = "J"
ElseIf b = 12 Then
Label3.Text = "Q"
ElseIf b = 13 Then
Label3.Text = "K"
End If
このコードでは、デバック時に『オブジェクト参照がオブジェクト インスタンスに設定されていません。』と表示されてしまい、上のコードからcとdを消去して、Label4.Text = a + bとしても、全く関係の無いような数が表示されます。どうか助けて下さい…


次ページ
最新レス表示
レスジャンプ
類似スレ一覧
スレッドの検索
話題のニュース
おまかせリスト
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch