R=255 G=255 B=255 goto 2 label 1 msgdlg("このツールの使い方説明"," key select: 終了 key down: colorをコピーする 取得はscan key 1: Rを1上げる key 2: Gを1上げる key 3: Bを1上げる key 4: Rを1下げる key 5: Gを1下げる key 6: Bを1下げる 取得はinput key 7: 同上 key 8: 同上 key 9: 同上 key *: 同上 key 0: 同上 key #: 同上 ") label 2 while(1){ lock() cls() col(black) frect(0,0,300,300) col(white) text("上キーでこのツールの使い方説明",40,160,0) color(R,G,B) text("Hello color",90,120,0) col(white) text("R".R,200,0,0) text("G".G,200,15,0) text("B".B,200,30,0) col(black) if(scan==65536){end} switch(scan){ case 2 : R++ if(R>255){R=0} break; case 4 : G++ if(G>255){G=0} break; case 8 : B++ if(B>255){B=0} break; case 16 : if(R==0){R=256} R-- break; case 32 : if(G==0){G=256} G-- break; case 64 : if(B==0){B=256} B-- break; case 4096 : goto 1 break; } switch(input(0)){ case 32768 : inputdlg("colorコピー","color(".R.",".G.",".B.")",5000,0) break; case 128 : R++ if(R>255){R=0} break; case 256 : G++ if(G>255){G=0} break; case 512 : B++ if(B>255){B=0} break; case 1024 : if(R==0){R=256} R-- break; case 1 : if(G==0){G=256} G-- break; case 2048 : if(B==0){B=256} B-- break; } unlock() }
FrontPage
関数一覧
記号一覧
SPALM入門
作品集
自作関数活用術
ダウンロード先
うpロダ
wikiの使い方
SPALMまでの歴史
現行スレ