Visual basic ボタンをクリックすると一度目は動くが二度目は動かない。

Question

Public Class Form1
    Dim a, b, x As Integer
   
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       
    End Sub

    Private Sub Ntbut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ntbut.Click
       
        Randomize()
        ' The program will generate a number from 0 to 10
        a = Int(Rnd() * 10) + 1
        b = Int(Rnd() * 10) + 1
        Qtlab.Text = a
        Qtlab2.Text = b
        AWS1.Text = Console.ReadLine()

    End Sub

   
   
    Private Sub Asbut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Asbut.Click
        If x = a * b Then
            Sclab.Text = ++1
        Else

            Sclab.Text = --1
        End If
---    End Sub
End Class

簡単な掛け算の問題をランダムで出し、正解なら１ポイント、不正解なら－１ポイントという、ものを作りたかったのですが、式の答えを入力してアンサーボタン（Asbut）を押すと、一度だけなら、正解なら１ポイント、不正解なら－１ポイントとうまくいくのですが、ntbutを押して新しい式を生成し、同じように答えを入力して、アンサーボタン（Asbut）を押しても、動作せず無反応です。どのようにコードを変えれば、If 文の部分が毎回、答えを入力するたびにポイントが入るようになりますか？

Comments

[ozwk]

タグがvb6ですが、vb.netでは？

[ryuto0822]

間違えていました。指摘ありがとうございます。

Answer 1

    AWS1.Text = Console.ReadLine()

これ、なにやってるんでしょうか
ここで止まってしまっているよかん

Comments

[ryuto0822]

AWS1.Text = Console.ReadLine()は、Ntbutを押したときに、前の答えがTextBoxに残らないようにするためおいています。一応確認してみましたが、 AWS1.Text = Console.ReadLine()を消しても、変わりませんでした。

[y_waiwai]

VisualStudioを使ってるなら、任意の場所でブレークポイントを設定して止めて、変数の値などをモニタできるので、そうやって追いかけていけばどうでしょう

[ryuto0822]

visual basic を使っています。visual basicでブレークポイントのようなものはありますか？

[y_waiwai]

あります

http://rucio.a.la9.jp/main/dotnet/shokyu/standard41.htm

[ryuto0822]

ありがとうございます。やってみます！

[ryuto0822]

解決はできませんでしたが、今後につながることを教えてくださりありがとうございます。

Answer 2

Visual basic ボタンをクリックすると一度目は動くが二度目は動かない。

こういう一度目は通って二度目は動かない現象はキャッシュ絡みか、変数の初期化がミスしている事が多いので、その観点で質問文のコードを見てました。

◇結果

    Private Sub Asbut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Asbut.Click
        If x = a * b Then '←ここ。
            Sclab.Text = ++1
        Else

            Sclab.Text = --1
        End If
　　 End Sub

1,変数:x = a * bを使ってますが、xは画面から設定する必要があるのでは？
Dim a, b, x As Integer
これで a,b,xが全部:0でこの式は通りますが、Ntbut_Clickにてaとbの値が設定されてますよね。

そうなると以下の式は絶対に成立しないのでは。-1が固定表示されてませんか？

If x = a * b Then

2,Sclab.Text = --1ですが、これ正解数/不正解数を加減算しているのなら、a,b,xと同様にフィールド変数で宣言して、加減算を行う必要があるのでは。

追記

AWS1.Text = Console.ReadLine()

は入力内容をクリアしたいならString.Emptyを代入してくださいな。

AWS1.Text = String.Empty

---

固定表示されています。2,Sclab.Text = --1ですが、これ正解数/不正解数を加減算しています。a,b,xと同様にフィールド変数で宣言するというのは、a,b,x,zとしてz＝ Sclab.Textのようにするということですか？

以下はTextBoxでSclabを定義しているのを想定してます。

質問文のコードは --1 の計算結果をSclab.Textに代入しているだけなので、結果は必ず1になります。
Sclab.Textの値を元に計算していないので加減算が行われません。

ボタンを一個追加してみて、以下のコードをクリックイベントに貼り付けてボタンをクリック連打してみてください。
加減算されていないことが目視確認できるかと。

Sclab.Text = --1

＜対策方法＞
コメントのz＝ Sclab.Textでもよいですが、
プロパティページでSclab.Textの初期値を0に設定して以下コードでも可能です。

'加算時
Sclab.Text += 1
'減算時
Sclab.Text -= 1

Comments

[ryuto0822]

固定表示されています。2,Sclab.Text = --1ですが、これ正解数/不正解数を加減算しています。a,b,xと同様にフィールド変数で宣言するというのは、a,b,x,zとしてz＝ Sclab.Textのようにするということですか？