新しく発言する EXIT インデックスへ
時計と同じ秤

  時計と同じ秤 もりの 2004/02/01 17:01:18 
  やってみたいです。 ひろ 2004/02/01 19:33:57 
   └ありがとう もりの 2004/02/01 19:49:28 
    └これは何グラムでしょう もりの 2004/02/01 19:57:33 
     └秤のデザインが出来上がりました。 ひろ 2004/02/02 16:14:07 
      └気づいたことを書いておきますね もりの 2004/02/02 18:16:56 
       └もりのさんの意見は次に取り入れたいと思い... ひろ 2004/02/02 19:15:37 
        └よろしく もりの 2004/02/02 21:12:16 
         └こんなものですか ひろ 2004/02/02 21:51:05 
          └そんな感じです。 もりの 2004/02/02 22:14:10 
           └おせっかいながら改良してみました。 青木太一 2004/02/03 01:23:54 
            └改良ありがとう もりの 2004/02/04 21:28:26 
             └選べるのは正確に1・4・5kgではありません。... ひろ 2004/02/05 21:57:40 
              └20PLOTTEXT,ATCOS(90)*0.5-0.02,SIN(90)*0.... ひろ 2004/02/05 21:58:13 
               └ごめんなさい。 ひろ 2004/02/05 22:03:16 
                └<改良してほしい点> もりの 2004/02/06 00:02:49 
                 └kg・gをわけるには ひろ 2004/02/06 18:05:15 
                  ├続きです。 ひろ 2004/02/06 18:06:30 
                  └私が言っているのは もりの 2004/02/06 19:35:40 
                   └針の動きは青木さんのアドバイスを もりの 2004/02/06 20:10:38 
                    └青木さんのアドバイスってなんですか? ひろ 2004/02/06 22:12:54 
                     └十個上のコメントに青木さんが もりの 2004/02/06 22:46:11 
                      └ごめんなさい ひろ 2004/02/07 11:46:45 
                       └改良ありがとう もりの 2004/02/07 12:55:48 
                        └1kg・・・・green もりの 2004/02/07 13:29:28 
                         └5kgのはかりですか? ひろ 2004/02/07 20:32:47 
                          ├50gと100g以外のメモリはなにいろですか? ひろ 2004/02/07 20:47:11 
                          │└黒です もりの 2004/02/07 23:09:36 
                          └500gのはかりは実際あるし もりの 2004/02/07 23:08:23 
                           └500gのおもりの色は何色にしますか? ひろ 2004/02/08 07:15:23 

  時計と同じ秤 もりの 2004/02/01 17:01:18  ツリーへ

時計と同じ秤
もりの 2004/02/01 17:01:18
時計と同じ仕組みで
はかれるプログラム
チャレンジしてくれますか?
前に時計を市販のもので
やりましたが
とてもよかったので
重さも同じように
やりたいな
作ってみたい人
いましたらカキコして
ください
宜しくお願いします。

  やってみたいです。 ひろ 2004/02/01 19:33:57  ツリーへ

Re: 時計と同じ秤
ひろ 2004/02/01 19:33:57
やってみたいです。

   └ありがとう もりの 2004/02/01 19:49:28  ツリーへ

Re: やってみたいです。
もりの 2004/02/01 19:49:28
ありがとう
今そろばんのクリアボタン
みたけどとてもいいですね

子供やお年寄りが使いやすいし

低学年ではおみせやさんごっこも
教室でやりますから

機会があったらいろんな学年で
つかって感想を
きいてみますね。

そろばんのプログラム
ほんとにありがとう

ひろさんは学生さんですか?

とりあえず時計のはりを
よくみて
そのあと10グラムと100グラム
単位に針が動かせるように
していきましょう。

とりあえず丸い時計のような
はかりを作ってくれますか?
3年生がこれからやるので
わかりやすく
実用的なものをめざしましょう
私も何度でもアドバイスさせて
もらいます
協働して全国に通じるものを
つくりましょうよ。

最初に10グラム単位の
はかりを使いますか?
それとも100グラム単位の
はかりをつかいますか?
とえらべるといいですね。
よろしくお願いします。
あわてないでいままで
以上のものを作りましょうよ。

    └これは何グラムでしょう もりの 2004/02/01 19:57:33  ツリーへ

Re: ありがとう
もりの 2004/02/01 19:57:33
これは何グラムでしょう
とか
これは何キロ何百グラムでしょうとか

はかりをみてこたえさせ

ピンポン 正解

ブー   はずれ
もう一度よく考えて
答えましょう?
というそういう感じです。

     └秤のデザインが出来上がりました。 ひろ 2004/02/02 16:14:07  ツリーへ

Re: これは何グラムでしょう
ひろ 2004/02/02 16:14:07
秤のデザインが出来上がりました。
こんなものでよろしいでしょうか。

DECLARE EXTERNAL PICTURE hari
OPTION ANGLE DEGREES
SET WINDOW -1,1,-1,1
FOR a=360 TO 0 STEP -2
SET LINE WIDTH 6
SET LINE COLOR 4
FOR R=1 TO 360 STEP 0.1
PLOT LINES:COS(R)*0.5,SIN(R)*0.5
NEXT R
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
PLOT LINES:-0.3,-0.5;-0.8,-0.8;0.8,-0.8;0.3,-0.5
SET TEXT FONT "MS 明朝",12
PLOT TEXT ,AT COS(90)*0.5-0.02,SIN(90)*0.5-0.08: "0"
PLOT TEXT ,AT COS(60)*0.5-0.05,SIN(60)*0.5-0.08: "10"
PLOT TEXT ,AT COS(30)*0.5-0.08,SIN(30)*0.5-0.08 : "20"
PLOT TEXT ,AT COS(0)*0.5-0.08,SIN(0)*0.5-0.02: "30"
PLOT TEXT ,AT COS(-30)*0.5-0.08,SIN(-30)*0.5: "40"
PLOT TEXT ,AT COS(-60)*0.5-0.05,SIN(-60)*0.5+0.03: "50"
PLOT TEXT ,AT COS(-90)*0.5-0.03,SIN(-90)*0.5+0.03: "60"
PLOT TEXT ,AT COS(-120)*0.5-0.02,SIN(-120)*0.5+0.02: "70"
PLOT TEXT ,AT COS(-150)*0.5,SIN(-150)*0.5+0.02: "80"
PLOT TEXT ,AT COS(-180)*0.5+0.02,SIN(-180)*0.5-0.02: "90"
PLOT TEXT ,AT COS(-210)*0.5,SIN(-210)*0.5-0.06: "100"
PLOT TEXT ,AT COS(-240)*0.5-0.04,SIN(-240)*0.5-0.08: "110"
DRAW hari WITH ROTATE(a)
set draw mode explicit
set draw mode hidden
clear
NEXT a
END



EXTERNAL PICTURE hari
SET COLOR 4
PLOT AREA:0,0;-0.05,0.3;0,0.4;0.05,0.3
END PICTURE

      └気づいたことを書いておきますね もりの 2004/02/02 18:16:56  ツリーへ

Re: 秤のデザインが出来上がりました。
もりの 2004/02/02 18:16:56
気づいたことを書いておきますね

1 ものをのせる台は立体的に丁寧につくれますか?

2 1kg と 4kgのはかりが必要です

3 どちらか選べ メモリの刻みも選べるように
 できますか?

4 1kg用のはかりは刻みは10グラムごとです
 50gと100gのところを少し長くする
5 4kg用のはかりは刻みは100グラムごとです
 以下同文です
6 針のさきは正確さが要求されますので
 もう少し細長くはっきりきざみを指すように
 してください
 よろしくお願いします。

       └もりのさんの意見は次に取り入れたいと思い... ひろ 2004/02/02 19:15:37  ツリーへ

Re: 気づいたことを書いておきますね
ひろ 2004/02/02 19:15:37
もりのさんの意見は次に取り入れたいと思います。
今はまた新たに一歩踏み出せたので書きました。
今度は本格的に重さを入力できるというものです。

DECLARE EXTERNAL PICTURE hari
OPTION ANGLE DEGREES
SET BITMAP SIZE 950,950
SET WINDOW -1,1,-1,1
SET LINE WIDTH 6
SET LINE COLOR 4
FOR R=1 TO 360 STEP 0.1
PLOT LINES:COS(R)*0.5,SIN(R)*0.5
NEXT R
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
PLOT LINES:-0.3,-0.5;-0.8,-0.8;0.8,-0.8;0.3,-0.5
SET TEXT FONT "MS 明朝",12
PLOT TEXT ,AT COS(90)*0.5-0.02,SIN(90)*0.5-0.08: "0"
PLOT TEXT ,AT COS(60)*0.5-0.05,SIN(60)*0.5-0.08: "100"
PLOT TEXT ,AT COS(30)*0.5-0.08,SIN(30)*0.5-0.08 : "200"
PLOT TEXT ,AT COS(0)*0.5-0.08,SIN(0)*0.5-0.02: "300"
PLOT TEXT ,AT COS(-30)*0.5-0.08,SIN(-30)*0.5: "400"
PLOT TEXT ,AT COS(-60)*0.5-0.05,SIN(-60)*0.5+0.03: "500"
PLOT TEXT ,AT COS(-90)*0.5-0.03,SIN(-90)*0.5+0.03: "600"
PLOT TEXT ,AT COS(-120)*0.5-0.02,SIN(-120)*0.5+0.02: "700"
PLOT TEXT ,AT COS(-150)*0.5,SIN(-150)*0.5+0.02: "800"
PLOT TEXT ,AT COS(-180)*0.5+0.02,SIN(-180)*0.5-0.02: "900"
PLOT TEXT ,AT COS(-210)*0.5,SIN(-210)*0.5-0.06: "1000"
PLOT TEXT ,AT COS(-240)*0.5-0.04,SIN(-240)*0.5-0.08: "1100"
PLOT TEXT ,AT -0.5,-1:"※単位はグラム。"
SET LINE WIDTH 1
INPUT PROMPT "何グラムですか?":R
LET a=R/1200*360
DRAW hari WITH ROTATE(-a)
END



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

        └よろしく もりの 2004/02/02 21:12:16  ツリーへ

Re: もりのさんの意見は次に取り入れたいと思い...
もりの 2004/02/02 21:12:16
よろしく

針がマウスでひっぱれると
いいですね

時計のときはそれが
できました。

         └こんなものですか ひろ 2004/02/02 21:51:05  ツリーへ

Re: よろしく
ひろ 2004/02/02 21:51:05
こんなものですか
画面中をクリックしながらマウスを動かしてください。

DECLARE EXTERNAL PICTURE hari
OPTION ANGLE DEGREES
SET BITMAP SIZE 950,950
SET WINDOW -1,1,-1,1
DO
MOUSE POLL x,y,l,r
SET LINE WIDTH 6
SET LINE COLOR 4
FOR R=1 TO 360 STEP 0.1
PLOT LINES:COS(R)*0.5,SIN(R)*0.5
NEXT R
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
PLOT LINES:-0.3,-0.5;-0.8,-0.8;0.8,-0.8;0.3,-0.5
SET TEXT FONT "MS 明朝",12
PLOT TEXT ,AT COS(90)*0.5-0.02,SIN(90)*0.5-0.08: "0"
PLOT TEXT ,AT COS(60)*0.5-0.05,SIN(60)*0.5-0.08: "100"
PLOT TEXT ,AT COS(30)*0.5-0.08,SIN(30)*0.5-0.08 : "200"
PLOT TEXT ,AT COS(0)*0.5-0.08,SIN(0)*0.5-0.02: "300"
PLOT TEXT ,AT COS(-30)*0.5-0.08,SIN(-30)*0.5: "400"
PLOT TEXT ,AT COS(-60)*0.5-0.05,SIN(-60)*0.5+0.03: "500"
PLOT TEXT ,AT COS(-90)*0.5-0.03,SIN(-90)*0.5+0.03: "600"
PLOT TEXT ,AT COS(-120)*0.5-0.02,SIN(-120)*0.5+0.02: "700"
PLOT TEXT ,AT COS(-150)*0.5,SIN(-150)*0.5+0.02: "800"
PLOT TEXT ,AT COS(-180)*0.5+0.02,SIN(-180)*0.5-0.02: "900"
PLOT TEXT ,AT COS(-210)*0.5,SIN(-210)*0.5-0.06: "1000"
PLOT TEXT ,AT COS(-240)*0.5-0.04,SIN(-240)*0.5-0.08: "1100"
PLOT TEXT ,AT -0.5,-1:"※単位はグラム。"
SET LINE WIDTH 1
IF l=1 AND X>0 THEN LET u=y/x
IF l=1 AND x<0 THEN LET u=-(y/x)
LET a=ATN(u)
IF l=1 AND X>0 THEN LET g=-(90-a)
IF l=1 AND x<0 THEN LET g=90-a
DRAW hari WITH ROTATE(g)
set draw mode explicit
set draw mode hidden
clear
LOOP
END



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

          └そんな感じです。 もりの 2004/02/02 22:14:10  ツリーへ

Re: こんなものですか
もりの 2004/02/02 22:14:10
そんな感じです。
くるくるもう少しなめらかに
うごき

ピタッととまるときは
止まるという
ものです
よろしく。。

一歩ずついいものをめざしましょう

           └おせっかいながら改良してみました。 青木太一 2004/02/03 01:23:54  ツリーへ

Re: そんな感じです。
青木太一 2004/02/03 01:23:54
おせっかいながら改良してみました。
ひろさんの参考になったらうれしいです。
すでに知っている技術だったら失礼。

!1.マウスの位置から角度を求めるのにはATNではなくANGLE関数を使うと楽

!2.目盛りを描くのはfor文 を使うと楽。
!  (このとき、set text justifyで文字の基準点を中心に持って置いた方がよい)

!3.円を描くplot liinesは最後に;をつけないとつながらないので点をえがいているだけになっていた。

!4.もりのさんの要求である「なめらかにうごいてもらいたい」を実現するための高速化
!timeを使って計測するとわかりますが、時間がかかっているのはここ
! FOR R=1 TO 360 STEP .1
! PLOT LINES:COS(R)*0.5,SIN(R)*0.5!<-(ちなみにここに;をつける(.3より))
! NEXT R
!条件にもよるけどここだけで全体の処理時間の6割(ときに9割)以上時間をくってた。どうするか
!->そもそも、描きかえるのは秒針だけでよい

DECLARE EXTERNAL PICTURE hari
OPTION ANGLE DEGREES
SET BITMAP SIZE 950,950
SET WINDOW -1,1,-1,1

SET LINE WIDTH 6
SET LINE COLOR 4
FOR R=1 TO 360 STEP .1
PLOT LINES:COS(R)*0.5,SIN(R)*0.5;
NEXT R
plot lines
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
PLOT LINES:-0.3,-0.5;-0.8,-0.8;0.8,-0.8;0.3,-0.5
SET TEXT FONT "MS 明朝",12
set text justify "center" ,"half"
LET radius=0.5-0.05
for memori=0 to 1100 step 100
LET anglee=90-memori/1200*360
PLOT TEXT ,AT COS(anglee)*radius,SIN(anglee)*radius: str$(memori)
next memori
PLOT TEXT ,AT -0.5,-1:"※単位はグラム。"

SET LINE WIDTH 1
if l=1 then LET g=angle(x,y)-90
DRAW hari(4) WITH ROTATE(g)
do
mouse poll x,y,l,r
if l=1 then LET g=angle(x,y)-90
DRAW hari(4) WITH ROTATE(g)
set draw mode explicit
set draw mode hidden
LET t=time
DRAW hari(0) WITH ROTATE(g)
LOOP
END

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

            └改良ありがとう もりの 2004/02/04 21:28:26  ツリーへ

Re: おせっかいながら改良してみました。
もりの 2004/02/04 21:28:26
改良ありがとう
授業でつかうには

100グラム、200グラムとかの
間に全部 10グラムと50グラムの目盛りが必要です

あと 最初に

何グラムの はかり を使いますか?
という選択メニューが必要です。

1. 1kg

2. 4kg

3. 5kg


どの はかりを 使いますか?
番号で選んでくださいと

選んだらそれぞれ

その計りがあらわれるという
仕組みです

理想的ですがタブン無理でしょう?

今日実物のはかりを使ってみましたが

時計のときと同じでこわれていたり
結構不正確ですね。

やっぱりこの分野はパソコンがいちばん。
できるといいな・・・?

皆さんの知的好奇心に期待します。。

 

             └選べるのは正確に1・4・5kgではありません。... ひろ 2004/02/05 21:57:40  ツリーへ

Re: 改良ありがとう
ひろ 2004/02/05 21:57:40
選べるのは正確に1・4・5kgではありません。
しかも大きいので分けてのせます。

DECLARE EXTERNAL PICTURE hari
OPTION ANGLE DEGREES
SET BITMAP SIZE 950,950
SET WINDOW -1,1,-1,1
INPUT PROMPT "何kgのはかりを使いますか? 1、1kg 2、4kg 3、5kg ":e
INPUT PROMPT "何グラムですか?":f
DO
MOUSE POLL x,y,l,r
SET LINE WIDTH 6
SET LINE COLOR 4
FOR R=1 TO 360 STEP 0.1
PLOT LINES:COS(R)*0.5,SIN(R)*0.5
NEXT R
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
PLOT LINES:-0.3,-0.5;-0.8,-0.8;0.8,-0.8;0.3,-0.5

SET TEXT FONT "MS 明朝",12
SELECT CASE e
CASE 1
GOTO 10
CASE 2
GOTO 20
CASE 3
GOTO 30
END SELECT
10 PLOT TEXT ,AT COS(90)*0.5-0.02,SIN(90)*0.5-0.08: "0"
PLOT TEXT ,AT COS(60)*0.5-0.05,SIN(60)*0.5-0.08: "100"
PLOT TEXT ,AT COS(30)*0.5-0.08,SIN(30)*0.5-0.08 : "200"
PLOT TEXT ,AT COS(0)*0.5-0.08,SIN(0)*0.5-0.02: "300"
PLOT TEXT ,AT COS(-30)*0.5-0.08,SIN(-30)*0.5: "400"
PLOT TEXT ,AT COS(-60)*0.5-0.05,SIN(-60)*0.5+0.03: "500"
PLOT TEXT ,AT COS(-90)*0.5-0.03,SIN(-90)*0.5+0.03: "600"
PLOT TEXT ,AT COS(-120)*0.5-0.02,SIN(-120)*0.5+0.02: "700"
PLOT TEXT ,AT COS(-150)*0.5,SIN(-150)*0.5+0.02: "800"
PLOT TEXT ,AT COS(-180)*0.5+0.02,SIN(-180)*0.5-0.02: "900"
PLOT TEXT ,AT COS(-210)*0.5,SIN(-210)*0.5-0.06: "1000"
PLOT TEXT ,AT COS(-240)*0.5-0.04,SIN(-240)*0.5-0.08: "1100"
PLOT TEXT ,AT -0.5,-1:"※単位はグラム。"
LET g=-(f/1200*360)
GOTO 40

              └20PLOTTEXT,ATCOS(90)*0.5-0.02,SIN(90)*0.... ひろ 2004/02/05 21:58:13  ツリーへ

Re: 選べるのは正確に1・4・5kgではありません。...
ひろ 2004/02/05 21:58:13
20 PLOT TEXT ,AT COS(90)*0.5-0.02,SIN(90)*0.5-0.08: "0"
PLOT TEXT ,AT COS(60)*0.5-0.05,SIN(60)*0.5-0.08: "400"
PLOT TEXT ,AT COS(30)*0.5-0.08,SIN(30)*0.5-0.08 : "800"
PLOT TEXT ,AT COS(0)*0.5-0.08,SIN(0)*0.5-0.02: "1200"
PLOT TEXT ,AT COS(-30)*0.5-0.08,SIN(-30)*0.5: "1600"
PLOT TEXT ,AT COS(-60)*0.5-0.05,SIN(-60)*0.5+0.03: "2000"
PLOT TEXT ,AT COS(-90)*0.5-0.03,SIN(-90)*0.5+0.03: "2400"
PLOT TEXT ,AT COS(-120)*0.5-0.02,SIN(-120)*0.5+0.02: "2800"
PLOT TEXT ,AT COS(-150)*0.5,SIN(-150)*0.5+0.02: "3200"
PLOT TEXT ,AT COS(-180)*0.5+0.02,SIN(-180)*0.5-0.02: "3600"
PLOT TEXT ,AT COS(-210)*0.5,SIN(-210)*0.5-0.06: "4000"
PLOT TEXT ,AT COS(-240)*0.5-0.04,SIN(-240)*0.5-0.08: "4400"
PLOT TEXT ,AT -0.5,-1:"※単位はグラム。"
LET g=-(f/4800*360)
GOTO 40
30 PLOT TEXT ,AT COS(90)*0.5-0.02,SIN(90)*0.5-0.08: "0"
PLOT TEXT ,AT COS(60)*0.5-0.05,SIN(60)*0.5-0.08: "450"
PLOT TEXT ,AT COS(30)*0.5-0.08,SIN(30)*0.5-0.08 : "900"
PLOT TEXT ,AT COS(0)*0.5-0.08,SIN(0)*0.5-0.02: "1350"
PLOT TEXT ,AT COS(-30)*0.5-0.08,SIN(-30)*0.5: "1800"
PLOT TEXT ,AT COS(-60)*0.5-0.05,SIN(-60)*0.5+0.03: "2250"
PLOT TEXT ,AT COS(-90)*0.5-0.03,SIN(-90)*0.5+0.03: "2700"
PLOT TEXT ,AT COS(-120)*0.5-0.02,SIN(-120)*0.5+0.02: "3150"
PLOT TEXT ,AT COS(-150)*0.5,SIN(-150)*0.5+0.02: "3400"
PLOT TEXT ,AT COS(-180)*0.5+0.02,SIN(-180)*0.5-0.02: "3600"
PLOT TEXT ,AT COS(-210)*0.5,SIN(-210)*0.5-0.06: "4050"
PLOT TEXT ,AT COS(-240)*0.5-0.04,SIN(-240)*0.5-0.08: "4500"
PLOT TEXT ,AT -0.5,-1:"※単位はグラム。"
LET g=-(f/4500*360)
GOTO 40
40 SET LINE WIDTH 2
FOR R=1 TO 360 STEP 3
PLOT LINES:COS(r)*0.5,SIN(r)*0.5;COS(r)*0.48,SIN(r)*0.48
NEXT r
SET LINE WIDTH 1
IF l=1 AND X>0 THEN LET u=y/x
IF l=1 AND x<0 THEN LET u=-(y/x)
LET a=ATN(u)
IF l=1 AND X>0 THEN LET g=-(90-a)
IF l=1 AND x<0 THEN LET g=90-a
DRAW hari WITH ROTATE(g)
set draw mode explicit
set draw mode hidden
clear
LOOP
END



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

               └ごめんなさい。 ひろ 2004/02/05 22:03:16  ツリーへ

Re: 20PLOTTEXT,ATCOS(90)*0.5-0.02,SIN(90)*0....
ひろ 2004/02/05 22:03:16
ごめんなさい。
訂正があります。
40と書いてある行の上の上にある
LET g=-(f/4500*360)
という部分の4500を
4950に直してください。

                └<改良してほしい点> もりの 2004/02/06 00:02:49  ツリーへ

Re: ごめんなさい。
もりの 2004/02/06 00:02:49
<改良してほしい点>
目盛りがついてうれしいです
気づいた点
 1 はりの動きをなめらかにしないと授業では使えない
 2 50グラムや500グラムの目盛りは中ぐらいの長さに
  できますか?
 3 何グラムに しますか?の 入力は 
  何キログラム 
  何グラム
  にわけて数字だけで入力したほうがいいと
  思います
 4 針のいちをピタッとすることは
  できますか?
  改良の方、よろしく^^
  はかりらしくなってきましたね

  計りに物がのっている画面になると
  いいですね。
  


                 └kg・gをわけるには ひろ 2004/02/06 18:05:15  ツリーへ

Re: <改良してほしい点>
ひろ 2004/02/06 18:05:15
kg・gをわけるには
重さを入力する前に
1か2を押してください。
物が乗っているようにもなりました。

DECLARE EXTERNAL PICTURE hari
OPTION ANGLE DEGREES
SET BITMAP SIZE 950,950
SET WINDOW -1,1,-1,1
INPUT PROMPT "何kgのはかりを使いますか? 1、1kg 2、4kg 3、5kg ":e
INPUT PROMPT "1,何グラムですか? 2,何sですか?":w,f
IF w=2 THEN LET f=f*1000
DO
MOUSE POLL x,y,l,r
SET LINE WIDTH 6
SET LINE COLOR 4
FOR R=1 TO 360 STEP 0.1
PLOT LINES:COS(R)*0.5,SIN(R)*0.5
NEXT R
SET LINE COLOR 1
PLOT AREA:0.4,0.6;-0.4,0.6;-0.4,0.8;0.4,0.8
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
PLOT LINES:-0.3,-0.5;-0.8,-0.8;0.8,-0.8;0.3,-0.5

SET TEXT FONT "MS 明朝",12
SELECT CASE e
CASE 1
GOTO 10
CASE 2
GOTO 20
CASE 3
GOTO 30
END SELECT
10 PLOT TEXT ,AT COS(90)*0.5-0.02,SIN(90)*0.5-0.08: "0"
PLOT TEXT ,AT COS(60)*0.5-0.05,SIN(60)*0.5-0.08: "100"
PLOT TEXT ,AT COS(30)*0.5-0.08,SIN(30)*0.5-0.08 : "200"
PLOT TEXT ,AT COS(0)*0.5-0.08,SIN(0)*0.5-0.02: "300"
PLOT TEXT ,AT COS(-30)*0.5-0.08,SIN(-30)*0.5: "400"
PLOT TEXT ,AT COS(-60)*0.5-0.05,SIN(-60)*0.5+0.03: "500"
PLOT TEXT ,AT COS(-90)*0.5-0.03,SIN(-90)*0.5+0.03: "600"
PLOT TEXT ,AT COS(-120)*0.5-0.02,SIN(-120)*0.5+0.02: "700"
PLOT TEXT ,AT COS(-150)*0.5,SIN(-150)*0.5+0.02: "800"
PLOT TEXT ,AT COS(-180)*0.5+0.02,SIN(-180)*0.5-0.02: "900"
PLOT TEXT ,AT COS(-210)*0.5,SIN(-210)*0.5-0.06: "1000"
PLOT TEXT ,AT COS(-240)*0.5-0.04,SIN(-240)*0.5-0.08: "1100"
PLOT TEXT ,AT -0.5,-1:"※単位はグラム。"
LET g=-(f/1200*360)
GOTO 40
20 PLOT TEXT ,AT COS(90)*0.5-0.02,SIN(90)*0.5-0.08: "0"
PLOT TEXT ,AT COS(60)*0.5-0.05,SIN(60)*0.5-0.08: "400"
PLOT TEXT ,AT COS(30)*0.5-0.08,SIN(30)*0.5-0.08 : "800"
PLOT TEXT ,AT COS(0)*0.5-0.08,SIN(0)*0.5-0.02: "1200"
PLOT TEXT ,AT COS(-30)*0.5-0.08,SIN(-30)*0.5: "1600"
PLOT TEXT ,AT COS(-60)*0.5-0.05,SIN(-60)*0.5+0.03: "2000"
PLOT TEXT ,AT COS(-90)*0.5-0.03,SIN(-90)*0.5+0.03: "2400"
PLOT TEXT ,AT COS(-120)*0.5-0.02,SIN(-120)*0.5+0.02: "2800"
PLOT TEXT ,AT COS(-150)*0.5,SIN(-150)*0.5+0.02: "3200"
PLOT TEXT ,AT COS(-180)*0.5+0.02,SIN(-180)*0.5-0.02: "3600"
PLOT TEXT ,AT COS(-210)*0.5,SIN(-210)*0.5-0.06: "4000"
PLOT TEXT ,AT COS(-240)*0.5-0.04,SIN(-240)*0.5-0.08: "4400"
PLOT TEXT ,AT -0.5,-1:"※単位はグラム。"
LET g=-(f/4800*360)
GOTO 40

                  ├続きです。 ひろ 2004/02/06 18:06:30  ツリーへ

Re: kg・gをわけるには
ひろ 2004/02/06 18:06:30
続きです。

30 PLOT TEXT ,AT COS(90)*0.5-0.02,SIN(90)*0.5-0.08: "0"
PLOT TEXT ,AT COS(60)*0.5-0.05,SIN(60)*0.5-0.08: "450"
PLOT TEXT ,AT COS(30)*0.5-0.08,SIN(30)*0.5-0.08 : "900"
PLOT TEXT ,AT COS(0)*0.5-0.08,SIN(0)*0.5-0.02: "1350"
PLOT TEXT ,AT COS(-30)*0.5-0.08,SIN(-30)*0.5: "1800"
PLOT TEXT ,AT COS(-60)*0.5-0.05,SIN(-60)*0.5+0.03: "2250"
PLOT TEXT ,AT COS(-90)*0.5-0.03,SIN(-90)*0.5+0.03: "2700"
PLOT TEXT ,AT COS(-120)*0.5-0.02,SIN(-120)*0.5+0.02: "3150"
PLOT TEXT ,AT COS(-150)*0.5,SIN(-150)*0.5+0.02: "3400"
PLOT TEXT ,AT COS(-180)*0.5+0.02,SIN(-180)*0.5-0.02: "3600"
PLOT TEXT ,AT COS(-210)*0.5,SIN(-210)*0.5-0.06: "4050"
PLOT TEXT ,AT COS(-240)*0.5-0.04,SIN(-240)*0.5-0.08: "4500"
PLOT TEXT ,AT -0.5,-1:"※単位はグラム。"
LET g=-(f/4950*360)
GOTO 40
40 SET LINE WIDTH 2
FOR R=1 TO 360 STEP 3
PLOT LINES:COS(r)*0.5,SIN(r)*0.5;COS(r)*0.48,SIN(r)*0.48
NEXT r
SET LINE WIDTH 1
IF l=1 AND X>0 THEN LET u=y/x
IF l=1 AND x<0 THEN LET u=-(y/x)
LET a=ATN(u)
IF l=1 AND X>0 THEN LET g=-(90-a)
IF l=1 AND x<0 THEN LET g=90-a
DRAW hari WITH ROTATE(g)
set draw mode explicit
set draw mode hidden
clear
LOOP
END



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

                  └私が言っているのは もりの 2004/02/06 19:35:40  ツリーへ

Re: kg・gをわけるには
もりの 2004/02/06 19:35:40
私が言っているのは

□kg□ gという 入力枠があって
そこに3kg200gとか 数字をいれていく
やりかたです
直せますかね?

針を左クリックでひっぱっていって 
入力しためもりでとまり
また左クリックでドラックしていくと
動かせるというやり方です
いまは話すともとの0にもどって
しまいます

めもりのつけ方をなおしてくれますか?

1kgのはかりは真下が500グラムですよ。
4kgのはかりは真下が2kgですよ

5kgはやめて500gのはかりにしてくれますか?

文字盤の背景はうすいだいだいにしてみてくれますか
荷物はみどり
針は 青がいいですね
改良できたらすぐ見せてくれますか?

よろしく


                   └針の動きは青木さんのアドバイスを もりの 2004/02/06 20:10:38  ツリーへ

Re: 私が言っているのは
もりの 2004/02/06 20:10:38
針の動きは青木さんのアドバイスを
参考にしてみてくだい。

                    └青木さんのアドバイスってなんですか? ひろ 2004/02/06 22:12:54  ツリーへ

Re: 針の動きは青木さんのアドバイスを
ひろ 2004/02/06 22:12:54
青木さんのアドバイスってなんですか?
教えてください。
****************************************************
それと、もりのさんも自分でプログラムを
改良してはどうでしょうか。
そのほうが楽しいですよ。
私の作ったプログラムは
改良してここにのせてもよろしいですから。

                     └十個上のコメントに青木さんが もりの 2004/02/06 22:46:11  ツリーへ

Re: 青木さんのアドバイスってなんですか?
もりの 2004/02/06 22:46:11
十個上のコメントに 青木さんが
書いてくれたプログラムが
のっているでしょ
実行してみたらなめらかに
針がうごきましたよ

今年度末にむかって
勤務評定やら今年の
学会発表や論文作成の
寝まわしなど大変なんです
今は自分でつくるより
より良いものを学習支援の
ために試行的に使い
教育効果を見て
教材の電子化はいかに
あるべきか?
論じることが
目標なんです
ここでああだコウだ
いいながら情報コラボレーション
していくことは
私の今のテーマなんです
ただプログラムつくるだけなら
なにもここにこなくても
いいんですよ
より質の高い、世の中に貢献
できるようなソフトしか
今は関心ありません。
ソフトづくりより
総合的なネットワークづくりが
テーマなんですよ
今月下旬頃大学教授と近未来の
学習について話し合う予定なので
そのときよい話題を提供し
大学教授にももっと勉強してもらわないとね
私の方が知識や経験が教授より
有りそうデすよ
読書量もね。
ですから私に関心があるということ
都内での学習支援研究会にも
誘われていますから
そのうちよい情報交換ができると
思います。
全国で通用するものを
提示しましょう」
みなさん^^^




                      └ごめんなさい ひろ 2004/02/07 11:46:45  ツリーへ

Re: 十個上のコメントに青木さんが
ひろ 2004/02/07 11:46:45
ごめんなさい
今まで気がつきませんでした。
青木さんのプログラムを見て
長いだけのプログラムで満足
していた自分が恥ずかしい・・・・。
青木さんのプログラムを
少しまねしたところもありますが
できました。

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

CASE 3
LET g=-(f/500*360)
DRAW hari(2) WITH ROTATE(g)
END SELECT

MOUSE POLL x,y,l,r
SET AREA COLOR 3
PLOT AREA:0.4,0.6;-0.4,0.6;-0.4,0.8;0.4,0.8
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
PLOT LINES:-0.3,-0.5;-0.8,-0.8;0.8,-0.8;0.3,-0.5
SET COLOR 4
SET TEXT FONT "MS 明朝",12
SELECT CASE e
CASE 1
GOTO 10
CASE 2
GOTO 20
CASE 3
GOTO 30
END SELECT
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-0.02: str$(q)
next q
PLOT TEXT ,AT -0.5,-1:"※単位はグラム。"
GOTO 40
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-0.02: str$(q)
next q
PLOT TEXT ,AT -0.5,-1:"※単位はグラム。"
GOTO 40
30 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-0.02: str$(q)
next q
PLOT TEXT ,AT -0.5,-1:"※単位はグラム。"
GOTO 40
40 SET LINE WIDTH 2
FOR R=1 TO 360 STEP 3
PLOT LINES:COS(r)*0.5,SIN(r)*0.5;COS(r)*0.48,SIN(r)*0.48
NEXT r
SET LINE WIDTH 1
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

                       └改良ありがとう もりの 2004/02/07 12:55:48  ツリーへ

Re: ごめんなさい
もりの 2004/02/07 12:55:48
改良ありがとう
針も動きがなめらかになりましたね
来週授業があるので間に合えばいいですね
使ってみたい
子供の反応はどうかな?
 ただ、どうも気になるんだけど
50gとか100gの目盛りにめりはりが
ないので指導するときに
説明しにくいですね。
針の長さにめりはりを
つけられるでしょうか?
また、50gのめもりは茶色
100gのめもりは赤にしてみてくれますか

あと台の部分の形を台形にして
水色に塗ってみてくれますか?
できたらすぐアップしてくれますか?
よろしく
またコメントしますね
なんどもありがとう



                        └1kg・・・・green もりの 2004/02/07 13:29:28  ツリーへ

Re: 改良ありがとう
もりの 2004/02/07 13:29:28
1kg・・・・green
4kg・・・・ネイビ-blue
5kg・・・・black
でそれぞれ乗せる重さの
大きさと色を変えられますか?

                         └5kgのはかりですか? ひろ 2004/02/07 20:32:47  ツリーへ

Re: 1kg・・・・green
ひろ 2004/02/07 20:32:47
5kgのはかりですか?
もりのさんは500gといっていませんでしたか?
どっちなんですか

                          ├50gと100g以外のメモリはなにいろですか? ひろ 2004/02/07 20:47:11  ツリーへ

Re: 5kgのはかりですか?
ひろ 2004/02/07 20:47:11
50gと100g以外のメモリはなにいろですか?





                          │└黒です もりの 2004/02/07 23:09:36  ツリーへ

Re: 50gと100g以外のメモリはなにいろですか?
もりの 2004/02/07 23:09:36
黒です
よろしく

                          └500gのはかりは実際あるし もりの 2004/02/07 23:08:23  ツリーへ

Re: 5kgのはかりですか?
もりの 2004/02/07 23:08:23
500gのはかりは実際あるし
いいとおもったし
5kgのはかりはあまりない
じゃメニューを一つ増やし
両方ともメニューにいれて
くれますか?
ごめんね
まよわせて

                           └500gのおもりの色は何色にしますか? ひろ 2004/02/08 07:15:23  ツリーへ

Re: 500gのはかりは実際あるし
ひろ 2004/02/08 07:15:23
500gのおもりの色は何色にしますか?





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

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