07.01.2012, 23:10
#1
Пехотинец
Регистрация: 01.01.2012
Сообщений: 95
Популярность: 2423
Сказал(а) спасибо: 231
Поблагодарили 229 раз(а) в 93 сообщениях
Учимся делать программу для вычисление скорости.
Добро времени дня и ночи!
В этой статье я научу вас делать программу для вычисление скорости
Программист я не сильный, но постараюсь показать вам мои умение
Для работы нужно Delphi 7
Следующии действия Для работы нам понадобятся Label 1,2,3,4; Edit 1,2; Button 1,2.
Эти компоненты располагаем примерно так:
[
Ссылки могут видеть только зарегистрированные пользователи. ]
Начинаем теперь делать код:
Код:
Код для кнопки Button 1
procedure TForm1.Button1Click(Sender: TObject);
var
dist : integer;
t: real;
min : integer;
sek : integer;
v: real;
begin
dist := StrToint(Edit1.Text); t := StrToFloat(Edit2.Text);
min := Trunc(t);
sek := Trunc(t*100) mod 100;
v := (dist/1000) / ((min*60 + sek)/3600);
label4.Caption := 'Дистанция: '+ Edit1.Text+' м' + #13 + 'Время: ' +
IntToStr(min)+ ' мин ' + IntToStr(sek) + ' сек ' + #13 +
'Скорость: ' + FloatToStrF(v,ffFixed,4,2) + ' км/час';
end;
Код для кнопки Button 2
procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Close;
end;
Программа очень простенькая, просто я только учусь.
Спасибо за внимание с вами был
Shook†
Последний раз редактировалось Dinmaite; 09.01.2012 в 15:01 .
Причина: Ну вот хотябы так.
6 пользователя(ей) сказали cпасибо:
08.01.2012, 07:21
#2
Разведчик
Регистрация: 24.10.2011
Сообщений: 1
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Re: Учимся делать программу для вычисление скорости.
И в чем смысл темы? Взято из книги и все...
08.01.2012, 10:57
#3
Пехотинец
Регистрация: 01.01.2012
Сообщений: 95
Популярность: 2423
Сказал(а) спасибо: 231
Поблагодарили 229 раз(а) в 93 сообщениях
Re: Учимся делать программу для вычисление скорости.
08.01.2012, 14:58
#4
Лейтенант-командор
Регистрация: 12.08.2010
Сообщений: 727
Популярность: 30569
Золото Zhyk.Ru: 1
Сказал(а) спасибо: 57
Поблагодарили 645 раз(а) в 386 сообщениях
Re: Учимся делать программу для вычисление скорости.
Код:
Edit3.Text:=floattostr(strtofloat(Edit1.Text)/strtofloat(Edit2.Text));
Вся статья...
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: WMZ - Z276844220882 ; WMR - R231028582939 ; WMU - U394136909210 ; ЯД - 410011494605270 .
Perfect World : PWDatabaseScanner , Client , PWNickRenamer , PWClientRenamer , База логинов PW , Гайд по варУ , Зарабатываем репутацию .
Delphi : Авторизация на сайте с помощью Indy , Загрузка изображений с интернета в TImage с помощью Indy , Автоматическая смена стандартной версии Indy в Delphi на Indy 10.0.76 / 10.1.5 , Основы парсинга с помощью Indy , Делаем Updater до программы с помощью Indy .
Other : ShowIP , FFUUU смайлы в QIP , Как играть в Minecraft (видеокурс) , Как мы захватили человечество :D , Энергия в Лицемер/TopFace , PasGen .
Пользователь сказал cпасибо:
08.01.2012, 17:56
#5
Пехотинец
Регистрация: 01.01.2012
Сообщений: 95
Популярность: 2423
Сказал(а) спасибо: 231
Поблагодарили 229 раз(а) в 93 сообщениях
Re: Учимся делать программу для вычисление скорости.
Последний раз редактировалось Shook†; 08.01.2012 в 21:30 .
Причина: Добавлено сообщение
09.01.2012, 12:18
#6
Разведчик
Регистрация: 07.01.2011
Сообщений: 38
Популярность: -517
Сказал(а) спасибо: 50
Поблагодарили 7 раз(а) в 7 сообщениях
Re: Учимся делать программу для вычисление скорости.
А разве нельзя объеденить все переменые real в одну строку и integer в другую?
09.01.2012, 13:36
#7
Пехотинец
Регистрация: 01.01.2012
Сообщений: 95
Популярность: 2423
Сказал(а) спасибо: 231
Поблагодарили 229 раз(а) в 93 сообщениях
Re: Учимся делать программу для вычисление скорости.
08.04.2012, 16:38
#8
Разведчик
Регистрация: 11.09.2011
Сообщений: 9
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Re: Учимся делать программу для вычисление скорости.
Цитата:
А разве нельзя объеденить все переменые real в одну строку и integer в другую?
dist; min; sek : integer;
t; v: real;
так получится? или как?
08.04.2012, 16:52
#9
Лейтенант-командор
Регистрация: 12.08.2010
Сообщений: 727
Популярность: 30569
Золото Zhyk.Ru: 1
Сказал(а) спасибо: 57
Поблагодарили 645 раз(а) в 386 сообщениях
Re: Учимся делать программу для вычисление скорости.
нет
Код:
dist, min, sek : integer;
t, v: real;
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: WMZ - Z276844220882 ; WMR - R231028582939 ; WMU - U394136909210 ; ЯД - 410011494605270 .
Perfect World : PWDatabaseScanner , Client , PWNickRenamer , PWClientRenamer , База логинов PW , Гайд по варУ , Зарабатываем репутацию .
Delphi : Авторизация на сайте с помощью Indy , Загрузка изображений с интернета в TImage с помощью Indy , Автоматическая смена стандартной версии Indy в Delphi на Indy 10.0.76 / 10.1.5 , Основы парсинга с помощью Indy , Делаем Updater до программы с помощью Indy .
Other : ShowIP , FFUUU смайлы в QIP , Как играть в Minecraft (видеокурс) , Как мы захватили человечество :D , Энергия в Лицемер/TopFace , PasGen .
11.04.2012, 19:24
#10
Разведчик
Регистрация: 11.11.2009
Сообщений: 15
Популярность: 24
Сказал(а) спасибо: 59
Поблагодарили 10 раз(а) в 9 сообщениях
Re: Учимся делать программу для вычисление скорости.
Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
Похожие темы
Тема
Автор
Раздел
Ответов
Последнее сообщение
[Руководство] Учимся делать троллфэйс!
Diamant
Треп
9
20.09.2011 00:32
[Руководство] Учимся делать распрыг
Amir:D
Статьи и описания по Counter-Strike
10
26.03.2011 00:11
[Статья] Учимся делать хеды
agent00072
Общение и обсуждение, архив Point Blank
4
30.08.2010 19:22
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 10:01 .