Bartender EAN-128算法VB脚本实现
Bartender模板 (EAN-128 算法可以通过设置自动实现,该算法对应的VB脚本实现如下代码所示)
规则如下:
脚本逻辑如下:
Dim i
dim z
str = StrReverse(Format.NamedSubStrings("SSCC").Value)
For i = 1 To Len(str) Step 2j = CInt(j) + CInt(Mid(str, i, 1))
NextFor i = 2 To Len(str) Step 2q = CInt(q) + CInt(Mid(str, i, 1))
Next
s=j*3+q
if s Mod 10 <>0 then
z =10- s Mod 10
else
z=0
end if
value=Format.NamedSubStrings("SSCC").Value&z
Bartender EAN-128算法VB脚本实现相关推荐
- 在html中如何加入vb脚本,VB脚本编辑器该进详解
最新BarTender 2016拥有全新的集成构建器,管理控制台等,RFID编码支持也有了进一步的性能突破,数据输入表单和数据库连接在原有的基础上做了更人性化的改进,而且对于一些技术控来说,VB脚本可 ...
- TIA博途WINCC的触摸屏VB脚本入门学习(IF THEN ELSE判断语句)
TIA博途WINCC的触摸屏VB脚本入门学习(IF THEN ELSE判断语句) 首先,建立一个项目,并添加一个HMI,入下图所示,新建一个HMI变量表,添加2个HMI变量:test1和test2,数 ...
- 博图15.0的wincc流水动画VB脚本
一.TIA15管道流水动画(水平管道) 首先在HMI里定义3个内部变量:方向waterflowdirection(bool).启停waterflowstart(bool)速度waterflowspee ...
- SecureCRT多台服务器快速登录--VB脚本
脚本适用于同时打开20个连接,同时进行操作,配置好IP列表文件,用户名密码,可以一键登录服务器,方法如下: 1.新建两个文件ip.txt和vb.vbs(注意文件名的后缀,可在文件夹–查看,勾选文件拓展 ...
- excel vb脚本
Excel VB脚本是指使用Visual Basic语言在Excel中编写的脚本.通过使用Excel VB脚本,可以在Excel中自动执行重复性的任务,并利用Excel的强大功能来分析和处理数据. E ...
- 如何调试Word宏病毒,以及使用VS调试VB脚本
一般Word被嵌入了带有恶意行为的宏代码(VBA代码),当我们双击打开带有宏病毒的word文档的时候它的宏代码会自动运行.或者有的word默认是禁止宏运行,会弹出一个提示,是否允许运行携带的宏代码. ...
- 使用vb脚本实现QQ空间相册好友查验功能
使用vb脚本实现QQ空间相册好友查验功能 1.思路 a.需要创建一个变量(执行方法) b.需要使用输入框方法,用来接受用户输入的内容 c.给予用户输入的内容进行判断 d.当判断结果为true时,弹出一 ...
- TIA博途WINCC的触摸屏VB脚本入门学习(IF THEN判断语句)
TIA博途WINCC的触摸屏VB脚本入门学习(IF THEN判断语句) 首先,建立一个项目,并添加一个HMI,入下图所示,新建一个HMI变量表,添加2个HMI变量:test1和test2,数据类型为: ...
- TIA博途WINCC的触摸屏VB脚本入门(IF THEN ELSEIF 判断语句)
TIA博途WINCC的触摸屏VB脚本入门(IF THEN ELSEIF 判断语句) 首先,建立一个项目,并添加一个HMI,入下图所示,新建一个HMI变量表,添加2个HMI变量:test1和test2, ...
最新文章
- (转)基于MVC4+EasyUI的Web开发框架形成之旅--界面控件的使用
- keepalived介绍和配置
- 1.java注释的类型_HappyBKs教你写Java注解(1)——注解的分类、运行机制、作用域及概念汇总...
- poj3050【dfs】
- oracle12c 新建表空间
- Netty 和 RPC 框架线程模型分析
- 计算机服务业纳税,2018年全国软件和信息技术服务业增值税、消费税、营业税等各税收收入情况(附各地区)...
- Tomcat源码解析五:Tomcat请求处理过程
- 对discuz的代码分析学习(三)mysql驱动
- 设计模式(1):简单工厂模式(Simple Factory Pattern)
- zabbix4监控mysql_Zabbix4监控Mysql5.7
- 重磅! flutter视图局部更新
- 做一个软件工程师是什么感觉,工作过程中是否觉得开心?
- P3032 [USACO11NOV]二进制数独Binary Sudoku
- 在线使用matlab,MATLAB在线版本使用介绍
- angular Meterial错误 Did you add it to @NgModule.entryComponents
- vue项目 pc端自适配方案
- 打开计算机桌面不显示不出来怎么办,电脑桌面黑屏不显示任何东西
- 好消息!Android 模拟器可以运行 ARM 应用了
- mb860 刷机教程