西門子1200寬溫型擴展模塊6AG12233BD305XB0

西門子1200寬溫型擴展模塊6AG12233BD305XB0

6AG1223-3BD30-5XB0 SIPLUS S7-1200 SB1223 輸入/輸出 -40...+60°C，-25°C 條件下開機 帶防腐蝕涂層 根據(jù) 6ES7223-3BD30-0XB0 . 數(shù)字輸入/輸出 2數(shù)字輸入/2數(shù)字輸出，24V DC 200kHz

SIEMENS西門子

*，質(zhì)量保證，保修一年

專業(yè)銷售及維修西門子各類工控自動化配件;

：S7-200CN、S7-200SMART、S7-300、S7-400、 S7-1200、S7-1500、ET200、LOGO邏西門子可編程控制器輯控制模塊

西門子HMI人機界面：觸摸屏

西門子變頻器：MM420、MM430、MM440、G110、G120、6SE70

西門子工業(yè)以太網(wǎng)：通訊網(wǎng)卡、通訊電纜、通訊接頭、總線連接器 工控機、交換機、自動化軟件等系型號齊全，快速報價，買我們的產(chǎn)品無憂所值，我們的產(chǎn)品都承諾質(zhì)保一年，讓您買的省心舒心，用的放心！

 現(xiàn)在網(wǎng)絡(luò)越來越發(fā)達了，對組態(tài)軟件要求也越來越多，我參考了網(wǎng)上的一些例子，但是獲取的數(shù)據(jù)都不是很多，對于搞暖通樓控的工程師來說溫度、濕度、和大氣壓力都很重要，若你要獲得更多的氣象數(shù)據(jù)網(wǎng)上提供的API是要收費的。我通過分析網(wǎng)站的數(shù)據(jù)，得到了更詳細的數(shù)據(jù)，免費。這里我自己寫了一個抓取天氣信息的VBS腳本，有興趣可以適當(dāng)?shù)母母呐浇M態(tài)軟件當(dāng)中去，這個是網(wǎng)頁抓取JSON格式的，這個可以作為參考如何從網(wǎng)頁當(dāng)中抓取數(shù)據(jù)。 不同的組態(tài)軟件有不同的辦法，這個VSB腳本提供給大家參考。 我這個抓取的原始數(shù)據(jù)信息相當(dāng)較全面，由于VBS不是JAVA不能直接解析JSON,我這里用了正則表達式提取了幾個數(shù)據(jù)作為彈窗。不同的組態(tài)軟件都可以參考這個進行獲取數(shù)據(jù)達到組態(tài)軟件中。。。。本例子獲得的氣象數(shù)據(jù)為成都市雙流區(qū)的。。你懂得我家在這里 改動參數(shù)就可以獲得別的地方的氣象數(shù)據(jù)。這個是中央氣象臺的后臺實時數(shù)據(jù)。。

   題外話：近也比較忙，其實挺想網(wǎng)上看些資料寫個關(guān)于不同經(jīng)緯度不同日期時間的日照，太陽高度等西門子SCL的程序。。PLC就可以計算了對做樓控的兄弟就很有用了。。有興趣的支持我一下。

Dim html,http,strHtml,post_list,window,kuwo,tet,fso,f,t

 Dim regEx, Match, Matches

 DIM StrTEST

'Set html = CreateObject("htmlfile") 

Set http = CreateObject("Msxml2.ServerXMLHTTP") 

'html.designMode = "on" ' 開啟編輯模式 

http.send 

strHtml = trim(http.responseText)

'msgbox strHtml

'html.write strHtml ' 寫入數(shù)據(jù) 

'Set post_list = html.getElementById("post_list") 

'For Each el In post_list.children     WScript.Echo el.getElementsByTagName("a")(0).innerText 

'Next

'#################################################

'strHtml = http.responseText ' 得到數(shù)據(jù) 

'Set window = html.parentWindow 

'window.execScript strHtml, "JScript"     '定義一個JS變量，將JSON數(shù)據(jù)引入

'Set kuwo = window.returnCitySN ' 獲取解析后的對象

   '  MsgBox"溫度 " & window & " 攝氏度"

'Set kuwo = kuwo.json ' 獲取解析后的對象 

'WScript.Echo "溫度:", kuwo.temperature, " 濕度:", kuwo.humidity

'MsgBox window.Eval("json.temperature")

'

   ' MSGBOX sc.Eval("o.temperature")

 set fso=createobject("scripting.filesystemobject")

set f=fso.opentextfile("c:a.txt",2,true):f.write strHtml :f.close

set f=fso.opentextfile("c:a.txt",1)

strHtml = f.ReadAll

MsgBox strHtml

 ' 創(chuàng)建變量。

 StrTEST="temperature"

  Set regEx = New RegExp         ' 創(chuàng)建正則表達式。

  regEx.Pattern = StrTEST          ' 設(shè)置模式。

  regEx.IgnoreCase = True         ' 設(shè)置為不區(qū)分大小寫。

  regEx.Global = True         ' 設(shè)置全局適用。

  Set Matches = regEx.Execute(strHtml)   ' 執(zhí)行搜索。

For Each Match in Matches      ' 對 Matches 集合進行迭代。

西門子1200寬溫型擴展模塊6AG12233BD305XB0