導航:首頁 > 電腦網站 > 電腦如何控制繼電器

電腦如何控制繼電器

發布時間:2023-11-15 11:03:19

① 使用個人電腦EXCEL能夠控制PLC嗎

可以,Excel+VBA腳本,實現串口通訊,然後控制PLC。

EXCEL-VBA串口通訊實例

軟體:EXCEL;硬體:艾默生EC10 PLC;功能:通過EXCEL中的按鈕控制PLC的輸出繼電器Y0;
界面:RUN(運行通訊)、STOP(停止通訊)、Y0(Y0 ON/OFF控制)。

主程序:

OptionExplicit
PublicDeclareSubSleepLib"kernel32"(ByValdwMillisecondsAsLong)
"user32"(ByValhwndAsLong,ByValnIDEventAsLong,ByValuElapseAsLong,ByVallpTimerFuncAsLong)AsLong
"user32"(ByValhwndAsLong,ByValnIDEventAsLong)AsLong
Publiccom1AsNewMSCommLib.MSComm
Publicy0SttAsBoolean
Publicy0_onAsBoolean
PublictmrFlagAsBoolean
PublictmrAsLong
Subrunn()
OnErrorGoToed
com1.Settings="9600,e,8,1"
Ifcom1.PortOpen=FalseThen
com1.PortOpen=True
EndIf
tmr=SetTimer(0,0,500,AddressOfontimer)
ExitSub
ed:
MsgBox"串口打開錯誤!"
EndSub
Substopp()
Ifcom1.PortOpen=TrueThen
com1.PortOpen=False
KillTimer0,tmr
EndIf
EndSub
PublicFunctionontimer()
Dima(7)AsByte
DimaddAsLong
OnErrorGoToed
IftmrFlag=FalseThen
tmrFlag=True
Ify0_on=TrueThen
y0_on=False
Ify0Stt=TrueThen
a(0)=&H1
a(1)=&H5
a(2)=&H0
a(3)=&H0
a(4)=&HFF
a(5)=&H0
a(6)=&H8C
a(7)=&H3A
com1.Output=a
add=0
Do
DoEvents
Sleep10
add=add+1
Ifadd>=100Then
ExitDo
EndIf
LoopUntilcom1.InBufferCount>=8
Else
a(0)=&H1
a(1)=&H5
a(2)=&H0
a(3)=&H0
a(4)=&H0
a(5)=&H0
a(6)=&HCD
a(7)=&HCA
com1.Output=a
add=0
Do
DoEvents
Sleep10
add=add+1
Ifadd>=100Then
ExitDo
EndIf
LoopUntilcom1.InBufferCount>=8
EndIf
EndIf
EndIf
tmrFlag=False
ExitFunction
ed:MsgBox"串口錯誤!"
tmrFlag=False
EndFunction

界面程序:

PrivateSubcmd1_Click()
y0_on=True
y0Stt=Noty0Stt
EndSub
PrivateSubcmdRun_Click()
runn
CheckBox1.Value=1
EndSub
PrivateSubcmdStop_Click()
stopp
CheckBox1.Value=0
EndSub
閱讀全文

與電腦如何控制繼電器相關的資料

熱點內容
蘋果電腦win7系統截圖 瀏覽:580
如何把備份文件傳到電腦 瀏覽:167
簡陽修電腦的地方在哪裡 瀏覽:600
濟南電腦游戲安裝 瀏覽:128
手機無法下載軟體怎麼辦 瀏覽:896
電腦愛奇藝怎麼投屏到電視 瀏覽:755
筆記本電腦一直找不到wifi網路 瀏覽:393
中捷平車電腦版上哪個鍵是倒針 瀏覽:62
免費網站好污視頻 瀏覽:582
電腦輸入法不見了怎麼辦win10 瀏覽:811
蘋果電腦桌面壁紙怎麼移動 瀏覽:864
手提電腦在哪裡下載抖音 瀏覽:483
筆記本電腦改xp系統版本太低 瀏覽:341
手機如何獲得電腦桌面 瀏覽:845
神鋼電腦版怎麼安裝不了 瀏覽:413
蘋果防閃退的軟體下載 瀏覽:770
蘋果電腦打字游標移動設置 瀏覽:495
電腦怎麼安裝cti客戶端 瀏覽:383
電腦軟體安裝無法注冊 瀏覽:845
電腦前哪個鍵是清除鍵 瀏覽:8