📄 cardiovascular.frm
字号:
TabIndex = 52
Top = 2040
Width = 1695
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "FHx of CAD? (Y/N)"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 17
Left = 7560
TabIndex = 51
ToolTipText = "Is there a Family History of coronary artery disease?"
Top = 1680
Width = 1695
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "History Hyperlipidemia? (Y/N)"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 16
Left = 7560
TabIndex = 50
Top = 1200
Width = 2055
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "History Hypertension? (Y\N)"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 15
Left = 7560
TabIndex = 49
ToolTipText = "Do you have a history of high blood pressure?"
Top = 720
Width = 1935
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Symptoms poss CAD? (Y/N)"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 14
Left = 240
TabIndex = 48
ToolTipText = "Sypmtoms of possible Coronary Artery Disease (Disease of the arteries around the heart)"
Top = 2280
Width = 1815
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Left Ventricular Hypertrophy?"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 13
Left = 7560
TabIndex = 47
ToolTipText = "Is there thickening of the muscle of the left side of the heart?"
Top = 240
Width = 2055
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Current HDL cholesterol level, in mg/dL"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 12
Left = 240
TabIndex = 46
Top = 5760
Width = 2175
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Current Total Cholesterol level, in mg/dL"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 11
Left = 240
TabIndex = 45
Top = 5280
Width = 2175
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Current BP meds? (Y/N)"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 10
Left = 240
TabIndex = 44
ToolTipText = "Do you currently take blood pressure (hypertension) pills (medications)?"
Top = 4920
Width = 2055
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Diabetic? (Y/N)"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 9
Left = 240
TabIndex = 43
Top = 4560
Width = 1455
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Do you smoke? (Y/N)"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 8
Left = 240
TabIndex = 42
Top = 4200
Width = 1935
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Rarely exercise or do anything physical? (Y/N)"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Index = 7
Left = 240
TabIndex = 41
ToolTipText = "Do you live a sedentary life style and rarely exert yourself?"
Top = 3480
Width = 1935
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "FHx of Heart ds or MI prior to age of 60? (Y/N)"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Index = 6
Left = 240
TabIndex = 40
ToolTipText = "Family History of heart diseas or Heart attack prior to the age of 60?"
Top = 2760
Width = 1815
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Systolic BP :"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 4
Left = 240
TabIndex = 39
Top = 1560
Width = 1815
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Weight (pounds):"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 3
Left = 240
TabIndex = 38
Top = 1200
Width = 1935
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Height (inches):"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 2
Left = 240
TabIndex = 37
Top = 840
Width = 1695
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Age (years):"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 1
Left = 240
TabIndex = 36
Top = 480
Width = 1695
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Gender (M/F):: "
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 240
TabIndex = 0
Top = 120
Width = 1695
End
End
Attribute VB_Name = "Cardiovascular"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim AHA As Integer
Dim AHArisk As String
Dim BMIcaption As String
Dim BmiValue As Double
Private Sub Bmi()
On Error Resume Next
BmiValue = (Int(((Val(Text1(3).Text) / ((Val(Text1(2).Text) ^ 2)) * 70300) / 100) * 100)) / 100
If Text1(0) = "M" Then
Select Case BmiValue
Case Is < 20.69
BMIcaption = vbCr & vbLf & vbCr & vbLf & "You are UNDERWEIGHT. The lower the BMI the greater the risk of Malnutrition. You should supplement each of your THREE meals daily with a Formula 1 Smoothie until your BMI is normal (between 20.7 and 26.4). Then go on maintenance."
Obesity = "N"
Case 20.7 To 26.4
BMIcaption = vbCr & vbLf & vbCr & vbLf & "You are at a NORMAL WEIGHT. Your risk of Co-morbidities is very low. You should substitute ONE of your usual THREE meals daily with a ONE Formula 1 Smoothie and maintain your BMI as is (between 20.7 and 26.4). Congratulations! Stay on maintenance."
Obesity = "N"
Case 26.41 To 27.8
BMIcaption = vbCr & vbLf & vbCr & vbLf & "You are MARGINALLY OVERWEIGHT. Some risk of Obesity Co-morbidities exists but they are low. You should substitute TWO of your usual THREE meals daily with TWO Formula 1 Smoothies until your BMI is normal (between 20.7 and 26.4). Then go on maintenance."
Obesity = "N"
Case 27.81 To 31.1
BMIcaption = vbCr & vbLf & vbCr & vbLf & "You are OVERWEIGHT. Moderate risk of Obesity Co-morbidities exists. You should substitute TWO of your usual THREE meals daily with TWO Formula 1 Smoothies until your BMI is normal (between 20.7 and 26.4). Then go on maintenance."
Obesity = "Y"
Case 31.11 To 45.4
BMIcaption = vbCr & vbLf & vbCr & vbLf & "You are SEVERELY OVERWEIGHT. High risk of Obesity Co-morbidities exists. You should substitute TWO of your usual THREE meals daily with TWO Formula 1 Smoothies until your BMI is normal (between 20.7 and 26.4). Then go on maintenance. You need to be under a Physician's Care as soon as possible."
Obesity = "Y"
Case Is > 45.4
BMIcaption = vbCr & vbLf & vbCr & vbLf & "You are MORBIDLY OBESE. VERY HIGH RISK for Obesity Co-morbidities exists. You should substitute TWO of your usual THREE meals daily with TWO Formula 1 Smoothies until your BMI is normal (between 20.7 and 26.4). Then go on maintenance. You need to be under a Physician's Care as soon as possible."
Obesity = "Y"
End Select
Else
Select Case BmiValue
Case Is < 19.1
BMIcaption = vbCr & vbLf & vbCr & vbLf & "You are UNDERWEIGHT. The lower the BMI the greater the risk of Malnutrition. You should supplement each of your THREE meals daily with a Formula 1 Smoothie until your BMI is normal (between 20.7 and 26.4). Then go on maintenance."
Obesity = "N"
Case 19.11 To 25.8
BMIcaption = vbCr & vbLf & vbCr & vbLf & "You are at a NORMAL WEIGHT. Your risk of Co-morbidities is very low. You should substitute ONE of your usual THREE meals daily with a ONE Formula 1 Smoothie and maintain your BMI as is (between 20.7 and 26.4). Congratulations! Stay on maintenance."
Obesity = "N"
Case 25.81 To 27.3
BMIcaption = vbCr & vbLf & vbCr & vbLf & "You are MARGINALLY OVERWEIGHT. Some risk of Obesity Co-morbidities exists but they are low. You should substitute TWO of your usual THREE meals daily with TWO Formula 1 Smoothies until your BMI is normal (between 20.7 and 26.4). Then go on maintenance."
Obesity = "N"
Case 27.31 To 32.2
BMIcaption = vbCr & vbLf & vbCr & vbLf & "You are OVERWEIGHT. Moderate risk of Obesity Co-morbidities exists. You should substitute TWO of your usual THREE meals daily with TWO Formula 1 Smoothies until your BMI is normal (between 20.7 and 26.4). Then go on maintenance."
Obesity = "Y"
Case 32.21 To 44.8
BMIcaption = vbCr & vbLf & vbCr & vbLf & "You are SEVERELY OVERWEIGHT. High risk of Obesity Co-morbidities exists. You should substitute TWO of your usual THREE meals daily with TWO Formula 1 Smoothies until your BMI is normal (between 20.7 and 26.4). Then go on maintenance. You need to be under a Physician's Care as soon as possible."
Obesity = "Y"
Case Is > 44.8
BMIcaption = vbCr & vbLf & vbCr & vbLf & "You are MORBIDLY OBESE. VERY HIGH RISK for Obesity Co-morbidities exists. You should substitute TWO of your usual THREE meals daily with TWO Formula 1 Smoothies until your BMI is normal (between 20.7 and 26.4). Then go on maintenance. You need to be under a Physician's Care as soon as possible."
Obesity = "Y"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -