 |  |
 | この部分が一番簡単に実装できて、変更も少なそうな気がします。 さっそく実装に取り掛かります。 CONST p1.steps.CustomerLabelProcess = 1 CONST p1.steps.LocalLabelProcess = 2 CONST p1.steps.CompareProcess = 3 CONST p1.steps.BackToPreviosMenu = 80 VisualBasic6.0であれば、列挙型が使えますが、BHT-BASICなので、CONSTで定数宣言で代用します。 先頭のp1.は１対１照合処理クラスをp1という名前でインスタンス化しているというイメージで付けてあります。 |
  | ただし、ループするのでループする部分の抜けだす条件を決めて置かなければいけません。 ここでは、p1.steps.BackToPreviosMenuの状態になったら、ループから抜けることにします。まだ、各処理をコールする部分は実装しません。 private p1.step p1.step=p1.steps.CustomerLabelProcess while p1.step <> p1.steps.BackToPreviosMenu select p1.step case p1.steps.CustomerLabelProcess: case p1.steps.LocalLabelProcess: case p1.steps.CompareProcess: end select wend 現状の工程がどこまで進んでいるか保持するための変数が必要になったため、p1.stepというプライベートな変数を追加しました。 ということで、クラス図が変化します |
'
'//１対１照合メインルーチン
sub p1.Execute
CONST p1.steps.CustomerLabelProcess = 1
CONST p1.steps.LocalLabelProcess = 2
CONST p1.steps.CompareProcess = 3
CONST p1.steps.BackToPreviosMenu = 80
private p1.step
p1.step=p1.steps.CustomerLabelProcess
while p1.step <> p1.steps.BackToPreviosMenu
select p1.step
case p1.steps.CustomerLabelProcess:
case p1.steps.LocalLabelProcess:
case p1.steps.CompareProcess:
end select
wend
end sub
'
'//１対１照合メインルーチン
sub p1.Execute
CONST stepCustomerLabel = 1
CONST stepLocalLabel = 2
CONST stepCompare = 3
CONST stepBackToPreviosMenu = 80
private p1.step
p1.step=stepCustomerLabel
while p1.step <> stepBackToPreviosMenu
select p1.step
case stepCustomerLabel:
case stepLocalLabel:
case stepCompare:
end select
wend
end sub
'
Declare Sub p1.execute
'メインロジック
On Error Goto errorProg:
screen 1,0
p1.execute
print "Bye.";input$(1)
end
'==========================================================
' エラー処理
'==========================================================
errorProg:
screen 0,0
locate 1,1
Print "Err["; Hex$(Err);"]"
Print "Adr["; Hex$(Erl);"]"
Print Input$(1)
Resume Next
CONST文はコンパイル時に置き換えをします。と書いてあります。
' '/// ラベル定義インターフェイス // CONST %classname%.LabelName$ = %ラベル名% CONST %classname%.BarcodeType$ = %バーコードタイプ% Declare Function %classname%.Accepts%(byref paramBar$) Declare Function %classname%.GetPartNo$[32]
' '/// 客先ラベル定義 // CONST CLBL.LabelName$ = "客先ラベル" CONST CLBL.BarcodeType$ = "Q" Declare Function CLBL.Accepts%(byref paramBar$) Declare Function CLBL.GetPartNo$[32]
'
'///客先ラベルオブジェクト CLBL //
private bar$[512]
Function CLBL.Accepts%(byref paramBar$)
private res%
res%=0
CLBL.Accepts%=res%
end Function
Function CLBL.GetPartNo$[32]
private res$
res$=""
CLBL.GetPartNo$=res$
end Function
最初から完璧なんてのは偶然で、仕様や要求は実装中にも変化していくものと割りきって考えないと早い時代の流れには対処できない。とどこかのHPに書いてあったような気がします。
 |
| ９月１１日 ２１時より発売開始になったFriiosky |
 |
| こちらは元祖Friio |
 |
| b-MobileFair通信使用量グラフ 黄色の実線が、実際に利用したデータ量。 オレンジの点線が予測 |
 | GAME PADは手持ちのファミコン風USBゲームパッド buffaloのBGC-FC802を使いました。これ２コン風ででマイク付き（笑） UnipadのHOST側の端子に接続します。 |
  | そうしたら入力方法を「Gamepad」に切り替えます。 |
  | 画面下側に「０ Gamepads detected.」と表示されて不安になりますが、ゲームパッドを操作してみると、文字が入ることがわかります なお、Gamepad IMEに切り替えていますが、なぜか |
 |
| 上はC8leanV1.2 下はPhoenixModV1.0です。 |
| C8lean V1.2 | PhoenixMod V1.2 | |
| モデル番号 | MID_Serials | UTV210 |
| Androidバージョン | 2.3 | 2.3.3 |
 |
| 画像上がC8lean、下がPhoenixModです。 |
