時計と同じ秤

　　時計と同じ秤 もりの 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・・・・ｇｒｅｅｎ もりの 2004/02/07 13:29:28 
　　　　　　　　　　　　　　　　　　　　　　　　　└５kgのはかりですか? ひろ 2004/02/07 20:32:47 
　　　　　　　　　　　　　　　　　　　　　　　　　　├50ｇと100g以外のメモリはなにいろですか？ ひろ 2004/02/07 20:47:11 
　　　　　　　　　　　　　　　　　　　　　　　　　　│└黒です もりの 2004/02/07 23:09:36 
　　　　　　　　　　　　　　　　　　　　　　　　　　└500ｇのはかりは実際あるし もりの 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 "ＭＳ明朝",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　1ｋｇ　と　4ｋｇのはかりが必要です

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

4　1ｋｇ用のはかりは刻みは10グラムごとです
　50ｇと100ｇのところを少し長くする
5　4ｋｇ用のはかりは刻みは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 "ＭＳ明朝",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 "ＭＳ明朝",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

おせっかいながら改良してみました。
ひろさんの参考になったらうれしいです。
すでに知っている技術だったら失礼。

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

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

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

!４．もりのさんの要求である「なめらかにうごいてもらいたい」を実現するための高速化
!timeを使って計測するとわかりますが、時間がかかっているのはここ
! FOR R=1 TO 360 STEP .1
! PLOT LINES:COS(R)*0.5,SIN(R)*0.5!<-(ちなみにここに;をつける(．３より))
! 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 "ＭＳ明朝",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.　１ｋｇ

2.　4ｋｇ

3.　5ｋｇ

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

選んだらそれぞれ

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

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

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

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

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

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

　

　　　　　　　　　　　　　└選べるのは正確に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 "ＭＳ明朝",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,何㎏ですか?":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 "ＭＳ明朝",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

私が言っているのは

□ｋｇ□　ｇという　入力枠があって
そこに3ｋｇ200ｇとか　数字をいれていく
やりかたです
直せますかね？

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

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

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

5ｋｇはやめて500ｇのはかりにしてくれますか？

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

よろしく

　　　　　　　　　　　　　　　　　　　└針の動きは青木さんのアドバイスを もりの 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 "□㎏□ｇ　※㎏とｇは，でくぎって入力してください。　もし入力しない場合は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 "ＭＳ明朝",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

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

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

　　　　　　　　　　　　　　　　　　　　　　　　└1kg・・・・ｇｒｅｅｎ もりの 2004/02/07 13:29:28  ツリーへ

Re: 改良ありがとう

もりの 2004/02/07 13:29:28

1kg・・・・ｇｒｅｅｎ
4kg・・・・ネイビ-ｂｌｕｅ
5kg・・・・ｂｌａｃｋ
でそれぞれ乗せる重さの
大きさと色を変えられますか？

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

Re: 1kg・・・・ｇｒｅｅｎ

ひろ 2004/02/07 20:32:47

５kgのはかりですか?
もりのさんは500ｇといっていませんでしたか？
どっちなんですか

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

Re: ５kgのはかりですか?

ひろ 2004/02/07 20:47:11

50ｇと100g以外のメモリはなにいろですか？

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

Re: 50ｇと100g以外のメモリはなにいろですか？

もりの 2004/02/07 23:09:36

黒です
よろしく

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

Re: ５kgのはかりですか?

もりの 2004/02/07 23:08:23

500ｇのはかりは実際あるし
いいとおもったし
5ｋｇのはかりはあまりない
じゃメニューを一つ増やし
両方ともメニューにいれて
くれますか？
ごめんね
まよわせて

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

Re: 500ｇのはかりは実際あるし

ひろ 2004/02/08 07:15:23

500gのおもりの色は何色にしますか?

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

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

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

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

Re: やってみたいです。
もりの 2004/02/01 19:49:28
ありがとう今そろばんのクリアボタンみたけどとてもいいですね子供やお年寄りが使いやすいし低学年ではおみせやさんごっこも教室でやりますから機会があったらいろんな学年でつかって感想をきいてみますね。そろばんのプログラムほんとにありがとうひろさんは学生さんですか？とりあえず時計のはりをよくみてそのあと10グラムと100グラム単位に針が動かせるようにしていきましょう。とりあえず丸い時計のようなはかりを作ってくれますか？ 3年生がこれからやるのでわかりやすく実用的なものをめざしましょう私も何度でもアドバイスさせてもらいます協働して全国に通じるものをつくりましょうよ。最初に10グラム単位のはかりを使いますか？それとも100グラム単位のはかりをつかいますか？とえらべるといいですね。よろしくお願いします。あわてないでいままで以上のものを作りましょうよ。

Re: ありがとう
もりの 2004/02/01 19:57:33
これは何グラムでしょうとかこれは何キロ何百グラムでしょうとかはかりをみてこたえさせピンポン　正解ブー　　　はずれもう一度よく考えて答えましょう？というそういう感じです。

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 "ＭＳ明朝",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

Re: 秤のデザインが出来上がりました。
もりの 2004/02/02 18:16:56
気づいたことを書いておきますね 1　ものをのせる台は立体的に丁寧につくれますか？ 2　1ｋｇ　と　4ｋｇのはかりが必要です 3　どちらか選べ　メモリの刻みも選べるように　できますか？ 4　1ｋｇ用のはかりは刻みは10グラムごとです　50ｇと100ｇのところを少し長くする 5　4ｋｇ用のはかりは刻みは100グラムごとです　以下同文です 6　針のさきは正確さが要求されますので　もう少し細長くはっきりきざみを指すように　してください　よろしくお願いします。

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 "ＭＳ明朝",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

Re: もりのさんの意見は次に取り入れたいと思い...
もりの 2004/02/02 21:12:16
よろしく針がマウスでひっぱれるといいですね時計のときはそれができました。

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 "ＭＳ明朝",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

Re: こんなものですか
もりの 2004/02/02 22:14:10
そんな感じです。くるくるもう少しなめらかにうごきピタッととまるときは止まるというものですよろしく。。一歩ずついいものをめざしましょう

Re: そんな感じです。
青木太一 2004/02/03 01:23:54
おせっかいながら改良してみました。ひろさんの参考になったらうれしいです。すでに知っている技術だったら失礼。 !１．マウスの位置から角度を求めるのにはATNではなくANGLE関数を使うと楽 !２．目盛りを描くのはfor文を使うと楽。 !　　(このとき、set text justifyで文字の基準点を中心に持って置いた方がよい) !３．円を描くplot liinesは最後に;をつけないとつながらないので点をえがいているだけになっていた。 !４．もりのさんの要求である「なめらかにうごいてもらいたい」を実現するための高速化 !timeを使って計測するとわかりますが、時間がかかっているのはここ ! FOR R=1 TO 360 STEP .1 ! PLOT LINES:COS(R)0.5,SIN(R)0.5!<-(ちなみにここに;をつける(．３より)) ! 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 "ＭＳ明朝",12 set text justify "center" ,"half" LET radius=0.5-0.05 for memori=0 to 1100 step 100 LET anglee=90-memori/1200360 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

Re: おせっかいながら改良してみました。
もりの 2004/02/04 21:28:26
改良ありがとう授業でつかうには 100グラム、200グラムとかの間に全部　10グラムと50グラムの目盛りが必要ですあと　最初に何グラムの　はかり　を使いますか？という選択メニューが必要です。 1.　１ｋｇ 2.　4ｋｇ 3.　5ｋｇどの　はかりを　使いますか？番号で選んでくださいと選んだらそれぞれその計りがあらわれるという仕組みです理想的ですがタブン無理でしょう？今日実物のはかりを使ってみましたが時計のときと同じでこわれていたり結構不正確ですね。やっぱりこの分野はパソコンがいちばん。できるといいな・・・？皆さんの知的好奇心に期待します。。

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 "ＭＳ明朝",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

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/4800360) 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/4500360) 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

*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に直してください。

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

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,何㎏ですか?":w,f IF w=2 THEN LET f=f1000 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 "ＭＳ明朝",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/1200360) 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

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/4950360) 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

Re: kg・gをわけるには
もりの 2004/02/06 19:35:40
私が言っているのは □ｋｇ□　ｇという　入力枠があってそこに3ｋｇ200ｇとか　数字をいれていくやりかたです直せますかね？針を左クリックでひっぱっていって　入力しためもりでとまりまた左クリックでドラックしていくと動かせるというやり方ですいまは話すともとの0にもどってしまいますめもりのつけ方をなおしてくれますか？ 1ｋｇのはかりは真下が500グラムですよ。 4ｋｇのはかりは真下が2ｋｇですよ 5ｋｇはやめて500ｇのはかりにしてくれますか？文字盤の背景はうすいだいだいにしてみてくれますか荷物はみどり針は　青がいいですね改良できたらすぐ見せてくれますか？よろしく

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

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

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

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 "□㎏□ｇ　※㎏とｇは，でくぎって入力してください。　もし入力しない場合は0と入力してください。":w,aa LET f=w1000+aa SELECT CASE e CASE 1 LET g=-(f/1000360) DRAW hari(2) WITH ROTATE(g) CASE 2 LET g=-(f/4000360) DRAW hari(2) WITH ROTATE(g) CASE 3 LET g=-(f/500360) 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 "ＭＳ明朝",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/1000360 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/4000360 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/500360 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

Re: ごめんなさい
もりの 2004/02/07 12:55:48
改良ありがとう針も動きがなめらかになりましたね来週授業があるので間に合えばいいですね使ってみたい子供の反応はどうかな？　ただ、どうも気になるんだけど 50ｇとか100ｇの目盛りにめりはりがないので指導するときに説明しにくいですね。針の長さにめりはりをつけられるでしょうか？また、50ｇのめもりは茶色 100ｇのめもりは赤にしてみてくれますかあと台の部分の形を台形にして水色に塗ってみてくれますか？できたらすぐアップしてくれますか？よろしくまたコメントしますねなんどもありがとう

Re: 改良ありがとう
もりの 2004/02/07 13:29:28
1kg・・・・ｇｒｅｅｎ 4kg・・・・ネイビ-ｂｌｕｅ 5kg・・・・ｂｌａｃｋでそれぞれ乗せる重さの大きさと色を変えられますか？

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

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

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

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

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