VB´®¿ÚͨÐÅÎÊÌ⣬¼±£¡£¡£¡£¡
ÏÖÓеç×Ó³Óһ̨£¬Ê¹Óô®¿ÚÓë¼ÆËã»ú½øÐÐͨѶ¡£±àдVB³ÌÐòÀ´·ÃÎÊ´®¿Ú£¬´ïµ½¶ÁÈ¡µç×Ó³ÓÉÏÏÔʾµÄÊý¾Ý¡£¸Ãµç×Ó³ÓΪBL-4100SÐÍÒÇ±í£¬Êä³öΪRS-232±ê×¼½Ó¿Ú£¬²¨ÌØÂÊΪ2400¡¢ÎÞУÑ飬Êý¾Ý¸ñʽΪ£º1 Æðʼλ 8 Êý¾Ý루°üÀ¨Ð£Ñ飩1 ֹͣλ ¡£
ÏÖÔÚÏëÔÚµçÄÔÖÐÿ¸ôÒ»¶¨µÄʱ¼ä¼ä¸ô¼Ç¼µç×Ó³ÆÊý¾Ý£¬ÒÔÊ®½øÖÆÐÎʽÏÔʾÔÚÎı¾ÖУ¬¼Ç¼ÐÎʽΪ£º£¨Ê±¼ä£¬ÖÊÁ¿£©
ÒÔǰ¸ù±¾Ã»ÓÐѧ¹ýVB£¬ÏÖÔÚÓöµ½Õâ¸öÎÊÌ⣬ËùÒÔ¾ÍÔÚÍøÉÏËÑÁËÒ»¸ö³ÌÐò£¬Ïë×Ô¼ºÏÈÊÔ×ÅÀí½âÏÂVBÖйØÓÚ´®¿ÚͨѶµÄÎÊÌ⣬³ÌÐòÈçÏ£º
Option Explicit
Dim strss As String
Private Sub Command1_Click() '¿ªÊ¼½ÓÊÕ
Label1.Caption = " "
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If
If MSComm1.PortOpen = False Then
MSComm1.CommPort = 1 '´®¿ÚºÅ£¬
MSComm1.Settings = "2400,n,8,1 " '´®¿ÚµÄÊôÐÔ
MSComm1.InputLen = 0
MSComm1.RThreshold = 10
MSComm1.InputMode = comInputModeText
MSComm1.PortOpen = True '´ò¿ªÍ¨ÐÅ
Ïà¹ØÎÊ´ð£º
±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......
ÓÐûÓÐFOR VB Ë®¾§±¨±íµÄÊé»òÊǵç×ÓÎĵµ°¡£¿ÓÐÐÅÏ¢µÄÅóÓѸæËßÏ ллÁË
ÎÒҲûÕÒµ½
Èç¹ûÄãÓÐ FOR ÆäËü µÄÎĵµ£¬Ò²¿ÉÒԲο¼°É£¡
¡®µÀÀí¡¯ÊÇÒ»Öµģ¬Ö»ÊÇ¡°±í´ï·½Ê½¡±²»Í¬¶øÒÑ¡£
mark
pls learn from ba ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
¸÷λºÃ£¬ÎÒÏÖÔÚÒªÓÃһ̨¼ÆËã»úͬʱ¼à¿Ø32̨ÐźŽÓÊÕ»ú£¨ÓõÄÊÇMOXA¿¨À©Õ¹32¸ö´®¿Ú£©¡£Ïȵ÷ÊÔ8̨¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÎÒÓÐÁ½¸öÃüÁîÐèÒªÏò½ÓÊÕ»ú·¢ËÍ£¬Ò»¸öÊÇ¼à¿Ø½ÓÊÕ»úÉϵÄÐźÅËø¶¨×´Ì¬£¬Ò»¸öÊÇ»ñÈ¡½ÓÊÕ»úĿǰµÄ¸÷À๤×÷× ......
Ö»»áVB£¬µ±¹ý1ÄêµÄVB³ÌÐòÔ±
ÏÖÔÚÏëÓëʱ¾ã½ø£¬Ñ§ÄÄÃÅÓïÑÔºÃÄØ
vb.net ,C# ,Java, »¹ÊÇVC++?
ÄÄÃÅÄܹ»¿ìËÙµÄÉÏÊÖ£¬²¢×ªÐÍ£¿
C#£¬winform»òwebform¶¼¿ÉÒÔ
vb.net
VC++
ÒýÓÃ
VC++
Âé·³ÄÜ˵¸öÀíÓÉô¡£¡£¡ ......