Russian LinkExchange Advertising Network

     Visual Basic Script -

MSIE 4.x!
!

.

, (BASIC - Begginners Allpurpose Symbolic Instruction Code, . :) . , . 1963 . . . , , Fortran, Cobol, Algol, PL/1, Focal Pascal. , , , .

Microsoft, ( Quick Basic). , Turbo Bacic Borland, C++. "" PC , Windows . 1991 Visual Basic, , . , , Visual Basic Java. Internet, HTML . Java Script. , . Microsoft Internet Explorer 3.0, , Java script Visual Basic Scripting Edition, VBscript. , JavaScript Netscape LiveScript. Java, Netscape JavaScript, Sun. Microsoft JScript , Sun.

Java, MSIE3.0 ( ), VBScript. Netscape Navigator (, ) VBScript, , . , QB , , VBscript , JavaScript . , , VBScript . VBScript, . , Web. :) .

C VBScript JavaScript.

VBScript, , JS VBS. , JavaScript ( :(.
: , "" .

Java Script VB Script





<FORM NAME=forma>
<INPUT TYPE="text" NAME="text1"><BR>
<INPUT TYPE="text" NAME="text2"><BR>
<INPUT TYPE="button" NAME="knopka" VALUE="" OnClick=copyfun()>
</FORM>

<SCRIPT LANGUAGE="JavaScript">

function copyfun()
{
var copytext;
copytext=document.forma.text1.value;
document.forma.text2.value=copytext;
}

</SCRIPT>

 <FORM NAME=forma>
<INPUT TYPE="text" NAME="text1"><BR>
<INPUT TYPE="text" NAME="text2"><BR>
<INPUT TYPE="button" NAME="knopka" VALUE="" OnClick=copyfun()>
</FORM>

<SCRIPT LANGUAGE="VBScript">

sub copyfun

dim copytext
copytext=document.forma.text1.value
document.forma.text2.value=copytext
end sub

</SCRIPT>

, , . JS , VBS (). , VBS JS , .. copyfun(), CoPYfuN() - :). , , , VBS, , . , . , (QB TB)? .

QuickBasic VBscript - .

. , " :)" "" - VBscript, - .
, , 1 100, . , , . . .

:



10 CLS : RANDOMIZE

20 a = INT ( RND(1)*100+1 ) : p = 1

30 PRINT "   1  100,  :)"

40 PRINT " ";

50 INPUT v

60 IF a > v THEN PRINT "  " :

      p = p + 1 : GOTO 40

70 IF a

, 0010:) GOTO (, ?). , :



10       .

20  "a"    

   1  100,     

  =1.

30, 40  .

50    "v".

60      , 

    ,    

         40.

70      ,  

    ,    

         40.

80      , ,

    ,      .

   90 THE END

:

<html>

<head>
<title> </title>
</head>

<body bgcolor="white" text="black">

< ... html VB ... >

<script language="VBscript">
... ...
</script>

</body>
</html>

, VBscript

" " :)



:

:

<FORM NAME=ugadai>
<INPUT TYPE="button" NAME="begin" VALUE=" "><BR><BR>
:<BR>
<INPUT TYPE="text" NAME="chislo"> <BR>
<INPUT TYPE="button" NAME="but" VALUE="Enter">
</FORM>

<!--************************* ******************************-->

<script language="vbscript"><!--




dim a		'  

dim p

dim v



sub begin_onclick 	'    

			  ( onclick)

			'    begin

 randomize		'    

 a=int(rnd(1)*100+1)	'   (a) 

			  

 p = 1			'  

 alert " " '      

end sub			'  



sub but_onclick		'    

			 ( onclick)    but



 v = document.ugadai.chislo.value 



'  (v)   

'     

' :  (  html ).   ugadai.

' -      chislo.  value



 v=cint(v)	'      

		' ,   (v)  -

 		'     ( cint)



 if a > v then

   alert "  ,  "

   p = p + 1

 end if



 if a < v then

   alert "  ,  "

   p = p + 1

 end if 

   

 if a = v then		  

   document.write"<center>  "&p&" .</center>"

 end if

		'  document.write  

		'       

		'  html .

				

end sub

--></script>

, . , :

__ , ? "a" "sub begin_onclick" "" ( "sub but_onclick" ). , , "a" . "public a" "dim a" "a" , . "dim a(100)" "a", . , .

__ ? . :
sub name_ ....... end sub.
name - , , " " "chislo", sub chislo_onclick .
- , "" . "onclick" , , , ( ). . : window_onload - :

<Script language="VBscript"><!--
Sub window_onload
Alert " !"
end sub
--></Script>



onmouseover - .


:

<a href="http://wanderfly.da.ru/" name="link">
</a>
<script language="vbscript"><!--
sub link_onmouseover
alert ""
end sub
--></script>

, "xxx", :) alert "" status=" ", .

__ "" ?

x = top._.document._.__text_box.value
, , .

. VBscript (, ..). - , "" .

. .

, VBscript. PRINT "" For Next x :)

.

Dim _ () dim a(10),b(20,30)
Erase _ erase a

.

= a=137 a=b c=""
Set = set a=document.forma1 .

.

' '  
Rem rem  

Boolean.

= False if a=false then ... boolean 0
= True if a=true then ... boolean -1

.

Product Highlight: Opticodec PC SE – The Next-Generation Encoding Solution

Broadcasting Compatibility: The software is designed to work seamlessly with streaming servers such as Icecast and Shoutcast, making it a staple for online radio stations.

Technical Specifications

Overall, I'm extremely satisfied with the OptiCode PC-SE. It's a powerful, reliable, and well-designed machine that's perfect for demanding tasks like software development, video production, and gaming. Highly recommended!"

  • If it’s a real but obscure product – You may need to:

    Key Features of OptiCodec PC SE

    In the world of computer hardware, there exist numerous devices that play a crucial role in enhancing the performance and functionality of our PCs. One such device is the OptiCodec PC SE, a cutting-edge codec solution designed to revolutionize the way we experience audio and video on our computers. In this article, we will delve into the features, benefits, and applications of the OptiCodec PC SE, exploring its capabilities and potential to transform your PC experience.

    • , :
    + And / = Eqv ^ > <= Imp <> \ < => Mod * - Or & Xor

    Opticodec Pc Se ((link)) ❲COMPLETE | REVIEW❳

    Product Highlight: Opticodec PC SE – The Next-Generation Encoding Solution

    Broadcasting Compatibility: The software is designed to work seamlessly with streaming servers such as Icecast and Shoutcast, making it a staple for online radio stations.

    Technical Specifications

    Overall, I'm extremely satisfied with the OptiCode PC-SE. It's a powerful, reliable, and well-designed machine that's perfect for demanding tasks like software development, video production, and gaming. Highly recommended!"

  • If it’s a real but obscure product – You may need to:

    Key Features of OptiCodec PC SE

    In the world of computer hardware, there exist numerous devices that play a crucial role in enhancing the performance and functionality of our PCs. One such device is the OptiCodec PC SE, a cutting-edge codec solution designed to revolutionize the way we experience audio and video on our computers. In this article, we will delve into the features, benefits, and applications of the OptiCodec PC SE, exploring its capabilities and potential to transform your PC experience.

    • Call _ Call but_onclick
    Do
    ...
    Loop Until     		Do
    a=a+1
    Loop Until a>=5    		 ,
    Do
    ...
    Loop While     		Do
    a=a+1
    Loop While a<5    		 ,
    Do Until
    ...
    Loop    		 Do Until a>=5
    a=a+1
    Loop    		 ,
    Do While
    ...
    Loop    		 Do While a<5
    a=a+1
    Loop    		 ,
    For = To Step
    ...
    next    		 For i=1 to 5
    a=a+1
    next    		 (: "next" "next i")
    IF Then
    1
    Else
    2
    End if    		 IF a>1 Then alert""
    Select Case X
    Case 1

    Case 2
    2
    ...
    End select    		 Select Case X
    Case 10
    alert"x=10"
    Case 20
    alert"x=20"
    End select
    While

    Wend    		 While a<5
    a=a+1
    Wend

    O

    Dim Dim a
    Sub _

    End sub    		 Sub but_onclick
    Alert x
    End sub
    Function ()

    End function    		 Function(x,y)
    x=x*y
    End function
    Exit ... Exit Do (For, Function, Sub)

    VBscript.

    , : , html (, , ..), , , . , .

    , .

    :

    

<html>



 <head>

   <script language="VBScript">

	Sub but_onclick

	 Alert " :)"

	End sub

   </script>

 </head>



 <body>

   <form>

	<input type="button" name="but">

   </form>

 </body>

</html>

    , , . name="" , "" , .

    :

    

<html>



 <head>

   <script language="VBScript">

	Sub scenariy

	 Alert " :)"

	End sub

   </script>

 </head>



 <body>

   <form>

	<input type="button" name="but" _

      onclick="scenariy" language="VBScript">

   </form>

 </body>

</html>

    Java Script. , , .

    :

    

<html>

 <body>

   <script language="VBScript">

	Alert " "

   </script>

 </body>

</html>

    .

    :

    

<html>

 

 <head>

   <script language="VBScript">

	Sub but_onclick

	  Call butalert(" ")

	End Sub



	Sub butalert(a)

	  Alert a

	End Sub

    </script>

 </head>



<body>

   <form>

	<input type="button" name="but" _

      onclick="scenariy" language="VBScript">

   </form>

 </body>

</html>

    , , :

    VBscript

    , "" , , (a$=""). VBscript , , VARIANT. . , , . , , "3" "2" "32":



    

<Script language="VBscript">

sub summa



 	  summatext1=document.formasum.summa1.value

	  summatext2=document.formasum.summa2.value

	  alert summatext1+summatext2



end sub

</Script>

    , summatext1 summatext2 Cint():



    

<Script language="VBscript">

sub summa



 	  summatext1=Cint(document.formasum.summa1.value)

	  summatext2=Cint(document.formasum.summa2.value)

	  alert summatext1+summatext2



end sub

</Script>

    VARIANT.


    Epty - , .
    Null - , .
    Boolean CBool(x) , True False
    Byte CByte(x) 0..255
    Integer CInt(x) -32768 .. 32768
    Long CLng(x) -2147483648 .. 2147483647
    Single CSngl(x)
    Double CDbl(x)
    Date/Time CDate(x) 1 100 31 9999
    Currency CCur(x)
    String CStr(x)
    Object - ole, html, ActiveX
    Error -

    VBscript

    .

    , : 

    

if a=1 and b=2 or c=3 then alert a

    

if    a=1 _

  and b=2 _

   or c=3 _

then alert a

    "" "&" "+", .. a="" b="" a&b=""

    , , <Script language="Vbscript><!-- --></script>

    , VBscript, , , ActiveX . , , ( :) " VBscript" . .

    !

    , , VBScript. , , , . 15 ! .

    (23.09.1998) www.midi.ru