打印本文
關閉窗口
DRAWTEXT(N,H*1.02,?#39),colorgreen;
DRAWTEXT(N1,H*1.02,?#39),colorgreen;
DRAWTEXT(N2,H*1.02,?#39),colorgreen;
DRAWTEXT(N3,H*1.02,?#39),colorgreen;
DRAWTEXT(N4,H*1.02,?#39),colorgreen;
DRAWTEXT(N5,H*1.02,?#39),colorgreen;
DRAWTEXT(N6,H*1.02,?#39),colorgreen;
DRAWTEXT(N7,H*1.02,?#39),coloryellow;
DRAWICON(N7,H*1.04,1),colorgreen;
DRAWTEXT(M,H*1.02,?#39),colorblack;
DRAWTEXT(M1,H*1.02,?#39),colorblack;
DRAWTEXT(M2,H*1.02,?#39),colorblack;
DRAWTEXT(M3,H*1.02,?#39),colorblack;
DRAWTEXT(M4,H*1.02,?#39),colorblack;
DRAWTEXT(M5,H*1.02,?#39),colorblack;
DRAWTEXT(M6,H*1.02,?#39),colorblack;
DRAWTEXT(M7,H*1.02,?#39),colorblack;
B1:=C<=REF(C,4);
B:=C>REF(C,4);
BB:=C>REF(C,4) AND REF(B1,1);
T1:=BARSLAST(BB),NODRAW;
M111:=(T1=0 AND REFX(&T1=1 AND NOT(B),1)) OR (REFX(&T1=2 AND NOT(B),2)) OR (REFX(&T1=3 AND NOT(B),3)) OR (REFX(&T1=4 AND NOT(B),4)) OR (REFX(&T1=5 AND NOT(B),5))
OR (REFX(&T1=6 AND NOT(B),6)) OR (REFX(&T1=7 AND NOT(B),7)) OR (REFX(&T1=8 AND NOT(B),8));
M11:=T1=1 AND REFX(&T1=2 AND NOT(B),1) OR (REFX(&T1=3 AND NOT(B),2)) OR (REFX(&T1=4 AND NOT(B),3)) OR (REFX(&T1=5 AND NOT(B),4)) OR (REFX(&T1=6 AND NOT(B),5))
?
?來源:程序化99
您給出的代碼不全，先按現有代碼改寫如下。
?
如需完整改寫，請重新發全部代碼給我們。
?
DRAWTEXT(T=0,H*1.02,?#39),COLORGREEN;//代碼不全，T沒有給出定義，請自行定義下
DRAWTEXT(N,H*1.02,?#39),COLORGREEN;
DRAWTEXT(N1,H*1.02,?#39),COLORGREEN;
DRAWTEXT(N2,H*1.02,?#39),COLORGREEN;
DRAWTEXT(N3,H*1.02,?#39),COLORGREEN;
DRAWTEXT(N4,H*1.02,?#39),COLORGREEN;
DRAWTEXT(N5,H*1.02,?#39),COLORGREEN;
DRAWTEXT(N6,H*1.02,?#39),COLORGREEN;
DRAWTEXT(N7,H*1.02,?#39),COLORYELLOW;
DRAWICON(N7,H*1.04,1),COLORGREEN;
DRAWTEXT(M,H*1.02,'1',COLORBLACK;
DRAWTEXT(M1,H*1.02,'2',COLORBLACK;
DRAWTEXT(M2,H*1.02,'3',COLORBLACK;
DRAWTEXT(M3,H*1.02,'4',COLORBLACK;
DRAWTEXT(M4,H*1.02,'5',COLORBLACK;
DRAWTEXT(M5,H*1.02,'6',COLORBLACK;
DRAWTEXT(M6,H*1.02,'7',COLORBLACK;
DRAWTEXT(M7,H*1.02,'8',COLORBLACK;
B1:=C<=REF(C,4);
B:=C>REF(C,4);
BB:=C>REF(C,4) AND REF(B1,1);
T1:=BARSLAST(BB),NODRAW;
M111:=(T1=0 AND REFX(T1=1 AND NOT(B),1)) OR (REFX(T1=2 AND NOT(B),2)) OR (REFX(T1=3 AND NOT(B),3)) OR (REFX(T1=4 AND NOT(B),4)) OR (REFX(T1=5 AND NOT(B),5)) OR (REFX(T1=6 AND NOT(B),6)) OR (REFX(T1=7 AND NOT(B),7)) OR (REFX(T1=8 AND NOT(B),8));
M11:=T1=1 AND REFX(T1=2 AND NOT(B),1) OR (REFX(T1=3 AND NOT(B),2)) OR (REFX(T1=4 AND NOT(B),3)) OR (REFX(T1=5 AND NOT(B),4)) OR (REFX(T1=6 AND NOT(B),5));