新しく発言する EXIT インデックスへ
文字の拡大のプログラムについて?

  文字の拡大のプログラムについて? もりの 2004/01/15 23:00:29 
  十進BASICには文字の倍角の概念はないと思い... 青木太一 2004/01/16 02:44:03 
   └青木太一様 もりの 2004/01/17 00:47:07 
    └ん?もりのさんはどの程度プログラム書ける... 青木太一 2004/01/17 16:03:13 
     └青木さんありがとう もりの 2004/01/17 16:27:22 
      └input文ではだめですか? 青木太一 2004/01/17 17:45:08 
       └長いプログラムを作ってくれて もりの 2004/01/18 00:07:22 

  文字の拡大のプログラムについて? もりの 2004/01/15 23:00:29  ツリーへ

文字の拡大のプログラムについて? 返事を書く
もりの 2004/01/15 23:00:29
「これは何ですか?」というような
問題文を4〜6倍角程度に拡大して
プロジェクターで表示したいのですが
どのようにプログラムを書いたら
よろしいでしょうか?
教えていただけますでしょうか?
仕事ですぐ使いたいので
宜しくお願いいたします。

  十進BASICには文字の倍角の概念はないと思い... 青木太一 2004/01/16 02:44:03  ツリーへ

Re: 文字の拡大のプログラムについて? 返事を書く
青木太一 2004/01/16 02:44:03
十進BASICには文字の倍角の概念はないと思います。
(実はあったりしたら、すいません。とりあえず無いと仮定して話を続けます)
文字の大小は、フォントのサイズ指定で決めます。

簡単には、
print "これは何ですか?"

で「テキスト出力ウィンドウ」に文字が表れます。
あらかじめ「テキスト出力ウィンドウ」のメニューの
「オプション」-「文字フォント」-「サイズ」の数字を調節すれば、
文字の大きさは変更できます。

仕事でプロジェクタに投影するということは、見た目も大事なのでしょうか?
その場合は「グラフィックスウィンドウ」に出力したほうがよいかもしれません。
グラフィックウィンドウの文字の大きさは
SET TEXT FONT で指定できます。

たとえば以下のサンプルを実行してみて、参考にしてください。

set bitmap size 500,500
set window 0,1,0,1
SET TEXT FONT "MS 明朝",10
plot text ,at 0,0 :"これは何ですか?"
SET TEXT FONT "MS ゴシック",40
plot text ,at 0,0.5 :"これは何ですか?"
END

もりのさんの参考になるでしょうか?
なにか勘違いした答えだったらごめんなさい。それでは。

   └青木太一様 もりの 2004/01/17 00:47:07  ツリーへ

Re: 十進BASICには文字の倍角の概念はないと思い... 返事を書く
もりの 2004/01/17 00:47:07
青木太一 様

ありがとうございました。
7倍のグラフィックモードに
したら電子ボードにきれいに
写りました。

 さて、
2ケタの掛け算やあまりのある割り算で
”問題数はいくつですか?”
 入力枠を作って、入力させ
 最後までおわったら、
 正答数( ) 問
 誤答数( ) 問
 正答率( ) %
 と表示させるには
 どういうプログラムを
 書けばいいのでしょうか?
 教えていただけますでしょうか?
 問題数やあたらしい問題を
 入力できる枠があると
 とても役立ちます。
 まだそこまでわからないので
 どなたかわかるかたいらっしゃいましたら
 よろしくお願いいたします。 

    └ん?もりのさんはどの程度プログラム書ける... 青木太一 2004/01/17 16:03:13  ツリーへ

Re: 青木太一様 返事を書く
青木太一 2004/01/17 16:03:13
ん?もりのさんはどの程度プログラム書けるのですか?
正答数や正答率の求め方がわからないのですか?
それとも、それを思った通りに画面に出す方法がわからないのですか?
ヘルプを読めばそれなりにわかると思うので、
わからないところに的をしぼって質問した方が答える方も答えやすいと思いますよ。

     └青木さんありがとう もりの 2004/01/17 16:27:22  ツリーへ

Re: ん?もりのさんはどの程度プログラム書ける... 返事を書く
もりの 2004/01/17 16:27:22
青木さんありがとう

画面の真ん中にみやすく
思い通りに入力画面を
作りたいんです
プログラムは最近やって
いませんでしたけど
50行くらいはできますよ
もっとも分析ソフトも
つくったことはありますけど
忘れました
要するに画面の中央に子供が
入力しやすいように大きめに
見やすく表示されるように
したいのです
よろしく

      └input文ではだめですか? 青木太一 2004/01/17 17:45:08  ツリーへ

Re: 青木さんありがとう 返事を書く
青木太一 2004/01/17 17:45:08
input文ではだめですか?
ディスプレイの中央にダイアログが出現する保証はありませんが。

十進BASICはグラフィックウィンドウに入力画面をつくる命令はないので、
文字入力処理からして自分で書くことになり、けっこう面倒ですよ。

それでもいいなら、一応サンプルを作ってみました。
set window 0,1,0,1
declare external function input_box$
LET a$=input_box$(0.1,0.5)
print a$
END

external function input_box$(x,y)
set echo "off"
LET string$=""
LET enter$=chr$(13)
LET back_space$=chr$(8)
do
ask text height text_height
plot lines:x+text_height,y;x,y;x,y+text_height
character input char$

if char$=enter$ then exit do
if char$=back_space$ then
LET string$=string$(1:len(string$)-1)
else
LET string$=string$ & char$
end if

clear
plot lines:x+text_height,y;x,y;x,y+text_height
plot text ,at x,y:string$
loop
clear
LET input_box$=string$
end function

カーソルが表示されなかったりと、
使いにくい入力フォームですが...

       └長いプログラムを作ってくれて もりの 2004/01/18 00:07:22  ツリーへ

Re: input文ではだめですか? 返事を書く
もりの 2004/01/18 00:07:22
長いプログラムを作ってくれて
どうもありがとう
職場にBASICのこと
専門的にきける人がいないので
助かります
かなり難しそうですね^^
十進BASICは初めて
まだ2日しか経っていませんが
画面がきれいに表示されるので
気に入っています
後で実行してみますね^^


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