Заключительным проектом, стал проект выполненный в программе Delphi7. Я сделал проект, который меня заинтересовал больше всего , а именно по расчету цены за мб использованной информации, программа рабочая и очень помогает при расчете цены за кол-во использованных интернет данных , вот шаблон для тех , кто хочет сделать этот проект:
Поместим на форму поля для ввода исходных данных и курса услов-
ной единицы. Тарифы оплаты будем считать постоянными и задавать их
в самой программе. Выводить результат будем на панель по нажатию
командной кнопки Button1:
procedure TForm1.Button1Click(Sender: TObject);
var Time, Traf, Val, C_kurs : double;
begin
Time := StrToFloat(Edit1.Text);
Traf := StrToFloat(Edit2.Text);
C_kurs := StrToFloat(Edit3.Text);
Val := (C_time*Time + C_traf*Traf)*C_kurs;
Panel1.Caption := FloatToStrF(Val, ffFixed, 10, 2);
end;
Примерный вид работающей программы приведен на рисунке.
Обдумывая проект, мы предполагали, что курс условной единицы бу-
дет изменяться со временем, а тарифы — нет. Однако это допущение может
и не выполняться. Конечно, можно добавить на форму еще два поля — для
ввода тарифов, но это сделает громоздким интерфейс программы. Выход
из этой ситуации — создать отдельную форму для ввода параметров и
вызывать ее в случае необходимости из главной формы.
Уберем надпись и окно для ввода курса доллара из формы “Расчет
оплаты” и добавим кнопку “Параметры” для вызова второй формы. Соз-
дать заготовку второй формы можно командой File || New Form. При этом
создается и новый модуль Unit2, описывающий новый класс TForm2, и
экземпляр этого класса — переменная Form2.
Комментариев нет:
Отправить комментарий