|
|
|
|
Á¦¸ñ
|
CM1Àåºñ OCX¿¡¼ °£È¤ ÀüÈ ¸ø¹Þ´Â °æ¿ì.
|
µî·ÏÀÏ
|
2009-07-18 |
³»¿ë
|
CM1Àåºñ·Î °³¹ßÁßÀÎ Á÷ÀåÀÎÀÔ´Ï´Ù.
ȸ»ç¿¡ ÀÎÅͳÝÀüÈ°â ÀϹÝÀüȸ¦ »ç¿ëÇÏ°í Àִµ¥ °£È¤°¡´Ù ÀÎÅÍ³Ý ÀüÈ¿¡¼ °É·Á¿À´Â ÀüȹøÈ£¸¦ ijġ¸¦ ¸øÇÕ´Ï´Ù.
OCXÀÇ CTLÆÄÀÏÀ» ¿¾î º¸´Ï
`------------------------------------- ` response message `------------------------------------- chkMsg = gResponseStr & Chr$(&HD) & Chr$(&HA) ` Response\r\n idx = InStr(1, gRxData, chkMsg) If idx > 0 Then gRxData = Mid(gRxData, idx + Len(chkMsg), Len(gRxData)) ` Len(chkMsg) = response(8) + \r\n(2) ProcessResponse `Exit Sub End If `------------------------------------- ` report message `------------------------------------- chkMsg = gReportStr & Chr$(&HD) & Chr$(&HA) idx = InStr(1, gRxData, chkMsg) RaiseEvent DebugMsg(`s1:idx=` & idx & vbCrLf) If idx > 0 Then gRxData = Mid(gRxData, idx + Len(chkMsg), Len(gRxData)) ProcessReport `Exit Sub End If gRxData = `` ---------------------------------- `Exit Sub` ¹®À» ÁÖ¼®Ã³¸® ÇϽðųª »èÁ¦Çϼż ´Ù½Ã OCXÄÄÆÄÀÏ ÇÏ¿© »ç¿ëÇϽøé ÀÎÅÍ³Ý ÀüÈ¿¡¼ °É·Á¿À´Â ÀüÈ ¹øÈ£µµ Àâ¾Æ³À´Ï´Ù.
|
|
| |
|
(ÁÖ)¹è´ÞÁ¤º¸Åë½Å °æ±âµµ ¼º³²½Ã Áß¿ø±¸ »ó´ë¿øµ¿ 146-7 ´ëÇ¥ÀÚ : ÇÏ Å ¹Î
¹®ÀÇ»çÇ× : bdtel@bdtel.com ¿¬¶ôó : Tel : 031-733-6608 Fax : 031-733-6609
Copyright ¨Ï 1998-2024 bdtel Co., Ltd. All Rights Reserved.
|
|
|