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

ÇóÖúVBͨѶÊý¾Ýʶ±ð

VBѧµÄÓõͼ²»¾«£¬±à¸ö³ÌÐòÓÃÁ˺ܳ¤Ê±¼äÁË£¬ÏÖÔÚÕâ¸öͨѶ²¿·Ö»¹Ã»×öºÃ£¬ÇóÖú´ó¼Òһϣº
  ctrMSComm.Output = "@01R"    '¶ÁÃüÁî
   instar = ctrMSComm.Input         '¶ÁͨѶ
wy_I = val(HEX_to_DEC(Mid(instar, 29, 4))) * (20 / 4095#)
   wy = Format(5 * wy_I - 15, "0.000")
Çë½ÌһϠ(20 / 4095#) ʲôÒâË¼ÄØ£¿
"@01R"   ÓÃÕâ¸ö ¶ÁÃüÁî ¶Á½øÀ´µÄÊý¾Ý²»»áʶ±ð£¬Çë½ÌÏÂÓÐÈËÖªµÀÔõô´¦ÀíÂð£¿
лл´ó¼Ò


Ïà¹ØÎĵµ£º

תVB ×Ö·û´®´¦Àíº¯Êý¼¯ ÊÕ²Ø

 

VB ×Ö·û´®´¦Àíº¯Êý¼¯

ÊÕ²Ø



mid(×Ö·û´®£¬´ÓµÚ¼¸¸ö¿ªÊ¼£¬³¤¶È)
  ÔÚ[×Ö·û´®]ÖÐ[´ÓµÚ¼¸¸ö¿ªÊ¼]È¡³ö[³¤¶È¸ö×Ö·û´®] 
ÀýÈç mid("СÐÀÎÞµÐ",1,3) Ôò·µ»Ø "СÐÀÎÞ" 
instr(´ÓµÚ¼¸¸ö¿ªÊ¼,×Ö·û´®1,×Ö·û´®2)
´Ó¹æ¶¨µÄλÖÿªÊ¼²éÕÒ ......

ÈçºÎÓÃvb²¥·Å»ÃµÆÆ¬

ÈçºÎÈÃ»ÃµÆÆ¬ÔÚvbµÄ¿ò¼ÜÀï²¥·Å
'Microsoft PowerPoint 9.0(Office 2000µÄ£¬Èç¹ûÊÇ97ÔòÊÇ8.0) Object Library)
''Microsoft PowerPoint 11.0(Office 2003) Object Library)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'ÑÓʱAPIÉùÃ÷
Private Sub Form_Load()
Dim ppt As New PowerPoint. ......

ÓÀÔ¶µÄħÁé by ¹ùÎÀ VB³ÌÐòÉè¼ÆÔ´ÂëÈ«¼Ò¸£

 
 
'*************************************************************************
**˵ Ã÷£ºÓÀÔ¶µÄħÁé by icecept(¹ùÎÀ£©
'**´´ ½¨ ÈË£ºicecept(ħÁé)
'**ÈÕ ÆÚ£º2009-11-15 20:27:03
'**ÐÞ ¸Ä ÈË£ºicecept(ħÁé)
'**°æ ±¾£ºV1.0.0
'**E-mail   £ºicecept@163.com QQ£º543375508
'**Íø ......

VBʵÏÖÈí¼þÊÔÓÃÆÚ

 ´ó¼Ò¶¼ÖªµÀ¹²ÏíÈí¼þ¶¼ÓÐËüÃǵÄÊÔÓÃÆÚ£¬¼´¸øÄãÒ»¸ö¹Ì¶¨µÄÆÚÏÞÃâ·ÑʹÓᣠ  
 Ó¦ÓеŦÄÜ£º
    1£©¸ø¶¨Ò»¸öÊÔÓÃÆÚÏÞ£¬ÔÚϵͳÿ´ÎÆô¶¯Ê±»áÅжÏÈí¼þÒѾ­Ê¹ÓÃÁ˼¸Ì죬»¹Óм¸Ìì¿ÉÒÔ¼°Æô¶¯µÄ´ÎÊý¡£
    2£©µ±ÏµÍ³ÈÕÆÚ±»Ð޸ijÉÍùÈÕµÄÈÕÆÚºó£¬ÏµÍ³ÄÜ×Ô¶¯Åб𣬽ûÖ¹ÐÞ¸ÄÈÕÆÚ £¬²»Ó ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ