[表示 : 全て 最新50 1-99 101- 201- 301- 401- 501- 601- 701- 801- 2chのread.cgiへ]
Update time : 08/05 07:30 / Filesize : 218 KB / Number-of Response : 867
[このスレッドの書き込みを削除する]
[+板 最近立ったスレ&熱いスレ一覧 : +板 最近立ったスレ/記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

Windowsゲームプログラミング 質問スレ



235 名前:名前は開発中のものです。 [2006/07/16(日) 20:12:58 ID: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としても、全く関係の無いような数が表示されます。どうか助けて下さい…






[ 続きを読む ] / [ 携帯版 ]

全部読む 前100 次100 最新50 [ このスレをブックマーク! 携帯に送る ] 2chのread.cgiへ
[+板 最近立ったスレ&熱いスレ一覧 : +板 最近立ったスレ/記者別一覧]( ´∀`)<218KB

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef