compute.prg

来自「此程序目的用来计算集装箱装量」· PRG 代码 · 共 74 行

PUBLIC w,h,l,side(20,3)

FUNCTION  caculate
	PARAMETER LINE
	x=LINE/6
	Y=LINE%6
	DO CASE
		CASE Y=0
			w=side(x+1,1)
			l=side(x+1,2)
			h=side(x+1,3)

		CASE Y=1
			w=side(x+1,1)
			l=side(x+1,3)
			h=side(x+1,2)

		CASE Y=2
			w=side(x+1,3)
			l=side(x+1,1)
			h=side(x+1,2)

		CASE Y=3
			w=side(x+1,3)
			l=side(x+1,2)
			h=side(x+1,1)

		CASE Y=4
			w=side(x+1,2)
			l=side(x+1,1)
			h=side(x+1,3)
		CASE Y=5
			w=side(x+1,2)
			l=side(x+1,3)
			h=side(x+1,1)
		OTHERWISE
			WAIT WINDOW "y值错误" NOWAIT
	ENDCASE


FUNCTION putbox
	PARAMETERS state
	 x=0
	 Y=0
	a=0
	b=0
	DO caculate WITH state

	FOR x = 0 TO wb-w
		FOR  Y = 0 TO lb-lb
			IF hb-HEIGHT(x,Y)>=h
				FOR (a=0a<wa++)
					FOR (b=0b<lb++)
						IF(HEIGHT(x+a,Y+b)!=HEIGHT(x,Y))	RETURN 0
						ELSE
							CONTINUE
						ENDIF
					ENDFOR
				ENDFOR
				FOR (a=0a<wa++)
					FOR (b=0b<lb++)
						HEIGHT(x+a,Y+b)=HEIGHT(x+a,Y+b)+h
					ENDFOR
				ENDFOR
				RETURN 1
			ELSE
				CONTINUE
			ENDIF
		ENDFOR
	ENDFOR
	RETURN 0