VB.NET实现PID原理的水温控制
5星 · 超过95%的资源 需积分: 20 74 浏览量
2016-07-19
16:06:19
上传
评论
收藏 31KB DOCX 举报 
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
剩余13页未读，继续阅读
评论2
最新资源