ジムニーおや爺の日記: 電子工作

2009年12月
日	月	火	水	木	金	土
		1	2	3	4	5
6	7	8	9	10	11	12
13	14	15	16	17	18	19
20	21	22	23	24	25	26
27	28	29	30	31

来週から内職はできません！（笑）

だからなんなんだ？って言われそーですが（笑）

テキストとバイナリ同時に表示させてみたかったので・・・これで制御コードなんかも判別できるかも・・・３行目は文字数です。

テキスト中0x0d CR キャリッジリターンと0x0a NL or LF ニューライン（ラインフィード）は"_"　に置き換えています。

スクロールバーがまだ扱えないので、バイナリを１行に表示すると横方向は画面からはみ出しています（笑）

縦方向は画面内でスクロールする様にしました。

※スクロールバースクリプトは探索済み（笑）

左画面

右画面

コントロールパネルです。

おまけで、制作途中にGT720Fのテキストそのまま表示させたものです。

書籍の元ネタを改良して作成したものです。以下、恥ずかしいソースです。

やくたたず（笑）

;---serial03.hsp--------09.12.16--------------------------------
;   簡易シリアルラインモニタ
;   １行目テキスト表示
;   ２行目バイナリ表示
;   ３行目１行の文字数
;   テキスト中0x0d CR -> "-" と0x0a NL or LF -> "_"　は置き換えた
;---------------------------------------------------------------

#include "hspext.as"    ;ｼﾘｱﾙﾎﾟｰﾄ使用に必要
    screen 0,400,100,,,,,
    width 400,100
    sysfont 0   ;HSP標準システムフオント
    title "RS232C 簡易ｼﾘｱﾙﾗｲﾝﾓﾆﾀｺﾝﾄﾛｰﾙﾊﾟﾈﾙ"
;   sdim buf,600    ;ﾃｷｽﾄ用ﾊﾞｯﾌｧ
;   sdim abuf,2000 ;ﾊﾞｲﾅﾘ用ﾊﾞｯﾌｧ
    onexit *combye ;×ﾎﾞﾀﾝの処理

    cp = 2      ;COMﾎﾟｰﾄ番号
    comstr="baud=9600 parity=N data=8 stop=1"   ;通信ﾊﾟﾗﾒｰﾀ
    sdstr=""
    input sdstr,340
    objsize 100,20
    button "送信",*comgo
    button "終了",*combye
    button "通信一時遮断",*comcls
    button "通信再接続",*comcon
    e=ginfo (10)    ;ｳｲﾝﾄﾞｳX横幅
    f=ginfo (11)    ;ｳｲﾝﾄﾞｳY縦幅
    g=ginfo (22)    ;ｶﾚﾝﾄﾎﾟｼﾞｼｮﾝX
    h=ginfo (23)    ;ｶﾚﾝﾄﾎﾟｼﾞｼｮﾝY
    mes e:mes f:mes g:mes h
    ;
*comcon
    comopen cp,comstr;ｼﾘｱﾙﾎﾟｰﾄの初期化
    if stat : dialog "シリアルポートは使えません" : end

    li=0
;HSP標準ﾌｫﾝﾄの場合はmx=8、my=18
    mx=8    ;半角文字横幅
    my=18   ;半角文字高さ
    scx=1816        ;screen横幅（widthに同じ)
    scy=630     ;width高さ
    screen 1,scx,scy+2*my,,,,, ;screen高さは+myで2行ﾌﾟﾗｽ(改行分を追加)
    width scx,scy
    title "簡易ｼﾘｱﾙﾗｲﾝﾓﾆﾀ"

    a=0
*commain0
    sdim buf,600    ;ﾃｷｽﾄ用ﾊﾞｯﾌｧ　再定義でﾊﾞｯﾌｧｸﾘｱ
    sdim abuf,2000 ;ﾊﾞｲﾅﾘ用ﾊﾞｯﾌｧ再定義でﾊﾞｯﾌｧｸﾘｱ
*commain1
    wait 30
    comgetc a
    if stat=0 : goto *commain1
    b=0:d=0
*chk1
    if a=10 : goto *chk2    ;0x0a NL(LF) の時*chk2へ
;   if a>=32 {
    if a=13 : poke buf,b,"_":else:poke buf,b,a ;0x0d CR の時ﾊﾞｯﾌｧに"_"を入れる
                                                ;それ以外はそのままaを入れる
    b+ ;bに+1
    c = strf ("%02x", a) + " " ;16進桁数指定(2ｹﾀ)付き＋" "を
    poke abuf,d,c               ;ﾊﾞｯﾌｧに入れる
    d = d+3     ;2ｹﾀ＋" "で3ｹﾀなので+3する
;   }
    comgetc a
    if stat>0 : goto *chk1
*chk2
    poke buf,b,"_" ;0x0a NL(LF) の時ﾊﾞｯﾌｧに"_"を入れる
    b+ ;bに+1
    c = strf ("%02x", a) + " " ;16進桁数指定(2ｹﾀ)付き＋" "を
    poke abuf,d,c               ;ﾊﾞｯﾌｧに入れる
    d = d+3     ;2ｹﾀ＋" "で3ｹﾀなので+3する
    gosub *scrol    ;ｽｸﾛｰﾙ制御ﾙｰﾁﾝへ
    mes buf         ;ﾃｷｽﾄ用ﾊﾞｯﾌｧを出力
    gosub *scrol    ;ｽｸﾛｰﾙ制御ﾙｰﾁﾝへ
    mes abuf        ;ﾊﾞｲﾅﾘ用ﾊﾞｯﾌｧを出力
    gosub *scrol    ;ｽｸﾛｰﾙ制御ﾙｰﾁﾝへ
    mes strlen(buf) ;ﾊﾞｯﾌｧ文字列の長さを出力
;   poke buf,0,0
;   poke abuf,0,0
    goto *commain0

*comgo      ;送信
    comput sdstr+"\r"
    sdstr="":objprm 0,sdstr
    goto *commain0

*comcls
comclose
stop

*combye
comclose
end

*scrol      ;画面ｽｸﾛｰﾙｻﾌﾞﾙｰﾁﾝ
    gy= ginfo (23) ;現在のY座標
    if gy>=scy {        ;Y座標がwidth_Yに一致したら
        if gy=scy {
        gy=scy-my       ;Y座標を１行分戻す
        pos 0,0         ;画面ｺﾋﾟｰのため一旦座標を原点にする。
        gcopy 1,0,my,scx,scy    ;２行目から最下段までを原点にｺﾋﾟｰ
        }
        gy=scy-2*my         ;Y座標を2行分戻す
        pos 0,0         ;画面ｺﾋﾟｰのため一旦座標を原点にする。
        gcopy 1,0,my,scx,scy+my ;２行目から最下段+1までを原点にｺﾋﾟｰ
    }
    pos 0,gy        ;表示位置を再設定
    return

ブログを書くならBlogWrite