没有合适的资源?快使用搜索试试~ 我知道了~
首页VB.NET实现PID原理的水温控制
资源详情
资源评论
资源推荐
1
基于
VB.NET
的单容水槽水温控制系统的设计
附 录
*启动画面*
Public Class Form3
Dim delay As Integer = 0
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
softcover.Left = 0
softcover.Top = 0
softcover.Width = Me.Width
softcover.Height = Me.Height
cap.Left = (Me.Width - cap.Width) / 2
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Timer1.Tick
If delay > 4 Then
Timer1.Enabled = False
Me.Close()
Else
delay += 1
End If
End Sub
End Class
*登陆界面*
Public Class login
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
If TextBox1.Text = "123" Then
If TextBox2.Text = "123" Then
Me.DialogResult = DialogResult.OK
Me.Close()
Else
MsgBox("无效密码,请重试", , "登录")
TextBox2.Focus()
System.Windows.Forms.SendKeys.Send("{home}+{end}")
End If
Else
MsgBox("非法用户,请确认您输入的用户名正确!", , "登录")
TextBox1.Focus()
System.Windows.Forms.SendKeys.Send("{home}+{end}")
End If
End Sub
End Class
*数据采集*
Imports Advantech.Adam
Imports System.Net.Sockets
Public Class Form1
Inherits System.Windows.Forms.Form
Private m_bStart As Boolean
Private adamModbus As AdamSocket
Private m_Adam6000Type As Adam6000Type
Private m_szIP As String
Private m_iPort As Integer
Private m_iCount As Integer
Private m_iAiTotal As Integer, m_iDoTotal As Integer
Private m_bChEnabled() As Boolean
Private m_byRange As Byte()
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
m_bStart = False
m_szIP = "172.18.3.243"
m_iPort = 502
adamModbus = New AdamSocket
3
基于
VB.NET
的单容水槽水温控制系统的设计
adamModbus.SetTimeout(1000, 1000, 1000)
m_Adam6000Type = Adam6000Type.Adam6017
m_iAiTotal = AnalogInput.GetChannelTotal(m_Adam6000Type)
m_iDoTotal = DigitalOutput.GetChannelTotal(m_Adam6000Type)
TextBox1.Text = m_Adam6000Type.ToString()
m_bChEnabled = New Boolean(m_iAiTotal - 1) {}
m_byRange = New Byte(m_iAiTotal - 1) {}
If (m_Adam6000Type = Adam6000Type.Adam6017) Then
RadioButton1.Visible = False
RadioButton2.Visible = False
Else
End If
End Sub
Private Sub Form1_Closing(ByVal sender As Object, ByVal e As
System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
If (m_bStart = True) Then
timer1.Enabled = False
adamModbus.Disconnect()
End If
End Sub
Private Sub RefreshChannelRange(ByVal i_iChannel As Integer, ByVal i_bRefresh As
Boolean)
Dim byRange As Byte
If (adamModbus.AnalogInput().GetInputRange(i_iChannel, byRange) = True) Then
m_byRange(i_iChannel) = byRange
If (i_bRefresh) Then
AnalogInput.GetRangeIndex(m_Adam6000Type, byRange)
End If
Else
TextBox2.Text += "GetRangeCode() failed"
End If
End Sub
剩余13页未读,继续阅读
青灬火
- 粉丝: 7
- 资源: 1
上传资源 快速赚钱
- 我的内容管理 收起
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
会员权益专享
最新资源
- stc12c5a60s2 例程
- Android通过全局变量传递数据
- c++校园超市商品信息管理系统课程设计说明书(含源代码) (2).pdf
- 建筑供配电系统相关课件.pptx
- 企业管理规章制度及管理模式.doc
- vb打开摄像头.doc
- 云计算-可信计算中认证协议改进方案.pdf
- [详细完整版]单片机编程4.ppt
- c语言常用算法.pdf
- c++经典程序代码大全.pdf
- 单片机数字时钟资料.doc
- 11项目管理前沿1.0.pptx
- 基于ssm的“魅力”繁峙宣传网站的设计与实现论文.doc
- 智慧交通综合解决方案.pptx
- 建筑防潮设计-PowerPointPresentati.pptx
- SPC统计过程控制程序.pptx
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功
评论2