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дÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
ÓÃVBÔõôֻÕë¶Ôwindows×Ô´øµÄÎļþµÄÓÒ¼üÌí¼Ó²Ëµ¥ È磨.txt .doc)
Õâ¸öÊÇÖ»Õë¶ÔÒÔÕâÁ½¸öΪÀ©Õ¹ÃûµÄÎļþ²Ù×÷
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\txtfile\shell\[Ëæ±ãÆðÃû]\command]
@= ......
Çë¸÷λָµãÏ£º³ÌÐò´úÂëÈçÏÂmingchen = "C:\Îļþ·¾¶\"
cat = New ADOX.Catalog
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & min ......