Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут
закрыты.
Читайте
требования к создаваемым темам.
-
W@D'ok
-
- Новичок

-
-
- Сообщения: 28
- Зарегистрирован: 08.08.2003 (Пт) 23:59
- Откуда: Россия, Москва
-
W@D'ok » 08.11.2003 (Сб) 1:09
Как сделать так чтоб прога считывала скока ты нажал клавишь на клаве по истечении минуты ?
Это я

-
Amed
-
- Алфизик

-
-
- Сообщения: 5346
- Зарегистрирован: 09.03.2003 (Вс) 9:26
-
Amed » 08.11.2003 (Сб) 9:07
'Приблизительно так:
Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private t1 As Long
Private t2 As Long
Private CAN_GET_KEYS As Boolean
Private QUIT As Boolean
Private keys_count As Long
Private Sub Form_KeyPress(KeyAscii As Integer)
If CAN_GET_KEYS Then keys_count = keys_count + 1
End Sub
Private Sub Form_Load()
Me.Show
t1 = GetTickCount
t2 = GetTickCount
CAN_GET_KEYS = True
Do While (t2 - t1) < 60000 And QUIT = False
DoEvents
t2 = GetTickCount
Loop
Timer1.Enabled = False
Me.Cls
Me.Print "Нажато клавиш за 60 секунд: " & keys_count
CAN_GET_KEYS = False
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
QUIT = True
End Sub
Private Sub Timer1_Timer()
Me.Cls
Me.Print "Нажато клавиш: " & keys_count
Me.Print "Прошло " & Round((t2 - t1) / 1000, 1) & " секунд"
End Sub
Вернуться в Visual Basic 1–6
Кто сейчас на конференции
Сейчас этот форум просматривают: AhrefsBot, SemrushBot и гости: 8