重さくらべ、そろばん

　　重さくらべ、そろばん もりの 2004/01/29 23:17:34 
　　└どういうものかによりますけど ひろ 2004/01/30 17:30:30 
　　　└そろばんの指導があと2～3週間後にあるので... もりの 2004/01/30 18:42:05 
　　　　└そろばんのデザインはこんなものでよろしい... ひろ 2004/01/30 20:07:52 
　　　　　├だいたいいいとおもいます もりの 2004/01/30 20:21:11 
　　　　　└そろばんプログラムなんて もりの 2004/01/30 20:28:08 
　　　　　　└デザインを改良しました。 ひろ 2004/01/31 20:34:48 
　　　　　　　└追伸 ひろ 2004/01/31 20:39:58 
　　　　　　　　└改良に改良を重ねた結果 ひろ 2004/01/31 21:10:44 
　　　　　　　　　├五列あればいいと思います。 もりの 2004/01/31 21:38:41 
　　　　　　　　　└背景を何色にするかが もりの 2004/01/31 21:43:27 
　　　　　　　　　　└五列になっていません。 ひろ 2004/01/31 22:33:47 
　　　　　　　　　　　└まだ五列になっていませんが、 ひろ 2004/01/31 22:57:52 
　　　　　　　　　　　　└ごだまは白い線にくっついていたほうが もりの 2004/01/31 23:15:02 
　　　　　　　　　　　　　└どういう意味ですか?↓ ひろ 2004/02/01 07:39:11 
　　　　　　　　　　　　　　└よくなったと もりの 2004/02/01 09:07:46 
　　　　　　　　　　　　　　　└できた！ ひろ 2004/02/01 09:46:52 
　　　　　　　　　　　　　　　　├続きです。 ひろ 2004/02/01 09:49:17 
　　　　　　　　　　　　　　　　│└また続きです。 ひろ 2004/02/01 09:50:18 
　　　　　　　　　　　　　　　　│　├またまた続きです。 ひろ 2004/02/01 09:51:07 
　　　　　　　　　　　　　　　　│　│└これで最後です。 ひろ 2004/02/01 09:51:48 
　　　　　　　　　　　　　　　　│　│　└ごめんなさい ひろ 2004/02/01 09:52:40 
　　　　　　　　　　　　　　　　│　└改良ありがとう＾＾ もりの 2004/02/01 09:53:59 
　　　　　　　　　　　　　　　　└大きくてコピー貼り付けが もりの 2004/02/01 10:11:45 
　　　　　　　　　　　　　　　　　└メール届きましたか? ひろ 2004/02/01 11:36:58 
　　　　　　　　　　　　　　　　　　└届きました もりの 2004/02/01 11:56:49 
　　　　　　　　　　　　　　　　　　　└今度もまたメールを送りましたが、 ひろ 2004/02/01 12:40:06 
　　　　　　　　　　　　　　　　　　　　└メールあとでみてみます。 もりの 2004/02/01 13:03:17 
　　　　　　　　　　　　　　　　　　　　　└クリアっていうクリックの もりの 2004/02/01 16:56:29 
　　　　　　　　　　　　　　　　　　　　　　└またメールを送りました。 ひろ 2004/02/01 19:32:12

　　重さくらべ、そろばん もりの 2004/01/29 23:17:34  ツリーへ

重さくらべ、そろばん

もりの 2004/01/29 23:17:34

重さ比べ
そろばんやり方
プログラムを募集します
作ってみたいかたは
申し出てください
イメージをお伝えします。

　　└どういうものかによりますけど ひろ 2004/01/30 17:30:30  ツリーへ

Re: 重さくらべ、そろばん

ひろ 2004/01/30 17:30:30

どういうものかによりますけど
作ってみたいです。

　　　└そろばんの指導があと2～3週間後にあるので... もりの 2004/01/30 18:42:05  ツリーへ

Re: どういうものかによりますけど

もりの 2004/01/30 18:42:05

そろばんの指導があと2～3週間後にあるのですが
いつもはそろばん道場の人がきているようです。
ですが、教材の電子化の観点から
初めてでしょうけど
そろばんの玉をマウスで動かしながら
暗算を計算していくなんておもしろいと
思ったのです
ピアノの鍵盤をキーボードで打つのと
同じ原理ですよ

23+56
32-12
とか最初に問題が表示され
次にマウスで３円なり
４えんなりとか
やっていくわけです
とにかくひろさんの
思ったアイデアいちど
つくってくれますか
なんどかアドバイス
すれば授業で使えるものは
できますよ
ひろさんはプログラマー
なんでしょ

　　　　└そろばんのデザインはこんなものでよろしい... ひろ 2004/01/30 20:07:52  ツリーへ

Re: そろばんの指導があと2～3週間後にあるので...

ひろ 2004/01/30 20:07:52

そろばんのデザインはこんなものでよろしいでしょうか。
（1個しかありませんが、ゆくゆくは複数個つけるつもりです。）

DECLARE EXTERNAL PICTURE tama
SET WINDOW 0,10,0,10
DIM A(5)
LET A(1)=2
LET A(2)=3
LET A(3)=4
LET A(4)=5
LET A(5)=8
PLOT LINES:3.5,9;5.5,9;5.5,1.5;3.5,1.5;3.5,9
PLOT LINES:3.5,6.5;5.5,6.5
PLOT LINES:4.5,9;4.5,1.5
DRAW tama WITH SCALE(0.5)*SHIFT(4,A(1))
DRAW tama WITH SCALE(0.5)*SHIFT(4,A(2))
DRAW tama WITH SCALE(0.5)*SHIFT(4,A(3))
DRAW tama WITH SCALE(0.5)*SHIFT(4,A(4))
DRAW tama WITH SCALE(0.5)*SHIFT(4,A(5))
END

EXTERNAL PICTURE tama
SET COLOR 12
PLOT AREA:0,0.5;1,1;2,0.5;1,0
SET COLOR 1
PLOT LINES:0,0.5;2,0.5
END PICTURE

応用ができるように無駄な部分が
ありますが気にしないでください。

それと、
私はプログラマーではありません。
プログラムをくむことが専門というのは
プログラマー　という意味ではなく、
ただプログラムをくむことしかできない
という意味です。

　　　　　├だいたいいいとおもいます もりの 2004/01/30 20:21:11  ツリーへ

Re: そろばんのデザインはこんなものでよろしい...

もりの 2004/01/30 20:21:11

だいたいいいとおもいます

たまはもう少し丸めのほうがいいかも
そろばんの枠はもう少し太め

たまのあるたての罫線は竹ひごみたいな
ほうがいいかもね

あと一個目と二個目のたまの間は
大事なので
太いオレンジ色の線のようなものの
ほうがいいかも
ありがとね
すぐつくれるなんてすごいね

　　　　　└そろばんプログラムなんて もりの 2004/01/30 20:28:08  ツリーへ

Re: そろばんのデザインはこんなものでよろしい...

もりの 2004/01/30 20:28:08

そろばんプログラムなんて
めったにないから
できたらすごいね
東京学芸大学に
折り紙　ソフト　が
あるけど
それ以上のものが
できるとすごいね
これ使って暗算
大会やりたいな
きっとうけますよ

＾＾

　　　　　　└デザインを改良しました。 ひろ 2004/01/31 20:34:48  ツリーへ

Re: そろばんプログラムなんて

ひろ 2004/01/31 20:34:48

デザインを改良しました。

DECLARE EXTERNAL PICTURE tama
SET WINDOW 0,10,0,10
DIM A(5)
LET A(1)=2
LET A(2)=3
LET A(3)=4
LET A(4)=5
LET A(5)=8
SET LINE COLOR 1
SET LINE WIDTH 10
PLOT LINES:3.5,9;5.5,9;5.5,1.5;3.5,1.5;3.5,9
SET LINE WIDTH 3
PLOT LINES:3.5,6.5;5.5,6.5
SET LINE COLOR 43
SET LINE WIDTH 6
PLOT LINES:4.5,8.9;4.5,1.6
DRAW tama WITH SCALE(0.5)*SHIFT(4,A(1))
DRAW tama WITH SCALE(0.5)*SHIFT(4,A(2))
DRAW tama WITH SCALE(0.5)*SHIFT(4,A(3))
DRAW tama WITH SCALE(0.5)*SHIFT(4,A(4))
DRAW tama WITH SCALE(0.5)*SHIFT(4,A(5))
END

EXTERNAL PICTURE tama
SET COLOR 12
PLOT AREA:0,0.5;1,1;2,0.5;1,0
SET LINE WIDTH 1
SET COLOR 1
PLOT LINES:0,0.5;2,0.5
END PICTURE

　　　　　　　└追伸 ひろ 2004/01/31 20:39:58  ツリーへ

Re: デザインを改良しました。

ひろ 2004/01/31 20:39:58

追伸

珠はだいたい横になんセットぐらいつければよろしいでしょうか。
珠を動かすプログラムのせいさくは、まだまだかかりそうです。

　　　　　　　　└改良に改良を重ねた結果 ひろ 2004/01/31 21:10:44  ツリーへ

Re: 追伸

ひろ 2004/01/31 21:10:44

改良に改良を重ねた結果
やはりこのデザインが一番いいと私はふみました。
（まえのは忘れてもいいです。）

DECLARE EXTERNAL PICTURE tama
SET WINDOW 0,10,0,10
DIM A(5)
LET A(1)=2
LET A(2)=3
LET A(3)=4
LET A(4)=5
LET A(5)=8
SET LINE COLOR 1
SET LINE WIDTH 10
PLOT LINES:3.5,9;5.5,9;5.5,1.5;3.5,1.5;3.5,9
SET LINE COLOR 43
SET LINE WIDTH 3
PLOT LINES:3.5,6.5;5.5,6.5
SET LINE COLOR 12
SET LINE WIDTH 6
PLOT LINES:4.5,8.9;4.5,1.6
SET LINE WIDTH 1
DRAW tama WITH SCALE(0.5)*SHIFT(4,A(1))
DRAW tama WITH SCALE(0.5)*SHIFT(4,A(2))
DRAW tama WITH SCALE(0.5)*SHIFT(4,A(3))
DRAW tama WITH SCALE(0.5)*SHIFT(4,A(4))
DRAW tama WITH SCALE(0.5)*SHIFT(4,A(5))
END

EXTERNAL PICTURE tama
SET COLOR 12
PLOT AREA:0,0.5;1,1;2,0.5;1,0
SET LINE WIDTH 1
SET COLOR 1
PLOT LINES:0,0.5;2,0.5
PLOT LINES:0,0.5;1,1;2,0.5;1,0;0,0.5
END PICTURE

　　　　　　　　　├五列あればいいと思います。 もりの 2004/01/31 21:38:41  ツリーへ

Re: 改良に改良を重ねた結果

もりの 2004/01/31 21:38:41

五列あればいいと思います。
３年生しかやらないので
万のくらいまででいいと思います。
横の上のごダマのしたの横線は
白です。
白線に一の位と千の位に
黒のドット（点）の印を
付けてください
下の四つの玉は最初くっついて
います
上のたまははらうと全部上のくっつきますね
改良できますか？
ほんとにありがとう
ございます。
玉が動くようになるのが
楽しみですね。
どうやると動くのかな？
おもしろそう

　　　　　　　　　└背景を何色にするかが もりの 2004/01/31 21:43:27  ツリーへ

Re: 改良に改良を重ねた結果

もりの 2004/01/31 21:43:27

背景を何色にするかが
もんだいですね
何いろがいいかな？
うすいグリーンなんて
いいかもね

白線はくっきり
その上下に黒い線があったほうが
いいですね。

　　　　　　　　　　└五列になっていません。 ひろ 2004/01/31 22:33:47  ツリーへ

Re: 背景を何色にするかが

ひろ 2004/01/31 22:33:47

五列になっていません。
珠もくっついていません。
しかし、珠を動かせるようになりました。

DECLARE EXTERNAL PICTURE tama
SET WINDOW 0,10,0,10
DIM A(5)
LET A(1)=2
LET A(2)=3
LET A(3)=4
LET A(4)=5
LET A(5)=8
10 SET COLOR 3
PLOT AREA:0,0;10,0;10,10;0,10
SET LINE COLOR 1
SET LINE WIDTH 10
PLOT LINES:3.5,9;5.5,9;5.5,1.5;3.5,1.5;3.5,9
SET LINE COLOR 0
SET LINE WIDTH 3
PLOT LINES:3.5,6.5;5.5,6.5
SET LINE COLOR 12
SET LINE WIDTH 6
PLOT LINES:4.5,8.9;4.5,1.6
SET LINE WIDTH 1
DRAW tama WITH SCALE(0.5)*SHIFT(4,A(1))
DRAW tama WITH SCALE(0.5)*SHIFT(4,A(2))
DRAW tama WITH SCALE(0.5)*SHIFT(4,A(3))
DRAW tama WITH SCALE(0.5)*SHIFT(4,A(4))
DRAW tama WITH SCALE(0.5)*SHIFT(4,A(5))
MOUSE POLL x,y,l,r
IF x<=5 AND x>=4 AND y<=A(5)+0.5 AND y>=A(5) AND A(5)=8 AND l=1 THEN LET A(5)=7
IF x<=5 AND x>=4 AND y<=A(5)+0.5 AND y>=A(5) AND A(5)=7 AND l=1 THEN LET A(5)=8
IF x<=5 AND x>=4 AND y<=A(4)+0.5 AND y>=A(4) AND A(4)=5 AND l=1 THEN LET A(4)=6
IF x<=5 AND x>=4 AND y<=A(4)+0.5 AND y>=A(4) AND A(4)=6 AND l=1 THEN GOTO 20
IF x<=5 AND x>=4 AND y<=A(3)+0.5 AND y>=A(3) AND A(3)=4 AND l=1 THEN GOTO 30
IF x<=5 AND x>=4 AND y<=A(3)+0.5 AND y>=A(3) AND A(3)=5 AND l=1 THEN GOTO 40
IF x<=5 AND x>=4 AND y<=A(2)+0.5 AND y>=A(2) AND A(2)=3 AND l=1 THEN GOTO 50
IF x<=5 AND x>=4 AND y<=A(2)+0.5 AND y>=A(2) AND A(2)=4 AND l=1 THEN GOTO 60
IF x<=5 AND x>=4 AND y<=A(1)+0.5 AND y>=A(1) AND A(1)=2 AND l=1 THEN GOTO 70
IF x<=5 AND x>=4 AND y<=A(1)+0.5 AND y>=A(1) AND A(1)=3 AND l=1 THEN LET A(1)=2
15 set draw mode explicit
set draw mode hidden
clear
GOTO 10
20 LET A(4)=5
LET A(3)=4
LET A(2)=3
LET A(1)=2
GOTO 15
30 LET A(4)=6
LET A(3)=5
GOTO 15
40 LET A(3)=4
LET A(2)=3
LET A(1)=2
GOTO 15
50 LET A(4)=6
LET A(3)=5
LET A(2)=4
GOTO 15
60 LET A(2)=3
LET A(1)=2
GOTO 15
70 LET A(4)=6
LET A(3)=5
LET A(2)=4
LET A(1)=3
GOTO 15

END

EXTERNAL PICTURE tama
SET COLOR 12
PLOT AREA:0,0.5;1,1;2,0.5;1,0
SET LINE WIDTH 1
SET COLOR 1
PLOT LINES:0,0.5;2,0.5
PLOT LINES:0,0.5;1,1;2,0.5;1,0;0,0.5
END PICTURE

　　　　　　　　　　　└まだ五列になっていませんが、 ひろ 2004/01/31 22:57:52  ツリーへ

Re: 五列になっていません。

ひろ 2004/01/31 22:57:52

まだ五列になっていませんが、
珠はくっつくようになりました。

白線は、回りに黒線がなくてもはっきりしてますよ。

DECLARE EXTERNAL PICTURE tama
SET WINDOW 0,10,0,10
DIM A(5)
LET A(1)=1.6
LET A(2)=2.1
LET A(3)=2.6
LET A(4)=3.1
LET A(5)=4.6
10 SET COLOR 3
PLOT AREA:0,0;10,0;10,10;0,10
SET LINE COLOR 1
SET LINE WIDTH 10
PLOT LINES:3.5,5.2;5.5,5.2;5.5,1.5;3.5,1.5;3.5,5.2
SET LINE COLOR 0
SET LINE WIDTH 3
PLOT LINES:3.5,4.1;5.5,4.1
SET LINE COLOR 12
SET LINE WIDTH 6
PLOT LINES:4.5,5.1;4.5,1.6
SET LINE WIDTH 1
DRAW tama WITH SCALE(0.5)*SHIFT(4,A(1))
DRAW tama WITH SCALE(0.5)*SHIFT(4,A(2))
DRAW tama WITH SCALE(0.5)*SHIFT(4,A(3))
DRAW tama WITH SCALE(0.5)*SHIFT(4,A(4))
DRAW tama WITH SCALE(0.5)*SHIFT(4,A(5))
MOUSE POLL x,y,l,r
IF x<=5 AND x>=4 AND y<=A(5)+0.5 AND y>=A(5) AND A(5)=4.6 AND l=1 THEN LET A(5)=4.1
IF x<=5 AND x>=4 AND y<=A(5)+0.5 AND y>=A(5) AND A(5)=4.1 AND l=1 THEN LET A(5)=4.6
IF x<=5 AND x>=4 AND y<=A(4)+0.5 AND y>=A(4) AND A(4)=3.1 AND l=1 THEN LET A(4)=3.6
IF x<=5 AND x>=4 AND y<=A(4)+0.5 AND y>=A(4) AND A(4)=3.6 AND l=1 THEN GOTO 20
IF x<=5 AND x>=4 AND y<=A(3)+0.5 AND y>=A(3) AND A(3)=2.6 AND l=1 THEN GOTO 30
IF x<=5 AND x>=4 AND y<=A(3)+0.5 AND y>=A(3) AND A(3)=3.1 AND l=1 THEN GOTO 40
IF x<=5 AND x>=4 AND y<=A(2)+0.5 AND y>=A(2) AND A(2)=2.1 AND l=1 THEN GOTO 50
IF x<=5 AND x>=4 AND y<=A(2)+0.5 AND y>=A(2) AND A(2)=2.6 AND l=1 THEN GOTO 60
IF x<=5 AND x>=4 AND y<=A(1)+0.5 AND y>=A(1) AND A(1)=1.6 AND l=1 THEN GOTO 70
IF x<=5 AND x>=4 AND y<=A(1)+0.5 AND y>=A(1) AND A(1)=2.1 AND l=1 THEN LET A(1)=1.6
15 set draw mode explicit
set draw mode hidden
clear
GOTO 10
20 LET A(4)=3.1
LET A(3)=2.6
LET A(2)=2.1
LET A(1)=1.6
GOTO 15
30 LET A(4)=3.6
LET A(3)=3.1
GOTO 15
40 LET A(3)=2.6
LET A(2)=2.1
LET A(1)=1.6
GOTO 15
50 LET A(4)=3.6
LET A(3)=3.1
LET A(2)=2.6
GOTO 15
60 LET A(2)=2.1
LET A(1)=1.6
GOTO 15
70 LET A(4)=3.6
LET A(3)=3.1
LET A(2)=2.6
LET A(1)=2.1
GOTO 15

END

EXTERNAL PICTURE tama
SET COLOR 12
PLOT AREA:0,0.5;1,1;2,0.5;1,0
SET LINE WIDTH 1
SET COLOR 1
PLOT LINES:0,0.5;2,0.5
PLOT LINES:0,0.5;1,1;2,0.5;1,0;0,0.5
END PICTURE

　　　　　　　　　　　　└ごだまは白い線にくっついていたほうが もりの 2004/01/31 23:15:02  ツリーへ

Re: まだ五列になっていませんが、

もりの 2004/01/31 23:15:02

ごだまは白い線にくっついていたほうが
いいですね。
２番目のたまと白い横線はもう少し
間隔がせまい方がいいと
思います。

　　　　　　　　　　　　　└どういう意味ですか?↓ ひろ 2004/02/01 07:39:11  ツリーへ

Re: ごだまは白い線にくっついていたほうが

ひろ 2004/02/01 07:39:11

どういう意味ですか?↓
"ごたまは白い線にくっついていたほうがいいですね。"

一応、間隔をせまくしたものを作ってみましたが、
変なことになりました。↓

DECLARE EXTERNAL PICTURE tama
SET WINDOW 0,10,0,10
DIM A(5)
LET A(1)=1.6
LET A(2)=2.1
LET A(3)=2.6
LET A(4)=3.1
LET A(5)=3.8
10 SET COLOR 3
PLOT AREA:0,0;10,0;10,10;0,10
SET LINE COLOR 1
SET LINE WIDTH 10
PLOT LINES:3.5,4.9;5.5,4.9;5.5,1.5;3.5,1.5;3.5,4.9
SET LINE COLOR 0
SET LINE WIDTH 3
PLOT LINES:3.5,3.8;5.5,3.8
SET LINE COLOR 12
SET LINE WIDTH 6
PLOT LINES:4.5,4.9;4.5,1.6
SET LINE WIDTH 1
DRAW tama WITH SCALE(0.5)*SHIFT(4,A(1))
DRAW tama WITH SCALE(0.5)*SHIFT(4,A(2))
DRAW tama WITH SCALE(0.5)*SHIFT(4,A(3))
DRAW tama WITH SCALE(0.5)*SHIFT(4,A(4))
DRAW tama WITH SCALE(0.5)*SHIFT(4,A(5))
MOUSE POLL x,y,l,r
IF x<=5 AND x>=4 AND y<=A(5)+0.5 AND y>=A(5) AND A(5)=4.3 AND l=1 THEN LET A(5)=3.8
IF x<=5 AND x>=4 AND y<=A(5)+0.5 AND y>=A(5) AND A(5)=3.8 AND l=1 THEN LET A(5)=4.3
IF x<=5 AND x>=4 AND y<=A(4)+0.5 AND y>=A(4) AND A(4)=3.1 AND l=1 THEN LET A(4)=3.3
IF x<=5 AND x>=4 AND y<=A(4)+0.5 AND y>=A(4) AND A(4)=3.3 AND l=1 THEN GOTO 20
IF x<=5 AND x>=4 AND y<=A(3)+0.5 AND y>=A(3) AND A(3)=2.6 AND l=1 THEN GOTO 30
IF x<=5 AND x>=4 AND y<=A(3)+0.5 AND y>=A(3) AND A(3)=3.8 AND l=1 THEN GOTO 40
IF x<=5 AND x>=4 AND y<=A(2)+0.5 AND y>=A(2) AND A(2)=2.1 AND l=1 THEN GOTO 50
IF x<=5 AND x>=4 AND y<=A(2)+0.5 AND y>=A(2) AND A(2)=2.3 AND l=1 THEN GOTO 60
IF x<=5 AND x>=4 AND y<=A(1)+0.5 AND y>=A(1) AND A(1)=1.6 AND l=1 THEN GOTO 70
IF x<=5 AND x>=4 AND y<=A(1)+0.5 AND y>=A(1) AND A(1)=1.8 AND l=1 THEN LET A(1)=1.6
15 set draw mode explicit
set draw mode hidden
clear
GOTO 10
20 LET A(4)=3.1
LET A(3)=2.6
LET A(2)=2.1
LET A(1)=1.6
GOTO 15
30 LET A(4)=3.3
LET A(3)=2.8
GOTO 15
40 LET A(3)=2.6
LET A(2)=2.1
LET A(1)=1.6
GOTO 15
50 LET A(4)=3.3
LET A(3)=2.8
LET A(2)=2.3
GOTO 15
60 LET A(2)=2.1
LET A(1)=1.6
GOTO 15
70 LET A(4)=3.3
LET A(3)=2.8
LET A(2)=2.3
LET A(1)=1.8
GOTO 15

END

EXTERNAL PICTURE tama
SET COLOR 12
PLOT AREA:0,0.5;1,1;2,0.5;1,0
SET LINE WIDTH 1
SET COLOR 1
PLOT LINES:0,0.5;2,0.5
PLOT LINES:0,0.5;1,1;2,0.5;1,0;0,0.5
END PICTURE

やっぱり前のほうが私的にはいいと思います。

　　　　　　　　　　　　　　└よくなったと もりの 2004/02/01 09:07:46  ツリーへ

Re: どういう意味ですか?↓

もりの 2004/02/01 09:07:46

よくなったと
思いますが
ごだまははらったときに
やっぱりもう少し上にうごくように
ごだまとその上の黒線の間隔を
広げたほうがいいですね
白線の下の縦棒はもう少し長いほうが
いいかもね
とにかくごわさんでねがいましては
といったときごだまはひだりからみぎに
はらわれ一段ずつすべてうえにあがるはばが
なければだめだし
白線の下の四つの玉も計算して行く過程で
一つずつうえにあがっていくわけですから
やはり白線のしたのたてぼうはながいほうが
いいかもね
よろしくおねがいますね
改良してみてください
できたらまたみせてくださいね

　　　　　　　　　　　　　　　└できた！ ひろ 2004/02/01 09:46:52  ツリーへ

Re: よくなったと

ひろ 2004/02/01 09:46:52

できた！
できました
少し違うかもしれないけど
できました～
でも大きすぎるので分けてのせます。

DECLARE EXTERNAL PICTURE tama
SET WINDOW 3,10,0,7
DIM A(25)
LET A(1)=1.6 !初期化
LET A(2)=2.1
LET A(3)=2.6
LET A(4)=3.1
LET A(5)=4.6
LET A(6)=1.6
LET A(7)=2.1
LET A(8)=2.6
LET A(9)=3.1
LET A(10)=4.6
LET A(11)=1.6
LET A(12)=2.1
LET A(13)=2.6
LET A(14)=3.1
LET A(15)=4.6
LET A(16)=1.6
LET A(17)=2.1
LET A(18)=2.6
LET A(19)=3.1
LET A(20)=4.6
LET A(21)=1.6
LET A(22)=2.1
LET A(23)=2.6
LET A(24)=3.1
LET A(25)=4.6
10
SET COLOR 3 !枠を描く
PLOT AREA:0,0;10,0;10,10;0,10
SET LINE COLOR 1
SET LINE WIDTH 10
PLOT LINES:3.5,5.2;9.5,5.2;9.5,1.5;3.5,1.5;3.5,5.2
SET LINE COLOR 12
SET LINE WIDTH 6
PLOT LINES:4.5,5.1;4.5,1.6
PLOT LINES:5.5,5.1;5.5,1.6
PLOT LINES:6.5,5.1;6.5,1.6
PLOT LINES:7.5,5.1;7.5,1.6
PLOT LINES:8.5,5.1;8.5,1.6
SET LINE COLOR 0
SET LINE WIDTH 3
PLOT LINES:3.5,4.1;9.5,4.1
SET COLOR 1
DRAW disk WITH SCALE(0.008)*SHIFT(5.5,4.1)
DRAW disk WITH SCALE(0.008)*SHIFT(8.5,4.1)
SET LINE WIDTH 1
DRAW tama WITH SCALE(0.5)*SHIFT(4,A(1)) !珠を描く
DRAW tama WITH SCALE(0.5)*SHIFT(4,A(2))
DRAW tama WITH SCALE(0.5)*SHIFT(4,A(3))
DRAW tama WITH SCALE(0.5)*SHIFT(4,A(4))
DRAW tama WITH SCALE(0.5)*SHIFT(4,A(5))
DRAW tama WITH SCALE(0.5)*SHIFT(5,A(6))
DRAW tama WITH SCALE(0.5)*SHIFT(5,A(7))
DRAW tama WITH SCALE(0.5)*SHIFT(5,A(8))
DRAW tama WITH SCALE(0.5)*SHIFT(5,A(9))
DRAW tama WITH SCALE(0.5)*SHIFT(5,A(10))
DRAW tama WITH SCALE(0.5)*SHIFT(6,A(11))
DRAW tama WITH SCALE(0.5)*SHIFT(6,A(12))
DRAW tama WITH SCALE(0.5)*SHIFT(6,A(13))
DRAW tama WITH SCALE(0.5)*SHIFT(6,A(14))
DRAW tama WITH SCALE(0.5)*SHIFT(6,A(15))
DRAW tama WITH SCALE(0.5)*SHIFT(7,A(16))
DRAW tama WITH SCALE(0.5)*SHIFT(7,A(17))
DRAW tama WITH SCALE(0.5)*SHIFT(7,A(18))
DRAW tama WITH SCALE(0.5)*SHIFT(7,A(19))
DRAW tama WITH SCALE(0.5)*SHIFT(7,A(20))
DRAW tama WITH SCALE(0.5)*SHIFT(8,A(21))
DRAW tama WITH SCALE(0.5)*SHIFT(8,A(22))
DRAW tama WITH SCALE(0.5)*SHIFT(8,A(23))
DRAW tama WITH SCALE(0.5)*SHIFT(8,A(24))
DRAW tama WITH SCALE(0.5)*SHIFT(8,A(25))

　　　　　　　　　　　　　　　　├続きです。 ひろ 2004/02/01 09:49:17  ツリーへ

Re: できた！

ひろ 2004/02/01 09:49:17

続きです。

MOUSE POLL x,y,l,r !クリックしたのがどの珠か判断
IF x<=5 AND x>=4 AND y<=A(5)+0.5 AND y>=A(5) AND A(5)=4.6 AND l=1 THEN LET A(5)=4.1
IF x<=5 AND x>=4 AND y<=A(5)+0.5 AND y>=A(5) AND A(5)=4.1 AND l=1 THEN LET A(5)=4.6
IF x<=5 AND x>=4 AND y<=A(4)+0.5 AND y>=A(4) AND A(4)=3.1 AND l=1 THEN LET A(4)=3.6
IF x<=5 AND x>=4 AND y<=A(4)+0.5 AND y>=A(4) AND A(4)=3.6 AND l=1 THEN GOTO 20
IF x<=5 AND x>=4 AND y<=A(3)+0.5 AND y>=A(3) AND A(3)=2.6 AND l=1 THEN GOTO 30
IF x<=5 AND x>=4 AND y<=A(3)+0.5 AND y>=A(3) AND A(3)=3.1 AND l=1 THEN GOTO 40
IF x<=5 AND x>=4 AND y<=A(2)+0.5 AND y>=A(2) AND A(2)=2.1 AND l=1 THEN GOTO 50
IF x<=5 AND x>=4 AND y<=A(2)+0.5 AND y>=A(2) AND A(2)=2.6 AND l=1 THEN GOTO 60
IF x<=5 AND x>=4 AND y<=A(1)+0.5 AND y>=A(1) AND A(1)=1.6 AND l=1 THEN GOTO 70
IF x<=5 AND x>=4 AND y<=A(1)+0.5 AND y>=A(1) AND A(1)=2.1 AND l=1 THEN LET A(1)=1.6
IF x<=6 AND x>=5 AND y<=A(10)+0.5 AND y>=A(10) AND A(10)=4.6 AND l=1 THEN LET A(10)=4.1
IF x<=6 AND x>=5 AND y<=A(10)+0.5 AND y>=A(10) AND A(10)=4.1 AND l=1 THEN LET A(10)=4.6
IF x<=6 AND x>=5 AND y<=A(9)+0.5 AND y>=A(9) AND A(9)=3.1 AND l=1 THEN LET A(9)=3.6
IF x<=6 AND x>=5 AND y<=A(9)+0.5 AND y>=A(9) AND A(9)=3.6 AND l=1 THEN GOTO 80
IF x<=6 AND x>=5 AND y<=A(8)+0.5 AND y>=A(8) AND A(8)=2.6 AND l=1 THEN GOTO 90
IF x<=6 AND x>=5 AND y<=A(8)+0.5 AND y>=A(8) AND A(8)=3.1 AND l=1 THEN GOTO 100
IF x<=6 AND x>=5 AND y<=A(7)+0.5 AND y>=A(7) AND A(7)=2.1 AND l=1 THEN GOTO 110
IF x<=6 AND x>=5 AND y<=A(7)+0.5 AND y>=A(7) AND A(7)=2.6 AND l=1 THEN GOTO 120
IF x<=6 AND x>=5 AND y<=A(6)+0.5 AND y>=A(6) AND A(6)=1.6 AND l=1 THEN GOTO 130
IF x<=6 AND x>=5 AND y<=A(6)+0.5 AND y>=A(6) AND A(6)=2.1 AND l=1 THEN LET A(6)=1.6

　　　　　　　　　　　　　　　　│└また続きです。 ひろ 2004/02/01 09:50:18  ツリーへ

Re: 続きです。

ひろ 2004/02/01 09:50:18

また続きです。

IF x<=7 AND x>=6 AND y<=A(15)+0.5 AND y>=A(15) AND A(15)=4.6 AND l=1 THEN LET A(15)=4.1
IF x<=7 AND x>=6 AND y<=A(15)+0.5 AND y>=A(15) AND A(15)=4.1 AND l=1 THEN LET A(15)=4.6
IF x<=7 AND x>=6 AND y<=A(14)+0.5 AND y>=A(14) AND A(14)=3.1 AND l=1 THEN LET A(14)=3.6
IF x<=7 AND x>=6 AND y<=A(14)+0.5 AND y>=A(14) AND A(14)=3.6 AND l=1 THEN GOTO 140
IF x<=7 AND x>=6 AND y<=A(13)+0.5 AND y>=A(13) AND A(13)=2.6 AND l=1 THEN GOTO 150
IF x<=7 AND x>=6 AND y<=A(13)+0.5 AND y>=A(13) AND A(13)=3.1 AND l=1 THEN GOTO 160
IF x<=7 AND x>=6 AND y<=A(12)+0.5 AND y>=A(12) AND A(12)=2.1 AND l=1 THEN GOTO 170
IF x<=7 AND x>=6 AND y<=A(12)+0.5 AND y>=A(12) AND A(12)=2.6 AND l=1 THEN GOTO 180
IF x<=7 AND x>=6 AND y<=A(11)+0.5 AND y>=A(11) AND A(11)=1.6 AND l=1 THEN GOTO 190
IF x<=7 AND x>=6 AND y<=A(11)+0.5 AND y>=A(11) AND A(11)=2.1 AND l=1 THEN LET A(11)=1.6
IF x<=8 AND x>=7 AND y<=A(20)+0.5 AND y>=A(20) AND A(20)=4.6 AND l=1 THEN LET A(20)=4.1
IF x<=8 AND x>=7 AND y<=A(20)+0.5 AND y>=A(20) AND A(20)=4.1 AND l=1 THEN LET A(20)=4.6
IF x<=8 AND x>=7 AND y<=A(19)+0.5 AND y>=A(19) AND A(19)=3.1 AND l=1 THEN LET A(19)=3.6
IF x<=8 AND x>=7 AND y<=A(19)+0.5 AND y>=A(19) AND A(19)=3.6 AND l=1 THEN GOTO 200
IF x<=8 AND x>=7 AND y<=A(18)+0.5 AND y>=A(18) AND A(18)=2.6 AND l=1 THEN GOTO 210
IF x<=8 AND x>=7 AND y<=A(18)+0.5 AND y>=A(18) AND A(18)=3.1 AND l=1 THEN GOTO 220
IF x<=8 AND x>=7 AND y<=A(17)+0.5 AND y>=A(17) AND A(17)=2.1 AND l=1 THEN GOTO 230
IF x<=8 AND x>=7 AND y<=A(17)+0.5 AND y>=A(17) AND A(17)=2.6 AND l=1 THEN GOTO 240
IF x<=8 AND x>=7 AND y<=A(16)+0.5 AND y>=A(16) AND A(16)=1.6 AND l=1 THEN GOTO 250
IF x<=8 AND x>=7 AND y<=A(16)+0.5 AND y>=A(16) AND A(16)=2.1 AND l=1 THEN LET A(16)=1.6

　　　　　　　　　　　　　　　　│　├またまた続きです。 ひろ 2004/02/01 09:51:07  ツリーへ

Re: また続きです。

ひろ 2004/02/01 09:51:07

またまた続きです。

IF x<=9 AND x>=8 AND y<=A(25)+0.5 AND y>=A(25) AND A(25)=4.6 AND l=1 THEN LET A(25)=4.1
IF x<=9 AND x>=8 AND y<=A(25)+0.5 AND y>=A(25) AND A(25)=4.1 AND l=1 THEN LET A(25)=4.6
IF x<=9 AND x>=8 AND y<=A(24)+0.5 AND y>=A(24) AND A(24)=3.1 AND l=1 THEN LET A(24)=3.6
IF x<=9 AND x>=8 AND y<=A(24)+0.5 AND y>=A(24) AND A(24)=3.6 AND l=1 THEN GOTO 260
IF x<=9 AND x>=8 AND y<=A(23)+0.5 AND y>=A(23) AND A(23)=2.6 AND l=1 THEN GOTO 270
IF x<=9 AND x>=8 AND y<=A(23)+0.5 AND y>=A(23) AND A(23)=3.1 AND l=1 THEN GOTO 280
IF x<=9 AND x>=8 AND y<=A(22)+0.5 AND y>=A(22) AND A(22)=2.1 AND l=1 THEN GOTO 290
IF x<=9 AND x>=8 AND y<=A(22)+0.5 AND y>=A(22) AND A(22)=2.6 AND l=1 THEN GOTO 300
IF x<=9 AND x>=8 AND y<=A(21)+0.5 AND y>=A(21) AND A(21)=1.6 AND l=1 THEN GOTO 310
IF x<=9 AND x>=8 AND y<=A(21)+0.5 AND y>=A(21) AND A(21)=2.1 AND l=1 THEN LET A(21)=1.6

15 set draw mode explicit
set draw mode hidden
clear
GOTO 10
20 LET A(4)=3.1 !珠を動かす
LET A(3)=2.6
LET A(2)=2.1
LET A(1)=1.6
GOTO 15
30 LET A(4)=3.6
LET A(3)=3.1
GOTO 15
40 LET A(3)=2.6
LET A(2)=2.1
LET A(1)=1.6
GOTO 15
50 LET A(4)=3.6
LET A(3)=3.1
LET A(2)=2.6
GOTO 15
60 LET A(2)=2.1
LET A(1)=1.6
GOTO 15
70 LET A(4)=3.6
LET A(3)=3.1
LET A(2)=2.6
LET A(1)=2.1
GOTO 15
80 LET A(9)=3.1
LET A(8)=2.6
LET A(7)=2.1
LET A(6)=1.6
GOTO 15
90 LET A(9)=3.6
LET A(8)=3.1
GOTO 15
100 LET A(8)=2.6
LET A(7)=2.1
LET A(6)=1.6
GOTO 15
110 LET A(9)=3.6
LET A(8)=3.1
LET A(7)=2.6
GOTO 15

　　　　　　　　　　　　　　　　│　│└これで最後です。 ひろ 2004/02/01 09:51:48  ツリーへ

Re: またまた続きです。

ひろ 2004/02/01 09:51:48

これで最後です。

120 LET A(7)=2.1
LET A(6)=1.6
GOTO 15
130 LET A(9)=3.6
LET A(8)=3.1
LET A(7)=2.6
LET A(6)=2.1
GOTO 15
140 LET A(14)=3.1
LET A(13)=2.6
LET A(12)=2.1
LET A(11)=1.6
GOTO 15
150 LET A(14)=3.6
LET A(13)=3.1
GOTO 15
160 LET A(13)=2.6
LET A(12)=2.1
LET A(11)=1.6
GOTO 15
170 LET A(14)=3.6
LET A(13)=3.1
LET A(12)=2.6
GOTO 15
180 LET A(12)=2.1
LET A(11)=1.6
GOTO 15
190 LET A(14)=3.6
LET A(13)=3.1

LET A(12)=2.6
LET A(11)=2.1
GOTO 15
200 LET A(19)=3.1
LET A(18)=2.6
LET A(17)=2.1
LET A(16)=1.6
GOTO 15
210 LET A(19)=3.6
LET A(18)=3.1
GOTO 15
220 LET A(18)=2.6
LET A(17)=2.1
LET A(16)=1.6
GOTO 15
230 LET A(19)=3.6
LET A(18)=3.1
LET A(17)=2.6
GOTO 15
240 LET A(17)=2.1
LET A(16)=1.6
GOTO 15
250 LET A(19)=3.6
LET A(18)=3.1
LET A(17)=2.6
LET A(16)=2.1
GOTO 15
260 LET A(24)=3.1
LET A(23)=2.6
LET A(22)=2.1
LET A(21)=1.6
GOTO 15
270 LET A(24)=3.6
LET A(23)=3.1
GOTO 15
280 LET A(23)=2.6
LET A(22)=2.1
LET A(21)=1.6
GOTO 15
290 LET A(24)=3.6
LET A(23)=3.1
LET A(22)=2.6
GOTO 15
300 LET A(22)=2.1
LET A(21)=1.6
GOTO 15
310 LET A(24)=3.6
LET A(23)=3.1
LET A(22)=2.6
LET A(21)=2.1
GOTO 15

END

EXTERNAL PICTURE tama
SET COLOR 12
PLOT AREA:0,0.5;1,1;2,0.5;1,0
SET LINE WIDTH 1
SET COLOR 1
PLOT LINES:0,0.5;2,0.5
PLOT LINES:0,0.5;1,1;2,0.5;1,0;0,0.5
END PICTURE

　　　　　　　　　　　　　　　　│　│　└ごめんなさい ひろ 2004/02/01 09:52:40  ツリーへ

Re: これで最後です。

ひろ 2004/02/01 09:52:40

ごめんなさい
ここまで分けなければ
のせれませんでした。

　　　　　　　　　　　　　　　　│　└改良ありがとう＾＾ もりの 2004/02/01 09:53:59  ツリーへ

Re: また続きです。

もりの 2004/02/01 09:53:59

改良ありがとう＾＾
大きそうなので
メールでおくってくれますか？

アドレスは

　　stdoor24_12@hotmail.com

です

　　　　　　　　　　　　　　　　└大きくてコピー貼り付けが もりの 2004/02/01 10:11:45  ツリーへ

Re: できた！

もりの 2004/02/01 10:11:45

大きくてコピー貼り付けが
できないようなので
メールでおくってくれますか？

　　　　　　　　　　　　　　　　　└メール届きましたか? ひろ 2004/02/01 11:36:58  ツリーへ

Re: 大きくてコピー貼り付けが

ひろ 2004/02/01 11:36:58

メール届きましたか?
送りましたよ

　　　　　　　　　　　　　　　　　　└届きました もりの 2004/02/01 11:56:49  ツリーへ

Re: メール届きましたか?

もりの 2004/02/01 11:56:49

届きました
動かしてみました
操作性もいいですね
改良してほしい点は
白せんをやや太くして
一のくらいの白線の中心と
千のくらいの白線の中心に
黒いマル点をつけてくれますか？
位取りがわかりやすくなると思います
あとイチモンおわったら
初期状態にもどしたいので
画面上にクリアホ゛タンをつくってくれますか
それをクリックすると
クリアされ、つぎの問題にはいれるように
したいのです。
いってることわかりますかね？
おねがいします
あと一歩でさらに完璧になりますね
授業の時電子ボードに写すのが
楽しみです。。。

　　　　　　　　　　　　　　　　　　　└今度もまたメールを送りましたが、 ひろ 2004/02/01 12:40:06  ツリーへ

Re: 届きました

ひろ 2004/02/01 12:40:06

今度もまたメールを送りましたが、
どうですか。
また何か不満があればいってください。

　　　　　　　　　　　　　　　　　　　　└メールあとでみてみます。 もりの 2004/02/01 13:03:17  ツリーへ

Re: 今度もまたメールを送りましたが、

もりの 2004/02/01 13:03:17

メールあとでみてみます。
今ちょっとラオックスに
ノートパソコン見に行ってきます。
3時ころまでには
返信だせると思います。
なんどもありがとう
ございます。

　　　　　　　　　　　　　　　　　　　　　└クリアっていうクリックの もりの 2004/02/01 16:56:29  ツリーへ

Re: メールあとでみてみます。

もりの 2004/02/01 16:56:29

クリアっていうクリックの
アイコンがあるの
メールでまだきていませんけど
送ってくれたのですよね。
確認まで
ありがとね

　　　　　　　　　　　　　　　　　　　　　　└またメールを送りました。 ひろ 2004/02/01 19:32:12  ツリーへ

Re: クリアっていうクリックの

ひろ 2004/02/01 19:32:12

またメールを送りました。
今度も不満があれば言ってください。

このノートはこれ以上発言できません。
新しくノートを作成して、続きを書いてください。

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

重さくらべ、そろばん
もりの 2004/01/29 23:17:34
重さ比べそろばんやり方プログラムを募集します作ってみたいかたは申し出てくださいイメージをお伝えします。

Re: 重さくらべ、そろばん
ひろ 2004/01/30 17:30:30
どういうものかによりますけど作ってみたいです。

Re: どういうものかによりますけど
もりの 2004/01/30 18:42:05
そろばんの指導があと2～3週間後にあるのですがいつもはそろばん道場の人がきているようです。ですが、教材の電子化の観点から初めてでしょうけどそろばんの玉をマウスで動かしながら暗算を計算していくなんておもしろいと思ったのですピアノの鍵盤をキーボードで打つのと同じ原理ですよ 23+56 32-12 とか最初に問題が表示され次にマウスで３円なり４えんなりとかやっていくわけですとにかくひろさんの思ったアイデアいちどつくってくれますかなんどかアドバイスすれば授業で使えるものはできますよひろさんはプログラマーなんでしょ

Re: そろばんの指導があと2～3週間後にあるので...
ひろ 2004/01/30 20:07:52
そろばんのデザインはこんなものでよろしいでしょうか。（1個しかありませんが、ゆくゆくは複数個つけるつもりです。） DECLARE EXTERNAL PICTURE tama SET WINDOW 0,10,0,10 DIM A(5) LET A(1)=2 LET A(2)=3 LET A(3)=4 LET A(4)=5 LET A(5)=8 PLOT LINES:3.5,9;5.5,9;5.5,1.5;3.5,1.5;3.5,9 PLOT LINES:3.5,6.5;5.5,6.5 PLOT LINES:4.5,9;4.5,1.5 DRAW tama WITH SCALE(0.5)SHIFT(4,A(1)) DRAW tama WITH SCALE(0.5)SHIFT(4,A(2)) DRAW tama WITH SCALE(0.5)SHIFT(4,A(3)) DRAW tama WITH SCALE(0.5)SHIFT(4,A(4)) DRAW tama WITH SCALE(0.5)*SHIFT(4,A(5)) END EXTERNAL PICTURE tama SET COLOR 12 PLOT AREA:0,0.5;1,1;2,0.5;1,0 SET COLOR 1 PLOT LINES:0,0.5;2,0.5 END PICTURE 応用ができるように無駄な部分がありますが気にしないでください。それと、私はプログラマーではありません。プログラムをくむことが専門というのはプログラマー　という意味ではなく、ただプログラムをくむことしかできないという意味です。

Re: そろばんのデザインはこんなものでよろしい...
もりの 2004/01/30 20:21:11
だいたいいいとおもいますたまはもう少し丸めのほうがいいかもそろばんの枠はもう少し太めたまのあるたての罫線は竹ひごみたいなほうがいいかもねあと一個目と二個目のたまの間は大事なので太いオレンジ色の線のようなもののほうがいいかもありがとねすぐつくれるなんてすごいね

Re: そろばんのデザインはこんなものでよろしい...
もりの 2004/01/30 20:28:08
そろばんプログラムなんてめったにないからできたらすごいね東京学芸大学に折り紙　ソフト　があるけどそれ以上のものができるとすごいねこれ使って暗算大会やりたいなきっとうけますよ＾＾

Re: そろばんプログラムなんて
ひろ 2004/01/31 20:34:48
デザインを改良しました。 DECLARE EXTERNAL PICTURE tama SET WINDOW 0,10,0,10 DIM A(5) LET A(1)=2 LET A(2)=3 LET A(3)=4 LET A(4)=5 LET A(5)=8 SET LINE COLOR 1 SET LINE WIDTH 10 PLOT LINES:3.5,9;5.5,9;5.5,1.5;3.5,1.5;3.5,9 SET LINE WIDTH 3 PLOT LINES:3.5,6.5;5.5,6.5 SET LINE COLOR 43 SET LINE WIDTH 6 PLOT LINES:4.5,8.9;4.5,1.6 DRAW tama WITH SCALE(0.5)SHIFT(4,A(1)) DRAW tama WITH SCALE(0.5)SHIFT(4,A(2)) DRAW tama WITH SCALE(0.5)SHIFT(4,A(3)) DRAW tama WITH SCALE(0.5)SHIFT(4,A(4)) DRAW tama WITH SCALE(0.5)*SHIFT(4,A(5)) END EXTERNAL PICTURE tama SET COLOR 12 PLOT AREA:0,0.5;1,1;2,0.5;1,0 SET LINE WIDTH 1 SET COLOR 1 PLOT LINES:0,0.5;2,0.5 END PICTURE

Re: デザインを改良しました。
ひろ 2004/01/31 20:39:58
追伸珠はだいたい横になんセットぐらいつければよろしいでしょうか。珠を動かすプログラムのせいさくは、まだまだかかりそうです。

Re: 追伸
ひろ 2004/01/31 21:10:44
改良に改良を重ねた結果やはりこのデザインが一番いいと私はふみました。（まえのは忘れてもいいです。） DECLARE EXTERNAL PICTURE tama SET WINDOW 0,10,0,10 DIM A(5) LET A(1)=2 LET A(2)=3 LET A(3)=4 LET A(4)=5 LET A(5)=8 SET LINE COLOR 1 SET LINE WIDTH 10 PLOT LINES:3.5,9;5.5,9;5.5,1.5;3.5,1.5;3.5,9 SET LINE COLOR 43 SET LINE WIDTH 3 PLOT LINES:3.5,6.5;5.5,6.5 SET LINE COLOR 12 SET LINE WIDTH 6 PLOT LINES:4.5,8.9;4.5,1.6 SET LINE WIDTH 1 DRAW tama WITH SCALE(0.5)SHIFT(4,A(1)) DRAW tama WITH SCALE(0.5)SHIFT(4,A(2)) DRAW tama WITH SCALE(0.5)SHIFT(4,A(3)) DRAW tama WITH SCALE(0.5)SHIFT(4,A(4)) DRAW tama WITH SCALE(0.5)*SHIFT(4,A(5)) END EXTERNAL PICTURE tama SET COLOR 12 PLOT AREA:0,0.5;1,1;2,0.5;1,0 SET LINE WIDTH 1 SET COLOR 1 PLOT LINES:0,0.5;2,0.5 PLOT LINES:0,0.5;1,1;2,0.5;1,0;0,0.5 END PICTURE

Re: 改良に改良を重ねた結果
もりの 2004/01/31 21:38:41
五列あればいいと思います。３年生しかやらないので万のくらいまででいいと思います。横の上のごダマのしたの横線は白です。白線に一の位と千の位に黒のドット（点）の印を付けてください下の四つの玉は最初くっついています上のたまははらうと全部上のくっつきますね改良できますか？ほんとにありがとうございます。玉が動くようになるのが楽しみですね。どうやると動くのかな？おもしろそう

Re: 改良に改良を重ねた結果
もりの 2004/01/31 21:43:27
背景を何色にするかがもんだいですね何いろがいいかな？うすいグリーンなんていいかもね白線はくっきりその上下に黒い線があったほうがいいですね。

Re: 背景を何色にするかが
ひろ 2004/01/31 22:33:47
五列になっていません。珠もくっついていません。しかし、珠を動かせるようになりました。 DECLARE EXTERNAL PICTURE tama SET WINDOW 0,10,0,10 DIM A(5) LET A(1)=2 LET A(2)=3 LET A(3)=4 LET A(4)=5 LET A(5)=8 10 SET COLOR 3 PLOT AREA:0,0;10,0;10,10;0,10 SET LINE COLOR 1 SET LINE WIDTH 10 PLOT LINES:3.5,9;5.5,9;5.5,1.5;3.5,1.5;3.5,9 SET LINE COLOR 0 SET LINE WIDTH 3 PLOT LINES:3.5,6.5;5.5,6.5 SET LINE COLOR 12 SET LINE WIDTH 6 PLOT LINES:4.5,8.9;4.5,1.6 SET LINE WIDTH 1 DRAW tama WITH SCALE(0.5)SHIFT(4,A(1)) DRAW tama WITH SCALE(0.5)SHIFT(4,A(2)) DRAW tama WITH SCALE(0.5)SHIFT(4,A(3)) DRAW tama WITH SCALE(0.5)SHIFT(4,A(4)) DRAW tama WITH SCALE(0.5)*SHIFT(4,A(5)) MOUSE POLL x,y,l,r IF x<=5 AND x>=4 AND y<=A(5)+0.5 AND y>=A(5) AND A(5)=8 AND l=1 THEN LET A(5)=7 IF x<=5 AND x>=4 AND y<=A(5)+0.5 AND y>=A(5) AND A(5)=7 AND l=1 THEN LET A(5)=8 IF x<=5 AND x>=4 AND y<=A(4)+0.5 AND y>=A(4) AND A(4)=5 AND l=1 THEN LET A(4)=6 IF x<=5 AND x>=4 AND y<=A(4)+0.5 AND y>=A(4) AND A(4)=6 AND l=1 THEN GOTO 20 IF x<=5 AND x>=4 AND y<=A(3)+0.5 AND y>=A(3) AND A(3)=4 AND l=1 THEN GOTO 30 IF x<=5 AND x>=4 AND y<=A(3)+0.5 AND y>=A(3) AND A(3)=5 AND l=1 THEN GOTO 40 IF x<=5 AND x>=4 AND y<=A(2)+0.5 AND y>=A(2) AND A(2)=3 AND l=1 THEN GOTO 50 IF x<=5 AND x>=4 AND y<=A(2)+0.5 AND y>=A(2) AND A(2)=4 AND l=1 THEN GOTO 60 IF x<=5 AND x>=4 AND y<=A(1)+0.5 AND y>=A(1) AND A(1)=2 AND l=1 THEN GOTO 70 IF x<=5 AND x>=4 AND y<=A(1)+0.5 AND y>=A(1) AND A(1)=3 AND l=1 THEN LET A(1)=2 15 set draw mode explicit set draw mode hidden clear GOTO 10 20 LET A(4)=5 LET A(3)=4 LET A(2)=3 LET A(1)=2 GOTO 15 30 LET A(4)=6 LET A(3)=5 GOTO 15 40 LET A(3)=4 LET A(2)=3 LET A(1)=2 GOTO 15 50 LET A(4)=6 LET A(3)=5 LET A(2)=4 GOTO 15 60 LET A(2)=3 LET A(1)=2 GOTO 15 70 LET A(4)=6 LET A(3)=5 LET A(2)=4 LET A(1)=3 GOTO 15 END EXTERNAL PICTURE tama SET COLOR 12 PLOT AREA:0,0.5;1,1;2,0.5;1,0 SET LINE WIDTH 1 SET COLOR 1 PLOT LINES:0,0.5;2,0.5 PLOT LINES:0,0.5;1,1;2,0.5;1,0;0,0.5 END PICTURE

Re: 五列になっていません。
ひろ 2004/01/31 22:57:52
まだ五列になっていませんが、珠はくっつくようになりました。白線は、回りに黒線がなくてもはっきりしてますよ。 DECLARE EXTERNAL PICTURE tama SET WINDOW 0,10,0,10 DIM A(5) LET A(1)=1.6 LET A(2)=2.1 LET A(3)=2.6 LET A(4)=3.1 LET A(5)=4.6 10 SET COLOR 3 PLOT AREA:0,0;10,0;10,10;0,10 SET LINE COLOR 1 SET LINE WIDTH 10 PLOT LINES:3.5,5.2;5.5,5.2;5.5,1.5;3.5,1.5;3.5,5.2 SET LINE COLOR 0 SET LINE WIDTH 3 PLOT LINES:3.5,4.1;5.5,4.1 SET LINE COLOR 12 SET LINE WIDTH 6 PLOT LINES:4.5,5.1;4.5,1.6 SET LINE WIDTH 1 DRAW tama WITH SCALE(0.5)SHIFT(4,A(1)) DRAW tama WITH SCALE(0.5)SHIFT(4,A(2)) DRAW tama WITH SCALE(0.5)SHIFT(4,A(3)) DRAW tama WITH SCALE(0.5)SHIFT(4,A(4)) DRAW tama WITH SCALE(0.5)*SHIFT(4,A(5)) MOUSE POLL x,y,l,r IF x<=5 AND x>=4 AND y<=A(5)+0.5 AND y>=A(5) AND A(5)=4.6 AND l=1 THEN LET A(5)=4.1 IF x<=5 AND x>=4 AND y<=A(5)+0.5 AND y>=A(5) AND A(5)=4.1 AND l=1 THEN LET A(5)=4.6 IF x<=5 AND x>=4 AND y<=A(4)+0.5 AND y>=A(4) AND A(4)=3.1 AND l=1 THEN LET A(4)=3.6 IF x<=5 AND x>=4 AND y<=A(4)+0.5 AND y>=A(4) AND A(4)=3.6 AND l=1 THEN GOTO 20 IF x<=5 AND x>=4 AND y<=A(3)+0.5 AND y>=A(3) AND A(3)=2.6 AND l=1 THEN GOTO 30 IF x<=5 AND x>=4 AND y<=A(3)+0.5 AND y>=A(3) AND A(3)=3.1 AND l=1 THEN GOTO 40 IF x<=5 AND x>=4 AND y<=A(2)+0.5 AND y>=A(2) AND A(2)=2.1 AND l=1 THEN GOTO 50 IF x<=5 AND x>=4 AND y<=A(2)+0.5 AND y>=A(2) AND A(2)=2.6 AND l=1 THEN GOTO 60 IF x<=5 AND x>=4 AND y<=A(1)+0.5 AND y>=A(1) AND A(1)=1.6 AND l=1 THEN GOTO 70 IF x<=5 AND x>=4 AND y<=A(1)+0.5 AND y>=A(1) AND A(1)=2.1 AND l=1 THEN LET A(1)=1.6 15 set draw mode explicit set draw mode hidden clear GOTO 10 20 LET A(4)=3.1 LET A(3)=2.6 LET A(2)=2.1 LET A(1)=1.6 GOTO 15 30 LET A(4)=3.6 LET A(3)=3.1 GOTO 15 40 LET A(3)=2.6 LET A(2)=2.1 LET A(1)=1.6 GOTO 15 50 LET A(4)=3.6 LET A(3)=3.1 LET A(2)=2.6 GOTO 15 60 LET A(2)=2.1 LET A(1)=1.6 GOTO 15 70 LET A(4)=3.6 LET A(3)=3.1 LET A(2)=2.6 LET A(1)=2.1 GOTO 15 END EXTERNAL PICTURE tama SET COLOR 12 PLOT AREA:0,0.5;1,1;2,0.5;1,0 SET LINE WIDTH 1 SET COLOR 1 PLOT LINES:0,0.5;2,0.5 PLOT LINES:0,0.5;1,1;2,0.5;1,0;0,0.5 END PICTURE

Re: まだ五列になっていませんが、
もりの 2004/01/31 23:15:02
ごだまは白い線にくっついていたほうがいいですね。２番目のたまと白い横線はもう少し間隔がせまい方がいいと思います。

Re: ごだまは白い線にくっついていたほうが
ひろ 2004/02/01 07:39:11
どういう意味ですか?↓ "ごたまは白い線にくっついていたほうがいいですね。" 一応、間隔をせまくしたものを作ってみましたが、変なことになりました。↓ DECLARE EXTERNAL PICTURE tama SET WINDOW 0,10,0,10 DIM A(5) LET A(1)=1.6 LET A(2)=2.1 LET A(3)=2.6 LET A(4)=3.1 LET A(5)=3.8 10 SET COLOR 3 PLOT AREA:0,0;10,0;10,10;0,10 SET LINE COLOR 1 SET LINE WIDTH 10 PLOT LINES:3.5,4.9;5.5,4.9;5.5,1.5;3.5,1.5;3.5,4.9 SET LINE COLOR 0 SET LINE WIDTH 3 PLOT LINES:3.5,3.8;5.5,3.8 SET LINE COLOR 12 SET LINE WIDTH 6 PLOT LINES:4.5,4.9;4.5,1.6 SET LINE WIDTH 1 DRAW tama WITH SCALE(0.5)SHIFT(4,A(1)) DRAW tama WITH SCALE(0.5)SHIFT(4,A(2)) DRAW tama WITH SCALE(0.5)SHIFT(4,A(3)) DRAW tama WITH SCALE(0.5)SHIFT(4,A(4)) DRAW tama WITH SCALE(0.5)*SHIFT(4,A(5)) MOUSE POLL x,y,l,r IF x<=5 AND x>=4 AND y<=A(5)+0.5 AND y>=A(5) AND A(5)=4.3 AND l=1 THEN LET A(5)=3.8 IF x<=5 AND x>=4 AND y<=A(5)+0.5 AND y>=A(5) AND A(5)=3.8 AND l=1 THEN LET A(5)=4.3 IF x<=5 AND x>=4 AND y<=A(4)+0.5 AND y>=A(4) AND A(4)=3.1 AND l=1 THEN LET A(4)=3.3 IF x<=5 AND x>=4 AND y<=A(4)+0.5 AND y>=A(4) AND A(4)=3.3 AND l=1 THEN GOTO 20 IF x<=5 AND x>=4 AND y<=A(3)+0.5 AND y>=A(3) AND A(3)=2.6 AND l=1 THEN GOTO 30 IF x<=5 AND x>=4 AND y<=A(3)+0.5 AND y>=A(3) AND A(3)=3.8 AND l=1 THEN GOTO 40 IF x<=5 AND x>=4 AND y<=A(2)+0.5 AND y>=A(2) AND A(2)=2.1 AND l=1 THEN GOTO 50 IF x<=5 AND x>=4 AND y<=A(2)+0.5 AND y>=A(2) AND A(2)=2.3 AND l=1 THEN GOTO 60 IF x<=5 AND x>=4 AND y<=A(1)+0.5 AND y>=A(1) AND A(1)=1.6 AND l=1 THEN GOTO 70 IF x<=5 AND x>=4 AND y<=A(1)+0.5 AND y>=A(1) AND A(1)=1.8 AND l=1 THEN LET A(1)=1.6 15 set draw mode explicit set draw mode hidden clear GOTO 10 20 LET A(4)=3.1 LET A(3)=2.6 LET A(2)=2.1 LET A(1)=1.6 GOTO 15 30 LET A(4)=3.3 LET A(3)=2.8 GOTO 15 40 LET A(3)=2.6 LET A(2)=2.1 LET A(1)=1.6 GOTO 15 50 LET A(4)=3.3 LET A(3)=2.8 LET A(2)=2.3 GOTO 15 60 LET A(2)=2.1 LET A(1)=1.6 GOTO 15 70 LET A(4)=3.3 LET A(3)=2.8 LET A(2)=2.3 LET A(1)=1.8 GOTO 15 END EXTERNAL PICTURE tama SET COLOR 12 PLOT AREA:0,0.5;1,1;2,0.5;1,0 SET LINE WIDTH 1 SET COLOR 1 PLOT LINES:0,0.5;2,0.5 PLOT LINES:0,0.5;1,1;2,0.5;1,0;0,0.5 END PICTURE やっぱり前のほうが私的にはいいと思います。

Re: どういう意味ですか?↓
もりの 2004/02/01 09:07:46
よくなったと思いますがごだまははらったときにやっぱりもう少し上にうごくようにごだまとその上の黒線の間隔を広げたほうがいいですね白線の下の縦棒はもう少し長いほうがいいかもねとにかくごわさんでねがいましてはといったときごだまはひだりからみぎにはらわれ一段ずつすべてうえにあがるはばがなければだめだし白線の下の四つの玉も計算して行く過程で一つずつうえにあがっていくわけですからやはり白線のしたのたてぼうはながいほうがいいかもねよろしくおねがいますね改良してみてくださいできたらまたみせてくださいね

Re: よくなったと
ひろ 2004/02/01 09:46:52
できた！できました少し違うかもしれないけどできました～でも大きすぎるので分けてのせます。 DECLARE EXTERNAL PICTURE tama SET WINDOW 3,10,0,7 DIM A(25) LET A(1)=1.6 !初期化 LET A(2)=2.1 LET A(3)=2.6 LET A(4)=3.1 LET A(5)=4.6 LET A(6)=1.6 LET A(7)=2.1 LET A(8)=2.6 LET A(9)=3.1 LET A(10)=4.6 LET A(11)=1.6 LET A(12)=2.1 LET A(13)=2.6 LET A(14)=3.1 LET A(15)=4.6 LET A(16)=1.6 LET A(17)=2.1 LET A(18)=2.6 LET A(19)=3.1 LET A(20)=4.6 LET A(21)=1.6 LET A(22)=2.1 LET A(23)=2.6 LET A(24)=3.1 LET A(25)=4.6 10 SET COLOR 3 !枠を描く PLOT AREA:0,0;10,0;10,10;0,10 SET LINE COLOR 1 SET LINE WIDTH 10 PLOT LINES:3.5,5.2;9.5,5.2;9.5,1.5;3.5,1.5;3.5,5.2 SET LINE COLOR 12 SET LINE WIDTH 6 PLOT LINES:4.5,5.1;4.5,1.6 PLOT LINES:5.5,5.1;5.5,1.6 PLOT LINES:6.5,5.1;6.5,1.6 PLOT LINES:7.5,5.1;7.5,1.6 PLOT LINES:8.5,5.1;8.5,1.6 SET LINE COLOR 0 SET LINE WIDTH 3 PLOT LINES:3.5,4.1;9.5,4.1 SET COLOR 1 DRAW disk WITH SCALE(0.008)SHIFT(5.5,4.1) DRAW disk WITH SCALE(0.008)SHIFT(8.5,4.1) SET LINE WIDTH 1 DRAW tama WITH SCALE(0.5)SHIFT(4,A(1)) !珠を描く DRAW tama WITH SCALE(0.5)SHIFT(4,A(2)) DRAW tama WITH SCALE(0.5)SHIFT(4,A(3)) DRAW tama WITH SCALE(0.5)SHIFT(4,A(4)) DRAW tama WITH SCALE(0.5)SHIFT(4,A(5)) DRAW tama WITH SCALE(0.5)SHIFT(5,A(6)) DRAW tama WITH SCALE(0.5)SHIFT(5,A(7)) DRAW tama WITH SCALE(0.5)SHIFT(5,A(8)) DRAW tama WITH SCALE(0.5)SHIFT(5,A(9)) DRAW tama WITH SCALE(0.5)SHIFT(5,A(10)) DRAW tama WITH SCALE(0.5)SHIFT(6,A(11)) DRAW tama WITH SCALE(0.5)SHIFT(6,A(12)) DRAW tama WITH SCALE(0.5)SHIFT(6,A(13)) DRAW tama WITH SCALE(0.5)SHIFT(6,A(14)) DRAW tama WITH SCALE(0.5)SHIFT(6,A(15)) DRAW tama WITH SCALE(0.5)SHIFT(7,A(16)) DRAW tama WITH SCALE(0.5)SHIFT(7,A(17)) DRAW tama WITH SCALE(0.5)SHIFT(7,A(18)) DRAW tama WITH SCALE(0.5)SHIFT(7,A(19)) DRAW tama WITH SCALE(0.5)SHIFT(7,A(20)) DRAW tama WITH SCALE(0.5)SHIFT(8,A(21)) DRAW tama WITH SCALE(0.5)SHIFT(8,A(22)) DRAW tama WITH SCALE(0.5)SHIFT(8,A(23)) DRAW tama WITH SCALE(0.5)SHIFT(8,A(24)) DRAW tama WITH SCALE(0.5)*SHIFT(8,A(25))

Re: できた！
ひろ 2004/02/01 09:49:17
続きです。 MOUSE POLL x,y,l,r !クリックしたのがどの珠か判断 IF x<=5 AND x>=4 AND y<=A(5)+0.5 AND y>=A(5) AND A(5)=4.6 AND l=1 THEN LET A(5)=4.1 IF x<=5 AND x>=4 AND y<=A(5)+0.5 AND y>=A(5) AND A(5)=4.1 AND l=1 THEN LET A(5)=4.6 IF x<=5 AND x>=4 AND y<=A(4)+0.5 AND y>=A(4) AND A(4)=3.1 AND l=1 THEN LET A(4)=3.6 IF x<=5 AND x>=4 AND y<=A(4)+0.5 AND y>=A(4) AND A(4)=3.6 AND l=1 THEN GOTO 20 IF x<=5 AND x>=4 AND y<=A(3)+0.5 AND y>=A(3) AND A(3)=2.6 AND l=1 THEN GOTO 30 IF x<=5 AND x>=4 AND y<=A(3)+0.5 AND y>=A(3) AND A(3)=3.1 AND l=1 THEN GOTO 40 IF x<=5 AND x>=4 AND y<=A(2)+0.5 AND y>=A(2) AND A(2)=2.1 AND l=1 THEN GOTO 50 IF x<=5 AND x>=4 AND y<=A(2)+0.5 AND y>=A(2) AND A(2)=2.6 AND l=1 THEN GOTO 60 IF x<=5 AND x>=4 AND y<=A(1)+0.5 AND y>=A(1) AND A(1)=1.6 AND l=1 THEN GOTO 70 IF x<=5 AND x>=4 AND y<=A(1)+0.5 AND y>=A(1) AND A(1)=2.1 AND l=1 THEN LET A(1)=1.6 IF x<=6 AND x>=5 AND y<=A(10)+0.5 AND y>=A(10) AND A(10)=4.6 AND l=1 THEN LET A(10)=4.1 IF x<=6 AND x>=5 AND y<=A(10)+0.5 AND y>=A(10) AND A(10)=4.1 AND l=1 THEN LET A(10)=4.6 IF x<=6 AND x>=5 AND y<=A(9)+0.5 AND y>=A(9) AND A(9)=3.1 AND l=1 THEN LET A(9)=3.6 IF x<=6 AND x>=5 AND y<=A(9)+0.5 AND y>=A(9) AND A(9)=3.6 AND l=1 THEN GOTO 80 IF x<=6 AND x>=5 AND y<=A(8)+0.5 AND y>=A(8) AND A(8)=2.6 AND l=1 THEN GOTO 90 IF x<=6 AND x>=5 AND y<=A(8)+0.5 AND y>=A(8) AND A(8)=3.1 AND l=1 THEN GOTO 100 IF x<=6 AND x>=5 AND y<=A(7)+0.5 AND y>=A(7) AND A(7)=2.1 AND l=1 THEN GOTO 110 IF x<=6 AND x>=5 AND y<=A(7)+0.5 AND y>=A(7) AND A(7)=2.6 AND l=1 THEN GOTO 120 IF x<=6 AND x>=5 AND y<=A(6)+0.5 AND y>=A(6) AND A(6)=1.6 AND l=1 THEN GOTO 130 IF x<=6 AND x>=5 AND y<=A(6)+0.5 AND y>=A(6) AND A(6)=2.1 AND l=1 THEN LET A(6)=1.6

Re: 続きです。
ひろ 2004/02/01 09:50:18
また続きです。 IF x<=7 AND x>=6 AND y<=A(15)+0.5 AND y>=A(15) AND A(15)=4.6 AND l=1 THEN LET A(15)=4.1 IF x<=7 AND x>=6 AND y<=A(15)+0.5 AND y>=A(15) AND A(15)=4.1 AND l=1 THEN LET A(15)=4.6 IF x<=7 AND x>=6 AND y<=A(14)+0.5 AND y>=A(14) AND A(14)=3.1 AND l=1 THEN LET A(14)=3.6 IF x<=7 AND x>=6 AND y<=A(14)+0.5 AND y>=A(14) AND A(14)=3.6 AND l=1 THEN GOTO 140 IF x<=7 AND x>=6 AND y<=A(13)+0.5 AND y>=A(13) AND A(13)=2.6 AND l=1 THEN GOTO 150 IF x<=7 AND x>=6 AND y<=A(13)+0.5 AND y>=A(13) AND A(13)=3.1 AND l=1 THEN GOTO 160 IF x<=7 AND x>=6 AND y<=A(12)+0.5 AND y>=A(12) AND A(12)=2.1 AND l=1 THEN GOTO 170 IF x<=7 AND x>=6 AND y<=A(12)+0.5 AND y>=A(12) AND A(12)=2.6 AND l=1 THEN GOTO 180 IF x<=7 AND x>=6 AND y<=A(11)+0.5 AND y>=A(11) AND A(11)=1.6 AND l=1 THEN GOTO 190 IF x<=7 AND x>=6 AND y<=A(11)+0.5 AND y>=A(11) AND A(11)=2.1 AND l=1 THEN LET A(11)=1.6 IF x<=8 AND x>=7 AND y<=A(20)+0.5 AND y>=A(20) AND A(20)=4.6 AND l=1 THEN LET A(20)=4.1 IF x<=8 AND x>=7 AND y<=A(20)+0.5 AND y>=A(20) AND A(20)=4.1 AND l=1 THEN LET A(20)=4.6 IF x<=8 AND x>=7 AND y<=A(19)+0.5 AND y>=A(19) AND A(19)=3.1 AND l=1 THEN LET A(19)=3.6 IF x<=8 AND x>=7 AND y<=A(19)+0.5 AND y>=A(19) AND A(19)=3.6 AND l=1 THEN GOTO 200 IF x<=8 AND x>=7 AND y<=A(18)+0.5 AND y>=A(18) AND A(18)=2.6 AND l=1 THEN GOTO 210 IF x<=8 AND x>=7 AND y<=A(18)+0.5 AND y>=A(18) AND A(18)=3.1 AND l=1 THEN GOTO 220 IF x<=8 AND x>=7 AND y<=A(17)+0.5 AND y>=A(17) AND A(17)=2.1 AND l=1 THEN GOTO 230 IF x<=8 AND x>=7 AND y<=A(17)+0.5 AND y>=A(17) AND A(17)=2.6 AND l=1 THEN GOTO 240 IF x<=8 AND x>=7 AND y<=A(16)+0.5 AND y>=A(16) AND A(16)=1.6 AND l=1 THEN GOTO 250 IF x<=8 AND x>=7 AND y<=A(16)+0.5 AND y>=A(16) AND A(16)=2.1 AND l=1 THEN LET A(16)=1.6

Re: また続きです。
ひろ 2004/02/01 09:51:07
またまた続きです。 IF x<=9 AND x>=8 AND y<=A(25)+0.5 AND y>=A(25) AND A(25)=4.6 AND l=1 THEN LET A(25)=4.1 IF x<=9 AND x>=8 AND y<=A(25)+0.5 AND y>=A(25) AND A(25)=4.1 AND l=1 THEN LET A(25)=4.6 IF x<=9 AND x>=8 AND y<=A(24)+0.5 AND y>=A(24) AND A(24)=3.1 AND l=1 THEN LET A(24)=3.6 IF x<=9 AND x>=8 AND y<=A(24)+0.5 AND y>=A(24) AND A(24)=3.6 AND l=1 THEN GOTO 260 IF x<=9 AND x>=8 AND y<=A(23)+0.5 AND y>=A(23) AND A(23)=2.6 AND l=1 THEN GOTO 270 IF x<=9 AND x>=8 AND y<=A(23)+0.5 AND y>=A(23) AND A(23)=3.1 AND l=1 THEN GOTO 280 IF x<=9 AND x>=8 AND y<=A(22)+0.5 AND y>=A(22) AND A(22)=2.1 AND l=1 THEN GOTO 290 IF x<=9 AND x>=8 AND y<=A(22)+0.5 AND y>=A(22) AND A(22)=2.6 AND l=1 THEN GOTO 300 IF x<=9 AND x>=8 AND y<=A(21)+0.5 AND y>=A(21) AND A(21)=1.6 AND l=1 THEN GOTO 310 IF x<=9 AND x>=8 AND y<=A(21)+0.5 AND y>=A(21) AND A(21)=2.1 AND l=1 THEN LET A(21)=1.6 15 set draw mode explicit set draw mode hidden clear GOTO 10 20 LET A(4)=3.1 !珠を動かす LET A(3)=2.6 LET A(2)=2.1 LET A(1)=1.6 GOTO 15 30 LET A(4)=3.6 LET A(3)=3.1 GOTO 15 40 LET A(3)=2.6 LET A(2)=2.1 LET A(1)=1.6 GOTO 15 50 LET A(4)=3.6 LET A(3)=3.1 LET A(2)=2.6 GOTO 15 60 LET A(2)=2.1 LET A(1)=1.6 GOTO 15 70 LET A(4)=3.6 LET A(3)=3.1 LET A(2)=2.6 LET A(1)=2.1 GOTO 15 80 LET A(9)=3.1 LET A(8)=2.6 LET A(7)=2.1 LET A(6)=1.6 GOTO 15 90 LET A(9)=3.6 LET A(8)=3.1 GOTO 15 100 LET A(8)=2.6 LET A(7)=2.1 LET A(6)=1.6 GOTO 15 110 LET A(9)=3.6 LET A(8)=3.1 LET A(7)=2.6 GOTO 15

Re: またまた続きです。
ひろ 2004/02/01 09:51:48
これで最後です。 120 LET A(7)=2.1 LET A(6)=1.6 GOTO 15 130 LET A(9)=3.6 LET A(8)=3.1 LET A(7)=2.6 LET A(6)=2.1 GOTO 15 140 LET A(14)=3.1 LET A(13)=2.6 LET A(12)=2.1 LET A(11)=1.6 GOTO 15 150 LET A(14)=3.6 LET A(13)=3.1 GOTO 15 160 LET A(13)=2.6 LET A(12)=2.1 LET A(11)=1.6 GOTO 15 170 LET A(14)=3.6 LET A(13)=3.1 LET A(12)=2.6 GOTO 15 180 LET A(12)=2.1 LET A(11)=1.6 GOTO 15 190 LET A(14)=3.6 LET A(13)=3.1 LET A(12)=2.6 LET A(11)=2.1 GOTO 15 200 LET A(19)=3.1 LET A(18)=2.6 LET A(17)=2.1 LET A(16)=1.6 GOTO 15 210 LET A(19)=3.6 LET A(18)=3.1 GOTO 15 220 LET A(18)=2.6 LET A(17)=2.1 LET A(16)=1.6 GOTO 15 230 LET A(19)=3.6 LET A(18)=3.1 LET A(17)=2.6 GOTO 15 240 LET A(17)=2.1 LET A(16)=1.6 GOTO 15 250 LET A(19)=3.6 LET A(18)=3.1 LET A(17)=2.6 LET A(16)=2.1 GOTO 15 260 LET A(24)=3.1 LET A(23)=2.6 LET A(22)=2.1 LET A(21)=1.6 GOTO 15 270 LET A(24)=3.6 LET A(23)=3.1 GOTO 15 280 LET A(23)=2.6 LET A(22)=2.1 LET A(21)=1.6 GOTO 15 290 LET A(24)=3.6 LET A(23)=3.1 LET A(22)=2.6 GOTO 15 300 LET A(22)=2.1 LET A(21)=1.6 GOTO 15 310 LET A(24)=3.6 LET A(23)=3.1 LET A(22)=2.6 LET A(21)=2.1 GOTO 15 END EXTERNAL PICTURE tama SET COLOR 12 PLOT AREA:0,0.5;1,1;2,0.5;1,0 SET LINE WIDTH 1 SET COLOR 1 PLOT LINES:0,0.5;2,0.5 PLOT LINES:0,0.5;1,1;2,0.5;1,0;0,0.5 END PICTURE

Re: これで最後です。
ひろ 2004/02/01 09:52:40
ごめんなさいここまで分けなければのせれませんでした。

Re: また続きです。
もりの 2004/02/01 09:53:59
改良ありがとう＾＾大きそうなのでメールでおくってくれますか？アドレスは　　stdoor24_12@hotmail.com です

Re: できた！
もりの 2004/02/01 10:11:45
大きくてコピー貼り付けができないようなのでメールでおくってくれますか？

Re: 大きくてコピー貼り付けが
ひろ 2004/02/01 11:36:58
メール届きましたか? 送りましたよ

Re: メール届きましたか?
もりの 2004/02/01 11:56:49
届きました動かしてみました操作性もいいですね改良してほしい点は白せんをやや太くして一のくらいの白線の中心と千のくらいの白線の中心に黒いマル点をつけてくれますか？位取りがわかりやすくなると思いますあとイチモンおわったら初期状態にもどしたいので画面上にクリアホ゛タンをつくってくれますかそれをクリックするとクリアされ、つぎの問題にはいれるようにしたいのです。いってることわかりますかね？おねがいしますあと一歩でさらに完璧になりますね授業の時電子ボードに写すのが楽しみです。。。

Re: 届きました
ひろ 2004/02/01 12:40:06
今度もまたメールを送りましたが、どうですか。また何か不満があればいってください。

Re: 今度もまたメールを送りましたが、
もりの 2004/02/01 13:03:17
メールあとでみてみます。今ちょっとラオックスにノートパソコン見に行ってきます。 3時ころまでには返信だせると思います。なんどもありがとうございます。

Re: メールあとでみてみます。
もりの 2004/02/01 16:56:29
クリアっていうクリックのアイコンがあるのメールでまだきていませんけど送ってくれたのですよね。確認までありがとね

Re: クリアっていうクリックの
ひろ 2004/02/01 19:32:12
またメールを送りました。今度も不満があれば言ってください。