VB¶þ¶ÎÂëÒ»´Î´®¿Ú·¢ËÍ
µ±°´commmand1ʱ£¬¡°H96 H01 H03 HA0¡±£¬ÕâÊý¾ÝÔÚÄÄÄÜÁíʱ´æ´¢Ï£¬µÈ
µ±°´commmand2ʱ£¬¡°H95 H02 H04 HA0¡±¡£8λÊý¾ÝÄÜͬʱ·¢ËÍ´®¿Ú¡£
ÒòΪÔÚ°´ÏÂcommand1ºó£¬³ÌÐò²»ÒªÇóºÎʱ°´ÏÂcommand2.
ÎÒ×Ô¼º¿¼ÂÇÕâÑù£¬°´command1ʱ£¬½«Êý¾Ý´æÔÚÎı¾¿òÄÚ£¬µÈcommand2°´ÏÂÔÙÒ»Æð·¢ËÍ£¬ÓиüºÃµÄ·½·¨Âð£¿Ð»£¡
ʹÓÃÒ»¸öÊý×é±äÁ¿À´±£´æ¡£
ÁíÍâ H96?ÊÇ &H96 °É¡£
VB code:
Option Explicit
Dim bytHex() As Byte
Private Sub Command1_Click() '1ÃüÁõ½É豸µ±Ç°ÆµÂÊ
ReDim bytHex(1 To 8) As Byte
bytHex(1) = &H96
bytHex(2) = &H1 H03 HA0
bytHex(3) = &H3
bytHex(4) = &HA0
End Sub
Private Sub Command2_Click() '2ÃüÁõ½É豸µ±Ç°Î¶È
bytHex(5) = &H95
bytHex(6) = &H2
bytHex(7) = &H4
bytHex(8) = &HA0
MSComm1.Output = strSend
End Sub
Private Sub Form_Load()
MSComm1.CommPort = 1 'PortNo
MSComm1.Settings = "9600,n,8,1"
MSComm1.InBufferCount = 0
MSComm1.OutBufferCount = 0
MSComm1.InputMode = comInputModeBinary
MSComm1.RThreshold = 1
MSComm1.PortOpen = True
MSComm1.InputLen = 0
End Sub
Áô¸ö¼ÇºÅ
дµÃ´Ò棬ÐÞÕý´íÎó£º
VB code:
Option Explic
Ïà¹ØÎÊ´ð£º
Çë½ÌһϣºÎÒÓÃ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»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ½â¾ö¡£
Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
Picture1.Left = -HScroll1.Value + bcW ' ......