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

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

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом

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

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

Решение