質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

90.52%

  • VB.NET

    916questions

    Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

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

受付中

回答 2

投稿 編集

  • 評価
  • クリップ 1
  • VIEW 233

ryuto0822

score 4

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


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

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

質問への追記・修正、ベストアンサー選択の依頼

  • ozwk

    2018/05/05 22:31

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

    キャンセル

  • ryuto0822

    2018/05/06 14:12

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

    キャンセル

回答 2

+3

        AWS1.Text = Console.ReadLine()

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

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2018/05/04 19:30

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

    キャンセル

  • 2018/05/04 19:47

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

    キャンセル

  • 2018/05/05 22:25

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

    キャンセル

  • 2018/05/05 22:37

    あります

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

    キャンセル

  • 2018/05/06 14:15

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

    キャンセル

  • 2018/05/08 22:24

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

    キャンセル

+1

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にてabの値が設定されてますよね。

そうなると以下の式は絶対に成立しないのでは。-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

投稿

編集

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2018/05/08 22:22

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

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 90.52%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る

  • VB.NET

    916questions

    Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。