ペイントを作ってるけど
ごりら 2013/6/30(Sun) 12:16:13|NO.55351
ペイントを作ってるんですけど、消しゴム機能とファイルの開き方と保存の方法色の変更の方法がわかりません。
↓のコードをいじってつくってください。一気にこんなに聞いてすみませんorz
*hazime
screen 0,640,480
boxf 0,0,100,500
objsize 100,20
button goto "鉛筆 ",*roo
button goto "太ペン ",*hosi
button goto "初期化",*hazime
button goto "消しゴム",*kesi
button goto "色の変更",*iro
button goto "保存",*hozo
button goto "開く",*hira
stop
*roo
repeat
getkey mc,1
if mc = 1 : line mousex,mousey : else : pos mousex,mousey
wait 1
loop
stop
*hosi
paint_char(0)="●"
*top
title ">"+paint_char(n)
x=mousex:y=mousey
stick key,256
if (key & 256):pos x-10,y-10:mes paint_char(n)
if (key & 512):n=(n+1) & 3
await 1
goto *top
stop
*kesi
stop
*iro
dialog "",38
stop
*hozo
stop
*hira
stop
KA 2013/6/30(Sun) 13:38:33|NO.55354
消しゴム機能・・・色を背景色と同じにするだけです。
ファイルの開き方・・・過去ログ検索しましょう。
保存の方法・・・過去ログ検索しましょう。
色の変更・・・COLORを使います。
いじってつくってください・・・誰か親切な人が叶えてくれるでしょう。
やまぎ 2013/6/30(Sun) 16:11:41|NO.55373
適当に返す感じになってしまいますが
このサイトはどうでしょうか?参考になると思うのですが
http://kataline.com/hsp.html
ここの掲示板ってほかのサイトを貼っていいのかわからないので
貼ってはいけないのでなれば除去するので言ってください
fortunehill 2013/6/30(Sun) 16:40:08|NO.55375
/*ご参考(メニューやツールボックスや別ウインドウ等考察して下さい)*/
#include "gdi32.as"
#include "user32.as"
mref Bm,67
dim Pe,16 :Pe = 0,0,1,0
font msmincho,13
objmode 3
button gosub "端点○",*label_1
button gosub "端点□",*label_2
button gosub "細 線",*label_3
button gosub "太 線",*label_4
button gosub "直 線",*label_5
button gosub "点 線",*label_6
button gosub " 色 ",*label_7
button gosub "消ゴム",*label_8
button gosub "消 去",*label_9
button gosub "開 く",*label_A
button gosub "保 存",*label_B
repeat
:WindowFromPoint ginfo(0),ginfo(1)
getkey ii,1 :if (ii == 1) and (stat = hwnd) {line mousex,mousey} else {pos mousex,mousey}
await :redraw
loop
stop
*label_1 :Pe(0) = 0 :gosub *Label_D :gosub *label_C :return
*label_2 :Pe(0) = $100 :gosub *Label_D :gosub *label_C :return
*label_3 :Pe(2) = 1 :gosub *Label_D :gosub *label_C :return
*label_4 :Pe(2) = 10 :gosub *Label_D :gosub *label_C :return
*label_5 :Pe(1) = 0 :gosub *Label_D :gosub *label_C :return
*label_6 :Pe(1) = 2 :gosub *Label_D :gosub *label_C :return
*label_7 :dialog "",38
if (stat) {Pe(3) = ((ginfo_b<<16 & $FF0000)|(ginfo_g<<8&$FF00)|(ginfo_r&$FF))
:gosub *label_C} :return
*label_8 :Pe(3) = $ffffff : :gosub *label_C :return
*label_9 :color $ff,$ff,$ff :boxf :Pe = 0,0,1,0 :gosub *label_C :return
*label_A :dialog "bmp",16
if (stat) {pos 0,0 :gosub *label_9 :picload refstr,1} :return
*label_B :dialog "bmp",17
if (stat) {bmpsave refstr} : :return
*label_C :nn = 0,Pe(3),0:ExtCreatePen $10000|Pe(0)|Pe(1),Pe(2),varptr(nn),0,0
:Pe(4) = stat :Bm(37) = Pe(4) :return
*label_D :if (Pe(3) == $ffffff) {Pe(3) = 0} :return
ごりら 2013/6/30(Sun) 16:46:33|NO.55376
あなたのような方がいるので、自分で解決方法を編み出しました
ごりら 2013/6/30(Sun) 16:47:29|NO.55377
↑kaさんにいっておるぞ
カレー 2013/7/1(Mon) 02:42:19|NO.55405
自分で作るのが当たり前じゃないの?
いじってつくってください・・・ってなんでHSP使ってんの?
判らない部分を教えて下さいってのなら解るんだけど・・・
KAさんは充分親切じゃないかと思いますが。
KA 2013/7/1(Mon) 11:21:45|NO.55411
解決の参考になれてうれしく思います。