Идеальный вес

@radeon123 · Регистрация: 17.02.2010

Студворк — интернет-сервис помощи студентам

Приложение для идеального веса
Cкрин формы

http://imglink.ru/pictures/10-... 7f05b8.jpg

Смог лишь сделать чтоб положение ползунка отображало число в лейбле

Delphi
1
2
3
4
5
6
7
8
9
procedure TForm1.scrlbr2Change(Sender: TObject);
begin
lbl2.Caption:=IntToStr(scrlbr2.position);
end;
 
procedure TForm1.scrlbr1Change(Sender: TObject);
begin
lbl1.Caption:=IntToStr(scrlbr1.Position);
end;

имеется две формулы
вес=(3*Рост-450+возраст)*0,25+45 для мужчин
вес=(3*Рост-450+возраст)*0,225+40,4 для женщин

Помогите с описанием формулы

PS:Работа с радио групп
if RadioGroup1.ItemIndex=1 then формула для мужчин
if RadioGroup1.ItemIndex=2 then формула для женщин

так?

Добавлено через 1 час 51 минуту
продвинулся до

Delphi
1
lbl6.Caption:=IntToStr(3*scrlbr1.Position-450+scrlbr2.Position)

но дальше не могу подобрать нужный формат чтоб дописать остальное значение
подскажите

@Ev[G]eN · 11.02.2012, 01:39

вот сделал, переделывайте, что не нравится

@Ev[G]eN · 11.02.2012, 01:40

или же отдельно процедуры

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
procedure TForm1.Label1Click(Sender: TObject);
begin
 Label1.Caption:='Рост(см): '+IntToStr(ScrollBar1.Position);
end;
 
procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
begin
 Label5.Caption:=IntToStr(ScrollBar1.Position);
end;
 
procedure TForm1.ScrollBar2Scroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
begin
 Label6.Caption:=IntToStr(ScrollBar2.Position);IntToStr(ScrollBar2.Position);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
 Ves: real;
begin
  if RadioGroup1.ItemIndex=1 then Ves:=(3*StrToInt(Label5.Caption)-450+
                                  StrToInt(Label6.Caption))*0.25+45;
  if RadioGroup1.ItemIndex=0 then Ves:=(3*StrToInt(Label5.Caption)-450+
                                  StrToInt(Label6.Caption))*0.225+40.4;
 Label4.Caption:=FloatToStr(Ves);
end;

@radeon123 · 11.02.2012, 01:52 **[ТС]**

Огромное спасибо, сейчас буду изучать и запоминать.

Добавлено через 8 минут
попробую сделать теперь это всё без кнопки, если через 20 минут ответа не будет,выручай

@Ev[G]eN · 11.02.2012, 01:58

вот процедуры без нажатия на кнопку

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
procedure TForm1.Label1Click(Sender: TObject);
begin
 Label1.Caption:='Рост(см): '+IntToStr(ScrollBar1.Position);
end;
 
procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
begin
 Label5.Caption:=IntToStr(ScrollBar1.Position);
end;
 
procedure TForm1.ScrollBar2Scroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
begin
 Label6.Caption:=IntToStr(ScrollBar2.Position);IntToStr(ScrollBar2.Position);
end;
 
procedure TForm1.RadioGroup1Click(Sender: TObject);
var
 Ves: real;
begin
  if RadioGroup1.ItemIndex=1 then Ves:=(3*StrToInt(Label5.Caption)-450+
                                  StrToInt(Label6.Caption))*0.25+45;
  if RadioGroup1.ItemIndex=0 then Ves:=(3*StrToInt(Label5.Caption)-450+
                                  StrToInt(Label6.Caption))*0.225+40.4;
 Label4.Caption:=FloatToStr(Ves);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 ScrollBar1.Position:=150;
 ScrollBar2.Position:=50;
 Label5.Caption:=IntToStr(ScrollBar1.Position);
 Label6.Caption:=IntToStr(ScrollBar2.Position);
end;

@Ev[G]eN · 11.02.2012, 01:59

ну и сам проект уж

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .

@radeon123 3 / 3 / 0 Регистрация: 17.02.2010 Сообщений: 42
	11.02.2012, 01:52 [ТС]
	Огромное спасибо, сейчас буду изучать и запоминать. Добавлено через 8 минут попробую сделать теперь это всё без кнопки, если через 20 минут ответа не будет,выручай 0