一、功能描述

在設備導入（功能投入）前期因為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查看數據

怎么樣你學會了沒！

延伸小知識：PLC-Recorder專業數據采集與分析軟件可以采集字符串變量，和數值變量一樣便捷。