ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
28.05.2010, 00:04
|
|
Познающий
Регистрация: 20.01.2010
Сообщений: 43
Провел на форуме:
41357
Репутация:
6
|
|
Сообщение от heretic1990
неет, надо определить сколько раз сработал таймер. например я включил таймер, в нём код программы, каждый раз время выполнения её разное. если использовать цикл, то можно былобы не париться и использовать переменная:=переменная+1; но с таймером такое не прокатывает.
короче надо узнать сколько раз сработал код программы в таймере.
Что у тебя там не получилось? Кинь код, у меня все работает.
|
|
|
28.05.2010, 01:16
|
|
Познающий
Регистрация: 15.03.2009
Сообщений: 87
Провел на форуме:
893829
Репутация:
34
|
|
Сообщение от heretic1990
неет, надо определить сколько раз сработал таймер. например я включил таймер, в нём код программы, каждый раз время выполнения её разное. если использовать цикл, то можно былобы не париться и использовать переменная:=переменная+1; но с таймером такое не прокатывает.
короче надо узнать сколько раз сработал код программы в таймере.
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.tag:=Timer1.tag+1;
Form1.caption:=IntToStr(Timer1.tag);
end;
|
|
|
|
25.05.2010, 22:51
|
|
Познающий
Регистрация: 20.01.2010
Сообщений: 43
Провел на форуме:
41357
Репутация:
6
|
|
onTimer
label.caption := IntToStr(timercount);
inc(timercount); ?
|
|
|
|
25.05.2010, 23:45
|
|
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
Провел на форуме:
3728999
Репутация:
444
|
|
Сообщение от miako
onTimer
label.caption := IntToStr(timercount);
inc(timercount); ?
пробовал, не помогло...
|
|
|
|
26.05.2010, 18:12
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
Провел на форуме:
828081
Репутация:
84
|
|
for i:= 1 to 5 do
У тебя i идет от 1 до 5. В этом интервале только 2 четных числа - 2 и 4
И пишешь что надо произведение, а сам сумму считаешь
|
|
|
|
26.05.2010, 18:20
|
|
Постоянный
Регистрация: 13.12.2008
Сообщений: 354
Провел на форуме:
1747641
Репутация:
175
|
|
Да, и еще не понятно, для чего здесь:
Код:
write('n=');
readln(n);
Ты ведь n нигде не используешь.
Также нужно присвоить начальное значение переменной s. |
|
|
|
26.05.2010, 20:59
|
|
Постоянный
Регистрация: 02.11.2009
Сообщений: 341
Провел на форуме:
599124
Репутация:
65
|
|
Ага всем спасибо большое) что-то я затупил с изучением поскаля)
Первая моя задача по паскалю закончилась)
Вдруг кому нужно будет
program chetnie; var i,s:integer; begin s:=1; for i:=1 to 10 do begin if i mod 2 = 0 then s:=s*i; end; writeln('Произведение первых 5-ти ЧЁТНЫХ чисел равно ',s); end.
|
|
|
|
27.05.2010, 00:33
|
|
Познающий
Регистрация: 11.11.2008
Сообщений: 72
Провел на форуме:
763861
Репутация:
0
|
|
как в Edit можно засунуть кнопку или картинку типа как в WebMoney??
|
|
|
|
27.05.2010, 17:03
|
|
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
Провел на форуме:
3728999
Репутация:
444
|
|
Сообщение от cel
как в Edit можно засунуть кнопку или картинку типа как в WebMoney??
это где у них такое?
|
|
|
|
27.05.2010, 17:03
|
|
Постоянный
Регистрация: 13.12.2008
Сообщений: 354
Провел на форуме:
1747641
Репутация:
175
|
|
Сообщение от cel
как в Edit можно засунуть кнопку или картинку типа как в WebMoney??
Код:
Image.Parent := Edit;
Image.Left := 0;
Image.Top := 0;
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид