stillalive
;///////////////////////////////////
;シリアル連続送信
;
;*マクロとは関係ないが、Teraterm初期設定
; tterm.exeを管理者として実行
; シリアルポートからCOM*(*は実際に使用するポートNo)を選択
; 設定→シリアルポートからシリアルポート設定
; 上から順に9600bps,8bit,none,1bit,none
; 設定→端末で漢字-受信、漢字-送信をそれぞれSJISへ変更
; TERATERM.INIファイルのdebug:off →on とする。
; 設定→読み込みで上記ファイルを読み込む。
; 確認の仕方:設定→端末でローカルエコーonとする。(キーボード入力が表示されるようになる)
; Shift + Esc を押すごとに、debugモードが切り替わるのでそのたびキーボードから文字を入力。
; 16進で表示されたらその状態のままとする。
; ローカルエコーをoffとする。
; マクロ.ttlファイル読み込みでスタート
; ver
;///////////////////////////////////
setdebug 2 ;受信電文を16進表示
i = 6 ;iの初期値を変数宣言する
; ユーザ名を取得
getenv 'USERNAME' username
;日時を取得
gettime timestr "%Y%m%d-%H%M%S"
;ログファイル名に日時とユーザ名を入れる。
sprintf2 filename 'console_%s_%s.log' username timestr
;sprintf2 filename 'console_%s_%s.log' '' timestr
; カレントディレクトリを変更する
changedir 'C:\Users\AO\Desktop\work'
logopen filename 0 0
while i ;whileでi(10)を設定する
;sendln '' ;空Enterを実施
send $11$A5$A5$A5$A5$10
timeout = 3 ; タイムアウトを3秒に設定。
Wait '11 A5 A5 A5 A5 10' '11 A5 A5 A5 A5 11' ; A か B を待つ。
If result=0 break ;break 本来はタイムアウト
If result=1 goto ok ;正常受信電文が来たなら、:ok へジャンプ
If result=2 break ;break 異常受信電文などに設定
:ok
;pause 2 ;2秒待つ
mpause 2000 ;2000msec待つ
i = i-1 ;iにi-1を代入する
endwhile ;whileに戻る
最新の20件
2024-04-08
2024-01-25
2024-01-24
2023-08-09
2023-07-14
2023-06-21
2023-04-22
2022-04-17
2022-02-13
2022-01-31
2021-12-17
2021-12-13
2021-10-27
2021-01-06
今日の20件
- counter: 124
- today: 1
- yesterday: 1
- online: 1