下面到底几个程序段是什么意思
Function AL_GetSkState(SK As Integer) As Integer
On Error GoTo AL_GetSkStateERROR
AL_GetSkState = ALGetSkState(g_tALInfo, SK, g_tSkInfo)
Exit Function
AL_GetSkStateERROR:
VBErrHdl "Alcommon:AL_GetSkState"
Resume Next
End Function
Sub nextstep()
If AL_GetSkState(7) = False Then
Call OEM4.nextsp
Else
Public Sub nextsp()
strplc0 = Label8.Caption
strplc10 = Trim(strplc0)
……
If strplc10 = "0000000000000001" Then
Label8.BackColor = &HFFFFFF
gfbl500 = True
End If
最佳答案
西门子二次界面开发，好像只有810、840的系统才可以，这是典型的VB语言。
Function AL_GetSkState(SK As Integer) As Integer
On Error GoTo AL_GetSkStateERROR -----------（当执行错误时跳转到AL_GetSkStateERROR ）
AL_GetSkState = ALGetSkState(g_tALInfo, SK, g_tSkInfo)
Exit Function---------（退出函数过程,返回调用此函数vali的语句的下一条语句）
AL_GetSkStateERROR:
VBErrHdl "Alcommon:AL_GetSkState"
Resume Next
End Function--------（结束函数）
Sub nextstep()
If AL_GetSkState(7) = False Then
Call OEM4.nextsp
Else----------（不满足选择）
Public Sub nextsp()
strplc0 = Label8.Caption
strplc10 = Trim(strplc0)
……
If strplc10 = "0000000000000001" Then
Label8.BackColor = &HFFFFFF
gfbl500 = True
End If -------(有条件结束）
具体情况要看程序的前后使用环境。
提问者对于答案的评价：
额，你说的都不在点上，简单的语句都会呀。
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc215946.html
微信扫一扫 
支付宝扫一扫 