新しく発言する EXIT インデックスへ
新しいはかり

  新しいはかり ひろ 2004/02/08 08:14:04 
  20forq=0to3600step400 ひろ 2004/02/08 08:14:39 
  │└500グラムの重りはオレンジにしてくれますか... もりの 2004/02/08 09:05:06 
  │ └メールでお伝えしたように ひろ 2004/02/09 18:52:18 
  │  └ひろさん もりの 2004/02/09 18:59:10 
  ひろさんへ もりの 2004/02/08 17:04:04 
  入力方法について もりの 2004/02/08 17:08:18 

  新しいはかり ひろ 2004/02/08 08:14:04  ツリーへ

新しいはかり 返事を書く
ひろ 2004/02/08 08:14:04
新しいはかりができました。
目盛はまだです。

DECLARE EXTERNAL PICTURE hari
OPTION ANGLE DEGREES
SET BITMAP SIZE 950,950
SET WINDOW -1,1,-1,1
INPUT PROMPT "どのはかりを使いますか? 0、500g 1、1kg 2、4kg 3、5s ":e
INPUT PROMPT "□s□g ※sとgは,でくぎって入力してください。 もし入力しない場合は0と入力してください。":w,aa
LET f=w*1000+aa
SELECT CASE e
CASE 0
LET g=-(f/500*360)
DRAW hari(2) WITH ROTATE(g)
SET AREA COLOR 1
PLOT AREA:0.2,0.6;-0.2,0.6;-0.2,0.65;0.2,0.65
CASE 1
LET g=-(f/1000*360)
DRAW hari(2) WITH ROTATE(g)
SET AREA COLOR 3
PLOT AREA:0.4,0.6;-0.4,0.6;-0.4,0.8;0.4,0.8
CASE 2
LET g=-(f/4000*360)
DRAW hari(2) WITH ROTATE(g)
SET COLOR 23
PLOT AREA:0.4,0.6;-0.4,0.6;-0.4,1;0.4,1
CASE 3
LET g=-(f/5000*360)
DRAW hari(2) WITH ROTATE(g)
SET AREA COLOR 48
PLOT AREA:0.6,0.6;-0.6,0.6;-0.6,1;0.6,1
END SELECT

MOUSE POLL x,y,l,r
SET LINE WIDTH 6
SET AREA COLOR 38
DRAW disk WITH SCALE(0.5)*SHIFT(0,0)
SET LINE COLOR 1
PLOT LINES:-0.5,0.5;0.5,0.5;0.5,-0.5;-0.5,-0.5;-0.5,0.5
PLOT LINES:-0.1,0.5;-0.1,0.6
PLOT LINES:0.1,0.5;0.1,0.6
PLOT LINES:-0.7,0.6;0.7,0.6
PLOT LINES:-0.7,0.6;-0.7,0.8
PLOT LINES:0.7,0.6;0.7,0.8
SET COLOR 5
PLOT AREA:-0.5,-0.5;-0.9,-0.8;0.9,-0.8;0.5,-0.5
SET COLOR 1
PLOT LINES:-0.5,-0.5;-0.9,-0.8;0.9,-0.8;0.5,-0.5;-0.5,-0.5
SET COLOR 4
SET TEXT FONT "MS 明朝",12
SELECT CASE e
CASE 0
GOTO 1
CASE 1
GOTO 10
CASE 2
GOTO 20
CASE 3
GOTO 30
END SELECT
1 for q=0 to 450 step 50
LET o=90-q/500*360
PLOT TEXT ,AT COS(o)*0.45-0.02,SIN(o)*0.45: str$(q)
next q
PLOT TEXT ,AT -0.5,-1:"※単位はグラム。"
SET LINE WIDTH 2
FOR R=1 TO 360 STEP 360/50
SET COLOR 1
PLOT LINES:COS(r)*0.5,SIN(r)*0.5;COS(r)*0.48,SIN(r)*0.48
NEXT r
GOTO 40
10 for q=0 to 900 step 100
LET o=90-q/1000*360
PLOT TEXT ,AT COS(o)*0.45-0.02,SIN(o)*0.45: str$(q)
next q
PLOT TEXT ,AT -0.5,-1:"※単位はグラム。"
SET LINE WIDTH 2
FOR R=1 TO 360 STEP 3.6
SET COLOR 1
PLOT LINES:COS(r)*0.5,SIN(r)*0.5;COS(r)*0.48,SIN(r)*0.48
NEXT r
GOTO 40

  20forq=0to3600step400 ひろ 2004/02/08 08:14:39  ツリーへ

Re: 新しいはかり 返事を書く
ひろ 2004/02/08 08:14:39
20 for q=0 to 3600 step 400
LET o=90-q/4000*360
PLOT TEXT ,AT COS(o)*0.45-0.02,SIN(o)*0.45: str$(q)
next q
PLOT TEXT ,AT -0.5,-1:"※単位はグラム。"
SET LINE WIDTH 2
FOR R=1 TO 360 STEP 360/80
SET COLOR 1
PLOT LINES:COS(r)*0.5,SIN(r)*0.5;COS(r)*0.48,SIN(r)*0.48
NEXT r
GOTO 40
30 for q=0 to 4500 step 500
LET o=90-q/5000*360
PLOT TEXT ,AT COS(o)*0.45-0.02,SIN(o)*0.45: str$(q)
next q
PLOT TEXT ,AT -0.5,-1:"※単位はグラム。"
SET LINE WIDTH 2
FOR R=1 TO 360 STEP 360/100
SET COLOR 1
PLOT LINES:COS(r)*0.5,SIN(r)*0.5;COS(r)*0.48,SIN(r)*0.48
NEXT r
GOTO 40
40
DO
MOUSE POLL x,y,l,r
IF l=1 THEN LET g=ANGLE(x,y)-90
DRAW hari(2) WITH ROTATE(g)
WAIT DELAY 0.02
set draw mode explicit
set draw mode hidden
DRAW hari(38) WITH ROTATE(g)
LOOP
END



EXTERNAL PICTURE hari(n)
SET COLOR n
PLOT AREA:0,0;-0.01,0.3;0,0.4;0.01,0.3
END PICTURE

  │└500グラムの重りはオレンジにしてくれますか... もりの 2004/02/08 09:05:06  ツリーへ

Re: 20forq=0to3600step400 返事を書く
もりの 2004/02/08 09:05:06
500グラムの重りはオレンジにしてくれますか
全部改良できたらアップしてくれますか
分割するようならメールでおくってくれますか?

  │ └メールでお伝えしたように ひろ 2004/02/09 18:52:18  ツリーへ

Re: 500グラムの重りはオレンジにしてくれますか... 返事を書く
ひろ 2004/02/09 18:52:18
メールでお伝えしたように
私はもうはかりを作ることをあきらめます。
不満なところは忙しくないときに自分で作ってください。

  │  └ひろさん もりの 2004/02/09 18:59:10  ツリーへ

Re: メールでお伝えしたように 返事を書く
もりの 2004/02/09 18:59:10
ひろさん
ありがとうございました
今ためしているところです

  ひろさんへ もりの 2004/02/08 17:04:04  ツリーへ

Re: 新しいはかり 返事を書く
もりの 2004/02/08 17:04:04
ひろさんへ
完成しそうですか?

  入力方法について もりの 2004/02/08 17:08:18  ツリーへ

Re: 新しいはかり 返事を書く
もりの 2004/02/08 17:08:18
入力方法について
kgの□の中の入力が終わったら
自動的にカーソルが gの□の枠に移動し
入力待ちになるようにはできませんかね。
そうほうがやりやすいし
こどもにはそのほうがいいでしょう


インデックスへ EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。