【写入错误代码】

最新推荐文章于 2024-07-12 18:10:32 发布
最新推荐文章于 2024-07-12 18:10:32 发布
阅读量150 收藏
点赞数 3
文章标签： 自动化
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_44456861/article/details/136099610
版权 

REGION 写入错误代码
    IF #codeWrite <> w#16#0 THEN // 如果写入的错误代码不为零
        #tempInt := #LAST_RECORD; // 从最后一条记录开始
        REPEAT // 重复执行以下步骤
            #statData.data[#tempInt].ts := #statData.data[#tempInt - 1].ts; // 将上一条记录的时间戳复制到当前记录
            #statData.data[#tempInt].code := #statData.data[#tempInt - 1].code; // 将上一条记录的错误代码复制到当前记录
            #tempInt := #tempInt - 1; // 减小索引以继续向前移动
            IF #tempInt <= 0 THEN // 如果索引小于或等于零
                EXIT; // 退出循环
            END_IF;
        UNTIL FALSE // 直到条件为假时一直重复
        END_REPEAT; // 结束重复循环
        
        #tempInt := RD_LOC_T(#tempDTL); // 读取当前的时间戳
        #statData.data[0].ts := #tempDTL; // 将当前时间戳写入第一条记录
        #statData.data[0].code := #codeWrite; // 将写入的错误代码写入第一条记录
    END_IF; // 结束条件语句
END_REGION // 结束代码区域


Sub Screenhandling(ByVal prefix, ByVal screenName)
'prefix = prefix for the popup (normally the instance name)
'callItemObjectName = the name of the symbol which opened the  pop up (it's relevant for defining the position of the new popup) 
'					or in case of an extended faceplate the name of the screen window with the parent screen
'screenName = The screenname of the screen which shall be shown
'mainScreen = The screen in which all the screenwindows for the popups are.
'Param-Area----------------------------------------------------------------------------------------------------
'Define the coordinations (x, y) of the plant screen in the Main screen
Dim offsetLeftOptional, offsetTopOptional
offsetLeftOptional = 0 
offsetTopOptional = 120
'--------------------------------------------------------------------------------------------------------------
Dim mainScreen, mainScreenName
mainScreenName = HMIRuntime.BaseScreenName
Set mainScreen = HMIRuntime.Screens(mainScreenName)
Dim counter, counter2, counter3, freeScreen, screenOpened, limitFPs
'LBP_LimitFaceplates起始值是16
limitFPs = SmartTags("@NOTP::LBP_LimitFaceplates").Value

'Introduction of all static Variables which are needed in the program
'引入程序中需要的所有静态变量
If HMIRuntime.DataSet(mainScreenName & "pointer") Is Nothing Then
	'General settings of screenmanagement
'	屏幕管理常规设置
	If HMIRuntime.DataSet("settingCloseIfLimitFPsReached") Is Nothing Then
		HMIRuntime.DataSet.Add "settingCloseIfLimitFPsReached",1
	End If
	If HMIRuntime.DataSet("settingMultibleFPsOfSame") Is Nothing Then
		HMIRuntime.DataSet.Add "settingMultibleFPsOfSame",1
	End If
	If HMIRuntime.DataSet("settingLimitFPPositionInsideProcessArea") Is Nothing Then
		HMIRuntime.DataSet.Add "settingLimitFPPositionInsideProcessArea",1
	End If
	If HMIRuntime.DataSet(mainScreenName & "openedFPs") Is Nothing Then
		HMIRuntime.DataSet.Add mainScreenName & "openedFPs",0
	End If
	
	HMIRuntime.DataSet.Add mainScreenName & "pointer",1
	For counter = 1 To limitFPs
		'the array is for saving the opening order
'		该数组用于保存开盘订单
		HMIRuntime.DataSet.Add mainScreenName & "array_" & counter & "_screen",0 'Screennumber
	Next
End If
'Check witch screens are closed and clear the order in the array
'检查屏幕是否关闭并清除数组中的顺序
Dim highFor, arrayField1, arrayField2, newEmptyField, openedFPs
openedFPs = 0
For counter = 1 To limitFPs
	If (mainScreen.ScreenItems("swLBPScreen_" & counter).Visible = False)Then 'Check if there are new not visible windows　检查是否有新的不可见窗口
		For counter2 = 1 To limitFPs
			'Check if the number of the not visible window is still saved in the databuffer as a screen or a parentscreen. Parentscreen is only importent if settings say that if a screen was closed the extended window shall close automatic
'检查不可见窗口的编号是否仍作为屏幕或父屏幕保存在数据缓冲区中。 仅当设置表明如果屏幕关闭扩展窗口应自动关闭"swMain"时，父屏幕才重要			
			If (HMIRuntime.DataSet(mainScreenName & "array_" & counter2 & "_screen").Value = counter) Then
				
				'Stuct the databuffer new so that the pointer points on a closed window and all the other closed windows are saved in the fields behind.
'				构造databuffer new，使指针指向一个关闭的窗口，所有其他关闭的窗口都保存在后面的字段中。"swMain"
				newEmptyField = counter2
				If HMIRuntime.DataSet(mainScreenName & "pointer").Value > newEmptyField Then 
					highFor = (limitFPs - HMIRuntime.DataSet(mainScreenName & "pointer").Value) + newEmptyField		
				ElseIf HMIRuntime.DataSet(mainScreenName & "pointer").Value < newEmptyField Then				
					highFor = newEmptyField - HMIRuntime.DataSet(mainScreenName & "pointer").Value					
				End If 
				
				If (HMIRuntime.DataSet(mainScreenName & "pointer").Value <> newEmptyField) Then
					For counter3 = 1 To highFor
						arrayField1 = (newEmptyField - counter3) + 1
						If arrayField1 < 1 Then
							arrayField1 = limitFPs + arrayField1
						End If							
						arrayField2 = newEmptyField - counter3
						If arrayField2 < 1 Then
							arrayField2 = limitFPs + arrayField2
						End If	
						HMIRuntime.DataSet(mainScreenName & "array_" & arrayField1 & "_screen").Value = HMIRuntime.DataSet(mainScreenName & "array_" & arrayField2 & "_screen").Value
					Next
				End If 
				
				HMIRuntime.DataSet(mainScreenName & "array_" & HMIRuntime.DataSet(mainScreenName & "pointer").Value & "_screen").Value = 0	
			End If 			
		Next
	ElseIf (mainScreen.ScreenItems("swLBPScreen_" & counter).Visible = True)Then
		openedFPs = openedFPs + 1		
	End If
Next
HMIRuntime.DataSet(mainScreenName & "openedFPs").Value = openedFPs

'if the function was only called to close the Msg window of a window which was closed stop here
'如果名称为空则退出
If (screenName = "") Then
	Exit Sub
End If

'Check if there are free/closed screens检查是否有空闲/关闭的屏幕
freeScreen = 0
screenOpened = False
For counter = 1 To limitFPs
	If (mainScreen.ScreenItems("swLBPScreen_" & counter).Visible = False)Then
		freeScreen = counter	
	ElseIf (mainScreen.ScreenItems("swLBPScreen_" & counter).TagPrefix = prefix) And (mainScreen.ScreenItems("swLBPScreen_" & counter).ScreenName = screenName) Then
		'If in the settings is configured that it is not possible to open several windows with the same content the variabele screenOpened is set
'		如果在设置中配置了无法打开具有相同内容的多个窗口，则设置了可变 screenOpened
		If HMIRuntime.DataSet("settingMultibleFPsOfSame").Value = 1 Then
			screenOpened = True
			Exit For
		End If 
		
		HMIRuntime.Trace "Screen already opened in Screen number " & counter & vbNewLine
	End If
Next

'Get the parent screen number out of the object name
'从对象名中获取父屏号
Dim callItemLeft, callItemTop, callItem
Dim positionObject
'如果当前焦点对象是HMIFaceplateObject类型或者画面名称是LBP_Config就执行
If ActiveScreenItem.Type = "HMIFaceplateObject" Or screenName = "LBP_Config" Then
'当前焦点对象放置到positionObject变量中
	Set positionObject = ActiveScreenItem
	'如果关联的画面的名字不是mainScreenName的名称就执行顶部 左边的偏移设置
	If Not positionObject.Parent.ObjectName = mainScreenName Then
		callItemLeft = positionObject.Left + offsetLeftOptional
		callItemTop = positionObject.Top + positionObject.Height + offsetTopOptional
	Else
	'关联的画面名字是mainScreenName的名称就
		callItemLeft = positionObject.Left 
		callItemTop = positionObject.Top + positionObject.Height
	End If	
Else
'当前焦点不是HMIFaceplateObject类型或者画面名称是LBP_Config就执行
	Set positionObject = ActiveScreenItem.Parent.Parent
	'父对象的名字是否有swLBPScreen_字符串
	If InStr(positionObject.ObjectName, "swLBPScreen_") > 0 Then
	Else 
		Set positionObject = ActiveScreenItem.Parent.Parent.Parent.Parent	
	End If	
	callItemLeft = positionObject.Left
	callItemTop = positionObject.Top + positionObject.Height
End If

Dim screenWidth, screenHeight
If screenName = "LBP_Alarms" Then
	screenWidth = 910
	screenHeight = 536
Else
	screenWidth = 310
	screenHeight = 536
End If
'if there are free screens open the new one and save the number of the window in the database如果有空闲屏幕，则打开新的屏幕，并将窗口的数量保存在数据库中


If (freeScreen > 0)  And (screenOpened = False) Then
	HMIRuntime.DataSet(mainScreenName & "array_" & HMIRuntime.DataSet(mainScreenName & "pointer").Value & "_screen").Value = freeScreen
	mainScreen.ScreenItems("swLBPScreen_" & freeScreen).TagPrefix = prefix
	mainScreen.ScreenItems("swLBPScreen_" & freeScreen).ScreenName = screenName

	'Defining the position of the new Faceplate定义新面板的位置
	If (callItemLeft + screenWidth > mainScreen.Width) And (HMIRuntime.DataSet("settingLimitFPPositionInsideProcessArea").Value = 1) Then
		mainScreen.ScreenItems("swLBPScreen_" & freeScreen).Left = mainScreen.Width - screenWidth
	Else
		mainScreen.ScreenItems("swLBPScreen_" & freeScreen).Left = callItemLeft
	End If
	If (callItemTop + screenHeight > mainScreen.Height) And (HMIRuntime.DataSet("settingLimitFPPositionInsideProcessArea").Value = 1) Then
		mainScreen.ScreenItems("swLBPScreen_" & freeScreen).Top = mainScreen.Height - screenHeight
	Else	
		mainScreen.ScreenItems("swLBPScreen_" & freeScreen).Top = callItemTop
	End If
	mainScreen.ScreenItems("swLBPScreen_" & freeScreen).Visible = True
	
	HMIRuntime.DataSet(mainScreenName & "pointer").Value = HMIRuntime.DataSet(mainScreenName & "pointer").Value + 1

ElseIf 	(freeScreen = 0)  And (screenOpened = False) Then 'if there are no free screens如果没有空闲的屏幕
	If HMIRuntime.DataSet("settingCloseIfLimitFPsReached").Value = 1 Then 'open the screen in the oldest screen if the settings allow to close the oldest automatic如果设置允许关闭最老的自动屏幕，则打开最老屏幕的屏幕
		Dim helpVar		
		helpVar = HMIRuntime.DataSet(mainScreenName & "array_" & HMIRuntime.DataSet(mainScreenName & "pointer").Value & "_screen").Value

		'Defining the position of the new Faceplate定义新面板的位置
		If (callItemLeft + screenWidth > mainScreen.Width) And (HMIRuntime.DataSet("settingLimitFPPositionInsideProcessArea").Value = 1) Then
			mainScreen.ScreenItems("swLBPScreen_" & helpVar).Left = mainScreen.Width - screenWidth
		Else
			mainScreen.ScreenItems("swLBPScreen_" & helpVar).Left = callItemLeft
		End If
		If (callItemTop + screenHeight > mainScreen.Height) And (HMIRuntime.DataSet("settingLimitFPPositionInsideProcessArea").Value = 1) Then
			mainScreen.ScreenItems("swLBPScreen_" & helpVar).Top = mainScreen.Height - screenHeight
		Else		
			mainScreen.ScreenItems("swLBPScreen_" & helpVar).Top = callItemTop
		End If
		mainScreen.ScreenItems("swLBPScreen_" & helpVar).TagPrefix = prefix
		mainScreen.ScreenItems("swLBPScreen_" & helpVar).ScreenName = screenName
		mainScreen.ScreenItems("swLBPScreen_" & helpVar).Visible = True
		HMIRuntime.DataSet(mainScreenName & "pointer").Value = HMIRuntime.DataSet(mainScreenName & "pointer").Value + 1
	Else
		mainScreen.ScreenItems("swLimit").Visible = True
	End If
		
End If 
If HMIRuntime.DataSet(mainScreenName & "pointer").Value > limitFPs Then
	HMIRuntime.DataSet(mainScreenName & "pointer").Value = 1
End If 

End Sub

weixin_44456861
关注
  • 3
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
Finder Error code -36 “访达” 错误代码-36
wujinhong2008的博客
01-30 2808
导致这个问题的原因是你的iCloud(iCloud和iCloud Drive是不一样的)快满了。 如果你想解决这个问题，有以下三个方法： 1、多买苹果iCloud。(是的，苹果现在太恶心了。但这是最简单的方法。)2、Parallels Desktop 虚拟操作系统是在关闭 iCloud Drive之前将数据复制/移出 iCloud Drive文件夹的最简单方法。 Mac root 用户无法...
MySQL错误代码大全
12-15
MySQL错误代码大全是数据库管理员和开发人员在遇到MySQL运行时问题时的重要参考资源。这些错误代码提供了关于系统在执行操作时遇到的问题的详细信息，帮助定位并解决潜在问题。以下是一些常见错误代码的解释： 1. *...
idea 无法自动编译，写入错误代码没有显示提示
彪锅锅来啦
05-20 2060
原因是打开了省电模式，选择File——>power save model ，去掉勾选的该项就可以了
解决idea 无法自动编译，即写入错误代码没有提示
YYQ_QYY的专栏
07-18 1924
选择File——&gt;power save model ，去掉勾选的该项即可 https://www.oschina.net/question/2341531_230363  
关于【finder不能完成该操作 因为未能读取或写入"文件名"中的某些数据(错误代码-36)】快速解决办法
热门推荐
sinat_34194127的博客
05-09 6万+
如题：finder不能完成该操作 因为未能读取或写入"文件名"中的某些数据(错误代码-36) 我们在Mac上操作NTFS格式的硬盘中的文件，删除过程中由于某些原因为删除完整，直接拔掉硬盘，导致硬盘回收站中文件受一种特殊保护（ps：具体原因未知）。 待下次再使用硬盘时，清空回收站时，有部分文件始终无法删除——尝试过磁盘修复，CleanMyMac等工具均不行。 方法：（暂只会这一种）
关于【finder不能完成该操作 因为未能读取或写入"文件名"中的某些数据(错误代码-36)】快速解决办法----本人备注
xqhrs232的专栏
02-28 1万+
原文地址::https://blog.csdn.net/sinat_34194127/article/details/51357124 //=========================================================================================== 本人备注:: 1&gt;有时把mac o...
Excel数据 写入word代码案例
12-21
7. **错误处理与异常捕获**：在编写代码时，应考虑可能的错误情况，如文件不存在、权限问题等，通过try-except结构进行异常捕获，确保程序的健壮性。 8. **文件操作与保存**：最后，完成数据写入后，使用`document....
SQL Server 错误代码大全
06-06
* 代码 88：网络上发生写入错误 * 代码 89：系统无法在此时启动另一个进程 等等。 这些错误代码涵盖了SQL Server中的大部分错误情况，了解这些错误代码可以帮助开发者和数据库管理员快速地定位和解决问题，提高...
Windows错误代码大全
05-30
22. 0x0058: 网络上发生写入错误。数据无法正确写入网络共享。 23. 0x0059: 系统无法在此时启动另一个进程。系统资源不足，无法创建新进程。 24. 0x0064: 无法创建另一个系统信号灯。系统资源不足以创建新的信号灯。...
AIX错误代码对照表
08-07
在AIX的日常管理和维护过程中，遇到错误代码是常见的情况，这些错误代码通常提供了系统出现问题的具体信息，帮助管理员定位和解决问题。本篇文章将详细解读"AIX错误代码对照表"，并探讨如何理解和利用这些代码来优化...
Selenium Grid- 让自动化分布式执行变得可能
2301_78843735的博客
07-09 1048
Selenium。
Python-PLAXIS自动化建模技术与典型岩土工程案例
最新发布
weixin_58566962的博客
07-12 509
2、盾构隧道地表沉降及其对桩基的影响（1）Plaxis隧道设计器的Python命令流（二维、三维）（2）利用水力条件模拟注浆压力的自动化处理（python命令）（3）重点关注小应变土体硬化模型（python命令）（4）计算完成自动发邮件告知（python命令）1、公路边坡工程稳定性分析的Python全自动实现（1）Python本构模型参数赋值与参数化研究（参数敏感性分析）自动化处理（2）不同水位条件与锚支护条件下的路堑边坡稳定性分析（3）公路边坡开挖与支护的Python全自动实现。
全覆盖与自动化：数据闭环全链路打造高质量数据集
molardata的博客
07-12 595
近年来，数据驱动的应用在智驾领域日趋广泛，在数据驱动的模型中，数据可以通过规模化来不断加固和完善智驾系统，数据可以通过数据采集、数据筛选、数据标注、模型训练、模型检测、形成量产模型的闭环链路进行模型优化。在自动驾驶开发中，海量数据需要从不同的车端，以合适的格式和方式，尽快传到云端，进行高效的存储和数据回放；过去几年的自动驾驶技术开发与迭代更多的以模型驱动为核心，以模型为核心驱动的智驾技术最大的特点在于模型不会随着输入数据的变化而更新迭代，而在以数据为驱动的模型中，数据的改变对模型产生相应的影响。
自动化回复信息工具的开发分享!
v___SJGLXT的博客
07-11 579
自动化回复信息工具通常用于自动检测和响应特定的信息内容，如客服系统的自动回复、社交媒体平台的自动应答等，本项目旨在开发一个能够接收用户输入信息，并根据预设规则进行自动回复的简单工具。
Python-PLAXIS自动化建模技术与典型岩土工程
zkzhzy的博客
07-12 707
Python-PLAXIS自动化建模技术与典型岩土工程
B站大课堂-自动化精品视频（个人存档）
weixin_44112083的博客
07-03 1307
这篇博文深入剖析了工业通信协议的核心，如Modbus、EtherCAT、西门子S7等，以及运动控制的关键技术，为工业自动化领域的专业人士提供了宝贵的学习资源。文章详细介绍了各种协议的特点、优势和应用实例，同时提供了针对不同品牌如西门子、倍福的运动控制教程，以及CodeSys运动控制的实操指南。此外，博文还包括了PLC控制器的操作教程和器件选型建议，旨在帮助工程师和技术人员提升技能，解决实际工作中的挑战。无论是正在寻求深入学习的自动化工程师，还是希望提升实践能力的工业技术爱好者，这篇博文都是不可多得的学习资料
Tg机器人开发：实现自动化图片审核功能
2401_85720680的博客
07-12 164
自动化图片审核：机器人自动分析用户发送的图片，识别不当内容。实时反馈：审核结果实时反馈给用户，确保信息流通的安全性。
构建工具和自动化：Maven、Gradle及CI/CD实践
哎 你看的博客
07-09 1033
在现代软件开发过程中，自动化构建和持续集成/持续部署（CI/CD）是提高开发效率、保证代码质量的重要实践。构建工具如Maven和Gradle，因其强大的依赖管理和自动化构建功能，已成为Java开发中不可或缺的一部分。本文将介绍Maven和Gradle的使用，并分享如何设置CI/CD流程。
自动化升级：Conda包依赖的智能更新策略
2401_85341950的博客
07-09 557
Conda作为流行的包管理器，提供了强大的依赖更新功能，帮助用户自动化和简化依赖项的更新过程。本文将深入探讨如何在Conda中使用包依赖自动更新，包括自动更新的配置、执行和最佳实践。Conda的包依赖自动更新功能是维护项目依赖项最新状态的有效工具。通过本文的详细介绍，你应该能够掌握如何在Conda中配置和执行自动更新，以及如何确保更新过程的安全性和可靠性。本文详细介绍了在Conda中使用包依赖自动更新的方法，包括配置自动更新、使用。在自动更新依赖后，自动化测试是必要的，以确保更新没有破坏项目。
java写入文件代码
07-27
System.out.println("写入文件时发生错误：" + e.getMessage()); } } } ``` 以上代码会将内容写入名为 "example.txt" 的文件中。请注意，如果该文件不存在，代码会自动创建该文件。另外，如果文件已存在，代码会...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值