討論區快速選單
知識庫快速選單
軟體開發過程中有哪些資安漏洞? 討論區最近新進100則主題 傑米的攝影旅遊筆記
[ 回上頁 ] [ 討論區發言規則 ]
VB讀取RS-232傳輸資料
更改我的閱讀文章字型大小
作者 : shihhsu(cearo)
[ 貼文 15 | 人氣 5926 | 評價 0 | 評價/貼文 0 | 送出評價 7 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/25 下午 11:35:29
徵求VB程式設計高手協助以VB撰寫一個小程式擷取PS-232傳輸訊號,
傳輸設定為 (19200,n,8,1),
10bit 訊號格式為 ( "A", "D", D0H, D0L, D1H, D1L, D2H, D2L, D3H, D3L , "A", "D", D0H, D0L, ............ )
以VB將收到的 D0, D1, D2, D3四個數值以文字顯示在視窗,
程式執行後即開始動作
作者 : loulo(小樓)討論區板主 Visual Basic曠世奇才貼文超過1000則人氣指數超過10000點
[ 貼文 1817 | 人氣 11470 | 評價 8620 | 評價/貼文 4.74 | 送出評價 38 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/26 上午 01:57:46
這程式很簡單,您自己要練習嗎?
跟我們聯絡 http://www.loulo.org
service@loulo.org
作者 : shihhsu(cearo)
[ 貼文 15 | 人氣 5926 | 評價 0 | 評價/貼文 0 | 送出評價 7 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/26 上午 07:44:36
因為我試了很久都試不出來,
不知道是哪裡出了問題?
如果可以的話是否可以麻煩你幫我一下呢,
因為有點急......謝謝!!!
作者 : windknief(風刃)
[ 貼文 98 | 人氣 4718 | 評價 260 | 評價/貼文 2.65 | 送出評價 5 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人shihhsu註記此篇回應為很有道理 2004/8/26 上午 08:29:14
10bit 訊號格式為 ( "A", "D", D0H, D0L, D1H, D1L, D2H, D2L, D3H, D3L , "A", "D", D0H, D0L, ............ )
應該為10 bytes??
使用VB6.0與MSCOMM32.OCX來與Serial Port溝通
如果是這樣的話,請先將MSCOMM32.ocx設為Binary Mode
19200,n,8,1,RTreshold為接收多少個Byte來觸發MSCOMM32的Event
MSDN也有很詳細的描述.
文魁有多本Visual Basic 與RS-232的相關書籍
去書局花個一兩個小時翻一翻就差不多了.

如果你是想用API....或VB.NET那我就幫不了忙了



作者 : shihhsu(cearo)
[ 貼文 15 | 人氣 5926 | 評價 0 | 評價/貼文 0 | 送出評價 7 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/26 上午 10:03:05
謝謝你的說明, 應該是10bytes沒錯,
您的意思是將傳輸模式改為Binary就可以了嗎?
我現在好像用的是Text模式, 前兩碼"A","D"可以讀進來,
但是接下來的數值好像就怪怪的,
因為數值是一直傳送進來的, 我開的視窗只有"A","D"顯示是正常的,
不知道您是否可以幫忙一下, 簡單的用一張VB表單,
將四個數值D0~D3分別讀出, 即時加以顯示..........感基不盡~~~
作者 : windknief(風刃)
[ 貼文 98 | 人氣 4718 | 評價 260 | 評價/貼文 2.65 | 送出評價 5 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人shihhsu註記此篇回應為很有道理 2004/8/26 上午 10:58:23
因為你的傳輸檔案內容超過ASCII 128,
必須使用comInputModeBinary.
看你的情況應該是就可以了
作者 : clark(Clark)討論區板主 Java Script優秀好手貼文超過500則人氣指數超過30000點
[ 貼文 980 | 人氣 30536 | 評價 1620 | 評價/貼文 1.65 | 送出評價 126 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/26 上午 11:10:30
"A","D"這兩個是字元應該沒問題
D0H, D0L, 這幾個的編碼是甚麼勒? ^^
作者 : shihhsu(cearo)
[ 貼文 15 | 人氣 5926 | 評價 0 | 評價/貼文 0 | 送出評價 7 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/26 上午 11:16:04
D0H, D0L 為數值D0的high byte和low byte, 數值介於0~1024之間
作者 : clark(Clark)討論區板主 Java Script優秀好手貼文超過500則人氣指數超過30000點
[ 貼文 980 | 人氣 30536 | 評價 1620 | 評價/貼文 1.65 | 送出評價 126 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/26 上午 11:51:56
= =" 0~1024...不大可能吧....

high byte和low byte 是怎麼編碼的?
&H71 編成 ASCII
D0H = "7"
D0L = "1"
直接收字串進來轉碼

&H71 編成 BYTE
D0H = &H07
D0L = &H01
收byte資料進來轉碼
作者 : 57805137(水瓶天賞) Visual Basic卓越專家貼文超過500則
[ 貼文 698 | 人氣 4505 | 評價 2720 | 評價/貼文 3.9 | 送出評價 2 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人shihhsu註記此篇回應為很有道理 2004/8/26 下午 11:30:08
你要先確定到底是讀二進制或ascii模式
如果a d都是用text可以讀...那應該就是了
重點是其它應該是16近位
讀回資料應該是AD xx xx xx xx....一串字串
要用mid去解 xxxx 轉成十進位
注意高跟低位元是一個值,要一次解四個
作者 : 57805137(水瓶天賞) Visual Basic卓越專家貼文超過500則
[ 貼文 698 | 人氣 4505 | 評價 2720 | 評價/貼文 3.9 | 送出評價 2 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/26 下午 11:31:53
ffff代表65535不能代表1024嗎?
哇勒~~~~~~~
作者 : jinten(田田)
[ 貼文 128 | 人氣 1219 | 評價 350 | 評價/貼文 2.73 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人shihhsu註記此篇回應為很有道理 2004/8/26 下午 11:52:01
你的資料已經讀進來了.好像應該只是不能把讀進來的16進位碼轉換為人的眼睛可以看的ascii碼.
作者 : clark(Clark)討論區板主 Java Script優秀好手貼文超過500則人氣指數超過30000點
[ 貼文 980 | 人氣 30536 | 評價 1620 | 評價/貼文 1.65 | 送出評價 126 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/27 上午 04:03:37
>ffff代表65535不能代表1024嗎?
>哇勒~~~~~~~

@@ 說的也是
= =" 誤導發問的人了SORRY
作者 : windknief(風刃)
[ 貼文 98 | 人氣 4718 | 評價 260 | 評價/貼文 2.65 | 送出評價 5 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/27 上午 08:36:36
cearo解決了嗎??
作者 : kib72377(史努比) Visual Basic卓越專家Assembly優秀好手Access頂尖高手貼文超過1000則
[ 貼文 1455 | 人氣 1891 | 評價 8600 | 評價/貼文 5.91 | 送出評價 31 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/27 上午 09:16:40
假設你接收的資料存放在 inputbuffer()陣列中
而且已同步(就是第1和第2 筆資料一定是 "A","D")
開始:
輸出string1=inputbuffer(1)
輸出string1=inputbuffer(2)
for i = 3 to 10 step 2 '共4組資料 D0~D3
     string1= format$(hex$(inputbuffer(i)) & hex$(inputbuffer(i+1)) & "H" ,"@@@@@") '轉成HEX$輸出
' 輸出 string1
next i
結束
作者 : shihhsu(cearo)
[ 貼文 15 | 人氣 5926 | 評價 0 | 評價/貼文 0 | 送出評價 7 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/27 上午 09:38:21
我將inputmode改為binary, 是可以收到資料, 收到的資料如下:
65 68 3 251 1 22 3 254 1 26 65 68 3 251 1 22 3 254 1 25 ............
其中65應該是代表"A", 68應該是代表"D",
但是如果要將後面四個數值做正確顯示, 是否需要自行計算 DO=(3*256+251)?
還是有什麼地方可以直接設定讀取資料的格式呢?
謝謝你這麼熱心的回答我的問題~~~~~
作者 : shihhsu(cearo)
[ 貼文 15 | 人氣 5926 | 評價 0 | 評價/貼文 0 | 送出評價 7 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/27 上午 09:42:07
我讀回的資料如 :
65 68 3 251 1 22 3 254 1 26 65 68 3 251 1 22 3 254 1 25 ............
請問是否一定要自行解碼? 還是可以直接設定收到資料的格式? 謝謝!!
作者 : shihhsu(cearo)
[ 貼文 15 | 人氣 5926 | 評價 0 | 評價/貼文 0 | 送出評價 7 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/27 上午 09:48:42
謝謝您的答覆, 我會再試試看,
但是式子中的"@@@@@"代表什麼意思呢?
另外如果收到的第一個資料不是"A" 怎麼辦? 會不會有資料的遺失?
作者 : yuan66(緣) Visual Basic優秀好手貼文超過200則
[ 貼文 223 | 人氣 3423 | 評價 1070 | 評價/貼文 4.8 | 送出評價 3 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人shihhsu註記此篇回應為很有道理 2004/8/27 上午 09:55:12

>65 68 3 251 1 22 3 254 1 26 65 68 3 251 1 22 3 254 1 25 ............
>請問是否一定要自行解碼? 還是可以直接設定收到資料的格式? 謝謝!!
>
解不解碼應看你自己的需求,若上面的格式是你可以運用那就不用解碼,
若你需要顯示D0~D3的數值,就需做換算.
作者 : shihhsu(cearo)
[ 貼文 15 | 人氣 5926 | 評價 0 | 評價/貼文 0 | 送出評價 7 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/27 上午 10:06:37
我的目的是要將D0~D3的變化以曲線圖來表示,
這樣是不是要先將抓到的數值轉成一般的數字才能描點連成曲線呢?
另外如果X軸是時間, Y軸分別為D0~D3抓到的數值,
有什麼方法可以比較有效率一些?
D0~D3有沒有可能每秒都抓到100個數值啊?
謝謝大家熱心的解答, 小弟感激不盡~~~~
作者 : jinten(田田)
[ 貼文 128 | 人氣 1219 | 評價 350 | 評價/貼文 2.73 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/27 上午 11:03:17
你抓到的就是數值了,要顯視才要轉換,要到100次很勉強,你確定你的周邊裝置可以在收到信號的瞬間就把資料送出來,還是會延遲0.0 幾秒,若會延遲,那就不一定能達到速度,(pc端也有可能會延遲)
作者 : shihhsu(cearo)
[ 貼文 15 | 人氣 5926 | 評價 0 | 評價/貼文 0 | 送出評價 7 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/27 上午 11:11:57
我的周邊裝置就是單純的以19200bps送出信號,
由PC來做資料顯示及繪圖, 並由事件觸發儲存資料,
簡單的說, 就是由PC透過RS232來做一個接近RealTime的4個Channel的訊號顯示與紀錄,
不知道有沒有VB高手處理過類似的問題??
作者 : kib72377(史努比) Visual Basic卓越專家Assembly優秀好手Access頂尖高手貼文超過1000則
[ 貼文 1455 | 人氣 1891 | 評價 8600 | 評價/貼文 5.91 | 送出評價 31 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人shihhsu註記此篇回應為很有道理 2004/8/27 下午 12:33:46
假設你用INPUTBUF來取資料,型態為LONG好囉(接收部分的byte轉LONG自己轉吧)
開始:
aaaa:
do until INPUTBUF = 65 '尋找 "A"以求同步
INPUTBUF
loop
if INPUTBUF<> 69 then goto aaaa '若第2字非"D" 就跳回去從新開始
D0H = INPUTBUF
D0L = INPUTBUF
D0 = D0H * 256 + D0L
D1H = INPUTBUF
D1L = INPUTBUF
D1 = D1H * 256 + D1L
D2H = INPUTBUF
D2L = INPUTBUF
D2 = D2H * 256 + D2L
D3H = INPUTBUF
D3L = INPUTBUF
D3 = D3H * 256 + D3L
然後看你要怎麼輸出 D0~D3 到圖形
然後看你要怎麼輸出 D0~D3 到TEXTBOX等控制項
結束

還有 FORMAT$(變數,"輸出格式") 其中輸出格式 "@@@@@" 對應位置無字則以空格代替
還有你顯示D0~D3也不須轉換了,VB自己會做

還有能否 D0~D3 每秒取 100 值
自己算: 100 * 10BYTES(每一組資料10BYTES) * 10BITS(每一BYTE要10BITS??,因 XXXXX,N,8,1)=10000 BITS
理論上 19200 鮑率應該夠了,剩下就是電腦速度及程式處理使用時間的問題囉
作者 : kib72377(史努比) Visual Basic卓越專家Assembly優秀好手Access頂尖高手貼文超過1000則
[ 貼文 1455 | 人氣 1891 | 評價 8600 | 評價/貼文 5.91 | 送出評價 31 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/27 下午 12:41:02
出槌大王更正一下:
do until INPUTBUF = 65 '尋找 "A"以求同步
INPUTBUF
loop
中間那行 INPUTBUF 是多餘的,請刪除
作者 : yuan66(緣) Visual Basic優秀好手貼文超過200則
[ 貼文 223 | 人氣 3423 | 評價 1070 | 評價/貼文 4.8 | 送出評價 3 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/27 下午 02:58:43
小弟並沒有做過REAL TIME的資料讀取顯示,
若堅持每秒讀100筆資料,我建議100筆資料先讀進BUFFER中,再做資料處理和顯示,
再做下一秒,中間可能LOST一些DATA(假設RS-232一直在送資料給PC).
若你要邊讀資料邊處理和顯示,每秒有可能無法達到100筆,且也有可能LOST DATA

作者 : 57805137(水瓶天賞) Visual Basic卓越專家貼文超過500則
[ 貼文 698 | 人氣 4505 | 評價 2720 | 評價/貼文 3.9 | 送出評價 2 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/27 下午 08:31:56
使用rs-232無法做到100/秒
為何...因為windows的問題
這個部份以前討論過
作者 : shihhsu(cearo)
[ 貼文 15 | 人氣 5926 | 評價 0 | 評價/貼文 0 | 送出評價 7 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/28 上午 02:40:20
那請問RS-232有什麼限制呢?
最快可以做到什麼程度?
哪裡找得到以前討論的內容? 我都搜尋不到相關的討論~~~
作者 : 57805137(水瓶天賞) Visual Basic卓越專家貼文超過500則
[ 貼文 698 | 人氣 4505 | 評價 2720 | 評價/貼文 3.9 | 送出評價 2 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人shihhsu註記此篇回應為很有道理 2004/8/28 下午 08:06:03
如果是用詢問式不可能很快,因為windows不是只做一件事
要很快的做法就是用:資料端自己送訊號(同樣的資料),然後接收端一直讀
不過這種方法必須資料端有這樣的設定
令一種方式是你要讀取的設備本身有提供電壓或電流輸出
使用a/d卡去讀取.....a/d卡可以達到100k/chanel的能力
工控快速分析都是靠硬體去做....不是軟體
作者 : windknief(風刃)
[ 貼文 98 | 人氣 4718 | 評價 260 | 評價/貼文 2.65 | 送出評價 5 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/30 上午 08:48:46
記得MSDN裡面的限制最高應該可以到256000
目前我寫過的是115200都沒有問題
115200bps對你來說應該是夠快了,加油吧!!
一樣是使用MSCOMM32來實做.You can do it!
作者 : shihhsu(cearo)
[ 貼文 15 | 人氣 5926 | 評價 0 | 評價/貼文 0 | 送出評價 7 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/30 上午 09:30:28
是的, 目前資料端是以19200bps的速度不斷的把資料送出來,
資料讀取的問題是已經解決了, 目前是卡在如何穩定的以100Hz * 4channel來作取樣,
是不是要接將擷取資料的程式放在Timer物件裡呢?
作者 : shihhsu(cearo)
[ 貼文 15 | 人氣 5926 | 評價 0 | 評價/貼文 0 | 送出評價 7 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/30 上午 09:34:33
目前硬體的設定為19200bps, 依計算應該是夠快了,
只是現在在嘗試如何穩定的以100Hz*4Channels來讀取資料並加以顯示了....

謝謝你的鼓勵~~~ 我會再加油的!!
作者 : windknief(風刃)
[ 貼文 98 | 人氣 4718 | 評價 260 | 評價/貼文 2.65 | 送出評價 5 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/30 下午 06:39:37
MSComm32的InBufferSize預設值是1024Bytes
上限是依照系統的記憶體來決定(沒有試過極限)
假設你的Peripheral無法確定頻率,又必須要100HZ取樣
1.儘可能設定滿足週邊裝置傳送的BufferSize
2.用Timer來確定時間的分界點,一口氣將Buffer讀完
    假設有302筆Data,你可以讀一筆Data(10Bytes)放棄兩筆Data,

不知道這樣可不可行,沒有寫過不固定頻率傳送的設備.
 板主 : 小樓
 > Visual Basic 6.0/VBA - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - Visual Basic 6.0/VBA - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
Visual Basic 6.0/VBA
1 阿戊 10670 
2 小樓 8650 
3 Jones 5270 
4 水瓶天賞 2340 
5 joe 2230 
6 史努比 1950 
7 阿呆紅 1440 
8 tt's 1250 
9 青衫 1150 
10 羅啟章 1020 
Visual Basic 6.0/VBA
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2019 程式設計俱樂部 http://www.programmer-club.com.tw/
0.203125