一、功能描述

在设备导入（功能投入）前期因为MES系统有问题或者MES系统还没有架设完成，但是客户又需要试生产并且需要记录工位数据，这时候如果你的设备触摸屏正好是西门子TP系列触摸屏，就可以利用触摸屏VB功能生产CSV文件记录数据。

二、软件硬件介绍

软件1.TIA Portal V17

2.SIMATIC WinCC Professiona V17

硬件
TP1200触摸屏  17.0.0.0*注意事项
1.此功能不能使用触摸屏Wincc模拟器运行测试，需要有真实的触摸屏

2.由于TP触摸屏基于Windows CE系统， Windows CE系统平台的VBS和Windows其他平台如Windows7/10/11是有区别。

三、变量建立

在触摸屏的变量HMI变量表里，新建两个内部变量分别为var1,var1
具体如下图：

*注意事项

注意使用HMI存储数据则需要使用内部变量，如果需要PLC存储则需要新建PLC变量

四、外置存储U盘插入检测

由于触摸屏存储空间很小，这里我们建议使用外置存储，如U盘、SD卡进行数据存储，这里使用事先准备好的U盘插入到西门子TP1200触摸屏。在西门子TP1200触摸屏初始化的时候，在Wince系统的"我的电脑"中，查看是否识别了U盘的路径 "\Storage Card usb"*注意事项
U盘要求
1.建议使用西门子U盘，普通U盘也是可以的，但建议使用dapinpaizhengpin
3.U盘格式FAT32 
4.容量不大于32G

SD卡要求
1.建议使用西门子SD卡，普通SD卡也是可以的，但建议使用dapinpaizhengpin
2.U盘格式FAT32 
3.容量不大于2G

四、插入脚本及脚本说明

以下脚本生成两行CSV表格，第一行是写入文本；第二行是记录var1,var2两个变量的值

1.使用FileCtl类创建对象2.定义文件路径和文件名3.使用open方法来打开文件4.使用LinePrint方法写入行5.使用close方法关闭文件

Sub VBFunction_1()

Dim f,Storage_Path
Dim v1,v2

Set f =CreateObject("FileCtl.File")

Storage_Path = "\Storage Card usb\myfile.csv"

f.open Storage_Path,2
v1 = SmartTags("var1")
v2 = SmartTags("var2")

f.LinePrint("valueName1,valueName2,valueName3")
f.LinePrint(""&v1&","&v2&",")
f.close
Set f = Nothing

End Sub

五、新建触发条件及测试

1.新建按钮
2.选择事件
3.选择按下
4.选择VB函数
5.下载程序到触摸屏
6.按下测试按钮

7.拔出U盘使用电脑EXCEL查看数据

怎么样你学会了没！