1

Visual Basic でスロット マシン タイプのプログラムを試しています。基本的なスロット メカニズムはすべてチェックアウトしており、

Private Sub roll_Click(sender As Object, e As EventArgs) Handles roll.Click
    a.Text = CStr(Int(Rnd() * 10))
    b.Text = CStr(Int(Rnd() * 10))
    c.Text = CStr(Int(Rnd() * 10))

    If a.Text = 7 And b.Text = 7 And c.Text = 7 Then
        MessageBox.Show("WINNER!")
    Else
        MessageBox.Show("Sorry, you are not a winner.")
    End If
End Sub

しかし、このクリックされたイベントをセカンダリ テキスト ラベルで参照したいと思います。ボタンがクリックされた場合など、クリックした回数を追跡します。私が考えていたように：

Private Sub amountlabel_Click(sender As Object, e As EventArgs) Handles amountlabel.Click
    for roll.Click do

        amount.Text = + 1
    End For
End Sub

誰でも助けてくれますか？

4

1 に答える 1

1

フォーム クラスにカウンター変数 ( Integer) を配置するだけで、ボタンがクリックされるたびにカウンターがインクリメントされ、次のようにラベルのテキストが更新されます。

Public Class Form1 Inherits Form
    Dim counter As Integer = 0

    Private Sub roll_Click(sender As Object, e As EventArgs) Handles roll.Click
        a.Text = CStr(Int(Rnd() * 10))
        b.Text = CStr(Int(Rnd() * 10))
        c.Text = CStr(Int(Rnd() * 10))

       If a.Text = 7 And b.Text = 7 And c.Text = 7 Then
           MessageBox.Show("WINNER!")
       Else
           MessageBox.Show("Sorry, you are not a winner.")
       End If

       ' Increment counter
       counter = counter + 1

       ' Update display
       amount.Text = counter.ToString()
    End Sub
End Class
于 2013-10-23T20:32:24.013 に答える