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

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

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

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

ËÄ¡¢VBScript ÔËËã·û

VBScript ÓÐÒ»Ì×ÍêÕûµÄÔËËã·û£¬°üÀ¨ËãÊõÔËËã·û¡¢±È½ÏÔËËã·û¡¢Á¬½ÓÔËËã·ûºÍÂß¼­ÔËËã·û¡£

ËãÊõÔËËã·û ÃèÊö ÇóÃÝ ¸ººÅ ³Ë ³ý Õû³ý ÇóÓà ¼Ó ¼õ ×Ö·û´®Á¬½Ó ·ûºÅ ÃèÊö ^ - * / \\ µÈÓÚ ²»µÈÓÚ Ð¡ÓÚ ´óÓÚ Ð¡ÓÚµÈÓÚ ±È½ÏÔËËã·û Âß¼­ÔËËã·û ·ûºÅ ÃèÊö = <> < > <= >= Is Âß¼­·Ç Âß¼­Óë Âß¼­»ò Âß¼­Òì»ò Âß¼­µÈ¼Û Âß¼­Òþº¬ ·ûºÅ Not And Or Xor Eqv Imp Mod ´óÓÚµÈÓÚ + - & ¶ÔÏóÒýÓñȽÏ

Î塢ʹÓÃÌõ¼þÓï¾ä

ʹÓÃÌõ¼þÓï¾äºÍÑ­»·Óï¾ä¿ÉÒÔ¿ØÖÆ Script µÄÁ÷³Ì¡£Ê¹ÓÃÌõ¼þÓï¾ä¿ÉÒÔ±àд½øÐÐÅжϺÍÖØ¸´²Ù×÷µÄ VBScript ´úÂë¡£ÔÚ VBScript ÖпÉʹÓÃÒÔÏÂÌõ¼þÓï¾ä£º

If...Then...Else Óï¾ä Select Case Óï¾ä

ʹÓà If...Then...Else ½øÐÐÅжÏÀý³Ì£º

.....

If value = 0 Then b=1 End If .....

If b = 0 Then c=1 Else

c=2 End If .....

ʹÓà Select Case ½øÐÐÅжÏÀý³Ì£º

Select Case value Case 0

value=1 Case 1

value=2

Case 2

value=3 Case Else

value=4 End Select

Áù¡¢Ê¹ÓÃÑ­»·Óï¾ä

Ñ­»·ÓÃÓÚÖØ¸´Ö´ÐÐÒ»×éÓï¾ä¡£Ñ­»·¿É·ÖΪÈýÀࣺһÀàÔÚÌõ¼þ±äΪ False Ö®Ç°ÖØ¸´Ö´ÐÐÓï¾ä£¬Ò»ÀàÔÚÌõ¼þ±äΪ True Ö®Ç°ÖØ¸´Ö´ÐÐÓï¾ä£¬ÁíÒ»Àà°´ÕÕÖ¸¶¨µÄ´ÎÊýÖØ¸´Ö´ÐÐÓï¾ä¡£

ÔÚ VBScript ÖпÉʹÓÃÏÂÁÐÑ­»·Óï¾ä£º

? Do...Loop£º µ±£¨»òÖ±µ½£©Ìõ¼þΪ True ʱѭ»·¡£

? For...Next£º Ö¸¶¨Ñ­»·´ÎÊý£¬Ê¹ÓüÆÊýÆ÷ÖØ¸´ÔËÐÐÓï¾ä¡£

ʹÓà Do Ñ­»·Àý³Ì£º

myNum = 20

Do While myNum > 10 myNum = myNum - 1 counter = counter + 1 Loop

ʹÓà For...NextÀý³Ì£º

Dim j, total

For j = 2 To 10 Step 2 total = total + j Next

Æß¡¢Ê¹Óùý³Ì

VBScript ÖУ¬¹ý³Ì±»·ÖΪÁ½ÀࣺSub ¹ý³ÌºÍ Function ¹ý³Ì¡£ Sub ¹ý³Ì

Sub ¹ý³ÌÊǰüº¬ÔÚ Sub ºÍ End Sub Óï¾äÖ®¼äµÄÒ»×é VBScript Óï¾ä£¬Ö´ÐвÙ×÷µ«²»·µ»ØÖµ¡£Sub ¹ý³Ì¿ÉÒÔʹÓòÎÊý£¨Óɵ÷Óùý³Ì´«µÝµÄ³£Êý¡¢±äÁ¿»ò±í´ïʽ£©¡£Èç¹û Sub ¹ý³ÌÎÞÈκβÎÊý£¬Ôò Sub Óï¾ä±ØÐë°üº¬¿ÕÀ¨ºÅ ()¡£ ÀýÈ磺

Sub ConvertTemp(data) temp = data/128 End Sub Function ¹ý³Ì

Function ¹ý³ÌÊǰüº¬ÔÚ Function ºÍ End Function Óï¾äÖ®¼äµÄÒ»×é VBScript Óï¾ä¡£Function ¹ý³ÌÓë Sub ¹ý³ÌÀàËÆ£¬µ«ÊÇ Function ¹ý³Ì¿ÉÒÔ·µ»ØÖµ¡£Function ¹ý³Ìͨ¹ýº¯

ÊýÃû·µ»ØÒ»¸öÖµ£¬Õâ¸öÖµÊÇÔÚ¹ý³ÌµÄÓï¾äÖи³¸øº¯ÊýÃûµÄ¡£Function ·µ»ØÖµµÄÊý¾ÝÀàÐÍ×ÜÊÇ Variant¡£

Function Celsius(fDegrees)

Celsius = (fDegrees - 32) * 5 / 9 End Function

°Ë¡¢³£ÓÃSignal VBScript±ê×¼º¯Êý 1.Êýѧº¯Êý

Absº¯Êý£º·µ»ØÒ»¸öÊý×ֵľø¶ÔÖµ¡£ µ÷Ó÷½·¨£ºa=Abs(-100)

Ascº¯Êý£º·µ»Ø¶ÔÓ¦×Ö´®ÖеÚÒ»¸ö×ÖĸµÄ ANSI ×ÖÔªÂë¡£ µ÷Ó÷½·¨£ºa=Asc(\

Atnº¯Êý£º·µ»ØÒ»¸öÊý×ֵĻ¡ÕýÇÐÖµ(arctangent)¡£ µ÷Ó÷½·¨£ºa=Atn(1)*180/3.14

CDblº¯Êý£º·µ»ØÒÑת»»³É Double Ð͵Ä×Ö·û´®µÄÖµ¡£ µ÷Ó÷½·¨£ºa=Abs(\

Cosº¯Êý£º·µ»ØÒ»½Ç¶È(»¡¶È)µÄÓàÏÒÖµ¡£ µ÷Ó÷½·¨£ºa=Cos(60*(3.14/180))

CStrº¯Êý£º·µ»ØÒÑת»»³É×Ö·û´®µÄÊý×ÖÁ¿µÄÖµ¡£ µ÷Ó÷½·¨£ºa=Cstr(2.56)

Expº¯Êý£º·µ»Ø e (×ÔÈ»¶ÔÊýµÄµ×Êý) µÄij´Î·½¡£ µ÷Ó÷½·¨£ºa=Exp(1)

Intº¯Êý£º·µ»ØÊý×ÖµÄÕûÊý²¿·Ö¡£ µ÷Ó÷½·¨£ºa=Int(3.25)

Logº¯Êý£º·µ»ØÒ»¸öÊý×ÖµÄ×ÔÈ»¶ÔÊý¡£ µ÷Ó÷½·¨£ºa=Log(12)

Randomize£º³õʼ»¯Ëæ»úÊý²úÉúÆ÷¡£ µ÷Ó÷½·¨£ºRandomize Time

Rndº¯Êý£º·µ»ØÒ»¸öËæ»úÊý(0 µ½ 1)¡£ µ÷Ó÷½·¨£ºa=Rnd()

Roundº¯Êý£º·µ»ØÒѽøÎ»µ½Ö¸¶¨Ð¡ÊýλµÄÊý×Ö¡£ µ÷Ó÷½·¨£ºa=Round(2.75678,2)

Sgnº¯Êý£º·µ»ØÖ¸³öÊý×ÖÖ®Õý¸ººÅµÄÕûÊý¡£ µ÷Ó÷½·¨£ºa=Sgn(-11)

Sinº¯Êý£º·µ»ØÒ»¸ö½Ç¶È(»¡¶È)µÄÕýÏÒÖµ¡£ µ÷Ó÷½·¨£ºa=Sin(60*(3.14/180)) Sqrº¯Êý£º·µ»ØÒ»¸öÊý×ֵį½·½¸ù¡£ µ÷Ó÷½·¨£ºa=Sqr(9)

Tanº¯Êý£º·µ»ØÒ»¸ö½Ç¶ÈµÄÕýÇÐÖµ¡£ µ÷Ó÷½·¨£ºa=Tan(1)

Timeº¯Êý£º·µ»Ø Date ×ÓÀàÐ͵ĵ±Ç°ÏµÍ³Ê±¼ä¡£ µ÷Ó÷½·¨£ºa=Time()

2.Èí¼þ×ÜÏß½Ó¿Úº¯Êý

RunIC£ºÒÔÖ±½ÓÃüÁʽÇý¶¯Ò»×éÈí¼þоƬ¹¤×÷¡£

µ÷Ó÷½·¨£ºRunIC(\±àºÅ,IC2±àºÅ,...,ICn±àºÅ\Getline£º¶ÁÈ¡Èí¼þ×ÜÏßÊý¾ÝÏßµÄÖµ µ÷Ó÷½·¨£ºÖµ=Getline(ÏߺÅ) Setline£ºÉ趨Èí¼þ×ÜÏßµÄÖµ µ÷Ó÷½·¨£ºSetline ÏߺÅ,É趨ֵ

GetInterval£º¶ÁÈ¡Êý×éÐÍÊý¾ÝÏß(ÄÚ´æÌõоƬ)µÄÊý¾Ýµã¼ä¸ô µ÷Ó÷½·¨£ºÊý¾Ýµã¼ä¸ô=GetInterval(ÄÚ´æÌõоƬºÅ)

Document.getArrayStart£º¶ÁÈ¡Êý×éÐÍÊý¾ÝÏß(ÄÚ´æÌõоƬ)µÄÆðʼµã×ø±ê µ÷Ó÷½·¨£ºÊý¾Ýµã¼ä¸ô=Document.getArrayStart(ÄÚ´æÌõоƬºÅ)

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

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

Document.getarrayline 6000,2048,data

SetInterval£ºÉ趨Êý×éÐÍÊý¾ÝÏß(ÄÚ´æÌõоƬ)µÄÊý¾Ýµã¼ä¸ô µ÷Ó÷½·¨£ºSetInterval ÄÚ´æÌõоƬºÅ,Êý¾Ýµã¼ä¸ô ¡£

Document.setArrayStart£ºÉ趨Êý×éÐÍÊý¾ÝÏß(ÄÚ´æÌõоƬ)µÄÆðʼµã×ø±ê

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

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

Îĵµ¼ò½é£º

ËÄ¡¢VBScript ÔËËã·û VBScript ÓÐÒ»Ì×ÍêÕûµÄÔËËã·û£¬°üÀ¨ËãÊõÔËËã·û¡¢±È½ÏÔËËã·û¡¢Á¬½ÓÔËËã·ûºÍÂß¼­ÔËËã·û¡£ ËãÊõÔËËã·û ÃèÊö ÇóÃÝ ¸ººÅ ³Ë ³ý Õû³ý ÇóÓà ¼Ó ¼õ ×Ö·û´®Á¬½Ó ·ûºÅ ÃèÊö ^ - * / \\ µÈÓÚ ²»µÈÓÚ Ð¡ÓÚ ´óÓÚ Ð¡ÓÚµÈÓÚ ±È½ÏÔËËã·û Âß¼­ÔËËã·û ·ûºÅ ÃèÊö = = Is Âß¼­·Ç Âß¼­Óë Âß¼­»ò Âß¼­Òì»ò Âß¼­µÈ¼Û Âß¼­Òþº¬ ·ûºÅ Not And Or Xor Eqv Imp Mod ´óÓÚµÈÓÚ + - & ¶ÔÏóÒýÓÃ±È½Ï Î塢ʹÓÃÌõ¼þÓï¾ä ʹÓÃÌõ¼þÓï¾äºÍÑ­»·Óï¾ä¿ÉÒÔ¿ØÖÆ Script µÄÁ÷³Ì¡£Ê¹ÓÃÌõ¼þÓï¾ä¿ÉÒÔ±àд½øÐÐÅжϺÍÖØ¸´²Ù×÷µÄ VBScript ´úÂë¡£ÔÚ VBScr

¡Á ÓοͿì½ÝÏÂÔØÍ¨µÀ£¨ÏÂÔØºó¿ÉÒÔ×ÔÓɸ´ÖƺÍÅŰ棩
µ¥Æª¸¶·ÑÏÂÔØ
ÏÞÊ±ÌØ¼Û£º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