Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VB´®¿Ú¶ÁÖµµÄÎÊÌâ

  ÓÐÒ»¸öÎÂʪ¶È±äËÍÆ÷£¬Êä³öµÄÊÇ485Ðźţ¬ÎÒÓÃ485ת232ºó£¬ÓÃCOM1¿Ú¶Á£¬µ«±äËÍÆ÷ËͳöµÄÊÇÁ¬ÐøµÄ¡°23¶È£¨¶ÈµÄ·ûºÅ£©46%¡±£¬ÎÒÈçºÎ°ÑËüÃÇÇø·Ö¿ª£¬ÔÚ´°¿ÚÉÏ·Ö±ðÏÔʾÊýÖµ£¿
û̫Ã÷°×,°ï¶¥ÁË~~~

      ¾ÍÊÇCOM¿ÚÊÕµ½µÄÊÇÎÂʪ¶ÈÁ¬ÔÚÒ»ÆðµÄÊýÖµ£¬¶øÎÒµÄÉÏλ»úÊÇÒªÏ뽫Ρ¢Êª¶ÈµÄÖµ·Ö±ð¶Á³ö¡£ 

s = Label1
a = InStr(s, "°")
Label1 = Mid(s, 1, a) & " " & Mid(s, a + 1, Len(s))

VB code:

Private Sub Form_Load()
´®¿ÚÊý¾Ý = "23°46%"
s = ´®¿ÚÊý¾Ý
a = InStr(s, "°")
text1 = Mid(s, 1, a)
text2 = Mid(s, a + 1, Len(s))
End Sub



ÊÇ232ת485°É£¿
Ôõô½ØÈ¡Êý¾ÝÄã¿ÉÒÔÒÀ¾ÝÄãµÄͨÐÅЭÒéÀ´×ö°¡£¬Ã¿¸ö×Ö½Ú¶¼ÓÐ×Ô¼ºµÄº¬ÒåµÄ£¬ÒÀ¾ÝͨÐÅЭÒé¾Í¿ÉÒԷָ

°´Í¨ÐÅÊý¾Ý¸ñʽ½ØÈ¡×Ö·û´®£¬È»ºó·Ö±ðÏÔʾ¡£

  ͨѶ¾ÍÊÇCOM1 9600£¬N£¬8£¬1
  ¹Ø¼üÓÐÒ»µã£¬Ëü´«Ë͵ľÍÊÇΡ¢Êª¶ÈµÄÊýÖµÊÇÁ¬ÔÚÒ»ÆðµÄ£¬²»Öªµ½ÈçºÎÔØÈ¡
    È磨23°46%23°46%23°46%23.5°46%23°47%¡¢¡¢¡¢¡¢¡¢¡¢¡¢¡¢¡¢£©
    ÕâÑù²ÅÄÜ×öµ½ÎÒÔØÈ¡µÄÕýºÃÊÇ23°¶ø²»»áÊÇ¡°3°4¡±»òÊÇ¡°23°4¡±µÈµÈ

Êý·ûÊýÈç¹û¶¼ÊÇ6λµÄ»°£¬Äܲ»ÄÜÉèÖÃÿÁù¸ö×Ö·û½ÓÊÕÒ»´Î£¬È»ºó¶ÔÕâ¸ö×Ö·û´®½ØÈ¡£¿

Õâµ½²»ÊǺܶ®£¬ÇëÏêϸָµãÏÂ

VB code



Code highlighting produced by Actipro CodeHighlighter (freeware)
http://www.CodeHighlighter.c


Ïà¹ØÎÊ´ð£º

VBÈçºÎ×èֹij³ÌÐòÔËÐС££¿

±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£

ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£

È»ºóÔÊÐíºó·ÅÐС£


±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£

¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£

ÉèÖ ......

vb¿ØÖÆGPRS MODEM²¦ºÅ

ÎÒÏë×ö¸öÓÃvb6×öµÄ³ÌÐò£¬¿ÉÒÔ¿ØÖÆGPRS MODEM²¦ºÅ£¬È粦ÎÒ×Ô¼ºµÄÊÖ»ú
¿ÉÒÔ°¡
ÄãÏÈϸöATÃüÁºÏѧϰѧϰ

ÎÒÀ´¶¥

¶¥Ìù

LZºÃÀ÷º¦

²»¶¥²»ÐÐ

ÀÏÊÇÅÅMP
ÒýÓÃ
LZºÃÀ÷º¦
......

ÊìϤVBµÄ½øÀ´£¬ÓÐÏîÄ¿


ÓÐûÓк¼ÖݵÄÅóÓÑ£¬ÊìϤVBµÄ£¬ÓÐÐËȤ×öµÄ»°ÁôÏÂÁªÏµ·½Ê½
VB6 OR VB.NET?
¿Éϧ²»ÔÚº¼ÖÝ,遠³Ì¿É·ñ?

ÐǪ̈ÁªÏµ·½Ê½ÄØ

ÎÒÒ²ÁªÏµÒ»Ï£¬²»¹ýÔÚÄþ²¨

¿ÉϧÎÒÒ²²»ÔÚº¼ÖÝ

±±¾©µÄÐв»£¿

ÎÒÔÚËÕÖÝ£¬ ......

vb.net ´´½¨accessÊý¾Ý±íʵÏÖÒ»Êý¾Ý¿â¶à¸öÊý¾Ý±í£¿

Çë¸÷λָµãÏ£º³ÌÐò´úÂëÈçÏÂmingchen = "C:\Îļþ·¾¶\"
cat = New ADOX.Catalog
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & min ......

vbÖÐÈçºÎÐ޸ľÖÓòÍøµçÄÔµÄÍø¹Ø»òdns?

×Ô¼º²ÉÓõÄÊÇSet objWMIService = GetObject("winmgmts:\\"&computername&"\root\cimv2")£¬ÆäÖÐcomputernameÊǾÖÓòÍøÒ»Ì¨µçÄÔµÄIP»ò¼ÆËã»úÃû£¬µ«Ê¹ÓÃÕâ¸öwmiÓï¾ä¶ÔÔ¶³Ì¼ÆËã»ú½øÐвÙ×÷ʱ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ