新しく発言する EXIT インデックスへ
重さくらべ、そろばん

  重さくらべ、そろばん もりの 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
とか最初に問題が表示され
次にマウスで3円なり
4えんなりとか
やっていくわけです
とにかくひろさんの
思ったアイデアいちど
つくってくれますか
なんどかアドバイス
すれば授業で使えるものは
できますよ
ひろさんはプログラマー
なんでしょ

    └そろばんのデザインはこんなものでよろしい... ひろ 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
五列あればいいと思います。
3年生しかやらないので
万のくらいまででいいと思います。
横の上のごダマのしたの横線は
白です。
白線に一の位と千の位に
黒のドット(点)の印を
付けてください
下の四つの玉は最初くっついて
います
上のたまははらうと全部上のくっつきますね
改良できますか?
ほんとにありがとう
ございます。
玉が動くようになるのが
楽しみですね。
どうやると動くのかな?
おもしろそう

         └背景を何色にするかが もりの 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
ごだまは白い線にくっついていたほうが
いいですね。
2番目のたまと白い横線はもう少し
間隔がせまい方がいいと
思います。

             └どういう意味ですか?↓ ひろ 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
新規発言を反映させるにはブラウザの更新ボタンを押してください。