研究日誌

105：管理人：2014/01/27(月) 08:41:31: 【共通】メモデータベース微修正２

またまた自作ツール：メモデータベースを微修正しました。

先日書いた、USBキーボードが接続しているか自動判定するロジックを
追加しました。

判定するためにはsu命令でdumpsysコマンドを発行する必要があるので
ルート可されている端末でしか使えませんが、CH-AND7000はルート化
されているのでまぁいいかなと思い修正しました。

一応、変更前後のソースの一部をページ下部にコピペしています。

内容自体は、大した修正ではありませんが少しは便利になるかなと
思っています。

【変更前】

pause 8000

input "タブレットモード（キーボードなし）で起動しますか？(y/n)",tab$
if tab$="y" then
print "タブレットモードで起動します。"
jjj=1
else
print "キーボード有りモードで起動します。"
endif

【変更後】

pause 4000

popup "USB キーボードの状態を確認中・・・",0,-100,1
wwwk$ = "window input"

srin$="USB Keyboard"

zzzk$="dumpsys "+wwwk$

SU.OPEN
SU.WRITE zzzk$
PAUSE 500
ak$=""
DO
SU.READ.LINE lk$
ak$=ak$+lk$+CHR$(10)
SU.READ.READY ready
UNTIL !ready
SU.CLOSE

if is_in(srin$,ak$)<>0 then
popup "USB Keyboard 接続済",0,0,1
kbf=1
else
popup "USB Keyboard 未接続",0,0,1
kbf=0
endif

pause 4000

if kbf=0 then
input "タブレットモード（キーボードなし）で起動しますか？(y/n)",tab$,"y"
if tab$="y" then
print "タブレットモードで起動します。"
jjj=1
else
print "キーボード有りモードで起動します。"
endif
endif

2chMate 0.8.6/unknown/L01A/4.0.3/LT

新着レスの表示

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）

掲示板管理者へ連絡無料レンタル掲示板