文字の拡大のプログラムについて？

　　文字の拡大のプログラムについて？ もりの 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～６倍角程度に拡大して
プロジェクターで表示したいのですが
どのようにプログラムを書いたら
よろしいでしょうか？
教えていただけますでしょうか？
仕事ですぐ使いたいので
宜しくお願いいたします。

　　└十進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 "ＭＳ明朝",10
plot text ,at 0,0 :"これは何ですか？"
SET TEXT FONT "ＭＳゴシック",40
plot text ,at 0,0.5 :"これは何ですか？"
END

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

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

Re: 十進BASICには文字の倍角の概念はないと思い... 返事を書く

もりの 2004/01/17 00:47:07

青木太一　様

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

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

　　　　└ん？もりのさんはどの程度プログラム書ける... 青木太一 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

青木さんありがとう

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

　　　　　　└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

長いプログラムを作ってくれて
どうもありがとう
職場にＢＡＳＩＣのこと
専門的にきける人がいないので
助かります
かなり難しそうですね＾＾
十進ＢＡＳＩＣは初めて
まだ２日しか経っていませんが
画面がきれいに表示されるので
気に入っています
後で実行してみますね＾＾

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

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

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 "ＭＳ明朝",10 plot text ,at 0,0 :"これは何ですか？" SET TEXT FONT "ＭＳゴシック",40 plot text ,at 0,0.5 :"これは何ですか？" END もりのさんの参考になるでしょうか？なにか勘違いした答えだったらごめんなさい。それでは。

Re: 十進BASICには文字の倍角の概念はないと思い...	返事を書く
もりの 2004/01/17 00:47:07
青木太一　様ありがとうございました。７倍のグラフィックモードにしたら電子ボードにきれいに写りました。　さて、２ケタの掛け算やあまりのある割り算で ”問題数はいくつですか？” 　入力枠を作って、入力させ　最後までおわったら、　正答数（　）　問　誤答数（　）　問　正答率（　）　％　と表示させるには　どういうプログラムを　書けばいいのでしょうか？　教えていただけますでしょうか？　問題数やあたらしい問題を　入力できる枠があると　とても役立ちます。　まだそこまでわからないので　どなたかわかるかたいらっしゃいましたら　よろしくお願いいたします。

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

Re: ん？もりのさんはどの程度プログラム書ける...	返事を書く
もりの 2004/01/17 16:27:22
青木さんありがとう画面の真ん中にみやすく思い通りに入力画面を作りたいんですプログラムは最近やっていませんでしたけど５０行くらいはできますよもっとも分析ソフトもつくったことはありますけど忘れました要するに画面の中央に子供が入力しやすいように大きめに見やすく表示されるようにしたいのですよろしく

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 カーソルが表示されなかったりと、使いにくい入力フォームですが...

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