PC・PSP・DSじぇーぴー

当ブログでは主にPSP・DSそしてPCのソフトを紹介していきます.

Powered by Ayapon RSS! オススメ ペニオク オークション比較

PREV | PAGE-SELECT | NEXT

≫ EDIT

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

| スポンサー広告 | --:-- | comments(-) | trackbacks(-) | TOP↑

≫ EDIT

ペイントソフト作ったおー

HSPの講座を見させてもらって、3日で習得してやるぜへっへーといった
4日目です。
んで、作ったのがこちら
m9000008.jpg
何だこの糞ソフト、
でも、ちゃんと色はついている!(基本の4色+1のみ)
m9000009.jpg
ちなみに、このプログラム
理解すれば小学生でもかけてしまうという・・・
俺の立場ナッシング
しかし、こんなソフトでも動いてくれたという感動がすごくあります・・・
ちなみに、続きを読むにソースコード晒しますが、やり方がわからなかったので
全部白にの記述が酷いです、誰か直してください(笑)

ソースは続きを読むで

お土産、糞ペイントソフト


size=600
screen 0,size,size
button "全部白に" ,*siro
button "ペン先赤" ,*penaka
button "ペン先黒" ,*penkuro
button "ペン先緑" ,*penmido
button "ペン先青" ,*penao
button "消しゴム" ,*kesigomu
repeat
getkey key,1
if key=1:line x,y,mousex,mousey

x=mousex:y=mousey
await 1
loop

button "ペン先黒" ,*penkuro
*siro
cls
button "全部白に" ,*siro
button "ペン先赤" ,*penaka
button "ペン先黒" ,*penkuro
button "ペン先緑" ,*penmido
button "ペン先青" ,*penao
button "消しゴム" ,*kesigomu
repeat
getkey key,1
if key=1:line x,y,mousex,mousey

x=mousex:y=mousey
await 1
loop
*penkuro
color 0,0,0
repeat
getkey key,1
if key=1:line x,y,mousex,mousey

x=mousex:y=mousey
await 1
loop

*penaka
color 255,0,0
repeat
getkey key,1
if key=1:line x,y,mousex,mousey

x=mousex:y=mousey
await 1
loop
*penmido
color 0,255,0
repeat
getkey key,1
if key=1:line x,y,mousex,mousey

x=mousex:y=mousey
await 1
loop
*penao
color 0,0,255
repeat
getkey key,1
if key=1:line x,y,mousex,mousey

x=mousex:y=mousey
await 1
loop
*kesigomu
color 255,255,255
repeat
getkey key,1
if key=1:line x,y,mousex,mousey

x=mousex:y=mousey
await 1
loop
スポンサーサイト

| その他 日記 | 17:00 | comments:0 | trackbacks:0 | TOP↑

COMMENT















非公開コメント

TRACKBACK URL

http://0oa.blog102.fc2.com/tb.php/9-cf18849f

TRACKBACK

PREV | PAGE-SELECT | NEXT

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。