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

@Веди · Регистрация: 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

Новые блоги и статьи Все статьи Все блоги /
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .

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

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

Решение