一个流水线生产效率的模拟演示案例,现在可以实现对原始数据,按开始节拍至结束节拍之间(可选)的插拔卡时间进行模拟修改,但对演示效果有一定局限。
设想应用CheckedComBoBox控件,对所选节拍序号的插拔卡时间进行修改,实现更好的演示效果。
如何将CheckedComBoBox控件应用到下面这段代码中,请各位老师指教。谢谢!
For i As Integer = 1 To Tables("扎包数据2").Rows.Count -1
Dim xlfd As Double = Rand.Next(94,106) / 100 '效率浮动
Dim bcfd As Integer = Rand.Next(2,6) '拔插卡浮动秒时
Dim p1 As Row = Tables("扎包数据2").Rows(i-1) '上一行
Dim p2 As Row = Tables("扎包数据2").Rows(i) '当前行
If i >= ksjp - 1 And i < jsjp Then
If i = 1 Then
p1("插卡时间") = dr("插卡时间")
p1("拔卡时间") = p1("插卡时间").AddSeconds((gwbzms + zjsj) * p1("产量") * xlfd)
p2("插卡时间") = p1("拔卡时间").AddSeconds(bcfd)
p2("拔卡时间") = p2("插卡时间").AddSeconds((gwbzms + zjsj) * p2("产量") * xlfd)
Else
p2("插卡时间") = p1("拔卡时间").AddSeconds(bcfd)
p2("拔卡时间") = p2("插卡时间").AddSeconds((gwbzms + zjsj) * p2("产量") * xlfd)
End If
Else
If i = 1 Then
p1("插卡时间") = dr("插卡时间")
p1("拔卡时间") = p1("插卡时间").AddSeconds(gwbzms * p1("产量") * xlfd)
p2("插卡时间") = p1("拔卡时间").AddSeconds(bcfd)
p2("拔卡时间") = p2("插卡时间").AddSeconds(gwbzms * p2("产量") * xlfd)
Else
p2("插卡时间") = p1("拔卡时间").AddSeconds(bcfd)
p2("拔卡时间") = p2("插卡时间").AddSeconds(gwbzms * p2("产量") * xlfd)
End If
End If
Next
[此贴子已经被作者于2016/4/7 15:47:33编辑过]