通过画板自绘调色板（修改版）

帅气与大侠

汉族 发表于 2017-1-30 16:55
画渐变矩形（）？

  

子程序名	返回值类型	公开	备 注
重画画板

变量名	类 型	静态	数组	备 注
R	短整数型
G	短整数型
B	短整数型
bmp	字节集
x	整数型
y	整数型
z	整数型

R ＝ 到整数 (编辑框1.内容)
如果 (R ＝ oldR)
画板1.底图 ＝ oldGB色板
bmp ＝ _取空白字节集 (196662)
bmp ＝ 字节集替换 (bmp, 1, 54, _GB)
x ＝ 55
y ＝ 56
z ＝ 57
判断循环首 (G ＜ 256)
B ＝ 0
判断循环首 (B ＜ 256)
bmp [x] ＝ B
bmp [y] ＝ G
bmp [z] ＝ R
x ＝ x ＋ 3
y ＝ y ＋ 3
z ＝ z ＋ 3
B ＝ B ＋ 1
判断循环尾 ()
G ＝ G ＋ 1
判断循环尾 ()
画板1.底图 ＝ bmp
oldGB色板 ＝ bmp
G ＝ 到整数 (编辑框2.内容)
B ＝ 到整数 (编辑框3.内容)
如果 (G ＝ oldG 且 B ＝ oldB)
画板2.底图 ＝ oldR色板
bmp ＝ _取空白字节集 (18486)
bmp ＝ 字节集替换 (bmp, 1, 54, _R)
R ＝ 0
x ＝ 55
y ＝ 56
z ＝ 57
判断循环首 (R ＜ 256)
计次循环首 (24, )
bmp [x] ＝ B
bmp [y] ＝ G
bmp [z] ＝ R
x ＝ x ＋ 3
y ＝ y ＋ 3
z ＝ z ＋ 3
计次循环尾 ()
R ＝ R ＋ 1
判断循环尾 ()
画板2.底图 ＝ bmp
oldR色板 ＝ bmp
R ＝ 到整数 (编辑框1.内容)
画板2.画直线 (0, 256 － R, 24, 256 － R)
画板3.画板背景色 ＝ 取颜色值 (R, G, B)
oldR ＝ R
oldG ＝ G
oldB ＝ B
G ＝ 256 － G
画板1.画弧线 (B － 4, G － 4, B ＋ 4, G ＋ 4, B － 4, G － 4, B, G)
画板1.画弧线 (B － 4, G － 4, B ＋ 4, G ＋ 4, B, G, B ＋ 4, G ＋ 4)
正在刷新 ＝ 假

.版本 2<br /> <br /> .子程序 重画画板<br /> .局部变量 R, 短整数型<br /> .局部变量 G, 短整数型<br /> .局部变量 B, 短整数型<br /> .局部变量 bmp, 字节集<br /> .局部变量 x, 整数型<br /> .局部变量 y, 整数型<br /> .局部变量 z, 整数型<br /> <br /> R ＝ 到整数 (编辑框1.内容)<br /> .如果 (R ＝ oldR)<br />     画板1.底图 ＝ oldGB色板<br /> .否则<br />     bmp ＝ _取空白字节集 (196662)<br />     bmp ＝ 字节集替换 (bmp, 1, 54, _GB)<br />     x ＝ 55<br />     y ＝ 56<br />     z ＝ 57<br />     .判断循环首 (G ＜ 256)<br />         B ＝ 0<br />         .判断循环首 (B ＜ 256)<br />             bmp [x] ＝ B<br />             bmp [y] ＝ G<br />             bmp [z] ＝ R<br />             x ＝ x ＋ 3<br />             y ＝ y ＋ 3<br />             z ＝ z ＋ 3<br />             B ＝ B ＋ 1<br />         .判断循环尾 ()<br />         G ＝ G ＋ 1<br />     .判断循环尾 ()<br />     画板1.底图 ＝ bmp<br />     oldGB色板 ＝ bmp<br /> .如果结束<br /> G ＝ 到整数 (编辑框2.内容)<br /> B ＝ 到整数 (编辑框3.内容)<br /> .如果 (G ＝ oldG 且 B ＝ oldB)<br />     画板2.底图 ＝ oldR色板<br /> .否则<br />     bmp ＝ _取空白字节集 (18486)<br />     bmp ＝ 字节集替换 (bmp, 1, 54, _R)<br />     R ＝ 0<br />     x ＝ 55<br />     y ＝ 56<br />     z ＝ 57<br />     .判断循环首 (R ＜ 256)<br />         .计次循环首 (24, )<br />             bmp [x] ＝ B<br />             bmp [y] ＝ G<br />             bmp [z] ＝ R<br />             x ＝ x ＋ 3<br />             y ＝ y ＋ 3<br />             z ＝ z ＋ 3<br />         .计次循环尾 ()<br />         R ＝ R ＋ 1<br />     .判断循环尾 ()<br />     画板2.底图 ＝ bmp<br />     oldR色板 ＝ bmp<br /> .如果结束<br /> R ＝ 到整数 (编辑框1.内容)<br /> 画板2.画直线 (0, 256 － R, 24, 256 － R)<br /> 画板3.画板背景色 ＝ 取颜色值 (R, G, B)<br /> <br /> oldR ＝ R<br /> oldG ＝ G<br /> oldB ＝ B<br /> G ＝ 256 － G<br /> <br /> 画板1.画弧线 (B － 4, G － 4, B ＋ 4, G ＋ 4, B － 4, G － 4, B, G)<br /> 画板1.画弧线 (B － 4, G － 4, B ＋ 4, G ＋ 4, B, G, B ＋ 4, G ＋ 4)<br /> 正在刷新 ＝ 假

帅气与大侠

汉族 发表于 2017-1-30 16:55
画渐变矩形（）？

  

子程序名	返回值类型	公开	备 注
重画画板

变量名	类 型	静态	数组	备 注
R	短整数型
G	短整数型
B	短整数型
bmp	字节集
x	整数型
y	整数型
z	整数型

R ＝ 到整数 (编辑框1.内容)
如果 (R ＝ oldR)
画板1.底图 ＝ oldGB色板
bmp ＝ _取空白字节集 (196662)
bmp ＝ 字节集替换 (bmp, 1, 54, _GB)
x ＝ 55
y ＝ 56
z ＝ 57
判断循环首 (G ＜ 256)
B ＝ 0
判断循环首 (B ＜ 256)
bmp [x] ＝ B
bmp [y] ＝ G
bmp [z] ＝ R
x ＝ x ＋ 3
y ＝ y ＋ 3
z ＝ z ＋ 3
B ＝ B ＋ 1
判断循环尾 ()
G ＝ G ＋ 1
判断循环尾 ()
画板1.底图 ＝ bmp
oldGB色板 ＝ bmp
G ＝ 到整数 (编辑框2.内容)
B ＝ 到整数 (编辑框3.内容)
如果 (G ＝ oldG 且 B ＝ oldB)
画板2.底图 ＝ oldR色板
bmp ＝ _取空白字节集 (18486)
bmp ＝ 字节集替换 (bmp, 1, 54, _R)
R ＝ 0
x ＝ 55
y ＝ 56
z ＝ 57
判断循环首 (R ＜ 256)
计次循环首 (24, )
bmp [x] ＝ B
bmp [y] ＝ G
bmp [z] ＝ R
x ＝ x ＋ 3
y ＝ y ＋ 3
z ＝ z ＋ 3
计次循环尾 ()
R ＝ R ＋ 1
判断循环尾 ()
画板2.底图 ＝ bmp
oldR色板 ＝ bmp
R ＝ 到整数 (编辑框1.内容)
画板2.画直线 (0, 256 － R, 24, 256 － R)
画板3.画板背景色 ＝ 取颜色值 (R, G, B)
oldR ＝ R
oldG ＝ G
oldB ＝ B
G ＝ 256 － G
画板1.画弧线 (B － 4, G － 4, B ＋ 4, G ＋ 4, B － 4, G － 4, B, G)
画板1.画弧线 (B － 4, G － 4, B ＋ 4, G ＋ 4, B, G, B ＋ 4, G ＋ 4)
正在刷新 ＝ 假

.版本 2<br /> <br /> .子程序 重画画板<br /> .局部变量 R, 短整数型<br /> .局部变量 G, 短整数型<br /> .局部变量 B, 短整数型<br /> .局部变量 bmp, 字节集<br /> .局部变量 x, 整数型<br /> .局部变量 y, 整数型<br /> .局部变量 z, 整数型<br /> <br /> R ＝ 到整数 (编辑框1.内容)<br /> .如果 (R ＝ oldR)<br />     画板1.底图 ＝ oldGB色板<br /> .否则<br />     bmp ＝ _取空白字节集 (196662)<br />     bmp ＝ 字节集替换 (bmp, 1, 54, _GB)<br />     x ＝ 55<br />     y ＝ 56<br />     z ＝ 57<br />     .判断循环首 (G ＜ 256)<br />         B ＝ 0<br />         .判断循环首 (B ＜ 256)<br />             bmp [x] ＝ B<br />             bmp [y] ＝ G<br />             bmp [z] ＝ R<br />             x ＝ x ＋ 3<br />             y ＝ y ＋ 3<br />             z ＝ z ＋ 3<br />             B ＝ B ＋ 1<br />         .判断循环尾 ()<br />         G ＝ G ＋ 1<br />     .判断循环尾 ()<br />     画板1.底图 ＝ bmp<br />     oldGB色板 ＝ bmp<br /> .如果结束<br /> G ＝ 到整数 (编辑框2.内容)<br /> B ＝ 到整数 (编辑框3.内容)<br /> .如果 (G ＝ oldG 且 B ＝ oldB)<br />     画板2.底图 ＝ oldR色板<br /> .否则<br />     bmp ＝ _取空白字节集 (18486)<br />     bmp ＝ 字节集替换 (bmp, 1, 54, _R)<br />     R ＝ 0<br />     x ＝ 55<br />     y ＝ 56<br />     z ＝ 57<br />     .判断循环首 (R ＜ 256)<br />         .计次循环首 (24, )<br />             bmp [x] ＝ B<br />             bmp [y] ＝ G<br />             bmp [z] ＝ R<br />             x ＝ x ＋ 3<br />             y ＝ y ＋ 3<br />             z ＝ z ＋ 3<br />         .计次循环尾 ()<br />         R ＝ R ＋ 1<br />     .判断循环尾 ()<br />     画板2.底图 ＝ bmp<br />     oldR色板 ＝ bmp<br /> .如果结束<br /> R ＝ 到整数 (编辑框1.内容)<br /> 画板2.画直线 (0, 256 － R, 24, 256 － R)<br /> 画板3.画板背景色 ＝ 取颜色值 (R, G, B)<br /> <br /> oldR ＝ R<br /> oldG ＝ G<br /> oldB ＝ B<br /> G ＝ 256 － G<br /> <br /> 画板1.画弧线 (B － 4, G － 4, B ＋ 4, G ＋ 4, B － 4, G － 4, B, G)<br /> 画板1.画弧线 (B － 4, G － 4, B ＋ 4, G ＋ 4, B, G, B ＋ 4, G ＋ 4)<br /> 正在刷新 ＝ 假

帅气与大侠

汉族 发表于 2017-1-30 16:55
画渐变矩形（）？

  

子程序名	返回值类型	公开	备 注
重画画板

变量名	类 型	静态	数组	备 注
R	短整数型
G	短整数型
B	短整数型
bmp	字节集
x	整数型
y	整数型
z	整数型

R ＝ 到整数 (编辑框1.内容)
如果 (R ＝ oldR)
画板1.底图 ＝ oldGB色板
bmp ＝ _取空白字节集 (196662)
bmp ＝ 字节集替换 (bmp, 1, 54, _GB)
x ＝ 55
y ＝ 56
z ＝ 57
判断循环首 (G ＜ 256)
B ＝ 0
判断循环首 (B ＜ 256)
bmp [x] ＝ B
bmp [y] ＝ G
bmp [z] ＝ R
x ＝ x ＋ 3
y ＝ y ＋ 3
z ＝ z ＋ 3
B ＝ B ＋ 1
判断循环尾 ()
G ＝ G ＋ 1
判断循环尾 ()
画板1.底图 ＝ bmp
oldGB色板 ＝ bmp
G ＝ 到整数 (编辑框2.内容)
B ＝ 到整数 (编辑框3.内容)
如果 (G ＝ oldG 且 B ＝ oldB)
画板2.底图 ＝ oldR色板
bmp ＝ _取空白字节集 (18486)
bmp ＝ 字节集替换 (bmp, 1, 54, _R)
R ＝ 0
x ＝ 55
y ＝ 56
z ＝ 57
判断循环首 (R ＜ 256)
计次循环首 (24, )
bmp [x] ＝ B
bmp [y] ＝ G
bmp [z] ＝ R
x ＝ x ＋ 3
y ＝ y ＋ 3
z ＝ z ＋ 3
计次循环尾 ()
R ＝ R ＋ 1
判断循环尾 ()
画板2.底图 ＝ bmp
oldR色板 ＝ bmp
R ＝ 到整数 (编辑框1.内容)
画板2.画直线 (0, 256 － R, 24, 256 － R)
画板3.画板背景色 ＝ 取颜色值 (R, G, B)
oldR ＝ R
oldG ＝ G
oldB ＝ B
G ＝ 256 － G
画板1.画弧线 (B － 4, G － 4, B ＋ 4, G ＋ 4, B － 4, G － 4, B, G)
画板1.画弧线 (B － 4, G － 4, B ＋ 4, G ＋ 4, B, G, B ＋ 4, G ＋ 4)
正在刷新 ＝ 假

.版本 2<br /> <br /> .子程序 重画画板<br /> .局部变量 R, 短整数型<br /> .局部变量 G, 短整数型<br /> .局部变量 B, 短整数型<br /> .局部变量 bmp, 字节集<br /> .局部变量 x, 整数型<br /> .局部变量 y, 整数型<br /> .局部变量 z, 整数型<br /> <br /> R ＝ 到整数 (编辑框1.内容)<br /> .如果 (R ＝ oldR)<br />     画板1.底图 ＝ oldGB色板<br /> .否则<br />     bmp ＝ _取空白字节集 (196662)<br />     bmp ＝ 字节集替换 (bmp, 1, 54, _GB)<br />     x ＝ 55<br />     y ＝ 56<br />     z ＝ 57<br />     .判断循环首 (G ＜ 256)<br />         B ＝ 0<br />         .判断循环首 (B ＜ 256)<br />             bmp [x] ＝ B<br />             bmp [y] ＝ G<br />             bmp [z] ＝ R<br />             x ＝ x ＋ 3<br />             y ＝ y ＋ 3<br />             z ＝ z ＋ 3<br />             B ＝ B ＋ 1<br />         .判断循环尾 ()<br />         G ＝ G ＋ 1<br />     .判断循环尾 ()<br />     画板1.底图 ＝ bmp<br />     oldGB色板 ＝ bmp<br /> .如果结束<br /> G ＝ 到整数 (编辑框2.内容)<br /> B ＝ 到整数 (编辑框3.内容)<br /> .如果 (G ＝ oldG 且 B ＝ oldB)<br />     画板2.底图 ＝ oldR色板<br /> .否则<br />     bmp ＝ _取空白字节集 (18486)<br />     bmp ＝ 字节集替换 (bmp, 1, 54, _R)<br />     R ＝ 0<br />     x ＝ 55<br />     y ＝ 56<br />     z ＝ 57<br />     .判断循环首 (R ＜ 256)<br />         .计次循环首 (24, )<br />             bmp [x] ＝ B<br />             bmp [y] ＝ G<br />             bmp [z] ＝ R<br />             x ＝ x ＋ 3<br />             y ＝ y ＋ 3<br />             z ＝ z ＋ 3<br />         .计次循环尾 ()<br />         R ＝ R ＋ 1<br />     .判断循环尾 ()<br />     画板2.底图 ＝ bmp<br />     oldR色板 ＝ bmp<br /> .如果结束<br /> R ＝ 到整数 (编辑框1.内容)<br /> 画板2.画直线 (0, 256 － R, 24, 256 － R)<br /> 画板3.画板背景色 ＝ 取颜色值 (R, G, B)<br /> <br /> oldR ＝ R<br /> oldG ＝ G<br /> oldB ＝ B<br /> G ＝ 256 － G<br /> <br /> 画板1.画弧线 (B － 4, G － 4, B ＋ 4, G ＋ 4, B － 4, G － 4, B, G)<br /> 画板1.画弧线 (B － 4, G － 4, B ＋ 4, G ＋ 4, B, G, B ＋ 4, G ＋ 4)<br /> 正在刷新 ＝ 假

帅气与大侠

汉族 发表于 2017-1-30 16:55
画渐变矩形（）？

  

子程序名	返回值类型	公开	备 注
重画画板

变量名	类 型	静态	数组	备 注
R	短整数型
G	短整数型
B	短整数型
bmp	字节集
x	整数型
y	整数型
z	整数型

R ＝ 到整数 (编辑框1.内容)
如果 (R ＝ oldR)
画板1.底图 ＝ oldGB色板
bmp ＝ _取空白字节集 (196662)
bmp ＝ 字节集替换 (bmp, 1, 54, _GB)
x ＝ 55
y ＝ 56
z ＝ 57
判断循环首 (G ＜ 256)
B ＝ 0
判断循环首 (B ＜ 256)
bmp [x] ＝ B
bmp [y] ＝ G
bmp [z] ＝ R
x ＝ x ＋ 3
y ＝ y ＋ 3
z ＝ z ＋ 3
B ＝ B ＋ 1
判断循环尾 ()
G ＝ G ＋ 1
判断循环尾 ()
画板1.底图 ＝ bmp
oldGB色板 ＝ bmp
G ＝ 到整数 (编辑框2.内容)
B ＝ 到整数 (编辑框3.内容)
如果 (G ＝ oldG 且 B ＝ oldB)
画板2.底图 ＝ oldR色板
bmp ＝ _取空白字节集 (18486)
bmp ＝ 字节集替换 (bmp, 1, 54, _R)
R ＝ 0
x ＝ 55
y ＝ 56
z ＝ 57
判断循环首 (R ＜ 256)
计次循环首 (24, )
bmp [x] ＝ B
bmp [y] ＝ G
bmp [z] ＝ R
x ＝ x ＋ 3
y ＝ y ＋ 3
z ＝ z ＋ 3
计次循环尾 ()
R ＝ R ＋ 1
判断循环尾 ()
画板2.底图 ＝ bmp
oldR色板 ＝ bmp
R ＝ 到整数 (编辑框1.内容)
画板2.画直线 (0, 256 － R, 24, 256 － R)
画板3.画板背景色 ＝ 取颜色值 (R, G, B)
oldR ＝ R
oldG ＝ G
oldB ＝ B
G ＝ 256 － G
画板1.画弧线 (B － 4, G － 4, B ＋ 4, G ＋ 4, B － 4, G － 4, B, G)
画板1.画弧线 (B － 4, G － 4, B ＋ 4, G ＋ 4, B, G, B ＋ 4, G ＋ 4)
正在刷新 ＝ 假

.版本 2<br /> <br /> .子程序 重画画板<br /> .局部变量 R, 短整数型<br /> .局部变量 G, 短整数型<br /> .局部变量 B, 短整数型<br /> .局部变量 bmp, 字节集<br /> .局部变量 x, 整数型<br /> .局部变量 y, 整数型<br /> .局部变量 z, 整数型<br /> <br /> R ＝ 到整数 (编辑框1.内容)<br /> .如果 (R ＝ oldR)<br />     画板1.底图 ＝ oldGB色板<br /> .否则<br />     bmp ＝ _取空白字节集 (196662)<br />     bmp ＝ 字节集替换 (bmp, 1, 54, _GB)<br />     x ＝ 55<br />     y ＝ 56<br />     z ＝ 57<br />     .判断循环首 (G ＜ 256)<br />         B ＝ 0<br />         .判断循环首 (B ＜ 256)<br />             bmp [x] ＝ B<br />             bmp [y] ＝ G<br />             bmp [z] ＝ R<br />             x ＝ x ＋ 3<br />             y ＝ y ＋ 3<br />             z ＝ z ＋ 3<br />             B ＝ B ＋ 1<br />         .判断循环尾 ()<br />         G ＝ G ＋ 1<br />     .判断循环尾 ()<br />     画板1.底图 ＝ bmp<br />     oldGB色板 ＝ bmp<br /> .如果结束<br /> G ＝ 到整数 (编辑框2.内容)<br /> B ＝ 到整数 (编辑框3.内容)<br /> .如果 (G ＝ oldG 且 B ＝ oldB)<br />     画板2.底图 ＝ oldR色板<br /> .否则<br />     bmp ＝ _取空白字节集 (18486)<br />     bmp ＝ 字节集替换 (bmp, 1, 54, _R)<br />     R ＝ 0<br />     x ＝ 55<br />     y ＝ 56<br />     z ＝ 57<br />     .判断循环首 (R ＜ 256)<br />         .计次循环首 (24, )<br />             bmp [x] ＝ B<br />             bmp [y] ＝ G<br />             bmp [z] ＝ R<br />             x ＝ x ＋ 3<br />             y ＝ y ＋ 3<br />             z ＝ z ＋ 3<br />         .计次循环尾 ()<br />         R ＝ R ＋ 1<br />     .判断循环尾 ()<br />     画板2.底图 ＝ bmp<br />     oldR色板 ＝ bmp<br /> .如果结束<br /> R ＝ 到整数 (编辑框1.内容)<br /> 画板2.画直线 (0, 256 － R, 24, 256 － R)<br /> 画板3.画板背景色 ＝ 取颜色值 (R, G, B)<br /> <br /> oldR ＝ R<br /> oldG ＝ G<br /> oldB ＝ B<br /> G ＝ 256 － G<br /> <br /> 画板1.画弧线 (B － 4, G － 4, B ＋ 4, G ＋ 4, B － 4, G － 4, B, G)<br /> 画板1.画弧线 (B － 4, G － 4, B ＋ 4, G ＋ 4, B, G, B ＋ 4, G ＋ 4)<br /> 正在刷新 ＝ 假

网络注册会员

我来顶一顶

汉族

画渐变矩形（）？

福仔

看看怎么实现的