email   »çÀÌÆ®¸Ê
ȸ»ç¼Ò°³       |       »çÀ̹ö°í°´¼¾ÅÍ       |       ¼­ºñ½º Á¦Ç°       |       ¾ð·Ðº¸µµ       |       ÀÚ·á½Ç       |       Help Me!
 
    ÀÚ·á½Ç
    QNA
 
 
       
Á¦¸ñ 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ÄÄÆÄÀÏ ÇÏ¿© »ç¿ëÇϽøé ÀÎÅÍ³Ý ÀüÈ­¿¡¼­ °É·Á¿À´Â ÀüÈ­ ¹øÈ£µµ Àâ¾Æ³À´Ï´Ù.


    CEO Àλ縻         ȸ»ç ¿¬Çõ         »ç¾÷ ºÐ¾ß         Á¶Á÷µµ         ¾àµµ    
(ÁÖ)¹è´ÞÁ¤º¸Åë½Å °æ±âµµ ¼º³²½Ã Áß¿ø±¸ »ó´ë¿øµ¿ 146-7 ´ëÇ¥ÀÚ : ÇÏ Å ¹Î
¹®ÀÇ»çÇ× : bdtel@bdtel.com ¿¬¶ôó : Tel : 031-733-6608 Fax : 031-733-6609
Copyright ¨Ï 1998-2024 bdtel Co., Ltd. All Rights Reserved.