SHARE
TWEET

Untitled

a guest Feb 9th, 2017 67 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. Function TestFunction(ByVal IntInput As Integer) As Integer
  3.  
  4.     Dim IntCounter1 As Integer = 42
  5.     Dim IntCounter As Integer
  6.     Dim PosTest As Position = P(1.2, 4.3, 4.5) 'the "," should be displayed normal, but without "," in Suffix 1 the number is not detected
  7.  
  8.     For IntCounter = 1 To (IntCounter1 + 3) 'the "1" in IntCounter1 should be no number
  9.         If (IntCounter = 13) Then
  10.             Exit For '"For" should be not used as open folding
  11.         End If
  12.     Next IntCounter
  13.  
  14.     'comment
  15.     Rem Comment
  16.     Call Remove '"Remove" should be not displayed as comment
  17.  
  18.     LetZ PosCarrier = PosZ(PosPart)
  19.  
  20.     SngInternal = (PosZ(PosPart) + PosZ(PosCarrier)) 'first "PosZ" is not detected
  21.  
  22.     Select Case IntCounter
  23.         Case 1
  24.         Case 13
  25.         Case Else '"Else" should be not used as open folding
  26.     End Select
  27.    
  28.     If (IntCounter = 42) Then
  29.         Exit Function '"Function" should be not used as open folding
  30.     Else
  31.         IntCounter = 47
  32.     End If
  33.  
  34.     IntReturn = ShowDebug(12, "show debug1 as test", "two, three")
  35.  
  36.     TestFunction = IntCounter
  37.  
  38. End Function
  39.  
  40.  
  41. Sub TestSub(ByRef IntOutput As Integer)
  42.  
  43.     Dim SngInternal As Single
  44.  
  45.     If (IO[IntOutput] = On) Then '"IO" should be shown as in the next line
  46.         Reset IO[IntOutput]
  47.     Else
  48.         Set IO[IntOutput]
  49.         Exit Sub '"Sub" should be not used as open folding
  50.     End If
  51.     Wait (ArrayInput(IntSegment - 1, IntPosition - 1) = On), IntTimeout '"On" should be displayed like in line 41
  52.     Wait (IO[Input] = On), IntTimeout '"IO" should be detected
  53.  
  54.     If (IntTest = False) Then
  55.         IntReturn = True
  56.     Else
  57.         IntReturn = False
  58.     End If
  59.  
  60.     If (TestFunction() = False) Then '"False" should be displayed as keyword
  61.         IntReturn = True
  62.     Else
  63.         IntReturn = False
  64.     End If
  65.  
  66.     If (IntTest = False) Then
  67.         IntReturn = True
  68.     Else
  69.         IntReturn = False
  70.     End If
  71.  
  72.     SngInternal = 42.123
  73.  
  74. End Sub
RAW Paste Data
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
 
Top