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
Ïà¹ØÎÊ´ð£º
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
ÎÒÏë×ö¸öÓÃvb6×öµÄ³ÌÐò£¬¿ÉÒÔ¿ØÖÆGPRS MODEM²¦ºÅ£¬È粦ÎÒ×Ô¼ºµÄÊÖ»ú
¿ÉÒÔ°¡
ÄãÏÈϸöATÃüÁºÏѧϰѧϰ
ÎÒÀ´¶¥
¶¥Ìù
LZºÃÀ÷º¦
²»¶¥²»ÐÐ
ÀÏÊÇÅÅMP
ÒýÓÃ
LZºÃÀ÷º¦
......
ÓÐûÓк¼ÖݵÄÅóÓÑ£¬ÊìϤVBµÄ£¬ÓÐÐËȤ×öµÄ»°ÁôÏÂÁªÏµ·½Ê½
VB6 OR VB.NET?
¿Éϧ²»ÔÚº¼ÖÝ,遠³Ì¿É·ñ?
ÐǪ̈ÁªÏµ·½Ê½ÄØ
ÎÒÒ²ÁªÏµÒ»Ï£¬²»¹ýÔÚÄþ²¨
¿ÉϧÎÒÒ²²»ÔÚº¼ÖÝ
±±¾©µÄÐв»£¿
ÎÒÔÚËÕÖÝ£¬ ......
Çë¸÷λָµãÏ£º³ÌÐò´úÂëÈçÏÂmingchen = "C:\Îļþ·¾¶\"
cat = New ADOX.Catalog
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & min ......
×Ô¼º²ÉÓõÄÊÇSet objWMIService = GetObject("winmgmts:\\"&computername&"\root\cimv2")£¬ÆäÖÐcomputernameÊǾÖÓòÍøÒ»Ì¨µçÄÔµÄIP»ò¼ÆËã»úÃû£¬µ«Ê¹ÓÃÕâ¸öwmiÓï¾ä¶ÔÔ¶³Ì¼ÆËã»ú½øÐвÙ×÷ʱ ......