Skip to content
切换导航条
切换导航条
当前项目
正在载入...
登录
刘韬
/
SO815-AutoInOutStore
转到一个项目
切换导航栏
切换导航栏固定状态
项目
群组
代码片段
帮助
项目
活动
版本库
图表
网络
创建新的问题
提交
问题看板
文件
提交
网络
比较
分支
标签
Commit 12ec6c1d
由
几米阳光
编写于
2019-03-14 11:46:44 +0800
浏览文件
选项
浏览文件
标签
下载
电子邮件补丁
差异文件
3.吸盘吸料后,等待入库的过程中增加超时报警。
1 个父辈
b01a6338
显示空白字符变更
内嵌
并排
正在显示
6 个修改的文件
包含
31 行增加
和
23 行删除
dll/CodeLibrary.dll
source/ACSingleStore/FrmStoreBox.cs
source/ACSingleStore/记录.txt
source/DeviceLibrary/acSingleStore/AC_SA_BoxBean.cs
source/DeviceLibrary/acSingleStore/AutomaticBaiting.cs
source/DeviceLibrary/acSingleStore/AutomaticBaiting_Partial.cs
dll/CodeLibrary.dll
查看文件 @
12ec6c1
此文件类型无法预览
source/ACSingleStore/FrmStoreBox.cs
查看文件 @
12ec6c1
...
...
@@ -1636,7 +1636,6 @@ namespace OnlineStore.AutoInOutStore
{
MessageBox
.
Show
(
ResourceCulture
.
GetString
(
ResourceCulture
.
PCloseDoor
,
"请先关闭批量上下料门"
));
return
;
return
;
}
AutomaticBaiting
.
BatchDoorClose
(
false
);
...
...
source/ACSingleStore/记录.txt
查看文件 @
12ec6c1
...
...
@@ -125,6 +125,13 @@ PRO,最后一盘料需要补充的高度,LastTrayAddHeight,10,,,,,,,,,
批量轴上料完成后,直接回P2点。
20190313修改:
1.料仓状态默认复位中。
2.从料仓下方接盘时,压紧轴和升降轴一起运动。
3.吸盘吸料后,等待入库的过程中增加超时报警。
...
...
source/DeviceLibrary/acSingleStore/AC_SA_BoxBean.cs
查看文件 @
12ec6c1
...
...
@@ -1300,10 +1300,13 @@ namespace OnlineStore.DeviceLibrary
/// <returns></returns>
public
bool
CanStarInOut
()
{
if
(
isInSuddenDown
||
isNoAirCheck
||
(!
storeRunStatus
.
Equals
(
StoreRunStatus
.
Runing
))
||
storeStatus
.
Equals
(
StoreStatus
.
InStoreExecute
)
||
storeStatus
.
Equals
(
StoreStatus
.
OutStoreExecute
)
||
storeStatus
.
Equals
(
StoreStatus
.
InStoreEnd
)
||
storeStatus
.
Equals
(
StoreStatus
.
OutStoreBoxEnd
))
//if (isInSuddenDown || isNoAirCheck ||
// (!storeRunStatus.Equals(StoreRunStatus.Runing))
// || storeStatus.Equals(StoreStatus.InStoreExecute) || storeStatus.Equals(StoreStatus.OutStoreExecute)
// || storeStatus.Equals(StoreStatus.InStoreEnd) || storeStatus.Equals(StoreStatus.OutStoreBoxEnd))
if
(
isInSuddenDown
.
Equals
(
false
)&&
isNoAirCheck
.
Equals
(
false
)&&
StoreMove
.
MoveType
.
Equals
(
StoreMoveType
.
None
)
&&
storeRunStatus
.
Equals
(
StoreRunStatus
.
Runing
))
{
return
false
;
}
...
...
source/DeviceLibrary/acSingleStore/AutomaticBaiting.cs
查看文件 @
12ec6c1
...
...
@@ -315,19 +315,7 @@ namespace OnlineStore.DeviceLibrary
LogUtil
.
info
(
Name
+
"入料: 吸盘上升"
);
CylinderMove
(
IO_Type
.
SuckingDisc_Up
,
IO_Type
.
SuckingDisc_Down
,
false
);
StoreMove
.
WaitList
.
Add
(
WaitResultInfo
.
WaitIO
(
IO_Type
.
SuckingDisc_Down
,
IO_VALUE
.
LOW
));
//if (StoreManager.Config.Default_TrayWidth.Equals(7))
//{
// StoreMove.WaitList.Add(WaitResultInfo.WaitIO(IO_Type.WidthCheck1, IO_VALUE.HIGH));
// StoreMove.WaitList.Add(WaitResultInfo.WaitIO(IO_Type.WidthCheck2, IO_VALUE.LOW));
//}
//else if (StoreManager.Config.Default_TrayWidth.Equals(13))
//{
// StoreMove.WaitList.Add(WaitResultInfo.WaitIO(IO_Type.WidthCheck1, IO_VALUE.HIGH));
// StoreMove.WaitList.Add(WaitResultInfo.WaitIO(IO_Type.WidthCheck2, IO_VALUE.HIGH));
//}else if (StoreManager.Config.Default_TrayWidth.Equals(0))
//{
//}
}
else
if
(
SuckingDisc_WorkCount
<
3
)
{
...
...
@@ -373,6 +361,9 @@ namespace OnlineStore.DeviceLibrary
}
else
if
(
StoreMove
.
MoveStep
.
Equals
(
StoreMoveStep
.
AUTO_I07_BatchAxisUp
))
{
TimeSpan
span
=
DateTime
.
Now
-
StoreMove
.
LastSetpTime
;
//需要判断入库超时
if
(
StoreManager
.
Store
.
CanStarInOut
())
{
LastWidth
=
StoreManager
.
Config
.
Default_TrayWidth
;
...
...
@@ -407,6 +398,13 @@ namespace OnlineStore.DeviceLibrary
StoreMove
.
WaitList
.
Add
(
WaitResultInfo
.
WaitTime
(
3000
));
}
}
else
if
(
span
.
TotalSeconds
>
60
)
{
//一分钟还未开始,报警超时
WarnMsg
=
"["
+
StoreMove
.
MoveStep
+
"]"
+
ResourceControl
.
GetString
(
ResourceControl
.
TimeOut
,
"超时"
)
+
"[等待可以入库]["
+
Math
.
Round
(
span
.
TotalSeconds
,
0
)
+
"秒]"
;
LogUtil
.
error
(
WarnMsg
,
105
);
StoreManager
.
Store
.
Alarm
(
StoreAlarmType
.
BatchIoTimeOut
,
""
,
WarnMsg
,
StoreMove
.
MoveType
);
}
}
else
if
(
StoreMove
.
MoveStep
.
Equals
(
StoreMoveStep
.
AUTO_I08_GetPosId
))
{
...
...
@@ -505,16 +503,17 @@ namespace OnlineStore.DeviceLibrary
StoreMove
.
TimeOutSeconds
=
120
;
string
posId
=
StoreManager
.
Store
.
PositionNumList
[
0
];
//盘先根据高低排序
if
(
AllPosList
==
null
)
{
if
(
AllPosList
==
null
)
{
AllPosList
=
CSVPositionReader
<
AutoStorePosition
>.
getPositionList
();
AllPosList
=
(
from
m
in
AllPosList
orderby
m
.
BagHeight
ascending
select
m
).
ToList
<
AutoStorePosition
>();
}
List
<
AutoStorePosition
>
okList
=
(
from
m
in
AllPosList
where
m
.
BagHeight
>=
LastHeight
select
m
).
ToList
<
AutoStorePosition
>();
List
<
AutoStorePosition
>
okList
=
(
from
m
in
AllPosList
where
m
.
BagHeight
>=
LastHeight
select
m
).
ToList
<
AutoStorePosition
>();
if
(
okList
.
Count
>
0
)
{
posId
=
okList
[
0
].
PositionNum
;
}
StoreManager
.
Store
.
StartInStoreMove
(
new
InOutStoreParam
(
LastCode
,
posId
,
LastHeight
,
LastWidth
),
true
,
false
);
bool
result
=
StoreManager
.
Store
.
StartInStoreMove
(
new
InOutStoreParam
(
LastCode
,
posId
,
LastHeight
,
LastWidth
),
true
,
false
);
StoreMove
.
WaitList
.
Add
(
WaitResultInfo
.
WaitStoreRuning
());
}
...
...
source/DeviceLibrary/acSingleStore/AutomaticBaiting_Partial.cs
查看文件 @
12ec6c1
...
...
@@ -368,7 +368,7 @@ namespace OnlineStore.DeviceLibrary
{
LastPosId
=
posId
;
InOutStoreParam
param
=
new
InOutStoreParam
(
message
,
posId
,
LastHeight
,
LastWidth
);
StoreManager
.
Store
.
StartInStoreMove
(
param
,
true
);
bool
result
=
StoreManager
.
Store
.
StartInStoreMove
(
param
,
true
);
//如果当前正在出入库中,需要记录下来,等待空闲时执行
LogUtil
.
info
(
Name
+
" 入库调试模拟:库位号【"
+
posId
+
"】二维码【"
+
message
+
"】 开始入库!"
);
}
...
...
@@ -447,7 +447,7 @@ namespace OnlineStore.DeviceLibrary
LastPosId
=
posId
;
InOutStoreParam
param
=
new
InOutStoreParam
(
message
,
posId
,
plateH
,
plateW
);
StoreManager
.
Store
.
StartInStoreMove
(
param
,
true
);
bool
result
=
StoreManager
.
Store
.
StartInStoreMove
(
param
,
true
);
//如果当前正在出入库中,需要记录下来,等待空闲时执行
LogUtil
.
info
(
Name
+
" 收到服务器入库命令:库位号【"
+
posId
+
"】二维码【"
+
message
+
"】 开始入库!"
);
}
...
...
编写
预览
支持
Markdown
格式
附加文件
你添加了
0
人
到此讨论。请谨慎行事。
Finish editing this message first!
Cancel
请
注册
或
登录
后发表评论