怎样将整型转换成s5time
如果想通过上位或触摸屏对PLC中S5TIME类型的参数进行设定,有如下方法:1、从上位机写整型数INT或实数REAL到PLC,首先该数值需包含以毫秒为单位的时间值,在写入PLC的数据存储区后,利用ITD(Integer to Double Integer)或RND(Real to Double Integer with Rounding Off)将该值转换为双整形,然后将该值写到类型为TIME的变量里,在程序中调用FC40,将TIME转换成S5TIME即可。
2、从上位机写WORD到PLC,首先该数值需包含以某时基为单位的时间值,在写入PLC的数据存储区后,用Word Logic下的WOR_W指令将该值与其时基相或,再利用MOVE指令将得到的数值写入S5TIME类型的变量中。
3、如果使用WinCC作为上位软件,或上位软件支持32位带符号浮点数,可以从上位写32位带符号浮点数到PLC中定义为TIME的变量,然后在程序中调用FC40,将TIME转换成S5TIME即可。
例程参见 。
4 S5TIME和TIME的转换FC33用于S5TIME到TIME的转换。
FC40用于TIME到S5TIME的转换。
这两个块位于Libraries\Standard Library\IEC Function Blocks路径下。
...
Word快捷键大全
常用快捷键快捷键 作用Ctrl+Shift+Spacebar 创建不间断空格Ctrl+ -(连字符) 创建不间断连字符Ctrl+B 使字符变为粗体Ctrl+I 使字符变为斜体Ctrl+U 为字符添加下划线Ctrl+Shift+ 缩小字号Ctrl+Shift+> 增大字号Ctrl+Q 删除段落格式Ctrl+Spacebar 删除字符格式Ctrl+C 复制所选文本或对象Ctrl+X 剪切所选文本或对象Ctrl+V 粘贴文本或对象Ctrl+Z 撤消上一操作Ctrl+Y 重复上一操作快捷键大全1.用于设置字符格式和段落格式的快捷键快捷键 作用Ctrl+Shift+F 改变字体Ctrl+Shift+P 改变字号Ctrl+Shift+> 增大字号Ctrl+Shift+< 减小字号Ctrl+] 逐磅增大字号Ctrl+[ 逐磅减小字号Ctrl+D 改变字符格式("格式"菜单中的"字体"命令)Shift+F3 切换字母大小写Ctrl+Shift+A 将所选字母设为大写Ctrl+B 应用加粗格式Ctrl+U 应用下划线格式Ctrl+Shift+W 只给字、词加下划线,不给空格加下划线Ctrl+Shift+H 应用隐藏文字格式Ctrl+I 应用倾斜格式Ctrl+Shift+K 将字母变为小型大写字母Ctrl+=(等号) 应用下标格式(自动间距)Ctrl+Shift++(加号) 应用上标格式(自动间距)Ctrl+Shift+Z 取消人工设置的字符格式Ctrl+Shift+Q 将所选部分设为Symbol字体Ctrl+Shift+*(星号) 显示非打印字符Shift+F1(单击) 需查看文字格式了解其格式的文字Ctrl+Shift+C 复制格式Ctrl+Shift+V 粘贴格式Ctrl+1 单倍行距Ctrl+2 双倍行距Ctrl+5 1.5 倍行距Ctrl+0 在段前添加一行间距Ctrl+E 段落居中Ctrl+J 两端对齐Ctrl+L 左对齐Ctrl+R 右对齐Ctrl+Shift+D 分散对齐Ctrl+M 左侧段落缩进Ctrl+Shift+M 取消左侧段落缩进Ctrl+T 创建悬挂缩进Ctrl+Shift+T 减小悬挂缩进量Ctrl+Q 取消段落格式Ctrl+Shift+S 应用样式Alt+Ctrl+K 启动"自动套用格式"Ctrl+Shift+N 应用"正文"样式Alt+Ctrl+1 应用"标题1"样式Alt+Ctrl+2 应用"标题2"样式Alt+Ctrl+3 应用"标题3"样式Ctrl+Shift+L 应用"列表"样式 2.用于编辑和移动文字及图形的快捷键◆删除文字和图形快捷键 作用Backspace 删除左侧的一个字符Ctrl+Backspace 删除左侧的一个单词Delete 删除右侧的一个字符Ctrl+Delete 删除右侧的一个单词Ctrl+X 将所选文字剪切到"剪贴板"Ctrl+Z 撤消上一步操作Ctrl+F3 剪切至"图文场"◆复制和移动文字及图形快捷键 作用Ctrl+C 复制文字或图形F2(然后移动插入 移动选取的文字或图形点并按Enter键)Alt+F3 创建"自动图文集"词条Ctrl+V 粘贴"剪贴板"的内容Ctrl+Shift+F3 粘贴"图文场"的内容Alt+Shift+R 复制文档中上一节所使用的页眉或页脚◆插入特殊字符快捷键 插入Ctrl+F9 域Shift+Enter 换行符Ctrl+Enter 分页符Ctrl+Shift+Enter 列分隔符Ctrl+ - 可选连字符Ctrl+Shift+ - 不间断连字符Ctrl+Shift+空格 不间断空格Alt+Ctrl+C 版权符号Alt+Ctrl+R 注册商标符号Alt+Ctrl+T 商标符号Alt+Ctrl+.(句点) 省略号◆选定文字和图形选定文本的方法是:按住 Shift 键并按能够移动插入点的键。
快捷键 将选定范围扩展至Shift+→ 右侧的一个字符Shift+← 左侧的一个字符Ctrl+Shift+→ 单词结尾Ctrl+Shift+← 单词开始Shift+End 行尾Shift+Home 行首Shift+↓ 下一行Shift+↑ 上一行Ctrl+Shift+↓ 段尾Ctrl+Shift+↑ 段首Shift+Page Down 下一屏Shift+Page Up 上一屏Ctrl+Shift+Home 文档开始处Ctrl+Shift+End 文档结尾处Alt+Ctrl+Shift+Page Down 窗口结尾Ctrl+A 包含整篇文档Ctrl+Shift+F8+↑或↓ 纵向文本块(按 Esc 键取消选定模式)F8+箭头键 文档中的某个具体位置(按Esc键取消选定模式)◆选定表格中的文字和图形快捷键 作用Tab键 选定下一单元格的内容Shift+Tab 选定上一单元格的内容按住Shift键并重复 按某箭头键将所选内容扩展到相邻单元格Ctrl+Shift+F8然后按箭头键 扩展所选内容(或块)Shift+F8 缩小所选内容Alt+数字键盘上的5 选定整张表格(Num Lock键需处于关闭状态)◆移动插入点◆移动插入点快捷键 作用← 左移一个字符→ 右移一个字符Ctrl+← 左移一个单词Ctrl+→ 右移一个单词Ctrl+↑ 上移一段Ctrl+↓ 下移一段Shift+Tab 左移一个单元格(在表格中)Tab 右移一个单元格(在表格中)↑ 上移一行↓ 下移一行End 移至行尾Home 移至行首Alt+Ctrl+Page Up 移至窗口顶端Alt+Ctrl+Page Down 移至窗口结尾Page Up 上移一屏(滚动)Page Down 下移一屏(滚动)Ctrl+Page Down 移至下页顶端Ctrl+Page Up 移至上页顶端Ctrl+End 移至文档结尾Ctrl+Home 移至文档开头Shift+F5 移至前一处修订;对于刚打开的文档,移至上一次关闭文档时 插入点所在位置◆在表格中移动快捷键 光标移至Tab 一行中的下一个单元格Shift+Tab 一行中的上一个单元格Alt+Home ...
为什么用word的时候双引号自动变times new roman字体
在VB6.0中,操作word,使用它强大的查找、替换、删除、复制、翦切功能。
还可以把特定字符替换成图片。
有了它你就可以使用数据库中的内容或图片文件替换word文件中的特定字符。
只要把下列内容复制到写字板中,另存为SetWord.cls文件,然后在把它添加到工程中,就可以使用了。
VERSION 1.0 CLASS BEGIN MultiUse = -1 'True Persistable = 0 'NotPersistable DataBindingBehavior = 0 'vbNone DataSourceBehavior = 0 'vbNone MTSTransactionMode = 0 'NotAnMTSObject END Attribute VB_Name = "SetWord" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = False Attribute VB_Exposed = False Private mywdapp As Word.Application Private mysel As Object'属性值的模块变量 Private C_TemplateDoc As String Private C_newDoc As String Private C_PicFile As String Private C_ErrMsg As Integer Public Event HaveError() Attribute HaveError.VB_Description = "出错时激发此事件.出错代码为ErrMsg属性"'***************************************************************'ErrMsg代码:1-word没有安装 2 - 缺少参数 3 - 没权限写文件' 4 - 文件不存在''*************************************************************** Public Function ReplacePic(FindStr As String, Optional Time As Integer = 0) As Integer Attribute ReplacePic.VB_Description = "查找FindStr,并替换为PicFile所指向的图片文件,替换次数由time参数确定,为0时,替换所有"'********************************************************************************' 从Word.Range对象mysel中查找所有FindStr,并替换为PicFile图像' 替换次数由time参数确定,为0时,替换所有'******************************************************************************** If Len(C_PicFile) = 0 Then C_ErrMsg = 2 Exit Function End If Dim i As Integer Dim findtxt As Boolean mysel.Find.ClearFormatting mysel.Find.Replacement.ClearFormatting With mysel.Find.Text = FindStr.Replacement.Text = "".Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = False End With mysel.HomeKey Unit:=wdStory findtxt = mysel.Find.Execute(Replace:=True) If Not findtxt Then ReplacePic = 0 Exit Function End If i = 1 Do While findtxt mysel.InlineShapes.AddPicture FileName:=C_PicFile If i = Time Then Exit Do i = i + 1 mysel.HomeKey Unit:=wdStory findtxt = mysel.Find.Execute(Replace:=True) Loop ReplacePic = i End Function Public Function FindThis(FindStr As String) As Boolean Attribute FindThis.VB_Description = "查找FindStr,如果模板中有FindStr则返回True" If Len(FindStr) = 0 Then C_ErrMsg = 2 Exit Function End If mysel.Find.ClearFormatting mysel.Find.Replacement.ClearFormatting With mysel.Find.Text = FindStr.Replacement.Text = "".Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = False End With mysel.HomeKey Unit:=wdStory FindThis = mysel.Find.Execute End Function Public Function ReplaceChar(FindStr As String, RepStr As String, Optional Time As Integer = 0) As Integer Attribute ReplaceChar.VB_Description = "查找FindStr,并替换为RepStr,替换次数由time参数确定,为0时,替换所有"'********************************************************************************' 从Word.Range对象mysel中查找FindStr,并替换为RepStr' 替换次数由time参数确定,为0时,替换所有'******************************************************************************** Dim findtxt As Boolean If Len(FindStr) = 0 Then C_ErrMsg = 2 RaiseEvent HaveError Exit Function End If mysel.Find.ClearFormatting mysel.Find.Replacement.ClearFormatting With mysel.Find.Text = FindStr.Replacement.Text = RepStr.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = False End With If Time > 0 Then For i = 1 To Time mysel.HomeKey Unit:=wdStory findtxt = mysel.Find.Execute(Replace:=wdReplaceOne) If Not findtxt Then Exit For Next If i = 1 And Not findtxt Then ReplaceChar = 0 Else ReplaceChar = i End If Else mysel.Find.Execute Replace:=wdReplaceAll End If End Function Public Function GetPic(PicData() As Byte, FileName As String) As Boolean Attribute GetPic.VB_Description = "把图像数据PicData,存为PicFile指定的文件"'********************************************************************************' 把图像数据PicData,存为PicFile指定的文件'*********************************************...
转载请注明出处51数据库 » time怎么转换成word