| MadMedic |
22.02.2013 17:23 |
Помогите скопмилировать на Linux (purebasic)
Вложений: 1
Друзья линуксоиды! Воззываю к вашей помощи. Администрация нашей больнички недавно крупно попалась на пиратских виндовсах и офисах и теперь скорыми темпами переносит все компы на бесплатный линукс. Я писал программку для медицинских целей на пурбейсике, которая работает под винду, но под линукс не могу скомпиллировать. Помогите собрать запускаемый файл. Буду премного благодарен
Исходник:
Код:
Enumeration
#Window_Main
EndEnumeration
Enumeration
;GLASGOW
#Glasgow_border
#Glasgow_motor_help
#Glasgow_eyes_help
#Glasgow_verbal_help
#Glasgow_eyes_4
#Glasgow_eyes_3
#Glasgow_eyes_2
#Glasgow_eyes_1
#Glasgow_verbal_5
#Glasgow_verbal_4
#Glasgow_verbal_3
#Glasgow_verbal_2
#Glasgow_verbal_1
#Glasgow_motor_6
#Glasgow_motor_5
#Glasgow_motor_4
#Glasgow_motor_3
#Glasgow_motor_2
#Glasgow_motor_1
;AIS
#AIS_Border
#AIS_Tip_0
#AIS_Tip_1
#AIS_Tip_2
#AIS_Tip_3
#AIS_Tip_4
#AIS_Tip_5
#AIS_Tip_6
#AIS_Head_0
#AIS_Head_1
#AIS_Head_2
#AIS_Head_3
#AIS_Head_4
#AIS_Head_5
#AIS_Head_6
#AIS_Face_0
#AIS_Face_1
#AIS_Face_2
#AIS_Face_3
#AIS_Face_4
#AIS_Face_5
#AIS_Face_6
#AIS_Chest_0
#AIS_Chest_1
#AIS_Chest_2
#AIS_Chest_3
#AIS_Chest_4
#AIS_Chest_5
#AIS_Chest_6
#AIS_Abdomen_0
#AIS_Abdomen_1
#AIS_Abdomen_2
#AIS_Abdomen_3
#AIS_Abdomen_4
#AIS_Abdomen_5
#AIS_Abdomen_6
#AIS_Extremity_0
#AIS_Extremity_1
#AIS_Extremity_2
#AIS_Extremity_3
#AIS_Extremity_4
#AIS_Extremity_5
#AIS_Extremity_6
#AIS_Extern_0
#AIS_Extern_1
#AIS_Extern_2
#AIS_Extern_3
#AIS_Extern_4
#AIS_Extern_5
#AIS_Extern_6
#AIS_Head_Tip
#AIS_Face_Tip
#AIS_Chest_Tip
#AIS_Abdomen_Tip
#AIS_Extremity_Tip
#AIS_Extern_Tip
;parameters
#Param_Border
#Param_AgeText
#Param_AgeCombo
#Param_RRText
#Param_RRCombo
#Param_SBPText
#Param_SBPCombo
#Param_BluntPenetrText
#Param_BluntPenetrCombo
;result
#Result_Border
#Result_GlasgowText
#Result_GlasgowString
#Result_GlasgowTip
#Result_ISSText
#Result_ISSString
#Result_RTSText
#Result_RTSString
#Result_TRISSText
#Result_TRISSString
;flush
#Flush_Button
EndEnumeration
Global GlasgowPoints
Global ISSKoef
OpenWindow(#Window_Main, 0, 0, 760, 550, "Оценка тяжести при сочетанной травме ISS - RTS - TRISS (Injury Severity Score - Revised Trauma Score - Trauma Injury Severity Score) ", #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget)
;GLASGOW
Frame3DGadget(#Glasgow_border, 20, 20, 720, 165, "Шкала комы Глазго")
TextGadget(#Glasgow_eyes_help, 40, 40, 100, 20, "Открытие глаз")
OptionGadget(#Glasgow_eyes_4, 40, 60, 100, 20, "спонтанное (4)")
OptionGadget(#Glasgow_eyes_3, 40, 80, 100, 20, "на речь (3)")
OptionGadget(#Glasgow_eyes_2, 40, 100, 100, 20, "на боль(2)")
OptionGadget(#Glasgow_eyes_1, 40, 120, 100, 20, "отсутсвтует (1)")
TextGadget(#Glasgow_verbal_help, 140, 40, 200, 20, "Речевая реакция")
OptionGadget(#Glasgow_verbal_5, 140, 60, 200, 20, "быстрый и правильный ответ (4)")
OptionGadget(#Glasgow_verbal_4, 140, 80, 200, 20, "дезориентирован,речь спутана (3)")
OptionGadget(#Glasgow_verbal_3, 140, 100, 200, 20, "бессвязные слова (3)")
OptionGadget(#Glasgow_verbal_2, 140, 120, 200, 20, "нечленораздельные звуки (2)")
OptionGadget(#Glasgow_verbal_1, 140, 140, 200, 20, "отсутсвтует (1)")
TextGadget(#Glasgow_motor_help, 340, 40, 200, 20, "Двигательная реакция ")
OptionGadget(#Glasgow_motor_6, 340, 60, 360, 20, "Выполнение движений по команде (6)")
OptionGadget(#Glasgow_motor_5, 340, 80, 360, 20, "Целесообразное движение в ответ на болевое раздражение (5)")
OptionGadget(#Glasgow_motor_4, 340, 100, 360, 20, "Отдёргивание конечности в ответ на болевое раздражение (4)")
OptionGadget(#Glasgow_motor_3, 340, 120, 360, 20, "Патологическое сгибание в ответ на болевое раздражение (3)")
OptionGadget(#Glasgow_motor_2, 340, 140, 360, 20, "Патологическое разгибание в ответ на болевое раздражение (2)")
OptionGadget(#Glasgow_motor_1, 340, 160, 360, 20, "Отсутствие движений (1)")
;AIS
Frame3DGadget(#AIS_Border, 20, 190, 720, 230, "Индекс AIS")
TextGadget(#AIS_Tip_0, 150, 210, 75, 20, "Без поврежд.", #PB_Text_Border | #PB_Text_Center)
TextGadget(#AIS_Tip_1, 230, 210, 75, 20, "Легкая", #PB_Text_Border | #PB_Text_Center)
TextGadget(#AIS_Tip_2, 310, 210, 75, 20, "Умеренная", #PB_Text_Border | #PB_Text_Center)
TextGadget(#AIS_Tip_3, 390, 210, 75, 20, "Опасная",#PB_Text_Border | #PB_Text_Center)
TextGadget(#AIS_Tip_4, 470, 210, 75, 20, "Тяжелая",#PB_Text_Border | #PB_Text_Center)
TextGadget(#AIS_Tip_5, 550, 210, 75, 20, "Критическая",#PB_Text_Border | #PB_Text_Center)
TextGadget(#AIS_Tip_6, 630, 210, 75, 20, "Смертельная",#PB_Text_Border | #PB_Text_Center)
TextGadget(#AIS_Head_Tip, 30, 240, 100, 20, "Голова и шея")
OptionGadget(#AIS_Head_0, 150, 240, 80, 20, "Без повр.")
GadgetToolTip(#AIS_Head_0, "Без повреждения")
OptionGadget(#AIS_Head_1, 230, 240, 80, 20, "Легкая")
GadgetToolTip(#AIS_Head_1, "Травма черепа без потери сознания, головной боли, травмы шейного отдела позвоночника без патологии на R-гр, не тяжелые травмы глаз (эрозии роговицы, конъюнктивит, повреждение века, , мелкие кровоизлияния в стекловидное тело, потеря зуба).")
OptionGadget(#AIS_Head_2, 310, 240, 80, 20, "Умеренная")
GadgetToolTip(#AIS_Head_2, "Травма черепа с потерей сознания до 15 мин., отсутствие ретроградной амнезии, перелом костей лицевого черепа без смещения отломков, множественные переломы костей носа, проникающая травма глаза, травматическое отслоение сетчатки, хлыстообразная травма шейного отдела позвоночника с наличием изменений на R-гр.")
OptionGadget(#AIS_Head_3, 390, 240, 80, 20, "Опасная")
GadgetToolTip(#AIS_Head_3, "Травма черепа с переломом костей или без них с потерей сознания на протяжении 15 мин. без очаговой неврологической симптоматики, посттравматическая амнезия до 3 часов, перелом костей свода черепа без смещения фрагментов, разрушение глаза, отрыв глазного нерва, перелом костей лицевого черепа со смещением фрагментов и повреждением придаточных пазух носа, перелом шейного отдела позвоночника без повреждения спинного мозга.")
OptionGadget(#AIS_Head_4, 470, 240, 80, 20, "Тяжелая")
GadgetToolTip(#AIS_Head_4, "Травма черепа с переломом костей или без них с потерей сознания на протяжении более 15 мин., с развитием очаговой неврологической симптоматики, посттравматическая амнезия от 3 до 12 часов, множественные переломы костей свода черепа.")
OptionGadget(#AIS_Head_5, 550, 240, 80, 20, "Критическая")
GadgetToolTip(#AIS_Head_5, "Травма черепа с переломом костей или без них с потерей сознания на протяжении суток и более, посттравматическая амнезия более 12 часов, внутричерепные кровоизлияния, внутричерепная гипертензия, перелом шейных позвонков с развитием тяжелых неврологических расстройств (параплегии), травматическое нарушение проходимости верхних дыхательных путей.")
OptionGadget(#AIS_Head_6, 630, 240, 90, 20, "Смертельная")
GadgetToolTip(#AIS_Head_6, "Не совместимо с жизнью")
TextGadget(#AIS_Face_Tip, 30, 270, 100, 20, "Лицо")
OptionGadget(#AIS_Face_0, 150, 270, 80, 20, "Без повр.")
GadgetToolTip(#AIS_Face_0, "Без повреждения")
OptionGadget(#AIS_Face_1, 230, 270, 80, 20, "Легкая")
GadgetToolTip(#AIS_Face_1, "Ссадины роговицы,поверхностные раны языка,переломы носа или ветвей н/челюсти,переломы или отрывы зубов, их дислокации")
OptionGadget(#AIS_Face_2, 310, 270, 80, 20, "Умеренная")
GadgetToolTip(#AIS_Face_2, "Переломы скуловых костей,орбит,субкондиллярные н/челюсти,Лефорт 1,ранения склеры или роговицы")
OptionGadget(#AIS_Face_3, 390, 270, 80, 20, "Опасная")
GadgetToolTip(#AIS_Face_3, "Ранения зрительного нерва,перелом Лефорт 2")
OptionGadget(#AIS_Face_4, 470, 270, 80, 20, "Тяжелая")
GadgetToolTip(#AIS_Face_4, "Перелом Лефорт 3.")
OptionGadget(#AIS_Face_5, 550, 270, 80, 20, "Критическая")
GadgetToolTip(#AIS_Face_5, "Перелом Лефорт 3.")
OptionGadget(#AIS_Face_6, 630, 270, 90, 20, "Смертельная")
GadgetToolTip(#AIS_Face_6, "Не совместимо с жизнью")
TextGadget(#AIS_Chest_Tip, 30, 300, 100, 20, "Грудь")
OptionGadget(#AIS_Chest_0, 150, 300, 80, 20, "Без повр.")
GadgetToolTip(#AIS_Chest_0, "Без повреждения")
OptionGadget(#AIS_Chest_1, 230, 300, 80, 20, "Легкая")
GadgetToolTip(#AIS_Chest_1, "Ушиб грудной клетки")
OptionGadget(#AIS_Chest_2, 310, 300, 80, 20, "Умеренная")
GadgetToolTip(#AIS_Chest_2, "Переломы ребер или грудины, обширный ушиб грудной клетки без гомо- или пневмоторакса.")
OptionGadget(#AIS_Chest_3, 390, 300, 80, 20, "Опасная")
GadgetToolTip(#AIS_Chest_3, "Множественные переломы ребер, гомо- или пневмоторакса, контузия легких, разрыв диафрагмы без признаков тяжелой недостаточности функции внешнего дыхания.")
OptionGadget(#AIS_Chest_4, 470, 300, 80, 20, "Тяжелая")
GadgetToolTip(#AIS_Chest_4, "Множественные переломы ребер с флотацией реберных фрагментов, проникающие ранения груди, пневмомедиастинум, контузия миокарда без выраженных расстройств сердца, ранения перикарда.")
OptionGadget(#AIS_Chest_5, 550, 300, 80, 20, "Критическая")
GadgetToolTip(#AIS_Chest_5, "Травма груди с тяжелыми нарушениями функции внешнего дыхания, разрыв трахеи, разрыв аорты, контузия миокарда с выраженными расстройствами функции сердца, разрыв миокарда.")
OptionGadget(#AIS_Chest_6, 630, 300, 90, 20, "Смертельная")
GadgetToolTip(#AIS_Chest_6, "Не совместимо с жизнью")
TextGadget(#AIS_Abdomen_Tip, 30, 330, 100, 20, "Живот")
OptionGadget(#AIS_Abdomen_0, 150, 330, 80, 20, "Без повр.")
GadgetToolTip(#AIS_Abdomen_0, "Без повреждения")
OptionGadget(#AIS_Abdomen_1, 230, 330, 80, 20, "Легкая")
GadgetToolTip(#AIS_Abdomen_1, "Боль, ссадины брюшной стенки.")
OptionGadget(#AIS_Abdomen_2, 310, 330, 80, 20, "Умеренная")
GadgetToolTip(#AIS_Abdomen_2, "Обширные ушибы брюшной стенки")
OptionGadget(#AIS_Abdomen_3, 390, 330, 80, 20, "Опасная")
GadgetToolTip(#AIS_Abdomen_3, "Контузия органов брюшной полости, забрюшинные гематомы, забрюшинный разрыв мочевого пузыря, разрыв мочеточника, уретры, переломы поясничных или грудных позвонков без неврологических нарушений.")
OptionGadget(#AIS_Abdomen_4, 470, 330, 80, 20, "Тяжелая")
GadgetToolTip(#AIS_Abdomen_4, "Разрыв селезенки, разрыв почки, повреждение хвоста поджелудочной железы, внутрибрюшной разрыв мочевого пузыря, тяжелые травмы половых органов, переломы поясничных или грудных позвонков с неврологическими нарушениями.")
OptionGadget(#AIS_Abdomen_5, 550, 330, 80, 20, "Критическая")
GadgetToolTip(#AIS_Abdomen_5, "Разрыв печени, поджелудочной железы, перфорация полых органов.")
OptionGadget(#AIS_Abdomen_6, 630, 330, 90, 20, "Смертельная")
GadgetToolTip(#AIS_Abdomen_6, "Не совместимо с жизнью")
TextGadget(#AIS_Extremity_Tip, 30, 360, 100, 20, "Конечности")
OptionGadget(#AIS_Extremity_0, 150, 360, 80, 20, "Без повр.")
GadgetToolTip(#AIS_Extremity_0, "Без повреждения")
OptionGadget(#AIS_Extremity_1, 230, 360, 80, 20, "Легкая")
GadgetToolTip(#AIS_Extremity_1, "Растяжение или разрыв связок, суставов, переломы пальцев кистей или стоп.")
OptionGadget(#AIS_Extremity_2, 310, 360, 80, 20, "Умеренная")
GadgetToolTip(#AIS_Extremity_2, "Множественные переломы пальцев кистей или стоп, закрытые переломы трубчатых костей, таза без смещения, повреждение крупных суставов.")
OptionGadget(#AIS_Extremity_3, 390, 360, 80, 20, "Опасная")
GadgetToolTip(#AIS_Extremity_3, "Ампутация нескольких пальцев кистей или стоп, простые закрытые переломы длинных трубчатых костей со смещением фрагментов, простые открытые переломы длинных костей, переломы костей таза со смещением, вывих крупных суставов, повреждение крупных нервов или сосудов конечностей.")
OptionGadget(#AIS_Extremity_4, 470, 360, 80, 20, "Тяжелая")
GadgetToolTip(#AIS_Extremity_4, "Множественные переломы длинных трубчатых костей.")
OptionGadget(#AIS_Extremity_5, 550, 360, 80, 20, "Критическая")
GadgetToolTip(#AIS_Extremity_5, "Ампутация конечностей, множественные открытые переломы длинных костей.")
OptionGadget(#AIS_Extremity_6, 630, 360, 90, 20, "Смертельная")
GadgetToolTip(#AIS_Extremity_6, "Не совместимо с жизнью")
TextGadget(#AIS_Extern_Tip, 30, 390, 390, 20, "Кожа и мягкие ткани")
OptionGadget(#AIS_Extern_0, 150, 390, 80, 20, "Без повр.")
GadgetToolTip(#AIS_Extern_0, "Без повреждения")
OptionGadget(#AIS_Extern_1, 230, 390, 80, 20, "Легкая")
GadgetToolTip(#AIS_Extern_1, "Ожоги I или IIстепени менее 10% поверхности")
OptionGadget(#AIS_Extern_2, 310, 390, 80, 20, "Умеренная")
GadgetToolTip(#AIS_Extern_2, "Обширные травмы мягких тканей на одной или двух конечностях, ожоги II – III степени 10-20% поверхности тела.")
OptionGadget(#AIS_Extern_3, 390, 390, 80, 20, "Опасная")
GadgetToolTip(#AIS_Extern_3, "Обширные травмы мягких тканей 3-4 конечностей, ожоги более 20-30% поверхности тела II – III степени.")
OptionGadget(#AIS_Extern_4, 470, 390, 80, 20, "Тяжелая")
GadgetToolTip(#AIS_Extern_4, "Обширные травмы мягких тканей с кровотечением, ожоги более 30-50% поверхности тела.")
OptionGadget(#AIS_Extern_5, 550, 390, 80, 20, "Критическая")
GadgetToolTip(#AIS_Extern_5, "Ожоги II – III степени более 30-50% поверхности тела")
OptionGadget(#AIS_Extern_6, 630, 390, 90, 20, "Смертельная")
GadgetToolTip(#AIS_Extern_6, "Не совместимо с жизнью")
;paramteres
Frame3DGadget(#Param_Border, 20, 430, 720, 50, "Модель пациента")
TextGadget(#Param_AgeText, 40, 450, 45, 20, "Возраст:")
ComboBoxGadget(#Param_AgeCombo, 90, 450, 80, 20)
AddGadgetItem(#Param_AgeCombo, 0, "Меньше 15")
AddGadgetItem(#Param_AgeCombo, 1, "15-55")
AddGadgetItem(#Param_AgeCombo, 2, "Больше 55")
TextGadget(#Param_RRText, 190, 450, 35, 20, "ЧДД:")
ComboBoxGadget(#Param_RRCombo, 230, 450, 60, 20)
AddGadgetItem(#Param_RRCombo, 0, "0")
AddGadgetItem(#Param_RRCombo, 1, "1-5")
AddGadgetItem(#Param_RRCombo, 2, "6-9")
AddGadgetItem(#Param_RRCombo, 3, "10-29")
AddGadgetItem(#Param_RRCombo, 4, ">=30")
TextGadget(#Param_SBPText, 295, 450, 80, 20, "САД (мм рт ст):")
ComboBoxGadget(#Param_SBPCombo, 380, 450, 60, 20)
AddGadgetItem(#Param_SBPCombo, 0, "0")
AddGadgetItem(#Param_SBPCombo, 1, "1-49")
AddGadgetItem(#Param_SBPCombo, 2, "50-75")
AddGadgetItem(#Param_SBPCombo, 3, "76-89")
AddGadgetItem(#Param_SBPCombo, 4, ">=90")
TextGadget(#Param_BluntPenetrText, 445, 450, 65, 20, "Х-р травмы:")
ComboBoxGadget(#Param_BluntPenetrCombo, 510, 450, 220, 20)
AddGadgetItem(#Param_BluntPenetrCombo, 0, "Закрытая (удар, сдавл., рван.раны, амутация, асфиксия)")
AddGadgetItem(#Param_BluntPenetrCombo, 1, "Открытая (кол.-рез., огнестр.)")
;results
Frame3DGadget(#Result_Border, 20, 490, 720, 50, "Результаты")
TextGadget(#Result_GlasgowText, 40, 510, 80, 20, "Шкала Глазго:")
StringGadget(#Result_GlasgowString, 120, 510, 30, 20, "", #PB_String_ReadOnly )
TextGadget(#Result_GlasgowTip, 160, 510, 120, 20, "ISS:")
TextGadget(#Result_ISSText, 280, 510, 40, 20, "ISS:")
StringGadget(#Result_ISSString, 320, 510, 30, 20, "", #PB_String_ReadOnly )
TextGadget(#Result_RTSText, 360, 510, 40, 20, "RTS:")
StringGadget(#Result_RTSString, 390, 510, 60, 20, "", #PB_String_ReadOnly )
TextGadget(#Result_TRISSText, 460, 510, 50, 20, "TRISS:")
StringGadget(#Result_TRISSString, 520, 510, 60, 20, "", #PB_String_ReadOnly )
ButtonGadget(#Flush_Button, 600, 510, 100, 20, " Сбросить")
Procedure Recalculate_All()
;================================
;GLASGOW
;================================
GlasgowPoints=0
If GetGadgetState(#Glasgow_eyes_4)=1 : GlasgowPoints=GlasgowPoints+4 :EndIf
If GetGadgetState(#Glasgow_eyes_3)=1 : GlasgowPoints=GlasgowPoints+3 :EndIf
If GetGadgetState(#Glasgow_eyes_2)=1 : GlasgowPoints=GlasgowPoints+2 :EndIf
If GetGadgetState(#Glasgow_eyes_1)=1 : GlasgowPoints=GlasgowPoints+1 :EndIf
If GetGadgetState(#Glasgow_verbal_5)=1 : GlasgowPoints=GlasgowPoints+5 :EndIf
If GetGadgetState(#Glasgow_verbal_4)=1 : GlasgowPoints=GlasgowPoints+4 :EndIf
If GetGadgetState(#Glasgow_verbal_3)=1 : GlasgowPoints=GlasgowPoints+3 :EndIf
If GetGadgetState(#Glasgow_verbal_2)=1 : GlasgowPoints=GlasgowPoints+2 :EndIf
If GetGadgetState(#Glasgow_verbal_1)=1 : GlasgowPoints=GlasgowPoints+1 :EndIf
If GetGadgetState(#Glasgow_motor_6)=1 : GlasgowPoints=GlasgowPoints+6 :EndIf
If GetGadgetState(#Glasgow_motor_5)=1 : GlasgowPoints=GlasgowPoints+5 :EndIf
If GetGadgetState(#Glasgow_motor_3)=1 : GlasgowPoints=GlasgowPoints+3 :EndIf
If GetGadgetState(#Glasgow_motor_2)=1 : GlasgowPoints=GlasgowPoints+2 :EndIf
If GetGadgetState(#Glasgow_motor_1)=1 : GlasgowPoints=GlasgowPoints+1 :EndIf
SetGadgetText(#Result_GlasgowString, Str(GlasgowPoints) )
If GlasgowPoints=15
SetGadgetText(#Result_GlasgowTip, "(15) сознание ясное")
ElseIf GlasgowPoints>=11
SetGadgetText(#Result_GlasgowTip, "(11-14) оглушение.")
ElseIf GlasgowPoints>=9
SetGadgetText(#Result_GlasgowTip, "(9—10) сопор.")
ElseIf GlasgowPoints>=7
SetGadgetText(#Result_GlasgowTip, "(7—8) кома-1.")
ElseIf GlasgowPoints>=5
SetGadgetText(#Result_GlasgowTip, "(5—6) кома-2")
Else
SetGadgetText(#Result_GlasgowTip, "(3—4) кома-3")
EndIf
;================================
;ISS
;================================
ISSKoef=0
If GetGadgetState(#AIS_Head_6)=1 Or GetGadgetState(#AIS_Face_6)=1 Or GetGadgetState(#AIS_Chest_6)=1 Or GetGadgetState(#AIS_Abdomen_6)=1 Or GetGadgetState(#AIS_Extremity_6)=1 Or GetGadgetState(#AIS_Extern_6)=1
ISSKoef=75
Else
If GetGadgetState(#AIS_Head_1)=1 : ISSKoef=ISSKoef+1 :EndIf
If GetGadgetState(#AIS_Head_2)=1 : ISSKoef=ISSKoef+4 :EndIf
If GetGadgetState(#AIS_Head_3)=1 : ISSKoef=ISSKoef+9 :EndIf
If GetGadgetState(#AIS_Head_4)=1 : ISSKoef=ISSKoef+16 :EndIf
If GetGadgetState(#AIS_Head_5)=1 : ISSKoef=ISSKoef+25 :EndIf
If GetGadgetState(#AIS_Face_1)=1 : ISSKoef=ISSKoef+1 :EndIf
If GetGadgetState(#AIS_Face_2)=1 : ISSKoef=ISSKoef+4 :EndIf
If GetGadgetState(#AIS_Face_3)=1 : ISSKoef=ISSKoef+9 :EndIf
If GetGadgetState(#AIS_Face_4)=1 : ISSKoef=ISSKoef+16 :EndIf
If GetGadgetState(#AIS_Face_5)=1 : ISSKoef=ISSKoef+25 :EndIf
If GetGadgetState(#AIS_Chest_1)=1 : ISSKoef=ISSKoef+1 :EndIf
If GetGadgetState(#AIS_Chest_2)=1 : ISSKoef=ISSKoef+4 :EndIf
If GetGadgetState(#AIS_Chest_3)=1 : ISSKoef=ISSKoef+9 :EndIf
If GetGadgetState(#AIS_Chest_4)=1 : ISSKoef=ISSKoef+16 :EndIf
If GetGadgetState(#AIS_Chest_5)=1 : ISSKoef=ISSKoef+25 :EndIf
If GetGadgetState(#AIS_Abdomen_1)=1 : ISSKoef=ISSKoef+1 :EndIf
If GetGadgetState(#AIS_Abdomen_2)=1 : ISSKoef=ISSKoef+4 :EndIf
If GetGadgetState(#AIS_Abdomen_3)=1 : ISSKoef=ISSKoef+9 :EndIf
If GetGadgetState(#AIS_Abdomen_4)=1 : ISSKoef=ISSKoef+16 :EndIf
If GetGadgetState(#AIS_Abdomen_5)=1 : ISSKoef=ISSKoef+25 :EndIf
If GetGadgetState(#AIS_Extremity_1)=1 : ISSKoef=ISSKoef+1 :EndIf
If GetGadgetState(#AIS_Extremity_2)=1 : ISSKoef=ISSKoef+4 :EndIf
If GetGadgetState(#AIS_Extremity_3)=1 : ISSKoef=ISSKoef+9 :EndIf
If GetGadgetState(#AIS_Extremity_4)=1 : ISSKoef=ISSKoef+16 :EndIf
If GetGadgetState(#AIS_Extremity_5)=1 : ISSKoef=ISSKoef+25 :EndIf
If GetGadgetState(#AIS_Extern_1)=1 : ISSKoef=ISSKoef+1 :EndIf
If GetGadgetState(#AIS_Extern_2)=1 : ISSKoef=ISSKoef+4 :EndIf
If GetGadgetState(#AIS_Extern_3)=1 : ISSKoef=ISSKoef+9 :EndIf
If GetGadgetState(#AIS_Extern_4)=1 : ISSKoef=ISSKoef+16 :EndIf
If GetGadgetState(#AIS_Extern_5)=1 : ISSKoef=ISSKoef+25 :EndIf
EndIf
If ISSKoef>75
ISSKoef=75
EndIf
SetGadgetText(#Result_ISSString, Str(ISSKoef))
;================================
;RTS
;================================
RRPoints=0
If GetGadgetState(#Param_RRCombo)=1 : RRPoints=RRPoints+1 :EndIf
If GetGadgetState(#Param_RRCombo)=2 : RRPoints=RRPoints+2 :EndIf
If GetGadgetState(#Param_RRCombo)=3 : RRPoints=RRPoints+4 :EndIf
If GetGadgetState(#Param_RRCombo)=4 : RRPoints=RRPoints+3 :EndIf
SBPPoints=0
If GetGadgetState(#Param_SBPCombo)=1 : SBPPoints=SBPPoints+1 :EndIf
If GetGadgetState(#Param_SBPCombo)=2 : SBPPoints=SBPPoints+2 :EndIf
If GetGadgetState(#Param_SBPCombo)=3 : SBPPoints=SBPPoints+3 :EndIf
If GetGadgetState(#Param_SBPCombo)=4 : SBPPoints=SBPPoints+4 :EndIf
If GlasgowPoints>=13
GlPoints=4
ElseIf GlasgowPoints>=9
GlPoints=3
ElseIf GlasgowPoints>=6
GlPoints=2
ElseIf GlasgowPoints>=4
GlPoints=1
Else
GlPoints=0
EndIf
RTS.f= (RRPoints*0.2908) + (SBPPoints*0.7326) + (GlPoints * 0.9368)
SetGadgetText(#Result_RTSString, StrF(RTS, 3))
;================================
;TRISS
;================================
Penetrating=0
If GetGadgetState(#Param_BluntPenetrCombo)=1 : Penetrating=1 :EndIf
AgePoints=0
If GetGadgetState(#Param_AgeCombo)=0 : AgePoints=0 : Penetrating=0 : EndIf
If GetGadgetState(#Param_AgeCombo)=1 : AgePoints=0 :EndIf
If GetGadgetState(#Param_AgeCombo)=2 : AgePoints=1 :EndIf
If Penetrating=1
;TRISS (penetrating): Logit =-2.5355 + RTS*0.9934 + ISS*-0.0651 + (age.points)*-1.1360
Logit.f = RTS*0.9934 - ISSKoef*0.0651 - AgePoints*1.1360 - 2.5355
Else
; TRISS (blunt): Logit =-0.4499 + RTS*0.8085 + ISS*-0.0835 + (age.points)*-1.7430
Logit.f = RTS*0.8085 - ISSKoef*0.0835 - AgePoints*1.7430 - 0.4499
EndIf
Triss.f= 1/ (1+Exp(Logit))
SetGadgetText(#Result_TRISSString, StrF(Triss*100.0, 1)+" %")
EndProcedure
Procedure Flush_All()
;default params
SetGadgetState(#Glasgow_eyes_4, 1)
SetGadgetState(#Glasgow_verbal_5, 1)
SetGadgetState(#Glasgow_motor_6, 1)
SetGadgetState(#AIS_Head_0, 1)
SetGadgetState(#AIS_Face_0, 1)
SetGadgetState(#AIS_Chest_0, 1)
SetGadgetState(#AIS_Abdomen_0, 1)
SetGadgetState(#AIS_Extremity_0, 1)
SetGadgetState(#AIS_Extern_0, 1)
SetGadgetState(#Param_AgeCombo, 1)
SetGadgetState(#Param_RRCombo, 3)
SetGadgetState(#Param_SBPCombo, 4)
SetGadgetState(#Param_BluntPenetrCombo, 0)
EndProcedure
Flush_All()
Recalculate_All()
Repeat
event=WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
Select EventGadget()
Case #Glasgow_eyes_4 To #Glasgow_motor_1, #AIS_Head_0 To #AIS_Extern_6, #Param_AgeCombo, #Param_RRCombo, #Param_SBPCombo, #Param_BluntPenetrCombo
Recalculate_All()
Case #Flush_Button
Flush_All()
Recalculate_All()
EndSelect
Case #PB_Event_CloseWindow
End
EndSelect
ForEver
|
