Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Function TestFunction(ByVal IntInput As Integer) As Integer
- Dim IntCounter1 As Integer = 42
- Dim IntCounter As Integer
- 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
- For IntCounter = 1 To (IntCounter1 + 3) 'the "1" in IntCounter1 should be no number
- If (IntCounter = 13) Then
- Exit For '"For" should be not used as open folding
- End If
- Next IntCounter
- 'comment
- Rem Comment
- Call Remove '"Remove" should be not displayed as comment
- LetZ PosCarrier = PosZ(PosPart)
- SngInternal = (PosZ(PosPart) + PosZ(PosCarrier)) 'first "PosZ" is not detected
- Select Case IntCounter
- Case 1
- Case 13
- Case Else '"Else" should be not used as open folding
- End Select
- If (IntCounter = 42) Then
- Exit Function '"Function" should be not used as open folding
- Else
- IntCounter = 47
- End If
- IntReturn = ShowDebug(12, "show debug1 as test", "two, three")
- TestFunction = IntCounter
- End Function
- Sub TestSub(ByRef IntOutput As Integer)
- Dim SngInternal As Single
- If (IO[IntOutput] = On) Then '"IO" should be shown as in the next line
- Reset IO[IntOutput]
- Else
- Set IO[IntOutput]
- Exit Sub '"Sub" should be not used as open folding
- End If
- Wait (ArrayInput(IntSegment - 1, IntPosition - 1) = On), IntTimeout '"On" should be displayed like in line 41
- Wait (IO[Input] = On), IntTimeout '"IO" should be detected
- If (IntTest = False) Then
- IntReturn = True
- Else
- IntReturn = False
- End If
- If (TestFunction() = False) Then '"False" should be displayed as keyword
- IntReturn = True
- Else
- IntReturn = False
- End If
- If (IntTest = False) Then
- IntReturn = True
- Else
- IntReturn = False
- End If
- SngInternal = 42.123
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement