API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Nov 16th, 2018
91
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 31.45 KB | None | 0 0
raw download clone embed print report
  1. Public Function Check_AGA_LED_Value(aPointer As eAGA_POINTER, _
  2.                                   aExpectedValue As Double, _
  3.                                   aUnit As eAGA_UNITS, _
  4.                                   Optional eTestCheckType As HWDevice_type, _
  5.                                   Optional aTollerance As ePOINTERS_TOLLERANCES = eAGA_TOLLERANCE, _
  6.                                   Optional aReportAction As Boolean = True, _
  7.                                   Optional aReportExpectedResult As Boolean = True) As Boolean
  8.  
  9.     Dim bRetVal As Boolean
  10.     Dim Gauge As String
  11.     Dim Units As String
  12.  
  13.     Dim isStatus As Integer
  14.     Dim MsgText As String
  15.     Dim sTempString As String
  16.     Dim Direction As eOIL_Direction
  17.     Dim LedValues As Variant
  18.     bRetVal = True
  19.  
  20.     Select Case aPointer
  21.         Case eAGA_POINTER_TNK
  22.             Gauge = "Tank"
  23.         Case eAGA_POINTER_OTD
  24.             Gauge = "Oil temperature"
  25.         Case eAGA_POINTER_OTD_8_LEDS
  26.             Gauge = "Oil temperature"
  27.         Case eAGA_POINTER_SOC
  28.             Gauge = "SOC"
  29.     End Select
  30.  
  31.     Select Case aUnit
  32.         Case eAGA_NUM_LEDS
  33.             Units = "percents"
  34.         Case eAGA_UNIT_Percents
  35.             Units = "percents"
  36.     End Select
  37.  
  38.     LedValues = Array(&H1, &H19, &H33, &H4B, &H65, &H7D, &H97, &HAF, &HFF)
  39.  
  40.     Report.Output(Gauge &" is displaying " &aExpectedValue &" "&Units)
  41.  
  42.     '/////////////////////////////////////////////////////////////////////////////////////////
  43.     If VariantMgr.IsApplicable_Automation("10_NIVBAI", isStatus) Then' Automation is available - check with camera
  44.     '/////////////////////////////////////////////////////////////////////////////////////////
  45.  
  46.         Synch.ResetLastAction()
  47.  
  48.         If aPointer = eAGA_POINTER_TNK Then
  49.             Select Case Calculate_Difference_TANK()
  50.                 Case eTANK_Increase
  51.                     If  0 <= aExpectedValue  And aExpectedValue <= 12.0 Then
  52.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS1","OFF",,)
  53.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS2","OFF",,)
  54.                     ElseIf  12.5 <= aExpectedValue And aExpectedValue <= 24.5 Then
  55.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS1","ON",,)
  56.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS2","OFF",,)
  57.                     ElseIf  25.0 <= aExpectedValue And aExpectedValue <= 37.0 Then
  58.                         'MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS1","ON",,)
  59.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS2","ON",,)
  60.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS3","OFF",,)
  61.                     ElseIf  37.5 <= aExpectedValue And aExpectedValue <= 49.5 Then
  62.                         'MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS2","ON",,)
  63.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS3","ON",,)
  64.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS4","OFF",,)
  65.                     ElseIf  50.0 <= aExpectedValue And aExpectedValue <= 62 Then
  66.                         'MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS3","ON",,)
  67.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS4","ON",,)
  68.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS5","OFF",,)
  69.                     ElseIf  62.5 <= aExpectedValue And aExpectedValue <= 74.5 Then
  70.                         'MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS4","ON",,)
  71.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS5","ON",,)
  72.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS6","OFF",,)
  73.                     ElseIf  75.0 <= aExpectedValue And aExpectedValue <= 87.0 Then
  74.                         'MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS5","ON",,)
  75.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS6","ON",,)
  76.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS7","OFF",,)
  77.                     ElseIf  87.5 <= aExpectedValue And aExpectedValue <= 98.5 Then
  78.                         'MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS6","ON",,)
  79.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS7","ON",,)
  80.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS8","OFF",,)
  81.                     ElseIf  99.0 <= aExpectedValue And aExpectedValue <= 100 Then
  82.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS7","ON",,)
  83.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS8","ON",,)
  84.                     End If
  85.                 Case eTANK_Decrease
  86.                     If  0 <= aExpectedValue  And aExpectedValue <= 7.0 Then
  87.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS1","OFF",,)
  88.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS2","OFF",,)
  89.                     ElseIf  7.5 <= aExpectedValue And aExpectedValue <= 19.5 Then
  90.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS1","ON",,)
  91.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS2","OFF",,)
  92.                     ElseIf  20.0 <= aExpectedValue And aExpectedValue <= 32.0 Then
  93.                         'MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS1","ON",,)
  94.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS2","ON",,)
  95.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS3","OFF",,)
  96.                     ElseIf  32.5 <= aExpectedValue And aExpectedValue <= 44.5 Then
  97.                         'MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS2","ON",,)
  98.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS3","ON",,)
  99.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS4","OFF",,)
  100.                     ElseIf  45.0 <= aExpectedValue And aExpectedValue <= 57.0 Then
  101.                         'MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS3","ON",,)
  102.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS4","ON",,)
  103.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS5","OFF",,)
  104.                     ElseIf  57.5 <= aExpectedValue And aExpectedValue <= 69.5 Then
  105.                         'MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS4","ON",,)
  106.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS5","ON",,)
  107.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS6","OFF",,)
  108.                     ElseIf  70.0 <= aExpectedValue And aExpectedValue <= 82 Then
  109.                         'MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS5","ON",,)
  110.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS6","ON",,)
  111.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS7","OFF",,)
  112.                     ElseIf  82.5 <= aExpectedValue And aExpectedValue <= 94.5 Then
  113.                         'MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS6","ON",,)
  114.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS7","ON",,)
  115.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS8","OFF",,)
  116.                     ElseIf  95.0 <= aExpectedValue And aExpectedValue <= 100 Then
  117.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS7","ON",,)
  118.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS8","ON",,)
  119.                     End If
  120.                 Case eTANK_Equal
  121.                     If  0 <= aExpectedValue  And aExpectedValue <= 12.0 Then
  122.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS1","OFF",,)
  123.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS2","OFF",,)
  124.                     ElseIf  12.5 <= aExpectedValue And aExpectedValue <= 24.5 Then
  125.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS1","ON",,)
  126.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS2","OFF",,)
  127.                     ElseIf  25.0 <= aExpectedValue And aExpectedValue <= 37.0 Then
  128.                         'MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS1","ON",,)
  129.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS2","ON",,)
  130.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS3","OFF",,)
  131.                     ElseIf  37.5 <= aExpectedValue And aExpectedValue <= 49.5 Then
  132.                         'MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS2","ON",,)
  133.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS3","ON",,)
  134.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS4","OFF",,)
  135.                     ElseIf  50.0 <= aExpectedValue And aExpectedValue <= 62 Then
  136.                         'MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS3","ON",,)
  137.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS4","ON",,)
  138.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS5","OFF",,)
  139.                     ElseIf  62.5 <= aExpectedValue And aExpectedValue <= 74.5 Then
  140.                         'MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS4","ON",,)
  141.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS5","ON",,)
  142.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS6","OFF",,)
  143.                     ElseIf  75.0 <= aExpectedValue And aExpectedValue <= 87.0 Then
  144.                         'MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS5","ON",,)
  145.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS6","ON",,)
  146.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS7","OFF",,)
  147.                     ElseIf  87.5 <= aExpectedValue And aExpectedValue <= 98.5 Then
  148.                         'MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS6","ON",,)
  149.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS7","ON",,)
  150.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS8","OFF",,)
  151.                     ElseIf  99.0 <= aExpectedValue And aExpectedValue <= 100 Then
  152.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS7","ON",,)
  153.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_TANK",,"POS8","ON",,)
  154.                     End If
  155.                 End Select
  156.  
  157.         ElseIf aPointer = eAGA_POINTER_OTD  Or aPointer = eAGA_POINTER_SOC Then
  158.             Select Case Calculate_Difference_OIL()
  159.                 Case eOIL_Increase
  160.                     If 0 <= aExpectedValue  And aExpectedValue <= 10.0 Then
  161.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS1","ON",,)
  162.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS2","OFF",,)
  163.                     ElseIf  10.5 <= aExpectedValue And aExpectedValue <= 20.0 Then
  164.                         'MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS1","ON",,)
  165.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS2","ON",,)
  166.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS3","OFF",,)
  167.                     ElseIf  20.5 <= aExpectedValue And aExpectedValue <= 35.0 Then
  168.                         'MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS2","ON",,)
  169.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS3","ON",,)
  170.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS4","OFF",,)
  171.                     ElseIf  35.5 <= aExpectedValue And aExpectedValue <= 49.0 Then
  172.                         'MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS3","ON",,)
  173.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS4","ON",,)
  174.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS5","OFF",,)
  175.                     ElseIf  49.5 <= aExpectedValue And aExpectedValue <= 50.5 Then
  176.                         'MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS4","ON",,)
  177.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS5","ON",,)
  178.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS6","OFF",,)
  179.                     ElseIf  51.0 <= aExpectedValue And aExpectedValue <= 60.0 Then
  180.                         'MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS5","ON",,)
  181.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS6","ON",,)
  182.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS7","OFF",,)
  183.                     ElseIf  60.5 <= aExpectedValue And aExpectedValue <= 70.0 Then
  184.                         'MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS6","ON",,)
  185.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS7","ON",,)
  186.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS8","OFF",,)
  187.                     ElseIf  70.5 <= aExpectedValue And aExpectedValue <= 79.5 Then
  188.                         'MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS7","ON",,)
  189.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS8","ON",,)
  190.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS9","OFF",,)
  191.                     ElseIf  80.0 <= aExpectedValue And aExpectedValue <= 89.5 Then
  192.                         'MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS8","ON",,)
  193.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS9","ON",,)
  194.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS10","OFF",,)
  195.                     ElseIf  90.0 <= aExpectedValue And aExpectedValue <= 100 Then
  196.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS9","ON",,)
  197.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS10","ON",,)
  198.                     ElseIf  aExpectedValue > 100 Then
  199.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS1","OFF",,)
  200.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS2","OFF",,)
  201.                     End If
  202.  
  203.             Case eOIL_Decrease
  204.                     If 0 <= aExpectedValue  And aExpectedValue <= 10.0 Then
  205.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS1","ON",,)
  206.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS2","OFF",,)
  207.                     ElseIf  10.0 < aExpectedValue And aExpectedValue <= 20.0 Then
  208.                         'MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS1","ON",,)
  209.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS2","ON",,)
  210.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS3","OFF",,)
  211.                     ElseIf  20.0 < aExpectedValue And aExpectedValue <= 35.0 Then
  212.                         'MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS2","ON",,)
  213.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS3","ON",,)
  214.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS4","OFF",,)
  215.                     ElseIf  35.0 < aExpectedValue And aExpectedValue <= 49.0 Then
  216.                         'MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS3","ON",,)
  217.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS4","ON",,)
  218.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS5","OFF",,)
  219.                     ElseIf  49.0 < aExpectedValue And aExpectedValue <= 50.5 Then
  220.                         'MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS4","ON",,)
  221.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS5","ON",,)
  222.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS6","OFF",,)
  223.                     ElseIf  50.5 < aExpectedValue And aExpectedValue <= 60.0 Then
  224.                         'MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS5","ON",,)
  225.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS6","ON",,)
  226.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS7","OFF",,)
  227.                     ElseIf  60.0 < aExpectedValue And aExpectedValue <= 70.0 Then
  228.                         'MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS6","ON",,)
  229.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS7","ON",,)
  230.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS8","OFF",,)
  231.                     ElseIf  70.0 < aExpectedValue And aExpectedValue <= 79.5 Then
  232.                         'MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS7","ON",,)
  233.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS8","ON",,)
  234.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS9","OFF",,)
  235.                     ElseIf  79.5 < aExpectedValue And aExpectedValue <= 89.5 Then
  236.                         'MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS8","ON",,)
  237.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS9","ON",,)
  238.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS10","OFF",,)
  239.                     ElseIf  89.5 < aExpectedValue And aExpectedValue <= 100 Then
  240.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS9","ON",,)
  241.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS10","ON",,)
  242.                     ElseIf  aExpectedValue > 100 Then
  243.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS1","OFF",,)
  244.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS2","OFF",,)
  245.                     End If
  246.  
  247.                 Case eOIL_Equal
  248.                     If 0 <= aExpectedValue  And aExpectedValue <= 10.0 Then
  249.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS1","ON",,)
  250.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS2","OFF",,)
  251.                     ElseIf  10.5 <= aExpectedValue And aExpectedValue <= 20.0 Then
  252.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS1","ON",,)
  253.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS2","ON",,)
  254.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS3","OFF",,)
  255.                     ElseIf  20.5 <= aExpectedValue And aExpectedValue <= 35.0 Then
  256.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS2","ON",,)
  257.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS3","ON",,)
  258.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS4","OFF",,)
  259.                     ElseIf  35.5 <= aExpectedValue And aExpectedValue <= 49.0 Then
  260.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS3","ON",,)
  261.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS4","ON",,)
  262.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS5","OFF",,)
  263.                     ElseIf  49.5 <= aExpectedValue And aExpectedValue <= 50.5 Then
  264.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS4","ON",,)
  265.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS5","ON",,)
  266.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS6","OFF",,)
  267.                     ElseIf  51.0 <= aExpectedValue And aExpectedValue <= 60.0 Then
  268.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS5","ON",,)
  269.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS6","ON",,)
  270.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS7","OFF",,)
  271.                     ElseIf  60.5 <= aExpectedValue And aExpectedValue <= 70.0 Then
  272.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS6","ON",,)
  273.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS7","ON",,)
  274.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS8","OFF",,)
  275.                     ElseIf  70.5 <= aExpectedValue And aExpectedValue <= 79.5 Then
  276.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS7","ON",,)
  277.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS8","ON",,)
  278.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS9","OFF",,)
  279.                     ElseIf  80.0 <= aExpectedValue And aExpectedValue <= 89.5 Then
  280.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS8","ON",,)
  281.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS9","ON",,)
  282.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS10","OFF",,)
  283.                     ElseIf  90.0 <= aExpectedValue And aExpectedValue <= 100 Then
  284.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS9","ON",,)
  285.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS10","ON",,)
  286.                     ElseIf  aExpectedValue > 100 Then
  287.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS1","OFF",,)
  288.                         MultiCheckObjectClass.AddObj2Check(300, 200, "AGA_OIL",,"POS2","OFF",,)
  289.                     End If
  290.             End Select
  291.         End If
  292.         MultiCheckObjectClass.Check_Objs()
  293.  
  294.     '/////////////////////////////////////////////////////////////////////////////////////////
  295.     ElseIf (isStatus And 1 )>0 And (isStatus And 2)=0 Then 'Manual check
  296.     '/////////////////////////////////////////////////////////////////////////////////////////
  297.  
  298.         Report.Output("Check that "&Gauge &" is displaying " &aExpectedValue &" " &Units)
  299.  
  300.         MsgText = "Check that "&Gauge &" is displaying " &aExpectedValue &" "&Units &" "
  301.  
  302.         If aPointer = eAGA_POINTER_TNK Then
  303.             Select Case Calculate_Difference_TANK()
  304.                 Case eTANK_Increase
  305.                     If  0 <= aExpectedValue  And aExpectedValue <= 12.0 Then
  306.                         MsgText = "0 "&Gauge &" segments are ON ?"
  307.                     ElseIf  12.5 <= aExpectedValue And aExpectedValue <= 24.5 Then
  308.                         MsgText = "1 "&Gauge &" segments are ON ?"
  309.                     ElseIf  25.0 <= aExpectedValue And aExpectedValue <= 37.0 Then
  310.                         MsgText = "2 "&Gauge &" segments are ON ?"
  311.                     ElseIf  37.5 <= aExpectedValue And aExpectedValue <= 49.5 Then
  312.                         MsgText = "3 "&Gauge &" segments are ON ?"
  313.                     ElseIf  50.0 <= aExpectedValue And aExpectedValue <= 62 Then
  314.                         MsgText = "4 "&Gauge &" segments are ON ?"
  315.                     ElseIf  62.5 <= aExpectedValue And aExpectedValue <= 74.5 Then
  316.                         MsgText = "5 "&Gauge &" segments are ON ?"
  317.                     ElseIf  75.0 <= aExpectedValue And aExpectedValue <= 87.0 Then
  318.                         MsgText = "6 "&Gauge &" segments are ON ?"
  319.                     ElseIf  87.5 <= aExpectedValue And aExpectedValue <= 98.5 Then
  320.                         MsgText = "7 "&Gauge &" segments are ON ?"
  321.                     ElseIf  99.0 <= aExpectedValue And aExpectedValue <= 100 Then
  322.                         MsgText = "8 "&Gauge &" segments are ON ?"
  323.                     End If
  324.                 Case eTANK_Decrease
  325.                     If  0 <= aExpectedValue  And aExpectedValue <= 7.0 Then
  326.                         MsgText = "0 "&Gauge &" segments are ON ?"
  327.                     ElseIf  7.5 <= aExpectedValue And aExpectedValue <= 19.5 Then
  328.                         MsgText = "1 "&Gauge &" segments are ON ?"
  329.                     ElseIf  20.0 <= aExpectedValue And aExpectedValue <= 32.0 Then
  330.                         MsgText = "2 "&Gauge &" segments are ON ?"
  331.                     ElseIf  32.5 <= aExpectedValue And aExpectedValue <= 44.5 Then
  332.                         MsgText = "3 "&Gauge &" segments are ON ?"
  333.                     ElseIf  45.0 <= aExpectedValue And aExpectedValue <= 57.0 Then
  334.                         MsgText = "4 "&Gauge &" segments are ON ?"
  335.                     ElseIf  57.5 <= aExpectedValue And aExpectedValue <= 69.5 Then
  336.                         MsgText = "5 "&Gauge &" segments are ON ?"
  337.                     ElseIf  70.0 <= aExpectedValue And aExpectedValue <= 82 Then
  338.                         MsgText = "6 "&Gauge &" segments are ON ?"
  339.                     ElseIf  82.5 <= aExpectedValue And aExpectedValue <= 94.5 Then
  340.                         MsgText = "7 "&Gauge &" segments are ON ?"
  341.                     ElseIf  95.0 <= aExpectedValue And aExpectedValue <= 100 Then
  342.                         MsgText = "8 "&Gauge &" segments are ON ?"
  343.                     End If
  344.                 Case eTANK_Equal
  345.                     If  0 <= aExpectedValue  And aExpectedValue <= 12.0 Then
  346.                         MsgText = "0 "&Gauge &" segments are ON ?"
  347.                     ElseIf  12.5 <= aExpectedValue And aExpectedValue <= 24.5 Then
  348.                         MsgText = "1 "&Gauge &" segments are ON ?"
  349.                     ElseIf  25.0 <= aExpectedValue And aExpectedValue <= 37.0 Then
  350.                         MsgText = "2 "&Gauge &" segments are ON ?"
  351.                     ElseIf  37.5 <= aExpectedValue And aExpectedValue <= 49.5 Then
  352.                         MsgText = "3 "&Gauge &" segments are ON ?"
  353.                     ElseIf  50.0 <= aExpectedValue And aExpectedValue <= 62 Then
  354.                         MsgText = "4 "&Gauge &" segments are ON ?"
  355.                     ElseIf  62.5 <= aExpectedValue And aExpectedValue <= 74.5 Then
  356.                         MsgText = "5 "&Gauge &" segments are ON ?"
  357.                     ElseIf  75.0 <= aExpectedValue And aExpectedValue <= 87.0 Then
  358.                         MsgText = "6 "&Gauge &" segments are ON ?"
  359.                     ElseIf  87.5 <= aExpectedValue And aExpectedValue <= 98.5 Then
  360.                         MsgText = "7 "&Gauge &" segments are ON ?"
  361.                     ElseIf  99.0 <= aExpectedValue And aExpectedValue <= 100 Then
  362.                         MsgText = "8 "&Gauge &" segments are ON ?"
  363.                     End If
  364.                 End Select
  365.  
  366.         ElseIf aPointer = eAGA_POINTER_OTD Then
  367.  
  368.             Select Case Calculate_Difference_OIL()
  369.                 Case eOIL_Increase
  370.                     If 0 <= aExpectedValue  And aExpectedValue <= 10.0 Then
  371.                         MsgText = "1 "&Gauge &" segments are ON ?"
  372.                     ElseIf  10.5 <= aExpectedValue And aExpectedValue <= 20.0 Then
  373.                         MsgText = "2 "&Gauge &" segments are ON ?"
  374.                     ElseIf  20.5 <= aExpectedValue And aExpectedValue <= 35.0 Then
  375.                         MsgText = "3 "&Gauge &" segments are ON ?"
  376.                     ElseIf  35.5 <= aExpectedValue And aExpectedValue <= 49.0 Then
  377.                         MsgText = "4 "&Gauge &" segments are ON ?"
  378.                     ElseIf  49.5 <= aExpectedValue And aExpectedValue <= 50.5 Then
  379.                         MsgText = "5 "&Gauge &" segments are ON ?"
  380.                     ElseIf  51.0 <= aExpectedValue And aExpectedValue <= 60.0 Then
  381.                         MsgText = "6 "&Gauge &" segments are ON ?"
  382.                     ElseIf  60.5 <= aExpectedValue And aExpectedValue <= 70.0 Then
  383.                         MsgText = "7 "&Gauge &" segments are ON ?"
  384.                     ElseIf  70.5 <= aExpectedValue And aExpectedValue <= 79.5 Then
  385.                         MsgText = "8 "&Gauge &" segments are ON ?"
  386.                     ElseIf  80.0 <= aExpectedValue And aExpectedValue <= 89.5 Then
  387.                         MsgText = "9 "&Gauge &" segments are ON ?"
  388.                     ElseIf  90.0 <= aExpectedValue And aExpectedValue <= 100 Then
  389.                         MsgText = "10 "&Gauge &" segments are ON ?"
  390.                     ElseIf  aExpectedValue > 100 Then
  391.                         MsgText = "0 "&Gauge &" segments are ON ?"
  392.                     End If
  393.  
  394.             Case eOIL_Decrease
  395.                     If 0 <= aExpectedValue  And aExpectedValue <= 10.0 Then
  396.                         MsgText = "1 "&Gauge &" segments are ON ?"
  397.                     ElseIf  10.0 < aExpectedValue And aExpectedValue <= 20.0 Then
  398.                         MsgText = "2 "&Gauge &" segments are ON ?"
  399.                     ElseIf  20.0 < aExpectedValue And aExpectedValue <= 35.0 Then
  400.                         MsgText = "3 "&Gauge &" segments are ON ?"
  401.                     ElseIf  35.0 < aExpectedValue And aExpectedValue <= 49.0 Then
  402.                         MsgText = "4 "&Gauge &" segments are ON ?"
  403.                     ElseIf  49.0 < aExpectedValue And aExpectedValue <= 50.5 Then
  404.                         MsgText = "5 "&Gauge &" segments are ON ?"
  405.                     ElseIf  50.5 < aExpectedValue And aExpectedValue <= 60.0 Then
  406.                         MsgText = "6 "&Gauge &" segments are ON ?"
  407.                     ElseIf  60.0 < aExpectedValue And aExpectedValue <= 70.0 Then
  408.                         MsgText = "7 "&Gauge &" segments are ON ?"
  409.                     ElseIf  70.0 < aExpectedValue And aExpectedValue <= 79.5 Then
  410.                         MsgText = "8 "&Gauge &" segments are ON ?"
  411.                     ElseIf  79.5 < aExpectedValue And aExpectedValue <= 89.5 Then
  412.                         MsgText = "9 "&Gauge &" segments are ON ?"
  413.                     ElseIf  89.5 < aExpectedValue And aExpectedValue <= 100 Then
  414.                         MsgText = "10 "&Gauge &" segments are ON ?"
  415.                     ElseIf  aExpectedValue > 100 Then
  416.                         MsgText = "0 "&Gauge &" segments are ON ?"
  417.                     End If
  418.  
  419.                 Case eOIL_Equal
  420.                     If 0 <= aExpectedValue  And aExpectedValue <= 10.0 Then
  421.                         MsgText = "1 "&Gauge &" segments are ON ?"
  422.                     ElseIf  10.5 <= aExpectedValue And aExpectedValue <= 20.0 Then
  423.                         MsgText = "2 "&Gauge &" segments are ON ?"
  424.                     ElseIf  20.5 <= aExpectedValue And aExpectedValue <= 35.0 Then
  425.                         MsgText = "3 "&Gauge &" segments are ON ?"
  426.                     ElseIf  35.5 <= aExpectedValue And aExpectedValue <= 49.0 Then
  427.                         MsgText = "4 "&Gauge &" segments are ON ?"
  428.                     ElseIf  49.5 <= aExpectedValue And aExpectedValue <= 50.5 Then
  429.                         MsgText = "5 "&Gauge &" segments are ON ?"
  430.                     ElseIf  51.0 <= aExpectedValue And aExpectedValue <= 60.0 Then
  431.                         MsgText = "6 "&Gauge &" segments are ON ?"
  432.                     ElseIf  60.5 <= aExpectedValue And aExpectedValue <= 70.0 Then
  433.                         MsgText = "7 "&Gauge &" segments are ON ?"
  434.                     ElseIf  70.5 <= aExpectedValue And aExpectedValue <= 79.5 Then
  435.                         MsgText = "8 "&Gauge &" segments are ON ?"
  436.                     ElseIf  80.0 <= aExpectedValue And aExpectedValue <= 89.5 Then
  437.                         MsgText = "9 "&Gauge &" segments are ON ?"
  438.                     ElseIf  90.0 <= aExpectedValue And aExpectedValue <= 100 Then
  439.                         MsgText = "10 "&Gauge &" segments are ON ?"
  440.                     ElseIf  aExpectedValue > 100 Then
  441.                         MsgText = "0 "&Gauge &" segments are ON ?"
  442.                     End If
  443.             End Select
  444.  
  445.         ElseIf aPointer = eAGA_POINTER_OTD_8_LEDS Then
  446.  
  447.                 Select Case Calculate_Difference_OIL()
  448.                 Case eOIL_Increase
  449.                 If aExpectedValue = 0 Then
  450.                     MsgText = "No "&Gauge &" segments are ON ?"
  451.                 ElseIf  0 <= aExpectedValue  And aExpectedValue <= 20.0 Then
  452.                     MsgText = "1 "&Gauge &" segments are ON ?"
  453.                 ElseIf  20.5 <= aExpectedValue And aExpectedValue <= 35.0 Then
  454.                     MsgText = "2 "&Gauge &" segments are ON ?"
  455.                 ElseIf  35.5 <= aExpectedValue And aExpectedValue <= 49.0 Then
  456.                     MsgText = "3 "&Gauge &" segments are ON ?"
  457.                 ElseIf  49.5 <= aExpectedValue And aExpectedValue <= 50.5 Then
  458.                     MsgText = "4 "&Gauge &" segments are ON ?"
  459.                 ElseIf  51.0 <= aExpectedValue And aExpectedValue <= 65.5 Then
  460.                     MsgText = "5 "&Gauge &" segments are ON ?"
  461.                 ElseIf  66.0 <= aExpectedValue And aExpectedValue <= 79.5 Then
  462.                     MsgText = "6 "&Gauge &" segments are ON ?"
  463.                 ElseIf  80.0 <= aExpectedValue And aExpectedValue <= 89.5 Then
  464.                     MsgText = "7 "&Gauge &" segments are ON ?"
  465.                 ElseIf  90.0 <= aExpectedValue And aExpectedValue <= 100 Then
  466.                     MsgText = "8 "&Gauge &" segments are ON ?"
  467.                 ElseIf  aExpectedValue > 100 Then
  468.                     MsgText = "0 "&Gauge &" segments are ON ?"
  469.                 End If
  470.  
  471.             Case eOIL_Decrease
  472.                 If aExpectedValue = 0 Then
  473.                     MsgText = "No "&Gauge &" segments are ON ?"
  474.                 ElseIf  0 <= aExpectedValue  And aExpectedValue <= 20.0 Then
  475.                     MsgText = "1 "&Gauge &" segments are ON ?"
  476.                 ElseIf  20.0 < aExpectedValue And aExpectedValue <= 35.0 Then
  477.                     MsgText = "2 "&Gauge &" segments are ON ?"
  478.                 ElseIf  35.0 < aExpectedValue And aExpectedValue <= 49.0 Then
  479.                     MsgText = "3 "&Gauge &" segments are ON ?"
  480.                 ElseIf  49.0 < aExpectedValue And aExpectedValue <= 50.5 Then
  481.                     MsgText = "4 "&Gauge &" segments are ON ?"
  482.                 ElseIf  50.5 < aExpectedValue And aExpectedValue <= 65.5 Then
  483.                     MsgText = "5 "&Gauge &" segments are ON ?"
  484.                 ElseIf  65.5 < aExpectedValue And aExpectedValue <= 79.5 Then
  485.                     MsgText = "6 "&Gauge &" segments are ON ?"
  486.                 ElseIf  79.5 < aExpectedValue And aExpectedValue <= 89.5 Then
  487.                     MsgText = "7 "&Gauge &" segments are ON ?"
  488.                 ElseIf  89.5 < aExpectedValue And aExpectedValue <= 100 Then
  489.                     MsgText = "8 "&Gauge &" segments are ON ?"
  490.                 ElseIf  aExpectedValue > 100 Then
  491.                     MsgText = "0 "&Gauge &" segments are ON ?"
  492.                 End If
  493.  
  494.                 Case eOIL_Equal
  495.                     If aExpectedValue = 0 Then
  496.                     MsgText = "No "&Gauge &" segments are ON ?"
  497.                 ElseIf  0 <= aExpectedValue  And aExpectedValue <= 20.0 Then
  498.                     MsgText = "1 "&Gauge &" segments are ON ?"
  499.                 ElseIf  20.5 <= aExpectedValue And aExpectedValue <= 35.0 Then
  500.                     MsgText = "2 "&Gauge &" segments are ON ?"
  501.                 ElseIf  35.5 <= aExpectedValue And aExpectedValue <= 49.0 Then
  502.                     MsgText = "3 "&Gauge &" segments are ON ?"
  503.                 ElseIf  49.5 <= aExpectedValue And aExpectedValue <= 50.5 Then
  504.                     MsgText = "4 "&Gauge &" segments are ON ?"
  505.                 ElseIf  51.0 <= aExpectedValue And aExpectedValue <= 65.5 Then
  506.                     MsgText = "5 "&Gauge &" segments are ON ?"
  507.                 ElseIf  66.0 <= aExpectedValue And aExpectedValue <= 79.5 Then
  508.                     MsgText = "6 "&Gauge &" segments are ON ?"
  509.                 ElseIf  80.0 <= aExpectedValue And aExpectedValue <= 89.5 Then
  510.                     MsgText = "7 "&Gauge &" segments are ON ?"
  511.                 ElseIf  90.0 <= aExpectedValue And aExpectedValue <= 100 Then
  512.                     MsgText = "8 "&Gauge &" segments are ON ?"
  513.                 ElseIf  aExpectedValue > 100 Then
  514.                     MsgText = "0 "&Gauge &" segments are ON ?"
  515.                 End If
  516.             End Select
  517.         ElseIf aPointer = eAGA_POINTER_SOC Then
  518.  
  519.             If aExpectedValue = 0 Then
  520.                 MsgText = "No "&Gauge &" segments are ON ?"
  521.             ElseIf  LedValues(0) <= aExpectedValue And aExpectedValue < LedValues(1) Then
  522.                 MsgText = "1 "&Gauge &" segments are ON ?"
  523.             ElseIf  LedValues(1) <= aExpectedValue And aExpectedValue < LedValues(2) Then
  524.                 MsgText = "2 "&Gauge &" segments are ON ?"
  525.             ElseIf  LedValues(2) <= aExpectedValue And aExpectedValue < LedValues(3) Then
  526.                 MsgText = "3 "&Gauge &" segments are ON ?"
  527.             ElseIf  LedValues(3) <= aExpectedValue And aExpectedValue < LedValues(4) Then
  528.                 MsgText = "4 "&Gauge &" segments are ON ?"
  529.             ElseIf  LedValues(4) <= aExpectedValue And aExpectedValue < LedValues(5) Then
  530.                 MsgText = "5 "&Gauge &" segments are ON ?"
  531.             ElseIf  LedValues(5) <= aExpectedValue And aExpectedValue < LedValues(6) Then
  532.                 MsgText = "6 "&Gauge &" segments are ON ?"
  533.             ElseIf  LedValues(6) <= aExpectedValue And aExpectedValue < LedValues(7) Then
  534.                 MsgText = "7 "&Gauge &" segments are ON ?"
  535.             ElseIf  LedValues(7) <= aExpectedValue And aExpectedValue < LedValues(8) Then
  536.                 MsgText = "8 "&Gauge &" segments are ON ?"
  537.             ElseIf  aExpectedValue >= LedValues(8) Then
  538.                 MsgText = "0 "&Gauge &" segments are ON ?"
  539.             End If
  540.  
  541.         End If
  542.  
  543.         If IC_Common.VerifyDisplayedResult(MsgText,False) Then
  544.             Report.Comment("OK! "&Gauge &" is showing "&aExpectedValue)
  545.             bRetVal = True
  546.         Else
  547.             Report.Error("ERROR!!! Result NOK. "&Gauge &" shown on display is NOT " &aExpectedValue)
  548.             Report.PrintLineNumber()
  549.             bRetVal = False
  550.         End If
  551.  
  552.     '/////////////////////////////////////////////////////////////////////////////////////////
  553.     ElseIf (isStatus And 2) > 0 Then 'Automatic and Manual checks are skipped
  554.         Report.Warning("Automatic Vision check is skipped!!!")
  555.         Report.Warning("Manual Vision check is skipped!!!")
  556.     End If
  557.     '/////////////////////////////////////////////////////////////////////////////////////////
  558.  
  559.  Return bRetVal
  560.  
  561. End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!