Module Module1
Sub Main()
Console.WriteLine("Hello JSRUN - from vb")
Dim age As Integer = 73
Dim weight As Double = 76
Dim gls As Double = 6.0
Dim insulin_speed As Double = 3.5
Dim gls_diff As Double = -5
Dim advise_info As New Hashtable
If (age <= 74 And weight > 74 And gls <= 80 / 18 And (insulin_speed > 1.5 And insulin_speed <= 5) And gls_diff < -81 / 18) Then
advise_info.add("advise_insulin_speed",insulin_speed - 2.2)
ElseIf (age <= 74 And weight > 74 And gls <= 80 / 18 And (insulin_speed > 1.5 And insulin_speed <= 5) And gls_diff < -61 / 18 And gls_diff >= -81 / 18) Then
advise_info.add("advise_insulin_speed",insulin_speed - 1.6)
ElseIf (age <= 74 And weight > 74 And gls <= 80 / 18 And (insulin_speed > 1.5 And insulin_speed <= 5) And gls_diff < -41 / 18 And gls_diff >= -61 / 18) Then
advise_info.add("advise_insulin_speed",insulin_speed - 1)
ElseIf (age <= 74 And weight > 74 And gls <= 80 / 18 And (insulin_speed > 1.5 And insulin_speed <= 5) And gls_diff < -21 / 18 And gls_diff >= -41 / 18) Then
advise_info.add("advise_insulin_speed",insulin_speed - 0.5)
ElseIf (age <= 74 And weight > 74 And gls <= 80 / 18 And (insulin_speed > 1.5 And insulin_speed <= 5) And gls_diff <= 0 And gls_diff >= -21 / 18) Then
advise_info.add("advise_insulin_speed",insulin_speed - 0.3)
ElseIf (age <= 74 And weight > 74 And gls <= 80 / 18 And (insulin_speed > 1.5 And insulin_speed <= 5) And gls_diff < 21 / 18 And gls_diff > 0) Then
advise_info.add("advise_insulin_speed",insulin_speed)
ElseIf (age <= 74 And weight > 74 And gls <= 80 / 18 And (insulin_speed > 1.5 And insulin_speed <= 5) And gls_diff < 41 / 18 And gls_diff >= 21 / 18) Then
advise_info.add("advise_insulin_speed",insulin_speed + 0.3)
advise_info.add("iv",2)
ElseIf (age <= 74 And weight > 74 And gls <= 80 / 18 And (insulin_speed > 1.5 And insulin_speed <= 5) And gls_diff >= 41) Then
advise_info.add("advise_insulin_speed",insulin_speed + 0.6)
advise_info.add("iv",4)
End If
If (age <= 74 And weight > 74 And gls <= 110 / 18 And gls > 80 / 18 And (insulin_speed > 1.5 And insulin_speed <= 5) And gls_diff < -81 / 18) Then
advise_info.add("advise_insulin_speed",insulin_speed - 1.8)
ElseIf (age <= 74 And weight > 74 And gls <= 110 / 18 And gls > 80 / 18 And (insulin_speed > 1.5 And insulin_speed <= 5) And gls_diff < -61 / 18 And gls_diff >= -81 / 18) Then
advise_info.add("advise_insulin_speed",insulin_speed - 1.2)
ElseIf (age <= 74 And weight > 74 And gls <= 110 / 18 And gls > 80 / 18 And (insulin_speed > 1.5 And insulin_speed <= 5) And gls_diff < -41 / 18 And gls_diff >= -61 / 18) Then
advise_info.add("advise_insulin_speed",insulin_speed - 0.8)
ElseIf (age <= 74 And weight > 74 And gls <= 110 / 18 And gls > 80 / 18 And (insulin_speed > 1.5 And insulin_speed <= 5) And gls_diff < -21 / 18 And gls_diff >= -41 / 18) Then
advise_info.add("advise_insulin_speed",insulin_speed - 0.3)
ElseIf (age <= 74 And weight > 74 And gls <= 110 / 18 And gls > 80 / 18 And (insulin_speed > 1.5 And insulin_speed <= 5) And gls_diff <= 0 And gls_diff >= -21 / 18) Then
advise_info.add("advise_insulin_speed",insulin_speed)
ElseIf (age <= 74 And weight > 74 And gls <= 110 / 18 And gls > 80 / 18 And (insulin_speed > 1.5 And insulin_speed <= 5) And gls_diff < 21 / 18 And gls_diff > 0) Then
advise_info.add("advise_insulin_speed",insulin_speed)
advise_info.add("iv",2)
ElseIf (age <= 74 And weight > 74 And gls <= 110 / 18 And gls > 80 / 18 And (insulin_speed > 1.5 And insulin_speed <= 5) And gls_diff < 41 / 18 And gls_diff >= 21 / 18) Then
advise_info.add("advise_insulin_speed",insulin_speed)
advise_info.add("iv",4)
ElseIf (age <= 74 And weight > 74 And gls <= 110 / 18 And gls > 80 / 18 And (insulin_speed > 1.5 And insulin_speed <= 5) And gls_diff < 61 / 18 And gls_diff >= 41 / 18) Then
advise_info.add("advise_insulin_speed",insulin_speed + 0.3)
advise_info.add("iv",4)
ElseIf (age <= 74 And weight > 74 And gls <= 110 / 18 And gls > 80 / 18 And (insulin_speed > 1.5 And insulin_speed <= 5) And gls_diff < 81 / 18 And gls_diff >= 61 / 18) Then
advise_info.add("advise_insulin_speed",insulin_speed + 0.6)
advise_info.add("iv",6)
ElseIf (age <= 74 And weight > 74 And gls <= 110 / 18 And gls > 80 / 18 And (insulin_speed > 1.5 And insulin_speed <= 5) And gls_diff >= 81 / 18) Then
advise_info.add("advise_insulin_speed",insulin_speed + 1.2)
advise_info.add("iv",8)
End If
If (gls_diff >= -41 / 18 And gls <= 81 / 18) Then
advise_info.add("period",2)
ElseIf (gls_diff >= 41 / 18 And gls <= 81 / 18) Then
advise_info.add("period",3)
ElseIf (gls_diff <= -41 / 18 And gls <= 81 / 18) Then
advise_info.add("period",1)
ElseIf (gls_diff >= 41 / 18 And gls <= 81 / 18) Then
advise_info.add("period",2)
ElseIf (gls_diff >= -21 / 18 And gls_diff <= 21 / 18 And gls > 81 / 18 And gls <= 111 / 18) Then
advise_info.add("period",4)
ElseIf ((gls_diff >= -41 / 18 And gls_diff <= -21 / 18) Or (gls_diff >= 21 / 18 And gls_diff <= 41 / 18) And gls > 81 / 18 And gls <= 111 / 18) Then
advise_info.add("period",3)
ElseIf ((gls_diff >= -111 / 18 And gls_diff <= -41 / 18) Or (gls_diff >= 41 / 18 And gls_diff <= 111 / 18) And gls > 81 / 18 And gls <= 111 / 18) Then
advise_info.add("period",2)
ElseIf (gls_diff <= -111 / 18 Or gls_diff >= 111 / 18 And gls > 81 / 18 And gls <= 111 / 18) Then
advise_info.add("period",1)
ElseIf (gls_diff >= -41 / 18 And gls_diff <= 41 / 18 And gls > 111 / 18 And gls <= 151 / 18) Then
advise_info.add("period",3)
ElseIf (gls_diff >= 41 / 18 Or gls_diff <= -41 / 18 And gls > 111 / 18 And gls <= 151 / 18) Then
advise_info.add("period",2)
ElseIf (gls_diff >= -41 / 18 And gls_diff <= 41 / 18 And gls > 151 / 18 And gls <= 201 / 18) Then
advise_info.add("period",2)
ElseIf (gls_diff >= 41 / 18 Or gls_diff <= -41 / 18 And gls > 151 / 18 And gls <= 201 / 18) Then
advise_info.add("period",1)
ElseIf (gls > 201 / 18) Then
advise_info.add("period",1)
End If
Console.WriteLine(advise_info.item("advise_insulin_speed").ToString)
Console.WriteLine(advise_info.item("period").ToString)
End Sub
End Module