icon

【array[1] = 】MortScript

Since 2007/02/22

1-100 101-200 201-300 301-400 401-500 501-600 601-700 701-800 801-900 901-990
16 ：いつでもどこでも名無しさん：2007/02/25(日) 01:05:28 ID:???0
h2210+CFGPS2でログ取ってみた。
SetComInfoはマニュアルに記載が無いのでフォーラムを見てやってみた。
# CFスロット
p = "Com7:"
# COMポートのセッティング。変数は%でくくると確実
SetComInfo(%p%, 4000, 4800, "None", 8, 1, "None")
# 一応ウェイト。単位はms
Sleep(1000)
# いちいちポート閉じてしまうので、
# PHSカードにコマンド送っても意味無かった
# WriteFile(%p%,ReadFile("¥command.txt"))
res = ""
n = 1
While(n <= 5)
# ReadFileはポート開いて読み出してポート閉じてる
res = res & "^NL^" & ReadFile(%p%,200)
n = n + 1
EndWhile
# ReadFileのオーバーロード。
# 変数resにファイル%p%から全読みしたストリームを代入
# ReadFile(%p%, res)
# ログをファイルに保存
WriteFile("¥gps-log.txt", res)
Message("Done")

本当はPHSの位置情報を取得しようとしたんだけど、
いちいちWriteFile()、ReadFile()はポート閉じてしまうので、
一方的にデータ送ってくるGPSみたいなのしか相手にできないみたい。

1-100 101-200 201-300 301-400 401-500 501-600 601-700 701-800 801-900 901-990