Пауза в цикле графики

@Веди · Регистрация: 04.07.2012

Студворк — интернет-сервис помощи студентам

привет друзья!
как включить нажатие кнопки внутри цикла
построения графика например "пробел"
при первом нажатии построение приостанавливается
при повторном - продолжается?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
'на Form1 создаём кнопки cmdStart, cmdExit, cmdClean
'и графическое окно g
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Private Sub Form_Load()
    Form1.KeyPreview = True
    Form1.BorderStyle = 2
    Form1.Caption = "график Функции"
    Form1.Top = 15 * 150
    Form1.Left = 15 * 400
    Form1.BackColor = RGB(200, 200, 200)
    g.BackColor = RGB(250, 250, 250)
End Sub
 
Private Sub cmdStart_Click()
    g.Scale (-10.6, 2.1)-(10.6, -2.1) 'задание масштаба
 
    g.Line (-11, 0)-(11, 0) 'ось Х------------------------
    For i = -10 To 10
        g.Line (i, 0)-(i, -0.05), vbBlack 'шкала оси
    Next i
    For i = -10 To 10
        'точки цвета фона задают начало для отображения координат шкалы
        g.PSet (i - 0.35, -0.05), g.BackColor
        g.Print i 'отображаем координату
    Next i
 
    g.Line (0, 3)-(0, 0) 'ось Y до нуля-------------------
    g.Line (0, -0.22)-(0, -3) 'ось Y после нуля
    For j = -10 To 10
        g.Line (0, j)-(0.3, j)
    Next j
    For j = -2 To 2
        g.PSet (0.4, j + 0.08), g.BackColor
        If j <> 0 Then g.Print j 'исключаем отображение координаты "0"
    Next j
 
    'построение графика функции---------------------------
    'Dim stepF As Double
    stepF = 0.7
    For k = -10 To 10 Step stepF
         g.Line (k, Cos(k))-(k + stepF, Cos(k + stepF)), vbRed
         Sleep 50
    Next k
End Sub
 
Private Sub cmdClean_Click()
    g.Cls 'очистить окно g
End Sub
 
Private Sub cmdExit_Click()
    End 'выход из программы
End Sub

@Kogb · 11.03.2019, 21:49

Я бы сделвл так:
-Задать глобальную булеву переменную для паузы, напр. p
-Задать в свойствах формы KeyPreview = True
-Задать событие нажатия клавиши:

Visual Basic
1
2
3
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeySpace Then p = True
End Sub

-В цикле задать мессаджбокс при нажатии клавиши, который и будет делать паузу:

Visual Basic
1
2
3
4
5
6
7
8
''''
    For k = -10 To 10 Step stepF
         g.Line (k, Cos(k))-(k + stepF, Cos(k + stepF)), vbRed
         DoEvents
         Sleep 50
         If p = True Then MsgBox "Pause": p = False
    Next k
'''

@Веди · 12.03.2019, 11:08 **[ТС]**

спасибо за решение
сделал всё как в ответе

здесь есть два момента:

1. когда я нажимаю на кнопку "старт" на ней остаётся фокус
и тогда жать клавишу "пауза" бессмысленно"
поскольку она срабатывает только после отрисовки графика
отсюда вопрос: как убрать фокус с кнопки и передать форме?

2. можно ли сделать окно сообщения невидимым
а лучше обойтись оператором "Pausa" или что там есть в VB6?

Добавлено через 14 минут
хотя с паузой можно сделать бесконечный цикл:

Visual Basic
1
2
3
4
5
Private Sub Pausa()
   Do While p
      Exit Do
   Loop
End Sub

и вставить в цикл:

Visual Basic
1
If p = True Then Pause

@Kogb · 12.03.2019, 11:36

Сообщение от Веди

и тогда жать клавишу "пауза" бессмысленно"

Что за клавиша "пауза"? Была речь про клавишу "пробел", так я показал как это сделать.

@Веди · 12.03.2019, 11:45 **[ТС]**

извиняюсь
клавиша "пробел" конечно же!
я всё и сделал. только не работает
потому что кнопка "старт" выделяется
и пока цикл не завершится полностью
"пробел" не сработает

@Kogb · 12.03.2019, 12:12

Сообщение от Веди

я всё и сделал. только не работает

Вы невнимательно читали мой пост и либо не установили свойство формы KeyPreview = True, либо в цикле DoEvents, либо и то и другое вместе

Добавлено через 19 минут
Чтобы убрать фокус с кнопки после нажатия,можно установить его на другой объект

Visual Basic
1
2
Private Sub cmdStart_Click()
g.SetFocus

@Веди · 12.03.2019, 12:22 **[ТС]**

вот полный исходник
если не трудно подскажите
как?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
'на Form1 создаём кнопки cmdStart, cmdExit, cmdClean
'и графическое окно g
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Const stepF = 0.7
Public k As Double
Public p As Boolean
 
Private Sub Form_Load()
   Form1.KeyPreview = True
   Form1.BorderStyle = 2
   Form1.Caption = "график Функции"
   Form1.Top = 15 * 150
   Form1.Left = 15 * 400
   Form1.BackColor = RGB(200, 200, 200)
   g.BackColor = RGB(250, 250, 250)
   g.Scale (-10.6, 2.1)-(10.6, -2.1) 'задание масштаба
   k = -10
End Sub
 
Private Sub g_Paint()
   axesCoor
End Sub
 
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
   If KeyCode = vbKeySpace Then p = True
End Sub
 
Private Sub g_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = 90 Then
      If k < 10 Then
         g.Line (k, Cos(k))-(k + stepF, Cos(k + stepF)), vbRed
         k = k + stepF
      End If
   End If
End Sub
 
Private Sub axesCoor() 'рисуем систему координат
   g.Cls 'очищаем картинку
   g.Line (-11, 0)-(11, 0) 'ось Х
   For i = -10 To 10
      g.Line (i, 0)-(i, -0.05), vbBlack 'шкала оси
   Next i
   For i = -10 To 10
      'точки цвета фона задают начало для отображения координат шкалы
      g.PSet (i - 0.35, -0.05), g.BackColor
      g.Print i 'отображаем координату
   Next i
 
   g.Line (0, 3)-(0, 0) 'ось Y до нуля
   g.Line (0, -0.22)-(0, -3) 'ось Y после нуля
   For j = -10 To 10
      g.Line (0, j)-(0.3, j)
   Next j
   For j = -2 To 2
      g.PSet (0.4, j + 0.08), g.BackColor
      If j <> 0 Then g.Print j 'исключаем отображение координаты "0"
   Next j
End Sub
 
Private Sub cmdStart_Click() 'нажата кнопка "старт"
   For i = k To 10 Step stepF
      g.Line (i, Cos(i))-(i + stepF, Cos(i + stepF)), vbRed 'график функции
      Sleep 300
      If p = True Then MsgBox "Pause": p = False
   Next i
   k = -10
End Sub
 
Private Sub cmdClean_Click() 'нажата кнопка "ластик"
   axesCoor 'очистить g и перерисовать оси координат
   k = -10
End Sub
 
Private Sub cmdExit_Click() 'нажата кнопка "выход"
   End 'выход из программы
End Sub

Добавлено через 5 минут
да фокус убирается
но "пробел" не срабатывает
не пойму что я не так делаю?

@Kogb · 12.03.2019, 12:30

Не было DoEvents в цикле

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
'на Form1 создаём кнопки cmdStart, cmdExit, cmdClean
'и графическое окно g
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Const stepF = 0.7
Public k As Double
Public p As Boolean
 
Private Sub Form_Load()
   Form1.KeyPreview = True
   Form1.BorderStyle = 2
   Form1.Caption = "график Функции"
   Form1.Top = 15 * 150
   Form1.Left = 15 * 400
   Form1.BackColor = RGB(200, 200, 200)
   g.BackColor = RGB(250, 250, 250)
   g.Scale (-10.6, 2.1)-(10.6, -2.1) 'задание масштаба
   k = -10
End Sub
 
Private Sub g_Paint()
   axesCoor
End Sub
 
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
   If KeyCode = vbKeySpace Then p = True
End Sub
 
Private Sub g_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = 90 Then
      If k < 10 Then
         g.Line (k, Cos(k))-(k + stepF, Cos(k + stepF)), vbRed
         k = k + stepF
      End If
   End If
End Sub
 
Private Sub axesCoor() 'рисуем систему координат
   g.Cls 'очищаем картинку
   g.Line (-11, 0)-(11, 0) 'ось Х
   For i = -10 To 10
      g.Line (i, 0)-(i, -0.05), vbBlack 'шкала оси
   Next i
   For i = -10 To 10
      'точки цвета фона задают начало для отображения координат шкалы
      g.PSet (i - 0.35, -0.05), g.BackColor
      g.Print i 'отображаем координату
   Next i
 
   g.Line (0, 3)-(0, 0) 'ось Y до нуля
   g.Line (0, -0.22)-(0, -3) 'ось Y после нуля
   For j = -10 To 10
      g.Line (0, j)-(0.3, j)
   Next j
   For j = -2 To 2
      g.PSet (0.4, j + 0.08), g.BackColor
      If j <> 0 Then g.Print j 'исключаем отображение координаты "0"
   Next j
End Sub
 
Private Sub cmdStart_Click() 'нажата кнопка "старт"
g.SetFocus
   For i = k To 10 Step stepF
      g.Line (i, Cos(i))-(i + stepF, Cos(i + stepF)), vbRed 'график функции
      DoEvents
      Sleep 300
      If p = True Then MsgBox "Pause": p = False
   Next i
   k = -10
End Sub
 
Private Sub cmdClean_Click() 'нажата кнопка "ластик"
   axesCoor 'очистить g и перерисовать оси координат
   k = -10
End Sub
 
Private Sub cmdExit_Click() 'нажата кнопка "выход"
   End 'выход из программы
End Sub

@Веди · 13.03.2019, 23:00 **[ТС]**

и всё таки я домучил эту грешную "паузу"
правда нагородил городушек
пришлось 2 глобальные переменные ввести
мож можно как-то попроще сделать
что бы Pausa вполне самостоятельной единицей была?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Public p As Boolean 'переключатель 
Public b As Integer 'чёт/нечет нажатия клавиши "пробел"
 
Private Sub cmdStart_Click()
   g.SetFocus
   For i = k To 10 Step stepF
      g.Line (i, Cos(i))-(i + stepF, Cos(i + stepF)), vbRed
      DoEvents
      Sleep 300
      If p Then Pausa: p = False
   Next i
   k = -10
End Sub
 
Private Sub g_KeyUp(KeyCode As Integer, Shift As Integer)
   If KeyCode = 32 Then b = b + 1: If b = 1 Then p = True
End Sub
 
Private Sub Pausa()
   Do While p Or b = 1
      DoEvents
      p = False
   Loop
   b = 0
End Sub

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

@Веди 18 / 13 / 1 Регистрация: 04.07.2012 Сообщений: 523
	12.03.2019, 11:45 [ТС]
	извиняюсь клавиша "пробел" конечно же! я всё и сделал. только не работает потому что кнопка "старт" выделяется и пока цикл не завершится полностью "пробел" не сработает Изображения 0

Пауза в цикле графики

Решение