みとこにリターンマッチ

• NS Basic/Palm 4を習得し，(簡単な)ナニかを作るまでの記録。(となるはず。)
• しかし，まだナニをするのか，思いついていないので，このまま，尻窄みになっていく自身がある。
• 「みとこ」とは，"nsb"と打つときに仮名入力になっているのに気づかずに，やってしまったことに起因する。
• なぜ，ちゃんと直さないのか。駆け出しの身で，"NS Basic/Palm"やってますなんて，恥ずかしくて。
• なぜ，リターンマッチなのか。現在は，殆ど憶えていないが，NS Basic/Palm 2のユーザーでした。再挑戦と言うこと。
• なぜ，ユーザーと称するのか。開発していましたなんてとっても言えないレベルなんだ。
• じゃあ，どんなレベルかというと，CLIEで でべるっぷ したいよぉ[nsb編]，CLIEで でべるっぷ したいよぉ[nsb練習簿]，T600cのバッテリー持ち実験だね。
• ご意見・連絡用としての掲示板は，「Ｅｘｉｆ２Ｃｌｉｐ修行場(略称『E2C板』)」です。
• 今回，なぜNS Basic/Palmを購入するに至ったのかも書いてます。
• ネタの棲み分けと言うことで，Palm互換機とNS Basic/Palmをここでやります。
• PC(Windows)とVisual Basicネタは，現在準備中です。
• 特化としてExif2Clipネタは，専用頁『特設ページ「爆裂的豪傑殿、最新の'Exif2Clip'は、ココでおま」』です。
• NS Basic/Palmのランタイムは，NS Basic for Palm Downloadsから入手して下さい。
• そして私は，と〜っても不器用だから，言葉の使い分けとか，言い直しが出来ない。
• だからNS Basic/Palm用語でなく，VBとか，自己流の表現を使います。
• たとえば，"データーベース"と言わずに，"ファイル"とかね。
• 気に入らないなら，為になる話しは，少しもしないから，よそへ行ってください。

• 2003/11/27 NS Basic/Palm 3 添付のマニュアルを見つつ
• 2003/12/01 NS Basic/Palm Ver.4.0.0 が"Trial period expired"と表示して起動しなくなった
• 2003/12/02 修正パッチを入手した。配布されていたものは，試供品だったのだろう。
• 2003/12/03 PDBの耕造解析をやってみようかと思ったけど
• 2003/12/04 日本語環境では・・・
• 2003/12/05 やっぱり違うぞVBとNSB
• 2003/12/19 VB6&NSB合同の役に立たない新ネタを計画中
• 2004/01/05 NSBに，Hex関数を作る
• 2004/01/20 NSB4.1.2UpDate
• 2004/03/08 NSBでのオレ流
• 2004/03/09 NSBでのオレ流を求めて始動
• 2004/04/06 VB6で，CDK402をほんの少し
• 2004/04/14 zMemネタの分離
• 2004/04/18 データベースのファンクションのおさらい
• 2004/06/05 PORMに小判鮫 試作版 〜Sdoさんにスネカジリ〜
• 2004/06/25(金) WGS84 vs Tokyo の相互変換
• 2004/07/15(木) eTrexに聞く
• 2004/07/17(土) eTrexに聞く(2)
• 2004/07/18(日) eTrexに聞く(3)
• 2004/07/19(日) eTrexに聞く(4) [投了]

• VBの様な使い勝手を謳っているが，別物として対応するのが混乱をしないだろう。

• イベントは，大きく６つのフェーズに分けられる。マニュアルでは７つだけどね。
  • 1;STARTUP CODE
  • 2;TERMINATION CODE
  • 3;BEFORE CODE
  • 4;AFTER CODE
  • 5;OBJECT/EVENT CODE
  • 6;MENU CODE
• １と２は，それぞれプログラムの開始と終了時。
• ３と４は，フォーム上のオブジェクト群を表示する前と表示が完了してから。
• ５は，オブジェクトのイベント。フォームも含むよ。
• ６は，メニューのイベント。
• だから，１−３−４−<５／６>−２のような感じかな。５と６は，順位無しだけどね。

• STARTUP CODE			メニューバーのプロジェクトから編集。
  	BEFORE CODE		フォームの余白で，右クリック。
  	AFTER CODE
  		EVENT CODE	対象オブジェクトをダブルクリック等。
  		MENU CODE	(私はめったに使わないと思う)
  TERMINATION CODE			メニューバーのプロジェクトから編集。

• まあ，Code編集については，プロジェクトエクスプローラーからもいけるので，実際に体感すべきだね。

• 変数は，DIM宣言してからのみ使用が許される。
• VBのように，宣言したモノについて，大文字小文字の綴りを揃えてくれる機能はない。
• 配列は，常に "OPTION BASE 1"が掛かっているようなもので，インデックス番号は，０からでなく１からだ。
• グローバル変数の宣言は，VBの様にGLOBALで明示し，やり方はDIMと同様。効果の範囲が異なるだけ。

• ということで，話しにならないので，NS Basic/Palmは，もうやらない。
• よって近日中に，閉鎖するつもりだ。

• ということで，気持ちを新たに再開と行きたいところだが，腹を立てたついでに，アンインストールし，
• フォルダーを削除シ完全消去して，レジストリーも消し去り，CD-Rも箱に入れ倉庫の奥へ，
• 『コイッあデモ版じゃネエかっ』ってブチギレてDownloadしたファイルも消し去っていたので復旧に時間がかかる。
• しばらく日数を頂きたい。

• 長く離れていたので，再認識のためにPDBの耕造解析をやってみようかと思ったけど，すでに，大御所がやってますねぇ。
• パソコン上のCSVファイルをPDB形式に変換したりするツールも公開されてますねぇ。
• 以前，手回りの処理のために作った自作ツールもあるけど，ウン，流石ですな。ラクしよぅっと。
• http://www.ami3s.net/about_nsb/index20.html
• http://www.ami3s.net/palmware/acv/index.html

• んじゃあ，ナニやろうかな。

• あっ，アオT600cのスキンが某氏のトコロにあるかも・・・と連絡してみる。
• 泰司「昔々，その昔に貰った，アオクリ風のスキンてある？　ついでにPOSEと吸い出しツールをクレ」
• 某氏「えっ，いまごろT600Cなの？　まっ探してみるけど。タダで」
• 泰司「コーヒーおごるよ」
• 某氏「じゃやだ」
• 泰司「クロワッサンとケーキを付ける」
• 某氏「ケーキはいらない。大きいクロワッサン３個」
• 泰司「承った」
• 某氏「Ok!! さがしとく。そうだ，毒まんじゅうまだ届かないぞ」
• 泰司「ソレは，お歳暮で手配済みです」
• 某氏「ヨッシャ，ヨッシャ」

• まだ，自分のコーディングスタイルを思い出せないから，１から始めるつもりでやっていこうかな。

• しかし，IDEから，EmulatorもSimulatorも起動しないのは，まだプログラムするなと言うことかな。
• 早く修正版のURLを送ってくださいよ。>NS社

• マニュアルの一部を腹写した感じのヘルプが添付されている。
• [スタート][プログラム][NS Basic Palm 4.0][Help]で開くと英文のままだが，IDEから開くと，日本語に置き換わる。
• 有ればあったで，便利なのだが，私の環境だけなのかもしれないが，気になる部分がある。
• これは，Ver.2.1.1の時分からもあったように思うが，勘違いかもしれないし，ココだけの内緒にして欲しい。
• まず，06Gだが，データーベース形式No Key/Keyに対応する関数なり命令文が，'・'で示されている。
• 
• 次が，日本語環境だが，そのポッチがない。(-_-;)
• 
• あと，ココで見付けた関数などにハイパーリンクがなく，クリックしても飛んでいってくれないのが残念だ。
• NS Basic-Supportから，Ver.２の時の内容だが，ヘルプファイル（LZH形式）NS Basic for Palmのコマンドおよび共有ライブラリの説明が含まれている。 相沢文雄氏が作成したものが，大変便利で重宝する。
• Ver.4のヘルプから，みとこヘルプを作りはじめた。感想は，『メンドクセー』で，これ以上続けないだろう。

• 某氏より，スキンを頂いた。出来は悪いが(失礼)，私はペイント系ソフトがまるでだめなので，分相応といえる。
• CLIEのPOSEとROMイメージは，「クリエ」-Developerへ行くと即手に入った。
• 以前，S500Cを買ってすぐに行くと，なかなか提供してくれなかったのに，URLが変わるとこうも変わるのかと。
• あるアクシデントが解決していないので，POSEは，しばらく手動起動で行うつもりだ。

• 少し，練習をやってみて気付いたVBとNSBの違い。
• DIM文は，VBが','で区切っていくつも宣言できたのが，１つのみ。このときタイプを明示しておかなくてはいけない。
• Labelに，キャプションを与えようと，Code中に，Label.captioとするとコンパイルエラー。Label.Labelとする。
• '：'でセパーレトするマルチステートメントにも対応していない。

• 練習作１　practice4001.prc/practice4001.prj
• BMI判定をやってみよう
• ２つの値を入れて計算をするもの。
• 入力エリアは，VBで言うテキストボックスに相当する，フィールドを配置する。
• ラベルは，その場でプロパティを変更。VBでは，キャプションだが，NSBでは，ラベル。
• 計算のタイミングのための，VBではコマンドボタンが，ボタン。
• 設計時には，設定できない処理ゎ，FormのAfter Code部に書き込む。
• 冒頭に初期宣言が必要なコトを今回はやらないので，後は，実行部。
• [判定]とした，ボタンをクリックして，Code編集。
• Dim w90 as Single Dim w91 as Single Dim w92 as Single Dim w93 as String w90=0 w91=Val(field1008.text) w92=val(field1010.text) w90=w91/(w92*w92) label1014.label=str(w90) w93="やせ" If w90>=18.5 Then w93="標準" If w90>=25 Then w93="肥満" If w90>=30 Then w93="高度肥満" label1019.label=w93
• [判定]ボタンから下は，参考程度のもの。
• 

• ２０年以上になる過去に持っていた，オモチャを細部まで再現する力量はないけど雰囲気だけ模したものを計画。
• 以前に少しだけ，やったモノがあったので，久々にPC-9821Xa13K改^２にPowerを入れる。
• あった。ソレは，狭いフォーム上に８つの７セグメントLEDを模したものと，２５個のキーを模したもの。
• 起動させるとLEDの各セグメントが，乱数でバラバラに点灯する。
• 右上の[RESET]とラベルの付いたキーを押すと，全セグメントが点灯。
• 本当は離してからなのだが，VB２にリアルタイムの検知はなく暫くすると，LEDは，８つとも'0'を表示する。
• その後，緑に塗られたキーを押すと，トップにある数字，A-Fまでのアルファベットを右端に表示していく。
• ただ，これだけの代物。
• こんなつまんないネタの専用ページを現在計画している。『VB6&NSB4合同計画「脱力ソフト VS-80」』

• ふとプログラミング中に，意外にも１６進の扱いが弱いことに気づく。
• で，作りました。Hex関数。整数を与えると対応した１６進を表す文字列になる。
• Function Hex(p1 as Integer) as String
  Dim w90 as String
  Dim w91 as Integer
  Dim w92 as Integer
  
  w91=p1
  
  Do 'DO UNTIL expression | Do WHILE expression
  w92=mod(w91,16)
  w90=mid(~0123456789ABCDEF~,w92+1,1) + w90
  w91=int(w91/16)
  If w91=0 Then Exit Do
  Loop
  
  Hex=w90
  End Function

• 逆も作ってみました。iHex関数。
• Function iHex(p1 as String) as Integer
  Dim w90 as Integer
  Dim w91 as String
  Dim w92 as String
  
  w91=trim(p1)
  
  Do 'DO UNTIL expression | Do WHILE expression
  w92=Left(w91,1)
  w90=(w90*16)+(InStr(1,~0123456789ABCDEF~,w92,1)-1)
  w91=mid(w91,2,Len(p1))
  If w91=~~ Then Exit Do
  Loop
  
  iHex=w90
  End Function

• 日本語版ヘルプの06Gが，少しよくなっている。まあ，少々のことは目を瞑るか。
• 

• 時期により変貌するのだけど，切磋琢磨するうちに安定したコーディングができるようになるのだろうけど，まだNSBは，十分に自分のモノになっていない。
• 'Start code'にまず入れておくモノとか，これはモジュールにしておこうとか，アーデモナイ・コーデモナイとやっていて，正直なところまだまだだ。
• で，自分にむち打つつもりで，「オレ流メモ帳」の計画中。出来るところまでやってみようかと。
• 本とのトコロ，アウトラインプロセッサーを作りたいのだけども，頭の中が「ンガァ」となってしまう。
• それと，いま精神的にも余裕がないし・・・

• 手っ取り早くできることに，Toolboxからの貼り付けがあるので，まだ，やり始めなので過不足はあるだろうから，適宜修正するとしてとりあえずツギのように貼り付ける。
• 
• 今回は，複数のファイル(Palmに関してはデータベースというが頭の中で切替がなかなか出来ないので，以後このままでいく)を扱おうとするわけだから，まず対象ファイルの選択をしなければと。
• Modules部には，他のアプリと共有させる汎用コード集と今回のアプリ専用のコードモジュールを用意しておく。
• Startup Codeには，どうしても必要なライブラリとグローバル変数の宣言をしておく。
• 登録アプリとはしないので，ここでは自分自身のCreatorIDを調べる処理をしている。
• 使わないかもしれないが，状態等を記録するための環境ファイルを作ることにした。
• 標準命令とNSBSystemLibと共通部分もあり，混乱しそうなので，オレ流にファイル処理に使う特定の変数名を次の様なパターンにすることにした。

• 変数名	使い道
  Global Fp? as Database	Number/ポインター
  Global Fn? as String	ネーム
  Global Fc? as Integer	CreatorID
  Global Ft? as Integer	TypeID
  Global Fr? as Integer	RecMax
  Global Fa? as Integer	RecPoint/Address
  Global Fv? as Integer	Version
  Global Fsw? as Integer	Newサーチsw
  Global Fw? as Integer	見つけた数

  '?'は，次の表の'num'から

• num	使い道	処理系
  0	環境ファイル	標準命令コード
  1	通常ファイル	標準命令コード
  8	自分自身	"NSBSystemLib"
  9	サーチ用	"NSBSystemLib"

• プログラミングの前に，OCXなどをProjectに組み込むまで。

• VB6-IDEの��プロジェクト(P)�♂汢ｺの��参照設定(N)...�≠�開き，頭に'Palm Com・・・'とある２つのライブラリにチェックを入れる。
• 
• まだ，この２つのライブラリの使い方については，よく理解できていない。

• VB6-IDEの��プロジェクト(P)�♂汢ｺの��コンポーネント(O)...�≠�開き，頭に'Palm Utility・・・'とあるモジュールにチェックを入れる。
• 
• するとToolboxに，７つのアイコンが表示される。どれも実行時には，非表示になる。
• 
• 最下行の７つのアイコンが，該当のモノ。
• 次に，実際に貼り付けて，オブジェクト名を見てみる。
• 

• ユーザーの基本情報の取得は，主に'UserManager'で行う。
• さて，'Palm DeskTop'のあるディレクトリーは，次の行で取得する。
  • w4 = UserManager1.GetBaseDirectory
• 登録されたユーザー数は，次の行で取得する。
  • w1 = UserManager1.GetUserCount
• 次にユーザーIDを取得する。カウントと違い，最初のユーザー#は，'0'から始まる。
  • w10 = UserManager1.GetUserID(0)
• ユーザー固有情報は，'UserData'で行うので，先に取得したUserIDを受け渡す。。
  • UserData1.AssignUserID w10
• ユーザーネームの取得。
  • w11 = UserData1.Username
• ユーザーディレクトリーの取得。
  • w12 = UserData1.Directory

• 一連の動作を，どどっとやると，次のようになる。
• 仮定として，Drive1，Dir1にPathを設定し，ユーザー個別情報を配列とコンボボックスに入れるとする。
  • w1 = UserManager1.GetUserCount
    w4 = UserManager1.GetBaseDirectory
    Drive1.Drive = w4
    Dir1.Path = w4
    
    For n = 0 To w1 - 1
    　w10 = UserManager1.GetUserID(n)
    　UserData1.AssignUserID w10
    　w11 = UserData1.Username
    　w12 = UserData1.Directory
    　Uname(n, 0) = w10 'UserID
    　Uname(n, 1) = w11 'Username
    　Uname(n, 2) = w12 'Directory
    　Combo1.AddItem w11 + " (" + w12 + ")"
    Next

# ツッコミがあったので，ネタの出元を云っておきます。Ｘｘ爺の隠居部屋から引用し，修正・拡張しました。(2004/04/15)
# クソッ。'Uname( )'も書き直しておくべきだった。二番煎じだから，CDKを使いたくないんだ。

• すこし，この頁が大きくなりすぎたので，特定のネタを分離していくことにする。
• オレ流ネタ帳��zMemシリーズ��

• PormKoban.zip

• Sdoさんち「Sdoと愉快な仲間たち」「PORM 1.4」のログファイルを頭から１つづつ切り取り，外部メモリーに，CSVに近い形で吐き出します。
  なお，１ログを１ポイントとして数え，３２ポイントあたり１ OreCa相当としています。
  OreCa対応と言うことで，勿論 mizuno-amiさんちの「Palmなお部屋 mizuno-ami」の「オレ金」をご用意下さい。
  それと，厳達 さんちの「Cli Cli Clie[top]」から，「NSBで使えるライブラリ」下「CSubFileExport」も必要です。
  
  このアプリは，上の３つのアプリが有ってこそ動作します。各自最新のものをご用意下さい。
  そして，外部メモリーの装着をお忘れ無く。あっ，専用フォルダーもね。
  
  使い方：
  初めての起動時には，入会金と称して　１００ OreCa出せと言ってきます。(実際は，下で言ってますが，102必要です。)
  所持金が無い場合は，「オレ金融」で，102 Ore程振り込んでからもう一度起動してください。そして[入会]してください。
  あとは，[チョン]ボタンを押すだけ。確実にOreCaが手に入ります。危険なことはありません。
  ただし，今回は意地悪Versionのため，なかなかOreCaが，増えません。ちゃんと元金は，取り戻しましょうね。
  
  PORMと併用中も大丈夫のようです。Sdoさんの話しによると，先にこちらがログを開いていた場合は，PORM側が遠慮するようです。
  ならば，こちらも，あちらが先なら，ご遠慮することにしました。まあムリなんですけどね。とりあえず，失敗したとエラーメッセージだけ出します。
  
  気付いていること：
  ココで少し不具合というのか，ナゼかOreCaKitのUpdateOreMoneyで，所持金を"0"にしたにもかかわらず，−２の値が帰ってくる。
  レートを０．０１としたら，オレ金で，０．００と表示され，０．０２として初めて，０．０１と表示される。０．０３は，そのままなんだけどな。
  そして，私はアイコンすら作れない。まっいいんだ。試作品で終わるから。だってSdoさんが，次でログ形式を変えるんだし。と。
  

• NSBasic/Palm 4.3.0をつかい，ちょっとお遊び。
• URL2Clip.zip
• 私なりのオフザケで色づけした，WGS84 vs Tokyo の相互変換とURL発生をします。
  相互変換を，Mac･GPS･Perl(http://homepage3.nifty.com/Nowral/index.html)で提示された返還式を使ったところ，一周すると秒で0.001づつ緯度経度共に減っていきます。
  丸めの処理を工夫しました。いわゆるゲタを履かせています。
  オマケで，ziinoの起動を付けていますが，xiinoでは，画像表示にクセがあり，処理が止まります。穴ポチしか出来なくなるので，危険です。
  NetFrontの起動させ方が解れば，置き換えます。
• 

• URL2Clip.zip
• 少し改造。ソース付き。自由に改造してヨシ。ただし責任は持たない。(2004/07/15改変のため終了)

• URL2Clip.zip
• Garmin eTrexから，現在地をとる実験中。危険が増したので，ソース添付は，一時中止。
• GPSは，インターフェースを"GARMIN"とし，測地系を"WGS-84"に設定。
• Palmは，接続ケーブルを自作して，接続。[現在地]ボタンを押す。
• うまく取り込めれば，"WGS-84"の，緯度経度が，書き換わる。
• 

• 現在解っている不具合
• 測地系が，"WGS-84"以外になっていることがあってもそれを認識できない。
• 低い確率だが，帰ってくるデータに，0x10が含まれている場合，エラーとなる。

• U2C040717　本体のみ。ランタイム等は，2004/07/15のを流用されたし。
• 現在地取得時に確認のために出していた，コードの表記を１０進から１６進に変更。
• [現在地]ボタンを押した場合。
• 追加機能として，軌跡ログの使用済みポイント数を取得。
• [ログ状況]ボタンを押した場合。
• いじょ

• 現在解っている不具合
• 2004/07/15から変わっていない。

• U2C040718.zip　本体のみ。ランタイム等は，2004/07/15のを流用されたし。
• ここまで来たので，このまま放棄するのも忍びなく，少し加筆。
• [ログ取込]ボタンを追加。動くかどうかの試験はしていない。
• おそらく，使い物にならないぐらい，通信は遅い。(9600ボー)
• 

• ログ出力は，名称を"'gU2C'+yyyymmdd+'_'+HHMMSS+'_'+nnnn"としている。
• "gU2C"に記録する日時を付けただけのも。軌跡の日時ではなくボタンを押した時のモノ。
• 末尾の'nnnn'は，Garminが言ってきた記録ポイント数をstr()で付加。
• 内容は，キー式としている。キーは，Shortで宣言。１〜レコード数。
• レコード１には，Shortで，ファイル名の末尾となる数値と同じモノが入っている。
  • '　値は，Big Endianで格納
  • Type REC01
  • 　RecCount as Short '　Garmin から返ってきた記録数
  • End Type
• レコード２から最終まで，緯度，経度，時間，高度，深度，連続が入っている。
  • '　値は，Little Endianで格納
  • Type REC02
  • 　Ido as Integer
  • 　Kei as Integer
  • 　Tim as Integer ' 1990/01/01 00:00からの通算秒
  • 　Alt as Single
  • 　Depth as Single '未使用
  • 　new_trk as Byte
  • End Type
• 試しに，ログファイルを拙作PdbDumpに，ドロップしてみれば，よくわかると思うよ。

• 追々，この書き出しログを元に，POT形式にするモノを，PalmOSかWindowsで作ってこのネタはお終いとする。
• だって，実際にこれを使おうなんて人は，いないわけだし・・・

• U2C040719.zip　本体のみ。ランタイム等は，2004/07/15のを流用されたし。
• 実験的要素を追加。次の二つを選択等変更できる。
  • SerialOpen の通信速度
  • SerialReceive のTimeOut
• しかし，通信速度は，どっかで見た資料によると"9600"以外にありえないはず。
• 通信エラー時は，穴ポチッしないと復旧しない。
• クリエイティブIDは，"TeSt"。勿論，未登録です。
• ログデータのIDは，"gU2C"。

• U2C040719A.zip 本体のみ。ランタイム等は，2004/07/15のを流用されたし。(14:50)
• ログの保存をリトルエンディアンからビッグエンディアンに変更。
• ログデータのIDは，"gU2c"。

• これをもってひとまず終了。絵に描いた餅なので興味を失った。

• あとがき
  • NSB だから，専用のVFSをつかうか，SdoLibにしようか思ったけどどちらも使いづらい。
  • その点，POSEでは動作確認できないがCSubFileExportで，未来は明るくなるかも。
• 面倒なので，私は，PalmOS機ぢゃなくカシミール3Dを最小構成で乗せるVAIO C1MSXで行くことにする。
• しかし誰かが，eTrexとCLIE Tシリーズとの接続ケーブル(勿論通信できる奴)を作ってくれたらもう少し手を加えても良いかも。

• 基本的に，この試作品アプリに対して興味を失った今，サポートも行いません。
• いかなる障害による被害があったとしても責任はとれません。
• いじょう

電脳猫眼[入口へ] / [Info.] / [Top(FLAME)]
　カップ麺のフタには，Clieが丁度いい
　 特設ページ「爆裂的豪傑殿、最新の'Exif2Clip'は、ココでおま」
　 VB6によるJpeg画像のExif情報の読み取り
　 VB6&NSB4合同計画「脱力ソフト VS-80」
　 オレ流ネタ帳��zMemシリーズ��