この現象を再現して下さい

 投稿者：GAI  投稿日：2009年11月19日(木)14時15分35秒
  で起こる現象をbasic版でプログラムを組んで欲しいんです。
原理は簡単ですが、最初はとてもびっくりしました。
すこしずつ手直ししながら、もっと面白いものにしていきたいので・・・ 		 

Re: この現象を再現して下さい

 投稿者：山中和義  投稿日：2009年11月19日(木)17時37分23秒
  > No.745[元記事へ]

GAIさんへのお返事です。

●現象の確認
FOR i=10 TO 99 !２桁の数を念じる
   LET a=INT(i/10) !十の位と一の位の２つの数字を足す
   LET b=MOD(i,10) !２桁の数字から足した答えを引く
   LET s=i-(a+b) !答え　s=(10*a+b)-(a+b)=9*a　∴９の倍数

   PRINT i;s !９の倍数は同じマークにして、常にこのマークを表示すればよい。
   !ただ、多少はずれるように異なるマークも表示する
NEXT i

END


●占星術のシンボルマークが表示できるか
　ワープロWordがインストールされていれば、フォントWingdingsはあると思います。
RANDOMIZE
SET bitmap SIZE 501,501
SET WINDOW -0.5,10.5,10,-1

LET z$="c" !９の倍数は同じマーク

!!!SET TEXT font "MS明朝",12
FOR y=0 TO 9 !数字
   FOR x=0 TO 9
      PLOT TEXT ,AT x,y: STR$(10*y+x)
   NEXT x
NEXT y
SET TEXT font "Wingdings",18 !※大きさは調整が必要である
FOR y=0 TO 9 !占星術のシンボル
   FOR x=0 TO 9
      IF MOD(10*y+x,9)=0 THEN !９の倍数なら
         PLOT TEXT ,AT x+0.3,y+0.3: z$
      ELSE
         PLOT TEXT ,AT x+0.3,y+0.3: CHR$(INT(RND*40)+ORD("T")) !T～z
      END IF
   NEXT x
NEXT y


INPUT PROMPT "何か文字を入力してください。":t$ !ダミー入力！！！


SET TEXT font "Wingdings",256 !※大きさは調整が必要である
SET TEXT JUSTIFY "center","half"
PLOT TEXT ,AT 5,4.5: z$

END
 

Re: この現象を再現して下さい

 投稿者：山中和義  投稿日：2009年11月20日(金)10時59分13秒
  > No.746[元記事へ]

十進BASICで扱える半角文字です。フォントを切り替えることで絵文字が表示できます。
登録させているフォントに依存します。
!ASCII,JISコード表

SET bitmap SIZE 501,501
SET WINDOW -1.5,16.5,16,-2

FOR i=0 TO 15 !行番号
   PLOT TEXT ,AT -1,i: BSTR$(i,16)
NEXT i
FOR i=0 TO 15 !列番号
   PLOT TEXT ,AT i,-1: BSTR$(i,16)
NEXT i

SET TEXT COLOR 4
FOR c=32 TO 255 !文字の表示
   WHEN EXCEPTION IN
      PLOT TEXT ,AT MOD(c,16),INT(c/16): CHR$(c)
   USE
      PRINT c !使用不可コード　※MS漢字（2バイト文字）の先頭
   END WHEN
NEXT c

SET TEXT font "Wingdings",12
!SET TEXT font "symbol",12
SET TEXT COLOR 1
FOR c=32 TO 255 !フォントの表示
   WHEN EXCEPTION IN
      PLOT TEXT ,AT MOD(c,16)+0.2,INT(c/16)+0.4: CHR$(c)
   USE
      PRINT c
   END WHEN
NEXT c

END
 

戻る