西門子1200寬溫型擴(kuò)展模塊6AG12233BD305XB0

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

SIEMENS西門子

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

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

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

西門子HMI人機(jī)界面：觸摸屏

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

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

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

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

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"     '定義一個(gè)JS變量,，將JSON數(shù)據(jù)引入

'Set kuwo = window.returnCitySN ' 獲取解析后的對(duì)象

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

'Set kuwo = kuwo.json ' 獲取解析后的對(duì)象 

'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)建正則表達(dá)式,。

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

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

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

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

For Each Match in Matches      ' 對(duì) Matches 集合進(jìn)行迭代。

西門子1200寬溫型擴(kuò)展模塊6AG12233BD305XB0