8015´íÎó£ºcould not set comm state,Ôõô½â¾ö£¬Ð»Ð»
Settings ÊôÐÔ
ÉèÖò¢·µ»Ø²¨ÌØÂÊ¡¢ÆæÅ¼Ð£Ñé¡¢Êý¾Ýλ¡¢Í£Ö¹Î»²ÎÊý¡£
Óï·¨
object.Settings[ = value]
Settings ÊôÐÔÓï·¨°üÀ¨ÏÂÁв¿·Ö£º
²¿·Ö ÃèÊö
object ¶ÔÏó±í´ïʽ£¬ÆäÖµÊÇ¡°Ó¦ÓÃÓÚ¡±ÁбíÖеĶÔÏó¡£
value ×Ö·û´®±í´ïʽ£¬ËµÃ÷ͨѶ¶Ë¿ÚµÄÉèÖÃÖµ£¬ÈçÏÂËùÊö¡£
˵Ã÷
µ±¶Ë¿Ú´ò¿ªÊ±£¬Èç¹û value ·Ç·¨£¬Ôò MSComm ¿Ø¼þ²úÉú´íÎó 380£¨·Ç·¨ÊôÐÔÖµ£©¡£
Value ÓÉËĸöÉèÖÃÖµ×é³É£¬ÓÐÈçϵĸñʽ£º
"BBBB,P,D,S"
BBBB Ϊ²¨ÌØÂÊ£¬P ÎªÆæÅ¼Ð£Ñ飬D ΪÊý¾ÝλÊý£¬S ΪֹͣλÊý¡£value µÄȱʡֵÊÇ£º
"9600,N,8,1"
ºÏ·¨µÄ²¨ÌØÂÊ£º
ÉèÖÃÖµ
300
600
1200
2400
4800
9600(ȱʡ)
14400
19200
28800
56000
115200
SettingsÓ¦¸ÃûÎÊÌ⣬ÒòΪÈç¹û°Ñ´®¿ÚÍ£ÓÃÔÙÆôÓ㬾ͺÃÁË
ÄÇLZÌùÉÏÄãµÄ´úÂë.
Private Sub OpenProt()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.OutBufferSize = 1024 ' 32 byte is the Limit.
MSComm1.InBufferSize = 512
MSComm1.RThreshold = 1
MSComm1.SThreshold = 1
MSComm1.InputLen = 0
MSComm1.DTREnable = True
MSComm1.RTSEnable = True
MSComm1.PortOpen = True
Ïà¹ØÎÊ´ð£º
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......
vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£
±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
Êý¾Ý¿âÃ²ËÆÒѾÁ¬½ÓÉÏÁËvb£¬£¬¿ÉÊÇΪʲôÊý¾Ý¿âÉϵÄÊý¾Ý²»ÄÜÏÔʾÔÚ¿ò±íÖÐÄ󣿣¿£¿
¾ßÌåµÄ´úÂ룿
ÎÞÂëÎÞÕæÏ࣡
Äã°ÑÀºÇò±§ÔÚ»³À¾ÍÄÜԶͶµÃ3·Ö£¿
Âé·³¸÷λ´óϺÁ˰¡¡£¡£¡£
Private Sub Comm1_Click()
& ......
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......