导航:首页 > 电脑网站 > 电脑如何控制继电器

电脑如何控制继电器

发布时间: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
阅读全文

与电脑如何控制继电器相关的资料

热点内容
苹果手机看课软件 浏览:252
电脑登录界面如何改名字 浏览:583
如何在电脑文件夹里找到吃鸡 浏览:426
电脑显示器接口哪个好 浏览:1000
14年观致3电脑诊断插头在哪里 浏览:505
用无线路由器连接的电脑 浏览:705
如何设置电脑的蓝牙名称 浏览:747
哪些地方可以有大量电脑 浏览:458
电脑哪个能调出帮助信息 浏览:80
什么电脑游戏好玩不累 浏览:853
苹果软件更新最后一点不动 浏览:399
电脑玩死亡细胞怎么设置分辨率 浏览:615
hp电脑怎么设置固态盘启动 浏览:597
天翼网关有手机wifi电脑不能上网 浏览:811
2016年的电脑高配置 浏览:451
怎样设置电脑显示的大小 浏览:716
sai电脑版32位安装包 浏览:314
电脑打勾的格式有哪些 浏览:263
电脑如何看照片的大小 浏览:6
新买笔记本电脑发出滋滋响 浏览:150