做过PCB电镀线监控系统的高手请进!
有做过PCB电镀线监控系统的,请问用VB可以编写吊车根据流程时间的变化绘制实际运行曲线坐标图的程序吗?(X轴代表时间,Y轴代表槽位) 如何才能实现呢?可否提供一个程序或代码?我没有分...
[解决办法]
该回复于2009-02-25 10:22:54被版主删除
[解决办法]
不懂，帮顶
[解决办法]
没看明白 说具体点 是采集数据 还是 怎么的？？？
[解决办法]
可以，而且对于不是计算机专业的最好用VB来写WINDOWS程序，用C太复杂了。
硬件方面的输入是什么？UART?
[解决办法]
流程时间是自定一个值的,大小根据电镀的要求,我就是不会帖图,不然我贴个图出来你们可能会明白,如何帖出来.....就是一个坐标图.坐标图中有曲线,是吊车的运行轨迹.
[解决办法]
该回复于2009-02-25 10:18:14被版主删除
[解决办法]
帮顶
[解决办法]
Private Sub Command3_Click()
Dim x1 As Double
Dim y1 As Double
Dim x2 As Double
Dim y2 As Double
Dim i As Double
Dim t As Double
x1 = 0
y1 = 0
x2 = 0
y2 = 0
Picture1.Cls
Picture1.DrawWidth = 1 'DrawWidth返回或设置图形方法输出的线宽。
Picture1.AutoRedraw = True
Picture1.BackColor = QBColor(0) 'QBColor:用来表示所对应颜色值的 RGB 颜色码，参数：1~15
Picture1.Scale (-1500, 1500)-(1500, -1500) 'Scale用以定义 Form、PictureBox 或 Printer 的坐标系统，参数：左上-右下
'Picture1.Line (X1, Y1)-(X2, Y2), QBColor(0)
Picture1.Line (-1500, 0)-(1500, 0), QBColor(15)
t = 0
For i = 0 To 3000 Step 0.1
'渐开线
x2 = (Cos(t) + t * Sin(t)) * 10
y2 = (Sin(t) - t * Cos(t)) * 10
If x1 = 0 And y1 = 0 Then
x1 = x2
y1 = y2
End If
Picture1.Line (x1, y1)-(x2, y2), QBColor(12)
Picture1.Refresh
x1 = x2
y1 = y2
t = t + 0.1
Next
End Sub
