Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #31  
Старый 09.07.2011, 21:34
m1sclick m1sclick вне форума
Начинающий
 
Регистрация: 04.07.2011
Адрес: Украина
Сообщения: 186
Версия Delphi: 2010
Репутация: 2094
По умолчанию

Нету.

Просто напиши как она работает потому что я уже совсем запутался. Вот я последовал твоему совету:
После включения таймера сразу выключился CheckBox1. Потом когда время прошло, показало сообщение и CheckBox2 включился вместе с CheckBox1. Потом когда еще раз прошло время мне опять показало сообщение но еще в добавок показало сообщение второе "Ведь так?" - это значит что второй раз то что было в OnClick после включения таймера не происходило, а это в свою очередь подтверждает то что я писал сообщением ранее.

Последний раз редактировалось m1sclick, 18.07.2011 в 18:42.
Ответить с цитированием
  #32  
Старый 09.07.2011, 21:39
Аватар для Konrad
Konrad Konrad вне форума
Эксперт
 
Регистрация: 19.03.2009
Сообщения: 1,261
Репутация: 45834
По умолчанию

Так-с...
закинь весь проджект сюда, отредактирую.

Иначе объяснять буду еще полдня.
Ответить с цитированием
  #33  
Старый 09.07.2011, 21:50
m1sclick m1sclick вне форума
Начинающий
 
Регистрация: 04.07.2011
Адрес: Украина
Сообщения: 186
Версия Delphi: 2010
Репутация: 2094
По умолчанию

У меня вроде получилось, но все равно, взгляд профессионала лишним не будет.

Последний раз редактировалось m1sclick, 10.07.2011 в 00:44.
Ответить с цитированием
  #34  
Старый 09.07.2011, 23:08
Аватар для Konrad
Konrad Konrad вне форума
Эксперт
 
Регистрация: 19.03.2009
Сообщения: 1,261
Репутация: 45834
По умолчанию

в кнопке старт:
PHP код:
procedure TForm1.Button1Click(SenderTObject);
begin
timer1
.Enabled:=true;
timer1.Interval:=10;
{
И всетут больше ничего не нужно!!!!!!}
end

в таймере:
PHP код:
procedure TForm1.Timer1Timer(SenderTObject);
begin
if Form2.CheckBox5.Checked true then
begin
{acc:= TStringList.Create();
if 
accfile false then
.........................
мего-код авторизации)
.........................
.........................
    
Memo1.Lines.Strings[i]:=Memo1.Lines.Strings[i]+', '+(stream.DataString);
    
stream.Clear;
  
end;
  
acc.Free; }
timer1.Interval:=нужный интервал;
end;
end

И кстати 30000 это не 30минут

Вот мне интересно, где так кодить то учат? В каком ВУЗе Укр?

Последний раз редактировалось Konrad, 09.07.2011 в 23:34.
Ответить с цитированием
  #35  
Старый 09.07.2011, 23:34
m1sclick m1sclick вне форума
Начинающий
 
Регистрация: 04.07.2011
Адрес: Украина
Сообщения: 186
Версия Delphi: 2010
Репутация: 2094
По умолчанию

Я знаю что 30000 это не 30 минут.

Дома так учат кодить, если бы меня кто то этому учил я бы глупых вопросов не задавал, все что успел прочитать в книжке и в интернете то и пишу.
Вобще изначально все так и было, просто я потом подумал что можно что бы это все работало в обработчике кнопки чтобы код в одном месте весь был.
Ответить с цитированием
  #36  
Старый 09.07.2011, 23:36
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Код ты можешь расположить где тебе удобно, вопрос ставился так: не плоди двойников, не утежеляй код.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #37  
Старый 10.07.2011, 00:44
m1sclick m1sclick вне форума
Начинающий
 
Регистрация: 04.07.2011
Адрес: Украина
Сообщения: 186
Версия Delphi: 2010
Репутация: 2094
По умолчанию

Если делать как предложил Konrad ничего хорошего не выйдет.

Но я разобрался. Тему можно закрывать.
Ответить с цитированием
  #38  
Старый 10.07.2011, 01:34
Аватар для Konrad
Konrad Konrad вне форума
Эксперт
 
Регистрация: 19.03.2009
Сообщения: 1,261
Репутация: 45834
По умолчанию

Цитата:
Сообщение от m1sclick
Если делать как предложил Konrad ничего хорошего не выйдет.
Ну спасибо на добром слове.
Твое мнение очень важно для меня.

Называеться решил помочь)))))

П.с.: прочитай хоть одну книгу по Делфи, а потом уже суди других.

Последний раз редактировалось Konrad, 10.07.2011 в 01:37.
Ответить с цитированием
  #39  
Старый 10.07.2011, 01:46
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Цитата:
Сообщение от Konrad
Называеться решил помочь)))))
Offtop: Инициатива наказуема.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #40  
Старый 10.07.2011, 20:53
m1sclick m1sclick вне форума
Начинающий
 
Регистрация: 04.07.2011
Адрес: Украина
Сообщения: 186
Версия Delphi: 2010
Репутация: 2094
По умолчанию

Извиняюсь конечно за смелость но, ничего не выйдет потому что за 10 мс цикл не успеет пройти не разу, а увеличиваешь задержку в конце цикла. Следовательно программа не успеет дойти до момента когда интервал увеличиться.

Еще раз всем спасибо за помощь.

Последний раз редактировалось m1sclick, 10.07.2011 в 20:57.
Ответить с цитированием
  #41  
Старый 10.07.2011, 21:15
Аватар для Konrad
Konrad Konrad вне форума
Эксперт
 
Регистрация: 19.03.2009
Сообщения: 1,261
Репутация: 45834
По умолчанию

Цитата:
Сообщение от m1sclick
ничего не выйдет потому что за 10 мс цикл не успеет пройти не разу, а увеличиваешь задержку в конце цикла.
Опять 25)

Можн вначале поставить. Не суть важно.
Это просто пример...
Детали сам мог бы додумать.

Я поставил 10 чтобы после истечения 10мс началась мего-авторизация, когда она закончится цикл увеличится на 30мин.
И понятное дело что за 10 мс никакой цикл проходить не будет.
Это просто для того чтобы сразу начать 1-ю авторизацию.
После чего устанавливаем интервал в 30мин и ждем второй авторизации, далее через 1 час 3-я, через полтора часа - 4-я и т.д.

Ладно, похоже разговор немого с глухим. Иди читай учебник.Удачи.

Последний раз редактировалось Konrad, 10.07.2011 в 21:36.
Ответить с цитированием
  #42  
Старый 10.07.2011, 22:48
ART ART вне форума
Продвинутый
 
Регистрация: 13.02.2006
Адрес: Магнитогорск
Сообщения: 669
Репутация: 14745
По умолчанию

Слушай, мэн, напиши ТЗ. И тебе сразу разжуют, как надо правильно делать, а может даже за тебя кто то напишет )
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 11:26.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025