Программа оценивающая ИМТ (индекс массы тела).
Скачать (25 кб rar)
Отредактировано daiomik (25.08.2010 15:30:59)
ИМТ
Страница: 1
Сообщений 1 страница 5 из 5
Поделиться125.08.2010 13:34:44
Поделиться225.08.2010 14:58:07
Хорошо получилось.
Но я думаю что лучше запретить вводить в полях символы, отличающиеся от цифо и точки. Ведь сейчас там можно ввести всё что угодно!
И по моему, логичнее рост вводить в сантиметрах, а не в метрах.
PS.
В разделе OpenSource выкладываются проги в месте с их исходными кодами.
Поделиться325.08.2010 15:07:18
Пётр написал(а):
Но я думаю что лучше запретить вводить в полях символы, отличающиеся от цифо и точки.
не знал как разрешить вводить точку..Если ставить константу запрета букв, тогда точка не вводится.. Если подскажешь, буду благодарен
Пётр написал(а):
И по моему, логичнее рост вводить в сантиметрах, а не в метрах.
исправлю вместе с предыдущем пунктом
Пётр написал(а):
В разделе OpenSource выкладываются проги в месте с их исходными кодами.
Выложу как недочеты вышеупомянутые исправлю))
Поделиться425.08.2010 15:08:42
daiomik написал(а):
не знал как разрешить вводить точку
Поделиться525.08.2010 15:34:48
Вот код, но решил все таки не давать возможность вводить даже току.. За технику спасибо, Петр - интересная.. Так же теперь рост НУЖНО вводить в сантиметрах.. Саму программу можно скачать в первом посте (ОБНОВИЛ). Код:
Код:
;ИМТ v1.1 Создатель - Виноградов Никита Александрович (daiomik). PB: 4,5
;/////////////////////////////////////////////////////////////////////////////////////////////
CatchImage(1, ?info)
If OpenWindow(1, 409, 334, 246, 94, "ИМТ v1.1", #PB_Window_SystemMenu|#PB_Window_Tool | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
TextGadget(2, 10, 35, 120, 15, "Введите ваш рост (см):")
StringGadget(3, 135, 5, 35, 20, "",#PB_String_Numeric)
TextGadget(4, 10, 10, 115, 15, "Введите ваш вес (кг):")
StringGadget(5, 135, 30, 35, 20, "",#PB_String_Numeric)
ButtonGadget(6, 10, 60, 105, 25, "Рассчитать ИМТ")
ButtonGadget(7, 220, 70, 20, 20, "?")
GadgetToolTip(7,"О программе")
ButtonImageGadget(8, 180, 5, 60, 60, ImageID(1))
GadgetToolTip(8,"Справка")
EndIf
Repeat
event=WaitWindowEvent()
gadget=EventGadget()
If event=#PB_Event_Gadget
If gadget=6
massa.l=Val(GetGadgetText(3))
rost.f=ValF(GetGadgetText(5))/100
If massa<>0 And rost<>0
imt.f=massa/(rost*rost)
If imt<16.49
MessageRequester("Результаты ИМТ","Сожелеем, но у вас выраженный дефицит массы тела!")
ElseIf imt>16.5 And imt<18.49
MessageRequester("Результаты ИМТ","У вас недостаточная масса тела!")
ElseIf imt>18.5 And imt<24.99
MessageRequester("Результаты ИМТ","Поздравляем, масса вашего тела нормальная!")
ElseIf imt>25 And imt<29.99
MessageRequester("Результаты ИМТ","У вас предожирение - начальное ожирение!")
ElseIf imt>30 And imt<34.99
MessageRequester("Результаты ИМТ","У вас ожирение первой степени!")
ElseIf imt>35 And imt<39.99
MessageRequester("Результаты ИМТ","У вас ожирение второй степени!")
ElseIf imt>40
MessageRequester("Результаты ИМТ","У вас ожирение третей степение!")
EndIf
Else
MessageRequester("Внимание!","Заполните все параметры правильно!")
EndIf
ElseIf gadget=8
MessageRequester("Справка","Индекс массы тела (ИМТ) — величина, позволяющая оценить степень"+Chr(13)+"соответствия массы человека и его роста и тем самым, косвенно, выявить,"+Chr(13)+"является ли масса недостаточной, нормальной, избыточной (ожирение)."+Chr(13)+"Он важен для определения показаний для необходимости лечения, в том"+Chr(13)+"числе применения препаратов для лечения ожирения.")
ElseIf gadget=7
MessageRequester("О программе","Программа для определения ИМТ."+Chr(13)+Chr(13)+"Создатель: daiomik"+Chr(13)+"Веб сайт: med.profstep.ru")
EndIf
EndIf
Until event=#PB_Event_CloseWindow
DataSection
info: IncludeBinary "info.ico"
EndDataSectionСтраница: 1