拼写语言，爱普生产品 [英] Spel language , Epson Products

查看：124
本文介绍了拼写语言，爱普生产品的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！

问题描述

我无法构建??
你能帮我吗

I can''t build ??
can you help me

Function main 
'Controller #3 Communications 
'Address 192.168.0.13 

'Local Variables 
Integer i                                        'Used for sending test data 

'Initialization 
'Clear Flags 
' 
MemOff TCPIP_1_DR 
MemOff TCPIP_1_DTS 
MemOff TCPIP_1_HOLD 
MemOff TCPIP_2_DR 
MemOff TCPIP_2_DTS 
MemOff TCPIP_2_HOLD 

' 
'Set Up Ethernet Ports 
SetNet #203, "192.168.0.11", 2002, CRLF, NONE, 0        ' Controller #1 RC620 Controller 
SetNet #202, "192.168.0.12", 2003, CRLF, NONE, 0        ' Controller #2 RC180 Controller 
' 

Wait 1                                                                        'Wait to ensure that ports are configured 

Xqt tcpip_Controller_No1, NoEmgAbort        'Start Communication Task for Controller #1 
Xqt tcpip_Controller_No2, NoEmgAbort        'Start Communication Task for Controller #2 
Xqt EStop_Handler, NoEmgAbort                        'Start E-Stop Handler Task for this Controller 


' 
'Communications Test Loop 
Do While True 
For i = -1100 To 1000 
' 
' Communications with Controller #1 
' 
' If Data is Ready, Process It and Clear Data Ready Flag 
If MemSw(TCPIP_1_DR) Then 
      Print " Data from RC620 No 1 ", m_TCPIP_RDAT_1 
      MemOff TCPIP_1_DR 
EndIf 
' Wait Until the Data To Send flag is Clear before sending new data 
If(MemSw(TCPIP_1_DTS) = 0) Then 
      m_TCPIP_SDAT_1 = i 
      MemOn TCPIP_1_DTS 
EndIf 
' 
' 
' Communications with Controller #2 
' 
' If Data is Ready, Process It and Clear Data Ready Flag 
If MemSw(TCPIP_2_DR) Then 
      Print " Data from RC620 No 2 ", m_TCPIP_RDAT_2 
      MemOff TCPIP_2_DR 
EndIf 
' Wait Until the Data To Send flag is Clear before sending new data 
If(MemSw(TCPIP_2_DTS) = 0) Then 
      m_TCPIP_SDAT_2 = i 
      MemOn TCPIP_2_DTS 
EndIf 
' 
' 
Wait 1 

Next 
Loop 

Fend 
' 
' Communication Task for Communication with Controller #1. 
' 
Function tcpip_Controller_No1 
OnErr GoTo errhndler 
OpenNet #203 As Client 
WaitNet #203 
Integer i 
String Reply$ 

Reply$ = "Hello" 

Do While True 
      ' If the Data To Send Flag is Set, Send the Data and Clear the Flag 
      If MemSw(TCPIP_1_DTS) Then 
              Print #203, m_TCPIP_SDAT_1 
              Wait .1 
              MemOff TCPIP_1_DTS 
      EndIf 
      ' 
      ' If the Data Ready Flag Is Clear, Check for New Data and Read it. 
      If MemSw(TCPIP_1_DR) = 0 Then 
              If ChkNet(203) > 0 Then 
                      Wait .1 
                      Input #203, m_TCPIP_RDAT_1 
                      Select m_TCPIP_RDAT_1 
                              Case 911 
                                      Call R_911_Controller_1 
                              Case 101 
                                      ' 
                                      ' Do What Ever 
                              Default 
                                      'Print "No Valid Data" 
                      Send 
                      MemOn TCPIP_1_DR 
              EndIf 
        EndIf 
      Wait .1 
Loop 

errhndler: 
If Err = 2902 Then 
Print " Controller #1 disconnected " 
CloseNet #203 
Wait 2 
OpenNet #203 As Client 
WaitNet #203 
EResume Next 

EndIf 

Fend 
' 
' Communication Task for Communication with Controller #2. 
' 
Function tcpip_Controller_No2 
OnErr GoTo errhndler 
OpenNet #202 As Client 
WaitNet #202 

Do While True 
      ' If the Data To Send Flag is Set, Send the Data and Clear the Flag 
      If MemSw(TCPIP_2_DTS) Then 
              Print #202, m_TCPIP_SDAT_2 
              Wait .1 
              MemOff TCPIP_2_DTS 
      EndIf 
      ' 
      ' If the Data Ready Flag Is Clear, Check for New Data and Read it. 
      If MemSw(TCPIP_2_DR) = 0 Then 
              If ChkNet(202) > 0 Then 
                      Wait .1 
                      Input #202, m_TCPIP_RDAT_2 
                      Select m_TCPIP_RDAT_2 
                              Case 911 
                                      Call R_911_Controller_2 
                              Case 912 
                                      Call R_912_Controller_2 
                              Case 101 
                                      ' 
                                      ' Do What Ever 
                              Default 
                                      'Print "No Valid Data" 
                      Send 
                      MemOn TCPIP_2_DR 
              EndIf 
        EndIf 
      Wait .1 
Loop 
errhndler: 
If Err = 2902 Then 
      Print " Controller #2 DISCONNECTED Will Re Connect in 2 seconds " 
      CloseNet #202 
      Wait 2 
      OpenNet #202 As Client 
      WaitNet #202 
      EResume Next 
EndIf 
Fend 
Function EStop_Handler 
Wait EStopOn = True 
Quit main 
m_TCPIP_SDAT_1 = 911 
MemOn TCPIP_1_DTS 
m_TCPIP_SDAT_2 = 911 
MemOn TCPIP_2_DTS 

Wait 1 
Quit All 
Fend 

Function R_911_Controller_1 
MemOff TCPIP_1_DTS 
MemOn TCPIP_1_HOLD 
'Wait 1 
CloseNet #203 
Print "E-Stop Controller RC620 No 1 ", m_TCPIP_RDAT_1 
Wait 5 
OpenNet #203 As Client 
WaitNet #203 
Wait 1 
MemOff TCPIP_1_HOLD 
Fend 
Function R_911_Controller_2 
MemOff TCPIP_2_DTS 

Wait 1 
CloseNet #202 
Print "E-Stop Controller RC620 No 2 ", m_TCPIP_RDAT_2 
Wait 5 
OpenNet #202 As Client 
WaitNet #202 
Wait 1 

Fend 
Function R_912_Controller_2 
MemOff TCPIP_2_DTS 

Wait 1 
CloseNet #202 
Print "SafeGuard Received form Controller #2", m_TCPIP_RDAT_2 
Wait 2 
OpenNet #202 As Client 
WaitNet #202 
Wait 1 

Fend

推荐答案

回复


= " 你好" 执行 同时 真实 ' 如果已设置要发送的数据标志，请发送数据并清除标志 如果 MemSw(TCPIP_1_DTS)然后 打印#203，m_TCPIP_SDAT_1 等待. 1 MemOff TCPIP_1_DTS EndIf ' ' 如果清除了数据就绪标志，请检查并读取新数据. 如果 MemSw(TCPIP_1_DR)= 0 >然后 如果 ChkNet( 203 )> 0 然后 等待. 1 输入#203，m_TCPIP_RDAT_1 选择 m_TCPIP_RDAT_1 案例 911 致电 R_911_Controller_1 案例 101 ' ' 做任何事情 默认 ' 打印无有效数据" 发送 内存TCPIP_1_DR EndIf EndIf 等待. 1 循环 发狂的人: 如果 Err = 2902 然后 打印" CloseNet#203 等待 2 OpenNet#203 As 客户端 WaitNet#203 EResume 下一步 EndIf 防卫 ' ' 与控制器#2进行通信的通信任务. ' 功能 tcpip_Controller_No2 OnErr 转到 OpenNet#202 As 客户端 WaitNet#202 执行 同时 真实 ' 如果已设置要发送的数据标志，请发送数据并清除标志 如果 MemSw(TCPIP_2_DTS)然后 打印#202，m_TCPIP_SDAT_2 等待. 1 MemOff TCPIP_2_DTS EndIf ' ' 如果清除了数据就绪标志，请检查并读取新数据. 如果 MemSw(TCPIP_2_DR)= 0 >然后 如果 ChkNet( 202 )> 0 然后 等待. 1 输入#202，m_TCPIP_RDAT_2 选择 m_TCPIP_RDAT_2 案例 911 致电 R_911_Controller_2 案例 912 致电 R_912_Controller_2 案例 101 ' ' 做任何事情 默认 ' 打印无有效数据" 发送 内存TCPIP_2_DR EndIf EndIf 等待. 1 循环 发狂的人: 如果 Err = 2902 然后 打印" CloseNet#202 等待 2 OpenNet#202 As 客户端 WaitNet#202 EResume 下一步 EndIf 防卫 功能 EStop_Handler 等待EStopOn = 真 退出主要 m_TCPIP_SDAT_1 = 911 内存TCPIP_1_DTS m_TCPIP_SDAT_2 = 911 内存TCPIP_2_DTS 等待 1 全部退出 防卫 功能 R_911_Controller_1 MemOff TCPIP_1_DTS 内存TCPIP_1_HOLD ' 等待1 CloseNet#203 打印" ，m_TCPIP_RDAT_1 等待 5 OpenNet#203 As 客户端 WaitNet#203 等待 1 MemOff TCPIP_1_HOLD 防卫 功能 R_911_Controller_2 MemOff TCPIP_2_DTS 等待 1 CloseNet#202 打印" ，m_TCPIP_RDAT_2 等待 5 OpenNet#202 As 客户端 WaitNet#202 等待 1 防卫 功能 R_912_Controller_2 MemOff TCPIP_2_DTS 等待 1 CloseNet#202 打印" ，m_TCPIP_RDAT_2 等待 2 OpenNet#202 As 客户端 WaitNet#202 等待 1 防御
= "Hello" Do While True ' If the Data To Send Flag is Set, Send the Data and Clear the Flag If MemSw(TCPIP_1_DTS) Then Print #203, m_TCPIP_SDAT_1 Wait .1 MemOff TCPIP_1_DTS EndIf ' ' If the Data Ready Flag Is Clear, Check for New Data and Read it. If MemSw(TCPIP_1_DR) = 0 Then If ChkNet(203) > 0 Then Wait .1 Input #203, m_TCPIP_RDAT_1 Select m_TCPIP_RDAT_1 Case 911 Call R_911_Controller_1 Case 101 ' ' Do What Ever Default 'Print "No Valid Data" Send MemOn TCPIP_1_DR EndIf EndIf Wait .1 Loop errhndler: If Err = 2902 Then Print " Controller #1 disconnected " CloseNet #203 Wait 2 OpenNet #203 As Client WaitNet #203 EResume Next EndIf Fend ' ' Communication Task for Communication with Controller #2. ' Function tcpip_Controller_No2 OnErr GoTo errhndler OpenNet #202 As Client WaitNet #202 Do While True ' If the Data To Send Flag is Set, Send the Data and Clear the Flag If MemSw(TCPIP_2_DTS) Then Print #202, m_TCPIP_SDAT_2 Wait .1 MemOff TCPIP_2_DTS EndIf ' ' If the Data Ready Flag Is Clear, Check for New Data and Read it. If MemSw(TCPIP_2_DR) = 0 Then If ChkNet(202) > 0 Then Wait .1 Input #202, m_TCPIP_RDAT_2 Select m_TCPIP_RDAT_2 Case 911 Call R_911_Controller_2 Case 912 Call R_912_Controller_2 Case 101 ' ' Do What Ever Default 'Print "No Valid Data" Send MemOn TCPIP_2_DR EndIf EndIf Wait .1 Loop errhndler: If Err = 2902 Then Print " Controller #2 DISCONNECTED Will Re Connect in 2 seconds " CloseNet #202 Wait 2 OpenNet #202 As Client WaitNet #202 EResume Next EndIf Fend Function EStop_Handler Wait EStopOn = True Quit main m_TCPIP_SDAT_1 = 911 MemOn TCPIP_1_DTS m_TCPIP_SDAT_2 = 911 MemOn TCPIP_2_DTS Wait 1 Quit All Fend Function R_911_Controller_1 MemOff TCPIP_1_DTS MemOn TCPIP_1_HOLD 'Wait 1 CloseNet #203 Print "E-Stop Controller RC620 No 1 ", m_TCPIP_RDAT_1 Wait 5 OpenNet #203 As Client WaitNet #203 Wait 1 MemOff TCPIP_1_HOLD Fend Function R_911_Controller_2 MemOff TCPIP_2_DTS Wait 1 CloseNet #202 Print "E-Stop Controller RC620 No 2 ", m_TCPIP_RDAT_2 Wait 5 OpenNet #202 As Client WaitNet #202 Wait 1 Fend Function R_912_Controller_2 MemOff TCPIP_2_DTS Wait 1 CloseNet #202 Print "SafeGuard Received form Controller #2", m_TCPIP_RDAT_2 Wait 2 OpenNet #202 As Client WaitNet #202 Wait 1 Fend


这篇关于拼写语言，爱普生产品的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！

查看全文
相关文章
其他开发语言最新文章
热门教程
热门工具
登录 关闭
扫码关注1秒登录
发送“验证码”获取 | 15天全站免登陆