Не работает счетчик - VB

Узнай цену своей работы

Формулировка задачи:

Суть такая, написал программу которая проверяет знания таблицы умножения. Задается время 60 сек , вводится ответ и если правильно, то счетчик правильный ответов увеличивается на 1. Время тикает до 0. Все работает хорошо. Но я хочу ввести и счетчик неправильных ответов, а вот он не работает.При вводе любого числа он срабатывает на +1, если число двузначное, то дает +2 причем не важно верное число введено или нет. вот код:

Решение задачи: «Не работает счетчик»

textual
Листинг программы
Private Sub Command2_Click()
 
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
 
If c = a * b Then
    Label3.Caption = Label3.Caption + 1
    Else
    Label5.Caption = Label5.Caption + 1
    End If
Randomize
Text1.Text = CInt(Int((10 * Rnd()) + 1))
Text2.Text = CInt(Int((10 * Rnd()) + 1))
Text3.Text = ""    
Text3.SetFocus
End Sub
 
Private Sub Command1_Click()
   Timer1.Enabled = True
   Randomize
   Text1.Text = CInt(Int((10 * Rnd()) + 1))
   Text2.Text = CInt(Int((10 * Rnd()) + 1))
   Command1.Visible = False
   Command2.Visible = True
End Sub
 
Private Sub Form_Load()
   Command1.Visible = True
   Command2.Visible = False
End Sub
 
Private Sub Text3_Keypress(KeyAscii As Integer)
 
 Select Case KeyAscii
   Case 48 To 57, 8
   Case Else
   KeyAscii = 0
 End Select
 
End Sub
 
Private Sub Timer1_Timer()                        ' счетчик времени 60 сек
    Label2.Caption = Label2.Caption - 1
    If Label2.Caption = 0 Then
        MsgBox "The End!"
        Timer1.Enabled = False
        Label2.Caption = 60
        Command1.Visible = True
        Command2.Visible = False
        Text1.Text = ""
        Text2.Text = ""
        Text3.Text = ""
        Label3.Caption = "0"
        Label5.Caption = "0"
    End If
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.833 из 5