直接呼叫wincc的元件進行標籤的讀寫操作.這樣可以省去很多事，不用使用opc了，自己想把什麼寫到組態裡，從組態裡讀出來資料都非常的方便
讀寫函式如下
private sub command1_click()
dim prtrun
dim tag0
dim wincc as object '定義wincc為物件
set wincc = createobject("wincc-runtime-project")
prtrun = wincc.setvalue("newtag_1", text1(0).text)
prtrun = wincc.setvalue("newtag_2", text1(1).text)
prtrun = wincc.setvalue("newtag_3", text1(2).text)
prtrun = wincc.setvalue("newtag_4", text1(3).text)
prtrun = wincc.setvalue("newtag_5", text1(4).text)
prtrun = wincc.setvalue("newtag_6", text1(5).text)
prtrun = wincc.setvalue("newtag_7", text1(6).text)
prtrun = wincc.setvalue("newtag_8", text1(7).text)
'先寫入乙個值，再讀回它,判斷有沒有寫進去,由此來判斷wincc是不是在執行之中
prtrun = wincc.getvalue("newtag_1")
if prtrun = 111 then
msgbox ("與wincc通訊成功！")
set wincc = nothing
else
msgbox ("與wincc通訊失敗！請將wincc設定為執行狀態！")
set wincc = nothing
end if
end sub
VB讀寫檔案
vb讀寫檔案要用到以下語句 1 open語句開啟檔案。2 讀檔案使用line input input 以上為文字方式 和get 以上為二進位制方式 3 寫檔案使用print write 以上為文字方式 和put 以上為二進位制方式 4 close語句關閉檔案 5 二進位制方式下移動檔案位置使用see...
VB 讀寫檔案
引用 open f new.txt for input as 1 dim b as string b strconv inputb lof 1 1 vbunicode open 開啟檔案的路徑 for 開啟方式 這裡是讀取，下面的是寫入和建立 as 檔案號 close 1 以上為讀取檔案，以下為寫入...
VB讀寫TXT檔案
private subcommand1 click 讀檔案 open d a.txt for inputas 1dim lines asstring dimnextline asstring dimi asinteger dowhile noteof 1 onerror resume next li...