PID的VB程序参考-专业自动化论坛-中国工控网论坛

PID的VB程序参考点击：1512 | 回复：7

精华：0帖
求助：0帖
帖子：1帖 | 8回
年度积分：0
历史总积分：64
注册：2003年5月30日

发表于：2005-04-23 20:49:00

楼主

Option Explicit Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long Dim EK1 As Single, EK2 As Single, Aa As Integer Dim U As Single Dim Uk As Single, Uk1 As Single, A As Single, B As Single, C As Single, Ek As Single Dim Ti As Integer, Td As Integer, Kp As Integer Dim SP As Single, PV As Single Const Yellow = &HFF& Dim Cnt1 As Byte, Cnt2 As Byte Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False Feedback.Text = 0 Uk = 0 Aa = 0 Text7.Text = 0 Form1.Refresh End Sub Private Sub Timer1_Timer() Aa = Aa + 1 Ti = Val(Integral) '读取积分时间值 Td = Val(Deviate) '读取微分时间值 Kp = Val(Proportion) '读取比例值 SP = Val(Objvalue) '设定值 PV = Val(Feedback) '模拟的反馈值 Ek = SP - PV '差值 If Ti = 0 Then A = Kp * (1 + Td) Else A = Kp * (1 + 1 / Ti + Td) End If B = Kp * (1 + 2 * Td) C = Kp * Td Uk = Uk1 + A * Ek - B * EK1 + C * EK2 '输出，如进行电机控制 If Int(Uk) <= 0 Then Uk = 0 '对输出进行调理，实际使用时灵活掌握。 If Int(Uk) > 1000 Then Uk = 1000 Uk1 = Uk EK2 = EK1 '上上次偏差 EK1 = Ek '上次偏差 Text7.Text = Uk '输出显示 SetPixel Me.hdc, Aa, Val(Feedback), Yellow'绘制响应曲线 End Sub

分享到：

邀请回答

回复楼主

freeskyman

精华：0帖
求助：0帖
帖子：3帖 | 55回
年度积分：0
历史总积分：135
注册：2005年5月29日

发表于：2006-07-22 22:53:00

1楼

终于找到一个vb的pid
谢谢楼主！！！！

回复引用举报

hua71281

精华：0帖
求助：0帖
帖子：21帖 | 1296回
年度积分：0
历史总积分：1509
注册：2004年6月13日

发表于：2007-02-09 18:42:00

2楼

[color=#FF0000]好消息:三菱GX Developer Version 8.26中文PLC软件已通过工控网审核,以下为下载路径:
文件地址：[/color][color=#0000FF]http://download.gongkong.com/file/2007/2/7/MITSUBISHIGX8.26PLC.rar[/color]

回复引用举报