Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   forum.boolean.name > Программирование игр для компьютеров > PureBasic

PureBasic Мощный кросс-платформенный язык среднего уровня на основе BASIC. Подходит для решения широкого круга задач.

Ответ
 
Опции темы
Старый 22.02.2013, 17:23   #1
MadMedic
ПроЭктировщик
 
Регистрация: 05.08.2006
Сообщений: 183
Написано 107 полезных сообщений
(для 410 пользователей)
Помогите скопмилировать на Linux (purebasic)

Друзья линуксоиды! Воззываю к вашей помощи. Администрация нашей больнички недавно крупно попалась на пиратских виндовсах и офисах и теперь скорыми темпами переносит все компы на бесплатный линукс. Я писал программку для медицинских целей на пурбейсике, которая работает под винду, но под линукс не могу скомпиллировать. Помогите собрать запускаемый файл. Буду премного благодарен

Исходник:


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
Миниатюры
Нажмите на изображение для увеличения
Название: trauma.jpg
Просмотров: 1171
Размер:	92.1 Кб
ID:	18843  
(Offline)
 
Ответить с цитированием
Старый 23.02.2013, 11:02   #2
kvitaliy
Оператор ЭВМ
 
Регистрация: 10.01.2007
Сообщений: 37
Написано 6 полезных сообщений
(для 5 пользователей)
Re: Помогите скопмилировать на Linux (purebasic)

http://purebasic.info/phpBB2/viewtop...?p=45599#45599
(Offline)
 
Ответить с цитированием
Эти 2 пользователя(ей) сказали Спасибо kvitaliy за это полезное сообщение:
MadMedic (24.02.2013), Nex (23.02.2013)
Старый 24.02.2013, 09:30   #3
MadMedic
ПроЭктировщик
 
Регистрация: 05.08.2006
Сообщений: 183
Написано 107 полезных сообщений
(для 410 пользователей)
Re: Помогите скопмилировать на Linux (purebasic)

Спасибо еще раз )
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 19:40.


vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com