1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
If TestBegin(tk) Then
Select Case tk.type
Case CToken.EnumTokenType.eCHARACTERISTIC
_Etat = EnumParserSt.ePSCHARACTERISTIC0
Case CToken.EnumTokenType.eAXIS_DESCR
_Etat = EnumParserSt.ePSCHARACTERISTIC1X
Case CToken.EnumTokenType.eAXIS_PTS
_Etat = EnumParserSt.ePSAXIS_PTS
Case CToken.EnumTokenType.eMEASUREMENT
_Etat = EnumParserSt.ePSMEASUREMENT0
Case tk.type = CToken.EnumTokenType.eCOMPU_METHOD
_Etat = EnumParserSt.ePSCOMPU_METHOD0
Case Else
_Etat = EnumParserSt.ePSMODULE1
End Select
End If |