ここから本文です

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

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

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

再登録しました。

追加に失敗しました。

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

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

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

追加できませんでした。

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

AndroidでBASICで遊ぶ方法 その5

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

  • ナイス!:

    0

  • 閲覧数:589

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

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

 

  Androidでプログラム言語BASICを利用してプログラムを
  作成できるアプリ「BASIC!」で実際に作成したプログラムを
  ご紹介し、説明します。
  今回は第5回目でファイル入出力とFTPをご説明しますが、
  一番シンプルなプログラムを説明します。

 

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

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


 

1.前提

 

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

  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


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

 

  プログラムの名前は「白板」といいます。
  見た目がホワイトボードみたいなのでそういう名前にしました。
  要するに簡易なメモ帳ツールです。

 

   白板のアイコン

 白板


3.「白板」でできること

 

  白板を動かしてできることはとてもシンプルです。

 

  (1)起動するとメモ保存先のファイルを読みこむ。


  (2)読み込んだ内容をテキストボックスに表示。


  (3)テキストボックスの修正内容をメモ保存先のファイル
     に書き込み
 

  (4)FTPでメモ保存先のファイルをFTPサーバーに
     バックアップ

 

 4.「白板」で利用している仕組み

 

  このツールのプログラムは、BASIC!で作られています。
  
  このプログラムでは、FTPで利用でき、60日間履歴付き
  で保存してくれる無料のオンラインストレージサービス
  fileserveを利用してFTPでデータを外部保存しています。

  http://fileserve.com/
     
  fileserveのファイルマネージャー機能でブラウザーから
  過去のファイル内容を確認できます。

 

   fileserve ブラウザー画面


5.「白板」のプログラム内容

 

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

 

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

  ブログラムのソース: https://www.dropbox.com/s/rwua53szdwx1m9x/a-hak1.bas

  
  (1)画面の基本設定をする。

 

     REM Start of BASIC! Program
     ! TEXT EDITER SAMPLE
     time y$, m$, d$, h$, n$, s$ →現在の日時を取得する。
     today$=y$+m$+d$ →今日の日付を変数に格納
     
     
     console.title "☆ 白 板 ☆" →画面上部に処理名を表示

 

  (2)メモ保存先のファイルを読みこむ。

 

     注)BASIC!の別の命令でgrabfile命令がありますが、
       この命令は日本語が通りませんので使用していません。     
     
     Text.open r, file_number, "japtest.txt"
      →メモを保存しているファイルを読み取りモードで開く
      →ファイルのパスは内蔵ディスクの
       rfo-basic/data/  
      
     flg$="1"
      →ファイル読込未開始のフラグ
     all$=""
      →よみこんだテキストをまとめて格納する変数
     
     while line$ <> "EOF" →repeat まで繰り返し
       if flg$="1" then
          flg$="0" 
        →ファイル読込未開始のフラグのオフ
       else
         all$=all$+line$+"\n"
        →読み込んだ行に改行コードをつけて格納
         変数に溜め込む
       endif
     
       Text.readln file_number, line$
       →ファイルから1行読み込む
     
     repeat →繰り返しの終わり
     
     Text.close file_number
      →ファイルを閉じる

 

  (3)メモ保存先のファイル内容をテキストボックスに表示。     
  
     all$=all$+"\n"+today$
      →最終行に今日の日付の行を追加
     
     text.input zz$, all$
      →入力ボックスを表示
      →初期値としてall$の内容を表示
      →入力ボックスを編集した結果は、
        zz$に格納される。

 

       テキストボックス

 

  (4)メモ保存先のファイルにをテキストボックスの内容を書き込み。
     
     text.open w,fl,"japtest.txt"
      →メモを保存しているファイルを書き込みモードで開く
     text.writeln fl,zz$
      →zz$をファイルに書き込む
     popup "OWARI",0,0,1
      →書き込み終了バブルメッセージ表示
     text.close fl
      →ファイルを閉じる。

 

  (5)メモ保存先のファイルをFTPでアップロード
   
     ! ftp upload
     
     input "FTPでバックアップしますか?(y/n)",ft$
      →入力ダイアログを表示、結果は変数のft$に格納
     
     if ft$="y" then
     else
        exit
       →"y"以外ならば画面をクローズして終了
     endif
     

 ダイアログ
     
     popup "Connecting to ftp server...",0,0,1
     pause 4000 →4秒WAIT

 メッセージ

     
     ! Set the default path
     
     path$="ftp.fileserve.com"
     
     Ftp.open path$, 21, "(ユーザーID)", "(パスワード)f"
      →path$に設定されたサーバーのポート21番(FTPポート)
       に接続する
     
     
     zzz$="japtest.txt"
     
     yyy$="japtest.txt"
     
     POPUP "UPloading  白板...", 0, 0, 1
     pause 4000
     
     FTP.put zzz$, yyy$
      →ローカルにあるファイルをFTPサーバーに送る
     
     
     popup "UPload complete!",0,0,1
     PAUSE 4000 % Pause for a little
     
     popup "FTP close process start!",0,0,1
     pause 4000
     
     Ftp.close
      →FTPをクローズ
     
     
     
     PAUSE 1000 % Pause for a little
     
     POPUP "白板UPload 終了", 0, 0, 1
     pause 4000
     
     
     exit

 

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は、まだありません。

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

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

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

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

ピックアップ

Android向けアプリ Yahoo!ブラ...
基本的な使い方(メニュー・操作)便利な使い方オススメの使...
親からもらった! この記念硬貨...
■  始めにみなさん、 親・親戚・友人が集めていた記念硬貨を...
ピアスに関する正しい知識講座 ...
さてさて。ピアスを開けて、何か理由があって塞がなければな...
本文はここまでです このページの先頭へ