ReSQL.ru
     
powered by simpleCommunicator - 2.0.54     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ЧТО-ТО ДЕЛАЮ НЕ ТАК !!!!
21 сообщений из 21, страница 1 из 1
ЧТО-ТО ДЕЛАЮ НЕ ТАК !!!!
    #37359033
Андик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андик
Участник
'ЧТО-ТО ДЕЛАЮ НЕ ТАК !!!!
'нет справки в (VB6) по этому обращаюсь к вам
'как использовать кнопки в циклах (FOR)
'быть может есть еще какой-то выход кроме (REFRESH)

Dim a&, b$

Private Sub Command1_Click() 'кнопка стоп
b$ = "стоп"
End Sub

Private Sub Form_Activate()
b$ = ""
For a& = 0 To 1000000000
Command1.Refresh 'ПОЧЕМУ НЕ РАБОТАЕТ КНОПКА СТОП ?!
If b$ = "стоп" Then Command1.Caption = "работает": Exit For
Next a&
End Sub
...
Рейтинг: 0 / 0
20.07.2011, 11:22
| Ответить | Цитировать | Написать  
ЧТО-ТО ДЕЛАЮ НЕ ТАК !!!!
    #37359041
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
а ничего , что у вас ваш цикл работает до показа формы?

ну и когда его суните куда вам надо , не забудьте внутрь цикла DoEvents добавить
...
Рейтинг: 0 / 0
20.07.2011, 11:27
| Ответить | Цитировать | Написать  
ЧТО-ТО ДЕЛАЮ НЕ ТАК !!!!
    #37359062
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Андик'быть может есть еще какой-то выход кроме (REFRESH)
А refresh-то там как раз и не нужен
...
Рейтинг: 0 / 0
20.07.2011, 11:37
| Ответить | Цитировать | Написать  
ЧТО-ТО ДЕЛАЮ НЕ ТАК !!!!
    #37359069
Андик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андик
Участник
не смотрите что цикл на 10...00 а также что нет ограничения цикла это тестовая форма проверки как работает REFRESH
(перед вставкой в нормальный код) а что касается формы то она грузится изапускается (!)
кроме того если я не ошибаюсь то

Private Sub Form_Activate()
MsgBox ("Activate") 'без формы
End Sub

Private Sub Form_Initialize()
MsgBox ("Initialize") 'без формы
End Sub

Private Sub Form_Load()
MsgBox ("Load") 'с формой
End Sub
...
Рейтинг: 0 / 0
20.07.2011, 11:44
| Ответить | Цитировать | Написать  
ЧТО-ТО ДЕЛАЮ НЕ ТАК !!!!
    #37359074
Андик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андик
Участник
если refresh не нужен то как сделать остановку цикла кнопкой (!)
...
Рейтинг: 0 / 0
20.07.2011, 11:47
| Ответить | Цитировать | Написать  
ЧТО-ТО ДЕЛАЮ НЕ ТАК !!!!
    #37359079
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Андикесли refresh не нужен то как сделать остановку цикла кнопкой (!) не читай сообщения через одно - Костя уже ответил: 10998936
...
Рейтинг: 0 / 0
20.07.2011, 11:49
| Ответить | Цитировать | Написать  
ЧТО-ТО ДЕЛАЮ НЕ ТАК !!!!
    #37359088
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Андик
> кроме того если я не ошибаюсь то


Ошибаешся :)

I - Initialize
L ike - Load
R - Resize
A - Activate
P - Paint

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
20.07.2011, 11:51
| Ответить | Цитировать | Написать  
ЧТО-ТО ДЕЛАЮ НЕ ТАК !!!!
    #37359106
Андик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андик
Участник
спасибо игорь что указал на ошибку (это мой промах запускал и получил одно - а написал в коментарии другое )
...
Рейтинг: 0 / 0
20.07.2011, 12:02
| Ответить | Цитировать | Написать  
ЧТО-ТО ДЕЛАЮ НЕ ТАК !!!!
    #37359122
Андик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андик
Участник
Shocker.Pro,

все равно непонятно как использовать здесь DoEvents если мне к примеру не ненужно ограничивать длинну цикла а всего лиш сделать остановку по кнопке стоп
...
Рейтинг: 0 / 0
20.07.2011, 12:09
| Ответить | Цитировать | Написать  
ЧТО-ТО ДЕЛАЮ НЕ ТАК !!!!
    #37359146
Андик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андик
Участник
сделал как подсказали:

Dim a&, b$

Private Sub Command1_Click() 'кнопка стоп
b$ = "стоп"
End Sub

Private Sub Form_Activate()
b$ = ""
For a& = 0 To 1000000000
DoEvents
If b$ = "стоп" Then Command1.Caption = "работает": Exit For
Next a&
End Sub
...
Рейтинг: 0 / 0
20.07.2011, 12:25
| Ответить | Цитировать | Написать  
ЧТО-ТО ДЕЛАЮ НЕ ТАК !!!!
    #37359149
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
можно так, например. можете ещё таймер навесить, условия добавить и тд и тп
...
Рейтинг: 0 / 0
20.07.2011, 12:26
| Ответить | Цитировать | Написать  
ЧТО-ТО ДЕЛАЮ НЕ ТАК !!!!
    #37359165
Андик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андик
Участник
не могу открыть архив (с ошибкой) но все равно спасибо за сочуствие
...
Рейтинг: 0 / 0
20.07.2011, 12:34
| Ответить | Цитировать | Написать  
ЧТО-ТО ДЕЛАЮ НЕ ТАК !!!!
    #37359167
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Form1.frm

Код: plaintext
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.
VERSION  5 . 00 
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =    3510 
   ClientLeft      =    120 
   ClientTop       =    420 
   ClientWidth     =    6150 
   LinkTopic       =   "Form1"
   ScaleHeight     =    3510 
   ScaleWidth      =    6150 
   StartUpPosition =    3   'Windows Default
   Begin VB.CommandButton Command1 
      Caption         =   "Стоп"
      Height          =    675 
      Left            =    1560 
      TabIndex        =    0 
      Top             =    2700 
      Width           =    2895 
   End
   Begin VB.Label Label1 
      Alignment       =    2   'Center
      Caption         =   "Label1"
      Height          =    255 
      Left            =    1020 
      TabIndex        =    1 
      Top             =    780 
      Width           =    3975 
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public bStop As Boolean


Private Sub Command1_Click()

If Me.Command1.Caption = "Start" Then
    Me.bStop = False
    Me.Command1.Caption = "Stop"
    DoEvents
    
    Me.DoIt
    
Else
    Me.bStop = True
    DoEvents
    Me.Command1.Caption = "Start"
    DoEvents
End If

End Sub

Private Sub Form_Load()

Me.bStop = False
Me.Command1.Caption = "Start"
Me.Label1.Caption = ""
Me.Refresh
DoEvents

End Sub

Friend Sub DoIt()

Do While Not Me.bStop
    Me.Label1.Caption = VBA.Timer
    DoEvents
Loop

End Sub
...
Рейтинг: 0 / 0
20.07.2011, 12:35
| Ответить | Цитировать | Написать  
ЧТО-ТО ДЕЛАЮ НЕ ТАК !!!!
    #37359180
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Андик если мне к примеру не ненужно ограничивать длинну цикла
для этого используется такая конструкция:
Код: plaintext
1.
2.
3.
Do Wlile True
  ...
  DoEvents
Loop
...
Рейтинг: 0 / 0
20.07.2011, 12:41
| Ответить | Цитировать | Написать  
ЧТО-ТО ДЕЛАЮ НЕ ТАК !!!!
    #37359186
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Андик
> не ненужно ограничивать длинну цикла

И правильно! Чего процессор простаивает зазря! Пусть воздух погреет
Может имеет смысл пересмотреть логику обработки? И убрать бесконечные циклы?

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
20.07.2011, 12:43
| Ответить | Цитировать | Написать  
ЧТО-ТО ДЕЛАЮ НЕ ТАК !!!!
    #37359188
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
да пусть циклит
...
Рейтинг: 0 / 0
20.07.2011, 12:44
| Ответить | Цитировать | Написать  
ЧТО-ТО ДЕЛАЮ НЕ ТАК !!!!
    #37359189
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Shocker.Pro
> для этого используется такая конструкция:


А ты тоже! Хоть бы знак повесил, что там ОБРЫВ, но туда можно :)

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
20.07.2011, 12:44
| Ответить | Цитировать | Написать  
ЧТО-ТО ДЕЛАЮ НЕ ТАК !!!!
    #37359198
Андик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андик
Участник
в принципе все ясно кроме (ME.)?
...
Рейтинг: 0 / 0
20.07.2011, 12:49
| Ответить | Цитировать | Написать  
ЧТО-ТО ДЕЛАЮ НЕ ТАК !!!!
    #37359203
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Me - это обращение к текущему инстансу вашего класса
...
Рейтинг: 0 / 0
20.07.2011, 12:51
| Ответить | Цитировать | Написать  
ЧТО-ТО ДЕЛАЮ НЕ ТАК !!!!
    #37359208
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Игорь Горбонос> Автор: Shocker.Pro
> для этого используется такая конструкция:


А ты тоже! Хоть бы знак повесил, что там ОБРЫВ, но туда можно :) (c) Семен Альтов

Человек просил бесконечный цикл - я нарисовал. Мало ли, может он внеземные цивилизации ищет делает длинный математический расчет и хочет иметь возможность его прервать.
...
Рейтинг: 0 / 0
20.07.2011, 12:53
| Ответить | Цитировать | Написать  
ЧТО-ТО ДЕЛАЮ НЕ ТАК !!!!
    #37359229
Андик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андик
Участник
Shocker.ProИгорь Горбонос> Автор: Shocker.Pro
> для этого используется такая конструкция:


А ты тоже! Хоть бы знак повесил, что там ОБРЫВ, но туда можно :) (c) Семен Альтов

Человек просил бесконечный цикл - я нарисовал. Мало ли, может он внеземные цивилизации ищет делает длинный математический расчет и хочет иметь возможность его прервать.



все намного проще чем кажеться
задача сделать счетчик всего лиш на 65536 циклов но с обязательными прерываниями через кнопки пуск\стоп и шаг
а нужно это для моего (если дожму) эмулятора отладчика процессора(пока тока z80 там проще с описанием комманд)
но бесконечный цикл в процессоре все-же нужен (переход ffff-->0000)
...
Рейтинг: 0 / 0
20.07.2011, 13:03
| Ответить | Цитировать | Написать  
21 сообщений из 21, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ЧТО-ТО ДЕЛАЮ НЕ ТАК !!!!
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=37359033&tid=2158549]:
 0ms
get settings:
 7ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 45ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 51ms
get tp. blocked users:
 1ms
others: 338ms
total:  471ms
созд. / загр.: 471ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]