Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
MSComm1.InputMode = comInputModeBinary
MSComm1.RThreshold = 1
Dim a As Long
End Sub
Private Sub MSComm1_OnComm()
Dim BytesReceived() As Byte
Dim buffer As String
......
СµÜÓÃVBµ÷EXCEL×÷ͼ
objExlApp.Workbooks.Add
objExlApp.Charts.Add
objExlApp.ActiveChart.ChartType = xlLine
objExlApp.ActiveChart.HasLegend = True
objExlApp.ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("O24"), PlotBy:=xlRows
......
Èç¹ûÀûÓÃVBÈ¥ÑéÖ¤Ò»¸ö´úÀí·þÎñÆ÷ÊÇ·ñ¿ÉÓ㬲¢ÇÒ¿ÉÒÔ·µ»ØÏìÓ¦µÄʱ¼ä£¡´óÏÀ´Í½Ì£¬±¾È˸սӴ¥Õâ·½ÃæµÄ֪ʶ£¬Ð¡µÜ·Ö²»¶à£¬ºÇºÇ£¡Ï£Íû´óÏÀ»ØÌû
½«´úÀí·þÎñÆ÷×÷Ϊһ¸öweb·þÎñÆ÷¶Ô´ý£¬Ö±½Ó·¢ËÍhttpÇëÇ󣬿´¿´ÄÜ·ñ·µ»Ø¡£
ÒýÓÃ
½«´úÀí·þÎñÆ÷×÷Ϊһ¸öweb·þÎñÆ÷¶Ô´ý£¬Ö±½Ó·¢ËÍhttpÇëÇ󣬿´¿´ÄÜ·ñ·µ»Ø¡£
Ö§³Ö
ÒýÓÃ
ÒýÓà 1 Â¥ ......
ÎÒÏëÓ÷½Ïò¼üʵÏÖ¶Ôvb textboxÖеÄÎı¾½øÐбê¼Ç£¬ÒÔʵÏÖÈçͬ¼Çʱ¾ÖÐshift+·½Ïò¼üÑ¡ÔñÎı¾µÄ¹¦ÄÜ£»¼´£ºÎÞÂÛ¹â±êÔÚÄĸöλÖÃÉÏ£¬µ±µ¥»÷Ò»¸ö°´Å¥ ¿ªÊ¼±ê¼Ç£©Ê±£¬¿ªÊ¼¸ßÁÁÏÔʾµ±Ç°µÄ×Ö·û£¬µ±ÔÙ°´ÁíÒ»¸ö°´Å¥£¨½áÊø±ê¼Ç£©Ê±£¬Í£Ö¹±ê¼Ç£¬Í¬Ê±½«Õⲿ·ÖÑ¡ÔñµÄÄÚÈݷŵ½¼ôÇаåÉÏ£»Òƶ¯¹â±êµ½ÆäËüλÖã¬ÎÒÔÙµ¥»÷Ò»¸ö°´Å¥£¨Õ³Ìù£©£¬¾Í¿ÉÒ ......
СµÜ×î½üÔÚ×ö¸öС³ÌÐò£¬ÏëÕÒÒ»¸ö±í¸ñ¿Ø¼þ£¬Ö÷ÒªÄÜʵÏÖÏñEXCELÒ»ÑùÄÜ¿¿Êó±êµã»÷¾ÍÄÜÊäÈëÒ»¸öÊý¾ÝÈ»ºóÄÜ°´Ò»¶¨Ë³Ðò°ÑÊý¾Ý¶Á³öÀ´¾ÍÐеģ¬Å¼ÊDzËÄñÀ²£¬¶Ô¸ß¼¶µÄ¿Ø¼þ²»ÊǺÜÁ˽⣬ÏëÇë½Ì¸÷λ´ó¸çʲô±í¸ñ¿Ø¼þÄÜÊʺÏÕâ¸öÒªÇóÄØ£¿{{ ......
ÎÒÒª×öÒ»¸ö½øÏú´æµÄÈí¼þ µ«ÊÇ µÚÒ»¸öÄÑÌâÊÇÔõôÉèÖÃȨÏÞÄØ ±ÈÈ糬¼¶¹ÜÀíÔ±½øÈëµÄ»°¾Í¿ÉÒÔ½øÐÐËùÓвÙ×÷µ«ÊÇÆÕͨ¹ÜÀí
Ô±½øÈ¥µÄ»° Ö»ÄܽøÐÐһЩС²Ù×÷ Ëû²Ù×÷µÄ»°¾Í»áÌáÐÑËû ÄúÎÞȨ²Ù×÷Õâ ¸ö ÔõôʵÏÖÄØ
Êý¾Ý¿âÖеÄÈËÔ±¹ÜÀí±í¼Ó¸ö±ê־룬Èç¡°1¡±±íʾ³¬¼¶¹ÜÀíÔ±£¬¡°0¡±±íʾÆÕͨ¹ÜÀíÔ±µÈ£¬È»ºóÔÚ³ÌÐòÖнøÐÐÅжÏÇø·Ö¹¦Ä ......