Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.04.2012, 15:12   #11
Кольша
Далеко не
Участник клуба
 
Аватар для Кольша
 
Регистрация: 11.08.2011
Сообщений: 1,512
По умолчанию

Код:
Format(' %d:%.2d', [Alltime div 60, Alltime mod 60])
Кольша вне форума Ответить с цитированием
Старый 24.04.2012, 15:15   #12
mansuetudo
Пользователь
 
Регистрация: 08.11.2011
Сообщений: 46
По умолчанию

Код:
N:=i div 60;
Label1.Caption:='У вас осталось '+IntToStr(N)+' минут '+IntToStr(i-N*60)+' секунд';
mansuetudo вне форума Ответить с цитированием
Старый 24.04.2012, 15:29   #13
m1zantrop
Форумчанин
 
Регистрация: 11.04.2012
Сообщений: 103
По умолчанию

спасибо
m1zantrop вне форума Ответить с цитированием
Старый 24.04.2012, 18:38   #14
m1zantrop
Форумчанин
 
Регистрация: 11.04.2012
Сообщений: 103
По умолчанию

туплю что то. не могу понять.

создал вторую форму, когда время кончается её перекидывает туда и хочу чтобы лэйбл выдавал что время (которое мы выбирали 5-10-15-20....ит.д) кончилось. форма грузит по истечению времени, а лейбл молчит, в чем дело, подскажет кто?)

Цитата:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
i:=i-1;
N:=i div 60;
Label1.Caption:='У вас осталось '+IntToStr(N)+' минут '+IntToStr(i-N*60)+' секунд';
ProgressBar1.Position:=i;
if i=0 then
begin
Timer1.Enabled:=false;
t:=Form2.ShowModal;
Form2.Label1.Caption:=' '+IntToStr(N)+' минут '+IntToStr(i-N*60)+' секунд, данные вам для... истекли.';
end;
end;
m1zantrop вне форума Ответить с цитированием
Старый 24.04.2012, 18:43   #15
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

А вы
Цитата:
Код:
Form2.Label1.Caption:=' '+IntToStr(N)+' минут '+IntToStr(i-N*60)+' секунд, данные вам для... истекли.';
перенесите в
Form2.OnShow
Только сделайте чтобы N была доступна в unit Form2
или строки местами поменяйте
Код:
Form2.Label1.Caption:=' '+IntToStr(N)+' минут '+IntToStr(i-N*60)+' секунд, данные вам для... истекли.';
t:=Form2.ShowModal;
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303

Последний раз редактировалось Hacker19_90; 24.04.2012 в 18:45.
Hacker19_90 вне форума Ответить с цитированием
Старый 24.04.2012, 18:48   #16
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,430
По умолчанию

В дополнение к сказанному Hacker19_90.
У вас в N и i будут нули после завершения таймера.
Так что вы должны еще раз инициализировать i и N нужными числами.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Старый 24.04.2012, 18:49   #17
m1zantrop
Форумчанин
 
Регистрация: 11.04.2012
Сообщений: 103
По умолчанию

Цитата:
Сообщение от Hacker19_90 Посмотреть сообщение
А вы

перенесите в
Form2.OnShow
Только сделайте чтобы N была доступна в unit Form2
или строки местами поменяйте
Код:
Form2.Label1.Caption:=' '+IntToStr(N)+' минут '+IntToStr(i-N*60)+' секунд, данные вам для... истекли.';
t:=Form2.ShowModal;
форма 2 не знает переменных N и i
m1zantrop вне форума Ответить с цитированием
Старый 24.04.2012, 18:59   #18
m1zantrop
Форумчанин
 
Регистрация: 11.04.2012
Сообщений: 103
По умолчанию

всё))) спасибо)
m1zantrop вне форума Ответить с цитированием
Старый 24.04.2012, 21:35   #19
m1zantrop
Форумчанин
 
Регистрация: 11.04.2012
Сообщений: 103
По умолчанию

имеется 6 вопросов через переменную ball 1 вопрос - 1 балл хочу вывести оценку. поправте кэйс который отвечает за оценку. А еще лучше подскажите как в процентах ставить балл. т.е например 80% от 100% это 4 30 и < это двояк.
Заранее спасибо.
Цитата:
procedure TForm1.Timer1Timer(Sender: TObject);
var gg: integer;
begin
i:=i-1;
N:=i div 60;
Label1.Caption:='У вас осталось : '+IntToStr(N)+' минут '+IntToStr(i-N*60)+' секунд';
ProgressBar1.Position:=i;
if i=0 then
begin
Case min.ItemIndex of
0: i:=300;
1: i:=600;
2: i:=900;
3: i:=1200;
4: i:=1500;
5: i:=1800;
6: i:=2100;
7: i:=2400;
8: i:=2700;
9: i:=3000;
10: i:=3300;
11: i:=3600;
12: i:=3900;
end;
begin
gg:=ball;
Case ball of
1,2: gg:=2;
3,4: gg:=3;
5: gg:=4;
6: gg:=5;

end;
N:=i div 60;
Timer1.Enabled:=false;
Form2.Edit1.Text:=' '+IntToStr(N)+' минут, отведённые для тестирования истекли!';
Form2.Edit2.Text:='Кол-во правильных ответов : '+inttostr(ball);
Form2.Edit3.Text:='Ваша оценка : '+inttostr(gg);
t:=Form2.ShowModal;
end;
m1zantrop вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Какой метод работы с БД выбрать? serega96 Общие вопросы Delphi 2 23.01.2012 23:25
исследовать метод квадратных корней и метод Холецкого для решения СЛАУ Vит@x@ Помощь студентам 0 22.11.2011 10:47
Delphi+Firebird самый удобный-простой метод работы delphicoding Общие вопросы Delphi 2 08.07.2011 07:02
Turbo Pascal[програмыки : текстовая\метод симпсона\метод половинного деления qsccsq Помощь студентам 7 24.12.2010 05:23
Подскажите метод работы сервера и клиента 1с:Бухгалтерия kakawkin Софт 2 24.12.2009 15:59