应用场景:仓储管理中,经常遇到自动寻址的功能。
假定一个库房有9个巷道,AA、BB、CC、DD、EE、FF、GG、HH、II;
一个物料默认的存放位置是DD,如果DD巷道没有其它货位可以存放,系统将根据就近原则从DD的两边寻址CC和EE,依次向两边寻址。
原则是这样,但是算法应该怎么设计才容易实现哪?
最容易想到的就是根据货物所在的巷道,生成一个寻址的数组,把货物所在巷道的左侧的巷道从大到小取出,右侧的从小到大取出,先左后右生成寻址的序列,困难在于程序繁琐,想了一个捷径。一个9个巷道,当前巷道除外,还剩8个巷道,建一个长度为16的数组,奇数位存左侧由大到小的数,偶数位存右侧有小到大数,取数只取有数的数组,下面用pb实现一下,短短几行代码:
long ll_line,i
string ls_line
// 取当前货物所在的巷道
ls_line =sle_1.text
ll_line = asc(left(ls_line,1))
// 寻巷道程序
string a[16]
long j
if ll_line>=65 and ll_line<=73 then
j=1
for i = ll_line -1 to 65 step -1
ls_line = char(i) + char(i)
a[j]=ls_line
j=j+2
next
j=2
for i = ll_line +1 to 73
ls_line = char(i) + char(i)
a[j]=ls_line
j=j+2
next
END IF
// 取数
mle_1.text=""
for i=1 to 16
if a[i]="" then continue
mle_1.text =mle_1.text + a[i]
next
一些感觉比较复杂的问题,只要设计的算法简单,很容易就解决了。
题外话:不怎么用数组,才发现pb的数组居然是从1开始的,习惯性写0,溢出了。设计开发语言的人怎么就没有一点标准呀,都是各自搞自己的,让大家要记住这么多相互矛盾原则,没办法,用别人的没有话语权。