|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
10.05.2018, 20:43 | #1 |
Новичок
Джуниор
Регистрация: 10.05.2018
Сообщений: 1
|
Компонент Delphi CheckBox
По курсовой работе задали сделать приложение "учёт расхода топлива",у меня вся программа почти написана,но препод сказал сделать компонент CheckBox с помощью которого будет производиться расчет не в один конец,а туда и обратно. Никак не могу сделать именно это действие,подошел к преподу,показал код и он тоже развел руками. Может здесь помогут хотя бы)
весь свой код прикладываю сюда же,так же скриншот всей программы. Заранее всем огромное спасибо. unit MainU; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, StdCtrls, ExtCtrls, jpeg; type TForm1 = class(TForm) Label1: TLabel; edWay: TEdit; Label2: TLabel; edFuel: TEdit; Label3: TLabel; edCost: TEdit; btnRun: TButton; BitBtn1: TBitBtn; lblMessage: TLabel; Label4: TLabel; Button1: TButton; Button2: TButton; Label5: TLabel; Label6: TLabel; Button3: TButton; Button4: TButton; Button5: TButton; procedure btnRunClick(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function Price(Way,Fuel,Cost:extended):exten ded; begin Result:=(Way/100)*Fuel*Cost; end; procedure TForm1.btnRunClick(Sender: TObject); var eWay,eFuel,eCost:extended; begin try eWay:=strtofloat(edWay.Text); except showmessage('"Путь в км" должен быть числом!'); exit; end; if eWay<=0 then begin showmessage('"Путь в км" должен быть больше 0!'); exit; end; try eFuel:=strtofloat(edFuel.Text); except showmessage('"Расход топлива на 100 км в литрах" должен быть числом!'); exit; end; if eFuel<=0 then begin showmessage('"Расход топлива на 100 км в литрах" должен быть больше 0!'); exit; end; try eCost:=strtofloat(edCost.Text); except showmessage('"Стоимость литра топлива" должна быть числом!'); exit; end; if eCost<=0 then begin showmessage('"Стоимость литра топлива" должна быть больше 0!'); exit; end; lblMessage.Caption:='Стоимость бензина, необходимого для переезда: '+floattostr(Price(eWay,eFuel,eCost )); end; procedure TForm1.BitBtn1Click(Sender: TObject); begin close; end; procedure TForm1.Button1Click(Sender: TObject); begin // расход топлива некоторых автомобилей по городу MessageBox(Application.Handle,'Ваз2 107=9,8 л.'+#13#10+'Renault Logan=9,5 л.'+#13#10+'Hyndai Solaris=7,6 л.'+#13#10+'Kia Rio=7,6 л.'+#13#10+'Mitsibishi Lancer=7,7 л.'+#13#10+'Volkswagen Passat=7,6 л.','Справка',MB_DEFBUTTON2); end; procedure TForm1.Button2Click(Sender: TObject); begin // расход топлива некоторых автомобилей по трассе MessageBox(Application.Handle,'Ваз2 107=7,3 л.'+#13#10+'Renault Logan=5,8 л.'+#13#10+'Hyndai Solaris=5 л.'+#13#10+'Kia Rio=4,9 л.'+#13#10+'Mitsibishi Lancer=5,7 л.'+#13#10+'Volkswagen Passat=6,7 л.','Справка',MB_DEFBUTTON2); end; procedure TForm1.Button3Click(Sender: TObject); begin MessageBox(Application.Handle,'АИ-92=40 рублей за литр'+#13#10+'АИ-95=43 рубля за литр'+#13#10+'АИ-98=48 рублей за литр','Справка',MB_DEFBUTTON2); end; procedure TForm1.Button4Click(Sender: TObject); begin MessageBox(Application.Handle,'42 рубля за литр','Справка',MB_DEFBUTTON2); end; procedure TForm1.Button5Click(Sender: TObject); begin MessageBox(Application.Handle,'18 рублей за литр','Справка',MB_DEFBUTTON2); end; end. |
10.05.2018, 21:13 | #2 |
Цифровой кот
Старожил
Регистрация: 29.08.2014
Сообщений: 7,629
|
Туда и обратно = Туда * 2
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
CheckBox в Delphi | Markkaq | Компоненты Delphi | 3 | 16.11.2017 17:55 |
Delphi. Компонент-предок, компонент-родитель | amico | Помощь студентам | 1 | 23.09.2015 21:20 |
Компонент CheckBox и БД Access | manula | БД в Delphi | 9 | 15.03.2013 16:42 |
[Поиск] Компонент локализации строковых ресурсов и сторонних компонент delphi | Человек_Борща | Компоненты Delphi | 3 | 23.08.2011 10:44 |
CheckBox на Delphi | yaxx | Помощь студентам | 2 | 10.10.2010 23:08 |