ここから本文です

この知恵ノートを「知恵コレクション」に追加しました。

追加した知恵ノートはMy知恵袋の「知恵コレクション」ページで確認できます。

知恵コレクション」に登録済みです。

再登録しました。

追加に失敗しました。

ノートに戻り、もう一度やり直してください。

すでに1,000件のノートが登録されています。

新しく追加したい場合は、My知恵袋の「知恵コレクション」ページで登録されているノートを削除してください。

追加できませんでした。

ノートは削除されました。

AndroidでBASICで遊ぶ方法 その3

ライターさん(最終更新日時:2015/1/8)投稿日:

  • ナイス!:

    0

  • 閲覧数:822

印刷用のページを表示する

0.この知恵ノートの概要

 

  Androidでプログラム言語BASICを利用してプログラムを
  作成できるアプリ「BASIC!」で実際に作成したプログラムを
  ご紹介し、説明します。
  その2より簡単なプログラムです。

 

  ※今回の説明内容と直接関係はありませんが実際に
   BASICが動いている動画を見たい方は以下をご覧ください。

   AndroidでBASICで遊ぶ方法(動画編)
   http://note.chiebukuro.yahoo.co.jp/detail/n326969


 

1.前提

 

  この知恵ノートをお読みになる前に以下の知恵ノートを
  ご覧いただければよりわかりやすいと思います。

  AndroidでBASICで遊ぶ方法
  http://note.chiebukuro.yahoo.co.jp/detail/n190833


2.ご紹介するプログラム

 

  プログラムの名前はテキスト表示ツールといいます。
  私が実際にタブレットで動かして利用しているしょぼいツールです。

 

   テキスト表示ツールのイメージ

 

3.「テキスト表示ツール」でできること

 

  テキスト表示ツールを動かしてできることはとてもシンプルです。

 

  (1)クリップボードから文字列をコピーしてきて画面上の
     入力ボックスに表示。

 

  (2)入力ボックスのFINISHボタンを押すと一時ファイルに
     書き込みします。


  (3)一時ファイルを1行ずつ読み出しし、一定の間隔ごとに
     画面に表示します。
 

  (4)テキストの読み出しが完了すると終了します。

 

  (5)テキストを1行ずつ表示している途中に画面をタッチすると
     表示速度のアップ、ダウン、途中で終了を選択できます。

 

  長いテキストファイルを表示して読みたいときにいいかなと思い
  つくってみました。

 

4.「テキスト表示ツール」で利用している仕組み

 

  このツールのプログラムは、BASIC!で作られています。
  特殊な命令は使用しておらず標準的な命令のみで作られています。

 

  やや特殊かなと思うのは、画面をタッチすると別の処理に処理が
  うつる点くらいです。


5.「テキスト表示ツール」のプログラム内容

 

  それではもう少し具体的にこのツールの内容を見ていきます。
  BASIC!のプログラムで実際にやっていることを順に記載すると
  以下の通りとなります。

 

  実際のブログラムのソースは以下をご覧ください。

  ブログラムのソース: https://www.dropbox.com/s/9s54jtnb2ll272v/txtdisp.txt

  
  (1)クリップボードから文字列をコピーしてきて画面上の
     入力ボックスに表示。

 

     REM Start of BASIC! Program ←コメント文
     ! TEXT DISPLAY SAMPLE ←コメント文

          aa=600 ←1行表示したあとに次の行を表示するまでの間隔0.6秒

     console.title "テキスト表示ツール" ←画面の最上部にタイトルとして
                        ツール名を表示する。

      画面タイトル
     clipboard.get cl$ ←クリップボードから文字列を取得して変数に格納
     text.input zz$, cl$ ←入力ボックス(複数行)を表示して初期値として
                 クリップボードから取得して変数を表示。

 入力ボックス

 

  (2)入力ボックスのFINISHボタンを押すと一時ファイルに
     書き込みします。


     text.open w,fl,"../../bunkatu/temp.txt" ←一時保存用ファイルを開く
                          ※書き込みモード
                          ※相対パス指定
     text.writeln fl,zz$ ←テキストボックスに表示していた文字列を保存
                 用ファイルに出力
     popup "一時ファイルに出力しました",0,0,1 ←バブルアップメッセージを
                           4秒間表示する。

 一時ファイル出力メッセージ

     pause 4000 ←4秒WAIT
     text.close fl ←保存用ファイルを閉じる

 

  (3)一時ファイルを1行ずつ読み出しし、一定の間隔ごとに
     画面に表示します。


     Text.open r, file_number, "../../bunkatu/temp.txt" ←一時保存用ファイルを開く
                                ※世も読み込みモード
     while line$ <> "EOF" ←EOFになるまでrepeatまでの処理を繰り返す
       Text.readln file_number, line$ ←保存用ファイルから1行読み出し、
                       変数にセット
       if line$ <> "EOF" then ←最終行でなければ
          print line$ ←コンソール画面に1行表示
          pause aa ←行を表示する間隔分WAIT
       else ←最終行の場合何もしない
       endif
     repeat ←繰り返し

     Text.close file_number ←一時保存用ファイルをを閉じる

 

  (4)テキストの読み出しが完了すると終了します。

 

     popup "テキスト表示終了しました",0,0,1 ←バブルアップメッセージを
                          4秒間表示する。

  終了メッセージ
     pause 4000  ←4秒WAIT

     exit  ←プログラムを終了する。

 

  (5)テキストを1行ずつ表示している途中に画面をタッチすると
     表示速度のアップ、ダウン、途中で終了を選択できます。


     onconsoletouch: ←実行中に画面をタッチした場合にここに強制的に
               処理がうつる。

 

     input "1-速度UP 2-速度DN 3-戻る 4-終了",sele$  ←入力ボックスを表示

 選択用入力ボックス

     if sele$="1" then ←入力ボックスに1を入力したとき
       popup "速度UP",0,0,1
       pause 4000
       if aa>100 then 
         aa=aa-100 ←表示間隔を0.1秒減らす
       else
       endif
     else
     endif

     if sele$="2" then ←入力ボックスに2を入力したとき
       popup "速度DN",0,0,1
       pause 4000
       aa=aa+100  ←表示間隔を0.1秒増やす
     else
     endif

     if sele$="3" then
       popup "テキスト表示に戻ります",0,0,1
       pause 4000
     else
     endif

     if sele$="4" then
       popup "テキスト表示を終了します。",0,0,1
       pause 4000
       exit  ←強制終了する
     else
     endif


     consoletouch.resume ←タッチ前に処理していた行に戻る。

 

   以上です。

 

 

6.BASIC!の情報サイト


 

  私自身もBASIC!関連の日本語の掲示板や情報サイトを探しましたが
  ほとんどないので、仕方なく自分で作成しました。

  私自身、そんなにプログラム能力はないのであまり大した内容は
  ありませんが紹介動画や自作サンプルプログラムを置いているので
  よろしければ覗いてみてください。

 

  BASIC!友の会

   http://basic.amsstudio.jp/

 


  また、BASIC!友の会関連の更新はツイッターで
  お知らせしています。


  BASIC!友の会のツイッターアカウント
  @basictomonokai

  https://twitter.com/basictomonokai


7.関連知恵ノート一覧

 

  この知恵ノートに関連する知恵ノートの一覧です。

 

    AndroidでBASICで遊ぶ方法
  http://note.chiebukuro.yahoo.co.jp/detail/n190833

  AndroidでBASICで遊ぶ方法 その2
  http://note.chiebukuro.yahoo.co.jp/detail/n208888

  AndroidでBASICで遊ぶ方法 その3
  http://note.chiebukuro.yahoo.co.jp/detail/n210000

  AndroidでBASICで遊ぶ方法 その4
  http://note.chiebukuro.yahoo.co.jp/detail/n214126

  AndroidでBASICで遊ぶ方法 その5
    http://note.chiebukuro.yahoo.co.jp/detail/n216786
  AndroidでBASICで遊ぶ方法 その6
    http://note.chiebukuro.yahoo.co.jp/detail/n218610

  AndroidでBASICで遊ぶ方法 その7

  http://note.chiebukuro.yahoo.co.jp/detail/n222440

    AndroidでBASICで遊ぶ方法 その8-1
    http://note.chiebukuro.yahoo.co.jp/detail/n224842

    AndroidでBASICで遊ぶ方法 その8-2
    http://note.chiebukuro.yahoo.co.jp/detail/n225769

    AndroidでBASICで遊ぶ方法 その8-3
    http://note.chiebukuro.yahoo.co.jp/detail/n225771
    AndroidでBASICで遊ぶ方法(超初心者編)
  http://note.chiebukuro.yahoo.co.jp/detail/n223881


 

このノートのライターが設定した関連知恵ノート

このノートに関するQ&A

このノートに関するQ&Aは、まだありません。

このノートについて質問する

このノートについてライターの方に質問できます。

※ライターの方から必ず回答をいただけるとは限りません

※別ウィンドウで開きます

ピックアップ

【iPhone】修理交換の申込方法...
 ※追記※2015/1/30現在iPhone6及び6+が発売されたのを受け、情...
耳鼻科の先生に聞いた、しゃっ...
  皆さん、しゃっくりってわずらわしいですよね  ある時急に...
厄年について——意外と知られて...
厄年とは何か厄年とは文字どおり災厄に遭いやすいといわれる...
本文はここまでです このページの先頭へ