Как сделать счетчик delphi
Реализовать счетчик, накапливающий значение от 1 до 10^9
необходимо реализовать счетчик, накапливающий значение от 1 до 10^9. Каждый 100000 вычислений, счетчик должен увеличивать эл-т Progressbar на 1. Счетчик создать в виде отдельного класса, Реализовать запуск и остановку счетчика.
на форме 2 кнопки и прогрессбар. Не понимает в коде модуля потока, что за тип TProgressBar (Undeclared identifier:TProgressBar). Помогите пожалуйста справиться с этой проблемой.
код модуля потока Thread
Реализовать счетчик в TextBox
Помогите пожалуйста. Мне нужно составить небольшую програмку,состоящую из нескольких pictureBox,в.
Как реализовать простейший счетчик (00 : 00)?
Пытаюсь сделать свой счетчик, по типу (00 : 00) Думал сделать что бы секунды считались с помощью.
Подскажите пожалуйста реализовать счетчик на php
Подскажите пожалуйста реализовать счетчик. задача такая, нужен счетчик который добавляет каждые.
там в начале это я пробовал сначала без потоков делать через классы ))
все получилось, но есть еще несколько вопросов. Нужно организовать несколько потоков. Отображаю значения прогрессбара в эдиты, как бы мне замедлить заполнения прогрессбара, а то я остановить не успеваю его, как он уже полный? Что делает процедура TForm1.ThreadTerminated(Sender:TObject); и почему нельзя обойтись просто с1.Terminate? Как сделать, чтобы после остановки потока, при его запуске он продолжался с того места, где его остановили, а не с самого начала? Для лучшего понимания прикрепил файл с программой.
Вложения
 | потоки.rar (167.7 Кб, 2 просмотров) |
Решение
Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.
Реализовать счетчик страниц, отправленных на принтер
Подскажите, можно ли реализовать на нет-технологии счетчик страниц, которые отправляют на печать на.
Реализовать счетчик вопросов в программе тестирования
Доброго времени суток, мне нужная вот такая помощь: есть программа, в которой нужно, чтобы с каждым.
Реализовать счетчик монет и вывод завершения игры
Помоги завершить код игры если не сложно 1) Нужно реализовать счетчик монет Сколько есть и.
AHDL. Накапливающий сумматор
Здравствуйте,помогите,пожалуйста нарисовать функциональную схему накапливающего сумматора.
Delphi: как измерить точное время выполнения операции?
Точное время измерения выполнения операции в Delphi может пригодится во многих случаях, начиная от самого простого – показать пользователю время, затраченное на выполнение длительной операции (здесь, кстати, высокая точность нужна редко) и, заканчивая, ситуациями, когда в целях оптимизации программы нам необходимо выявить в программе наиболее “узкие” места в которых программа “застревает” на длительный промежуток времени. В основном, последняя ситуация характерна при разработке программ, использующих и обрабатывающих большие массивы данных, когда скорость выполнения операций выходит, если не на первое, то на одно из первых мест в требованиях к приложению.
Есть несколько способов узнать время выполнения операций в Delphi и все эти способы, в принципе, рассмотрены как в Сети, так и моем блоге. Поэтому представленная ниже статья – это лишь объединение всех возможных способов измерения времени в Delphi и опытный Delphi-программист здесь врядли встретит что-то новое для себя.
Способ №1 – самый простой. Используем функцию Now()
Самый простейший и наименее точный способ измерить время, затраченное на выполнение какой-либо операции в Delphi – воспользоваться функцией Now() из модуля System.SysUtils.
Исходный код может выглядеть, например, так:
Вполне вероятно, что у вас может возникнуть резонный вопрос: почему я использовал в примере SecondsBetween(), а не, например, MilliSecondsBetween() для большей точности? Сделал я это, опираясь исключительно, на описание функции Now() в официальной справке по Delphi, которая гласит следующее: “Несмотря на то, что в TDateTime могут передаваться миллисекунды, Now() имеет точность до ближайшей секунды“. То есть, если использовать Now(), то определять интервал времени с точностью до миллисекунд – не имеет смысла.
Способ №2 – используем Windows API. Функция GetTickCount().
Функция GetTickCount() не имеет параметров и возвращает количество миллисекунд, прошедших с момента запуска системы. Судя по официальной справке Microsoft, р азрешение функции GetTickCount() ограничено разрешением системного таймера, которое обычно находится в диапазоне от 10 до 16 миллисекунд. При этом, счётчик миллисекунд будет обнулен, если система запущена более 49,7 дней.
В принципе, пример использования этой функции похож на предыдущий:
Так, используя функцию GetTickCount() мы можем засечь время выполнения операции в Delphi с точностью до миллисекунды. Если и такая точность Вам не подходит и необходимо измерить интервал времени ещё точнее, то следующий способ – для вас.
Способ №3 – продолжаем использовать Windows API. Функции QueryPerformanceCounter и QueryPerformanceFrequency
Об этих функциях я рассказывал давным-давно, но, повторюсь ещё раз.
QueryPerformanceCounter — извлекает текущее значение счетчика производительности, которое представляет собой метку времени с высоким разрешением ( Способ №4 – используем возможности Delphi. Модуль System.Diagnostics
Об этом модуле я также упоминал вскользь в некоторых статьях блога, например, здесь. Модуль этот появился в Delphi уже достаточно давно (могу ошибаться, но, по-моему с Delphi XE-XE2). В модуле представлена всего одна запись (record) – TStopwatch, которая является ни чем иным, как удобной “обёрткой” для использования таймеров высокого разрешения из примера выше. Судя по достаточно скромной справке, TStopwatch использует функциональные возможности, зависящие от операционной системы, для получения доступа к таймерам с высоким разрешением, если они доступны. Если таймеры с высоким разрешением в ОС недоступны, то используются обычные таймеры.
Несмотря на то, что TStopwatch – это запись, для корректного использования всё же необходимо вызывать метод Create или StartNew.
Работа с таймером
Здравствуйте, первый раз на этом форуме и в делфи, так что не обессудте.
Вопрос такой:
Как сделать таймер назад чтобы если в лейбле1 у меня минуты (15 мин) а в лейбле2 секунды, и в лейбле2 секунды начинают отсчет 59..58..57, короче назад и как доходит до 0 секунд в лейбл1 записывается 14 минут а в лейбд2 заново 59..58..57, и так до конца, и когда все по 0 выйти из приложения?
Еще раз извините если что не так, большое спасибо!!
работа с таймером
как сделать так чтобы функция работала определенное кол-во времени
Работа с таймером
Всем привет! Подскажите, кто-нибудь, как сделать таймер вида: 00,01,02,03. 60 (дойдя до 60.
Работа с таймером(?)
Доброго времени суток. Подскажите пожалуйста, никак не могу понять даже с чего начать. Необходимо.
работа с таймером
здравствуйте работаю с таймеров впервые и есть вопросы застрял когда переменная stol равна 1 идет.
а как потом выключить таймер и перейти на другую форму, когда будет 00:00?
Добавлено через 4 минуты
Здравствуйте, дело в том что у меня тест на 15 минут рассчитан и когда время 00:00 форма допустим 1 закрывается а форма 2 открывается и на ней результат выведен, я все сделал(тест) а вот со временем беда, как проще сделать для моего варианта?
Добавлено через 6 минут
вот примерный код но он не работает почему то((
А вот в конкретно моем примере как сделать?
Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.
Работа с таймером
В первые пробую таймер и сразу проблема суть: при появлении формы требуется если нажата кнопка 1.
Работа с таймером
Помогите разобраться в организации работы с таймером. От программы требуется, чтобы каждые n.
Работа с таймером
Имеется три эллипса, допустим что это мишень. Необходимо создать таймер, который по очередности.
Работа с таймером
Ребят подскажи пожалуйста, вот у меня есть stringgrid и на нем стоит защита от ввода информации.
Как при нажатии на кнопку запустить таймер?
При нажатии кнопки на Form1 запустить таймер на Form2
На Form1 кнопка нужно чтоб при её нажатии открывалась Form2 и на Form2 запускался таймер и.
Memo в delphi / как сделать так чтобы при нажатии на кнопку memo появляется, при повторном нажатии исчезает
как сделать так чтобы при нажатии на кнопку текст с memo появляется, при повторном нажатии исчезает.
Как сделать, чтобы при первом нажатии кнопки таймер запускался а при втором останавливался
Подскажите пожалуста как зделать чтобы при первом нажатии кнопки таймер запускался а при втором.
Решение
Неправильно выразился, нужно чтобы обратный отсчет начинался заново при нажатии на кнопку, а не продолжал отсчитывать.
Добавлено через 1 минуту
заводите глобальную переменную I
на OnCreate делаете
i:=1000;
в коде таймера делаете
i:=i-1;
и у вас переменная уменьшается
а при нажатии на нужную кнопку делаете опять
i:=1000;
Исправил ошибку, но таймер не обновляется. Если можно, напишите пожалуйста пример как при нажатии на кнопку сделать k:=1000;
Добавлено через 4 минуты
Код кнопки:
Решение
Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.
Как при нажатии на кнопку переместить ее вправо?
Как при нажатии на кнопку переместить ее вправо?
Как показывать mainmenu при нажатии на кнопку?
Добрый день. MainMenu предварительно не виден. При нажатии на кнопку показывать mainmenu. После.
Как сделать появления элементов при нажатии на кнопку
Здравствуйте! Не знаю толком как и описать проблему. Задача: при открытии программы на экране.
Проект на Delphi «Стандартный Калькулятор»
Цель проекта: разработать программу «Стандартный калькулятор», практическое знакомство со способами создания программ на Delphi, изучение тем «Ветвление» и «Циклы» в процессе написания программы.
Количество часов на выполнение проекта: 5
1 урок «Разработка интерфейса программы»
Задание. Разработать интерфейс программы «Стандартный калькулятор»
 | MainMenu – создание меню программы Label – надпись Edit – поле для ввода и вывода |
 | BitBtn – кнопка (настраивается цвет надписи на кнопке в отличие от Button) Image – вставка изображения |
Разработка интерфейса.
Свойства формы.
Name: kalkul
Caption: Калькулятор
Color: цвет по желанию
BorderIcons: biMaximize – False, остальное True.
2. Разместить на форме объект Edit. Свойства: Name : Edit1, Text – пустая строка.
3. Разместить на форме соответствующее число кнопок.
– цифры от 0 до 9,
– знаки арифметических операций,
– знак «=»
– знаки функций (корень, синус, косинус и т.д.)
Объект – кнопка BitBtn.
Свойства:
Name – можно оставить по умолчанию
Caption – соответствующее выполняемой функции название
Font – шрифт и цвет шрифта по желанию
4. Поместить на форму изображение (если нужно), настроить цвет формы, шрифт, сделать соответствующие надписи на форме (если нужно).
Примерный вид интерфейса программы
Домашнее задание. Повторить темы: «Описание констант и переменных», «Арифметические операции и функции» по конспекту учащегося. См. Приложение 1 и Приложение 2.
2 урок «Написание процедур выполнения арифметических операций»
I. Написать процедуры ввода чисел. Для этого щелкнуть два раза по кнопке «1» (объект BitBtn1) и ввести следующий код:
Аналогично написать процедуры ввода остальных цифр и символа «,»
II. Создать процедуру очистки поля Edit1, кнопка «С» (объект BitBtn22)
IV. Что необходимо для реализации этого алгоритма?
1. Описать переменные X, Y, Z, kod. Описывать переменные будем в основной программе, модуле Unit, чтобы переменные могли действовать в любой процедуре (глобальные переменные).
2. Создать процедуры обработки нажатий кнопок «+», «–», «/», «*»
procedure TForm1.BitBtn17Click(Sender: TObject);
begin
x:= strtofloat(edit1.text);
kod := ‘+’;
edit1.Clear;
end;
Но что будет, если мы в поле Edit1 ничего не введем и нажмем кнопку «+»? Возникнет ошибка и программа завершится. Чтобы избежать этого надо проверить имеется ли в поле Edit1символы? И в зависимости от этого условия продолжить выполнять процедуру или вернуться к вводу данных. Следовательно, мы должны использовать алгоритмическую структуру «Ветвление».
Изучить с учащимися правила записи ветвления на языке Delphi.
Изменненая процедура обработки нажатия кнопки «+»
procedureTForm1.BitBtn17Click(Sender: TObject);
begin
ifedit1.Text<>» thenx:=strtofloat(edit1.text);
kod := ‘+’;
edit1.Clear;
end;
Аналогично создатьпроцедуры обработки нажатий кнопок «–», «/», «*»
3. Создать процедуру обработки нажатия кнопки «=». В этой процедуре необходимо в зависимости от значения переменной kod выполнять четыре разных операции. Такая структура называется «Множественное ветвление» или «Выбор».
Изучить с учащимися правила записи структуры «Выбор» на языке Delphi.
procedure TForm1.BitBtn19Click(Sender: TObject); кнопка «=»
begin
if edit1.Text<>» then y:=strtofloat(edit1.text); впеременную y кладем edit1.text
case kod of
‘+’: z:=x+y;
‘-‘: z:=x-y
‘*’: z:=x*y;
‘/’: z:=x/y
end ;
edit1.Text:=floattostr(z) вывод в поле Edit1 значение переменной z
end;
3 урок «Написание процедур вычисления основных функций»
I. Создать процедуры вычисления функции «X в степени Y». Для этого необходимо:
1. Изучить тему «Циклы на языке Delphi».
2. Создать процедуру обработки нажатия кнопки «X в степени Y».
procedure TForm1.BitBtn24Click(Sender: TObject);
begin
x:= strtofloat(edit1.text);
kod := ‘^’;
edit1.Clear;
end;
3. Добавить в процедуру нажатия кнопки «=» следующий код
II. Создать процедуры вычисления остальных функций. При вычислении тригонометрических функций учесть, что компьютер работает с радианной мерой углов.
Например, процедура вычисления квадратного корня
Процедура вычисления функции sin
4–5 урок. «Написание процедур работы с меню и усовершенствование калькулятора»
У любой программы имеется система меню, которая позволяет выполнять разные сервисные функции. Создадим для нашего калькулятора меню, которое будет состоять, например, из следующий пунктов: «Файл», «Правка», «Справка». Для этого: поместить на форму объект MainMenu (в любое место формы, этот объект будет невидим при выполнении)
begin
close
end;
begin
Edit1.CopyToClipboard; / копироватьвбуферобмена/
end;
procedure TForm1.N5Click(Sender: TObject);
begin
Edit1.PasteFromClipboard; /вставить из буфера обмена/
end;
Создание меню
Для создания справки создадим еще одну форму с именем Form2, на которой можно разместить справочные сведения и информацию об авторах программы. Для размещения текста можно воспользоваться объектом Memo, который представляет из себя почти готовый текстовый редактор, и объектом Image для размещения графики и фотографий. Для открытия формы воспользуемся командой Form2.ShowModal.
Процедура открытия формы «Справка»
procedure TForm1.N8Click(Sender: TObject);
begin
Form2.ShowModal Открытие формы «Справка»
end;
Усовершенствование калькулятора
В зависимости от желания и уровня подготовки, каждый учащийся может по-своему модернизировать программу. Кто-то пожелает просто улучшить интерфейс программы, а другой захочет превратить свой простой калькулятор в инженерный, добавив разнообразные математические функции, логические операции и функции, работу с 2-ми, 8-ми и 16-ми числами. В Приложении 3 приведен пример одного калькулятора.
Заключение. На уроках информатики проектная форма организации работы позволяет раскрыть творческий потенциал учащихся, активизирует исследовательскую работу и позволяет выбрать индивидуальный темп и сложность выполнения работы.
Кроме проекта «Стандартный калькулятор» я использую и другие работы, например «Вычисление площади фигуры методом Монте-Карло» (см. Приложение 4), «Нахождение корней уравнения методом половинного деления (см. Приложение 5), «Расчет электрических цепей (см. Приложение 6) и другие.