ÔÆÌ⺣ - רҵÎÄÕ·¶ÀýÎĵµ×ÊÁÏ·ÖÏíÆ½Ì¨

µ±Ç°Î»ÖãºÊ×Ò³ > ʵÑ飺ѧÓÃDRVI¿ÉÖØ¹¹ÐéÄâÒÇÆ÷ʵÑéÆ½Ì¨

ʵÑ飺ѧÓÃDRVI¿ÉÖØ¹¹ÐéÄâÒÇÆ÷ʵÑéÆ½Ì¨

  • 62 ´ÎÔĶÁ
  • 3 ´ÎÏÂÔØ
  • 2025/5/4 4:07:09

µ÷Ó÷½·¨£ºDocument.setArrayStart ÄÚ´æÌõоƬºÅ,Æðʼµã×ø±ê

Document.setarrayline£ºÓÃÊý×éÖµÉ趨Êý×éÐÍÊý¾ÝÏß(ÄÚ´æÌõоƬ)ÉϵIJ¨ÐλòƵÆ×Êý¾Ý µ÷Ó÷½·¨£ºDocument.setarrayline ÄÚ´æÌõоƬºÅ,¶ÁÈ¡µãÊý,Êý×éÃû

×¢Ò⣺¶ÔÓÚVBScript£¬Æä±äÁ¿³õʼ»¯ÎªVARIANT²»¶¨ÐÍ£¬¸Ãº¯ÊýÖеÄÊý×éÊÇDoubleÐÍ£¬Ê¹ÓÃǰÏÈÐè¶ÔÆä½øÐÐDouble¸³Öµ£¬Ç¿ÖÆ×ª»»ÎªDoubleÀàÐÍ£¬ÈçÏÂËùʾ£º Dim data(2048),data1(2048) For K = 0 To 2047 data(k)=0.00001 Next ......

Document.setarrayline 6000,2048,data

Document.setICdata:É趨Èí¼þоƬµÄÊý×ÖÐͲÎÊý

µ÷Ó÷½·¨£ºDocument.setICdata Èí¼þоƬºÅ£¬²ÎÊýÔÚÊôÐÔ±íÖеÄλÖ㨵ÚÒ»ÏîΪÁ㣩£¬ÊýÖµ Document.setICstr:É趨Èí¼þоƬµÄ×Ö·ûÐͲÎÊý

µ÷Ó÷½·¨£ºDocument.setICstr Èí¼þоƬºÅ£¬²ÎÊýÔÚÊôÐÔ±íÖеÄλÖ㨵ÚÒ»ÏîΪÁ㣩£¬×Ö·û´®

Document.setIPAddrLine:É趨IPµØÖ·ÏßµÄ×Ö·û´®Êý¾Ý µ÷Ó÷½·¨£ºDocument.setIPAddrLine IPµØÖ·Ïߺţ¬×Ö·û´® Document.getIPAddrLine:È¡IPµØÖ·ÏßÊý¾Ý

µ÷Ó÷½·¨£ºIP=Document.getIPAddrLine(IPµØÖ·ÏߺÅ) ·µ»ØÖµ£º×Ö·û´®

3.ͼÐκ¯Êý

Document.Write£ºÔÚ(x,y)ÓÃÉ«²Êcд×Ö·û´®Str¡£ µ÷Ó÷½·¨£ºDocument.Write x,y,c,\

Document.WriteEx£ºÔÚ(x,y)ÓÃÉ«²Êcдhµã¸ß¶ÈµÄ×Ö·û´®Str¡£ µ÷Ó÷½·¨£ºDocument.WriteEx x,y,c,h,\

Document.DrawLine£ºÔÚ(x1,y1)µ½(x2,y2)¼äÓÃÉ«²Êc»­Ò»ÌõÖ±Ïß¡£ µ÷Ó÷½·¨£ºDocument.DrawLine x1,y1,x2,y2,c

Document.drawbar£ºÓÃÉ«²ÊcÌî³ä(x,y)µ½(x+w,y+h)µÄ¾ØÐÎÇøÓò¡£ µ÷Ó÷½·¨£ºDocument.drawbar x,y,w,h,c

Document.Fillcircle£ºÓÃÉ«²ÊcÌî³ä(x,y)ΪԲÐÄ£¬rΪ°ë¾¶µÄÔ²ÐÎÇøÓò¡£ µ÷Ó÷½·¨£ºDocument.Fillcircle x,y,r,c

Document.Circle£ºÓÃÉ«²ÊcÒÔ(x,y)ΪԲÐÄ£¬rΪ°ë¾¶»­Ô²¡£ µ÷Ó÷½·¨£ºDocument.Circle x,y,r,c

Document.Rectangle£ºÓÃÉ«²ÊcÒÔ(x,y)ºÍ(x+w,y+h)Ϊ¶Ëµã»­¾ØÐΡ£ µ÷Ó÷½·¨£ºDocument.Rectangle x,y,w,h,c

Document.Arc£ºÓÃÉ«²ÊcÒÔ(x,y)ΪԲÐÄ£¬rΪ°ë¾¶»­Ô²£¬a1¡¢a2ΪÆðʼ½ÇºÍÖÕÖ¹½Ç»­Ô²»¡¡£ µ÷Ó÷½·¨£ºDocument.Arc x,y,r,a1,a2,c

Document.Setcolor£ºÓú졢ÂÌ¡¢À¶ÈýÔ­É«ºÏ³ÉÉ«²Ê¡£ µ÷Ó÷½·¨£ºDocument.Setcolor red,green,blue º¯Êý·µ»ØÖµ£ºÍ¼Ðκ¯ÊýÖÐʹÓõÄÉ«²ÊÂë¡£ Document.DrawDot£ºÓÃÉ«²Êc,ÔÚ(x,y)»­µã¡£ µ÷Ó÷½·¨£ºDocument.DrawDot x,y,c

Document.Draw3Dline£ºÓÃÉ«²Êc1,c2,ÔÚ(x1,y1)ºÍ(x2,y2)¼äÒÔ¼ä¾àd»­3άЧ¹ûµÄÖ±Ïß¡£ µ÷Ó÷½·¨£ºDocument.Draw3DLine x1,y1,x2,y2,d,c1,c2

Document.Draw3DEdge£ºÓÃÉ«²Êc1,c2,ÒÔ(x,y)ºÍ(x+w,y+h)Ϊ¶Ëµã»­3άЧ¹ûµÄ¾ØÐΡ£ µ÷Ó÷½·¨£ºDocument.Draw3DEdge x,y,w,h,c1,c2 .

4.³£ÓÃͼÐÎÉ«²ÊÂë±í£º

Value Color 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Black Blue Green Cyan Red Magenta Brown Light Gray Dark Gray Light Blue Light Green Light Cyan Light Red Light Magenta Yellow White

.

5.Îļþ²Ù×÷

1)ÎļþÑ¡Ôñ¶Ô»°´°£º

ÃèÊö£ºµ¯³öÎļþÑ¡Ôñ¶Ô»°´°£¬Ñ¡Ôñ¶ÁÅÌ»ò´æÅÌÎļþÃû¡£

Óï·¨£ºValue=Document.FileDialog(long type, LPCTSTR ext)

²ÎÊý£ºType=0:´ò¿ª¶ÁÎļþ¶Ô»°´°£¬Type=1:´ò¿ª´æÎļþ¶Ô»°´°;ext=ÎļþÀàÐÍ ·µ»ØÖµ£º-1=È¡Ïû£¬0=È·¶¨£¬Ñ¡ÔñµÄÎļþ´æ·ÅÔÚDocument.BufferÖÐ ÑùÀý£º

rc=Document.FileDialog(0,\ If rc = 0 Then

name=Document.Buffer End If

2)Îı¾Îļþ¶Á/д£º

ÃèÊö£º´ò¿ªÖ¸¶¨µÄÎļþ²¢·µ»ØÒ»¸ö TextStream ¶ÔÏ󣬿ÉÒÔ¶ÁÈ¡´Ë¶ÔÏó»ò½«Æä×·¼Óµ½Îļþ¡£ Óï·¨£ºobject.OpenTextFile(filename[, iomode[, create[, format]]])

²¿·Ö object ÃèÊö ±ØÑ¡¡£Ó¦Îª FileSystemObject ¶ÔÏóµÄÃû³Æ¡£ filename ±ØÑ¡¡£Ö¸Ã÷Òª´ò¿ªµÄÎļþÃû³Æ¡£ iomode create ¿ÉÑ¡¡£ÊäÈë/Êä³öģʽ£¬ÊÇÏÂÁÐÁ½¸ö³£ÊýÖ®Ò»£º1=ForReading »ò 2=ForWriting¡£ ¿ÉÑ¡¡£Boolean Öµ£¬Ö¸³öµ±Ö¸¶¨µÄ filename ²»´æÔÚʱÊÇ·ñÄܹ»´´½¨ÐÂÎļþ¡£ÔÊÐí´´½¨ÐÂÎļþʱΪ True£¬·ñÔòΪ False¡£Ä¬ÈÏֵΪ False¡£ format ¿ÉÑ¡¡£0=ASCII¸ñʽÎļþ£¬-1=Unicode¸ñʽÎļþ¡£

дÎļþÑùÀý£º

Dim fs, f

Set fs=CreateObject(\ Set f = fs.OpenTextFile(\ f.WriteLine \àË£¬ÄãºÃ£¡\ f.Close

¶ÁÎļþÑùÀý£º

Dim fs, f

Set fs=CreateObject(\ Set f = fs.OpenTextFile(\ textin=f.readLine() f.Close

3)¶þ½øÖÆÎļþ¶Á/д£º

Document.openfile:´ò¿ª¶þ½øÖÆÎļþÓÃÓÚÎļþ¶Áд µ÷Ó÷½·¨£ºDocument.openfile type, name

²ÎÊý˵Ã÷£ºtype- 0=´ò¿ªÎļþÓÃÓÚ¶Á²Ù×÷£»1=´ò¿ªÎļþÓÃÓÚд²Ù×÷ ²ÎÊý˵Ã÷£ºname- ÎļþÃûºÍ·¾¶

Document.closefile£º¹Ø±Õ´ò¿ªµÄÎļþÁ÷ µ÷Ó÷½·¨£ºDocument.closefile

Document.readdata£º¶Á¶þ½øÖÆÊý¡£

µ÷Ó÷½·¨£ºdata=Document.readdata(type)

²ÎÊý˵Ã÷£ºtype- 0=¶ÁÒ»¸öchar×Ö·û£»1=¶ÁÒ»¸öshortÁ¿£»2=¶ÁÒ»¸ölongÁ¿£»3=¶ÁÒ»¸öfloatÁ¿£»4=¶ÁÒ»¸ödoubleÁ¿

Document.writedata£ºÐ´¶þ½øÖÆÊý¡£

µ÷Ó÷½·¨£ºDocument.writedata type, data

²ÎÊý˵Ã÷£ºtype- 0=дһ¸öchar×Ö·û£»1=дһ¸öshortÁ¿£»2=дһ¸ölongÁ¿£»3=дһ¸öfloatÁ¿£»4=дһ¸ödoubleÁ¿ ²ÎÊý˵Ã÷£ºdata - дÈëµÄÊý¾Ý

×¢£ºÓû§¿ÉÒÔÓÃÎı¾Îļþ¶Á/д¡¢¶þ½øÖÆÎļþ¶Áдº¯Êý±àÖÆ×Ô¼ºµÄÌØÊâ¸ñʽµÄÊý¾ÝÎļþ¶ÁдVBScriptÀ©Õ¹Ð¾Æ¬²å¼þ¡£

6.¶Ë¿Ú²Ù×÷º¯Êý

Document.Initport£º³õʼ»¯¶Ë¿Ú²Ù×÷¡£ µ÷Ó÷½·¨£ºDocument.Initport()

Document.Inport£º´ÓÖ¸¶¨¶Ë¿ÚµØÖ·¶ÁÊý¾Ý¡£ µ÷Ó÷½·¨£ºvalue=Document.Inport(address,size) ²ÎÊý˵Ã÷£ºaddress-¶Ë¿ÚµØÖ·

²ÎÊý˵Ã÷£ºsize-¶ÁÈëµÄ×Ö½ÚÊý£¬1=inportbyte£¬2=inportword£¬3=inportdword Document.Outport£º´ÓÖ¸¶¨¶Ë¿ÚµØÖ·Ð´Êý¾Ý¡£

µ÷Ó÷½·¨£ºDocument.Outport address,value,size ²ÎÊý˵Ã÷£ºaddress-¶Ë¿ÚµØÖ· ²ÎÊý˵Ã÷£ºvalue-д³öµÄÊýÖµ

²ÎÊý˵Ã÷£ºsize-дµÄ×Ö½ÚÊý£¬1=outportbyte£¬2=outportword£¬3=outportdword

7.´®ÐпÚͨѶº¯Êý

Document.OpenCom£º³õʼ»¯´®Ðпڡ£

µ÷Ó÷½·¨£ºRc=Document.OpenCom(port,baud) ²ÎÊý˵Ã÷£ºport:´®Ðпںţ¬È¡1,2,3

²ÎÊý˵Ã÷£ºbaud:²¨ÌØÂÊ£¬9800£¬19200£¬......

  • ÊÕ²Ø
  • Î¥¹æ¾Ù±¨
  • °æÈ¨ÈÏÁì
ÏÂÔØÎĵµ10.00 Ôª ¼ÓÈëVIPÃâ·ÑÏÂÔØ
ÍÆ¼öÏÂÔØ
±¾ÎÄ×÷Õߣº...

¹²·ÖÏí92ƪÏà¹ØÎĵµ

Îĵµ¼ò½é£º

µ÷Ó÷½·¨£ºDocument.setArrayStart ÄÚ´æÌõоƬºÅ,Æðʼµã×ø±ê Document.setarrayline£ºÓÃÊý×éÖµÉ趨Êý×éÐÍÊý¾ÝÏß(ÄÚ´æÌõоƬ)ÉϵIJ¨ÐλòƵÆ×Êý¾Ý µ÷Ó÷½·¨£ºDocument.setarrayline ÄÚ´æÌõоƬºÅ,¶ÁÈ¡µãÊý,Êý×éÃû ×¢Ò⣺¶ÔÓÚVBScript£¬Æä±äÁ¿³õʼ»¯ÎªVARIANT²»¶¨ÐÍ£¬¸Ãº¯ÊýÖеÄÊý×éÊÇDoubleÐÍ£¬Ê¹ÓÃǰÏÈÐè¶ÔÆä½øÐÐDouble¸³Öµ£¬Ç¿ÖÆ×ª»»ÎªDoubleÀàÐÍ£¬ÈçÏÂËùʾ£º Dim data(2048),data1(2048) For K = 0 To 2047 data(k)=0.00001 Next ...... Document.setarrayline 6000,2048,data Document.setICdata:É趨Èí¼þоƬ

¡Á ÓοͿì½ÝÏÂÔØÍ¨µÀ£¨ÏÂÔØºó¿ÉÒÔ×ÔÓɸ´ÖƺÍÅŰ棩
µ¥Æª¸¶·ÑÏÂÔØ
ÏÞÊ±ÌØ¼Û£º10 Ôª/·Ý Ô­¼Û:20Ôª
VIP°üÔÂÏÂÔØ
ÌØ¼Û£º29 Ôª/Ô ԭ¼Û:99Ôª
µÍÖÁ 0.3 Ôª/·Ý ÿÔÂÏÂÔØ150·Ý
ȫվÄÚÈÝÃâ·Ñ×ÔÓɸ´ÖÆ
VIP°üÔÂÏÂÔØ
ÌØ¼Û£º29 Ôª/Ô ԭ¼Û:99Ôª
µÍÖÁ 0.3 Ôª/·Ý ÿÔÂÏÂÔØ150·Ý
ȫվÄÚÈÝÃâ·Ñ×ÔÓɸ´ÖÆ
×¢£ºÏÂÔØÎĵµÓпÉÄÜ¡°Ö»ÓÐĿ¼»òÕßÄÚÈݲ»È«¡±µÈÇé¿ö£¬ÇëÏÂÔØÖ®Ç°×¢Òâ±æ±ð£¬Èç¹ûÄúÒѸ¶·ÑÇÒÎÞ·¨ÏÂÔØ»òÄÚÈÝÓÐÎÊÌ⣬ÇëÁªÏµÎÒÃÇЭÖúÄã´¦Àí¡£
΢ÐÅ£ºfanwen365 QQ£º370150219
Copyright © ÔÆÌ⺣ All Rights Reserved. ËÕICP±¸16052595ºÅ-3 ÍøÕ¾µØÍ¼ ¿Í·þQQ£º370150219 ÓÊÏ䣺370150219@qq.com