http://forum.sources.ru/index.php?showtopic=272151&st=0entry2263928
Сворачивается экран Паскаля (турбо)
присваивание detect'а не помогает
Так... А теперь - подробнее, что значит "экран сворачивается"? Программа завершается? Ты ее как запускал? Попробуй запусти прямо из IDE, по крайней мере получишь информацию о причинах такого поведения. Повторяю, только что проверил под TP, у меня - ничего не сворачивается, отображается заданное время...
Добавь анализ graphresult, может у тебя с инициализацией графики что-то не то?
В любом случае, указание строки, на которой прерывается выполнение программы, и сообщения, возникающего при этом, очень поможет, потому что мне повторить ошибку не удалось, поэтому исправить ее я тоже не могу (я вообще слабо представляю, где здесь что-нибудь может вылетать, если честно)...
Сворачивается окно TurboPascal
а это видно, что отображается. Разворачиваешь окно - мелькает и сворачивается
В таком случае - это не проблема Паскаля. У тебя что-то с ОСью не то, если окна просто так сворачиваются...
Striker, а у вас случаем не Vista стоит?)))
нет
Он с эксплорером открытым сворачивается
Вот попытался совместить с программой из соседней темы - всё, запутался. Суть та же, вывод другой
Так ли я время преобразую?
Опять за свое... Я ж показал тебе, как надо делать основной цикл. Ты ВЫЙТИ-то из своей программы пробовал хоть когда-нибудь? То, что она у тебя "сворачивается" - не повод заставлять ДРУГИХ, у кого она НЕ сворачивается, удалять процесс...
beginПроверено на ТП, запусти, если у тебя опять "сворачивается" - прогоняй антивирусы, делай с системой, что хочешь - проблема именно в ней...
initgraph(g_driver, g_mode, '');
i := 0;
repeat
stop := false;
repeat
curr_time := GetTime;
while GetTime - curr_time < 100 do;
xpos := 150; ypos := 150;
str(i, s);
cleardevice;
print(s);
if keypressed then begin
stop := true; while keypressed do readkey;
end;
inc(i);
until stop;
while not keypressed do;
finished := readkey = #27;
until finished;
closegraph;
end.
Извини, спасибо
Только ещё лучше бы чтобы на минуты тоже переходило если больше 60 секунд
И сразу 4 серых поля было, как такое сделать?
volvo, помоги пожалуйста
Так лучше?
Прикрепленные файлы
n_sec.pas ( 2.42 килобайт )
Кол-во скачиваний: 257
ага, спасибо огромное