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() </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 </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 |
.
Platforms like Reddit (e.g., r/EngineeringStudents), Quora, and specialized engineering forums are filled with students and educators who have solved these exact problems. If you are stuck on a specific problem from the book, posting the question text will often yield step-by-step guidance from peers. 3. Leverage Educational YouTube Channels
If you need help solving a from the book (e.g., “Chapter 12, Problem 5 on gyroscope”), I can provide a full, step-by-step solution in that “extra quality” format. Just send the problem statement.
: Detailed PDF solutions for various chapters (e.g., Chapter 11 on Belt, Rope, and Chain Drives) and overall exercise sets are hosted on sites like SlideShare Integrated Solutions
Many files labeled as "complete solution manuals" are often just copies of the textbook's front matter or random chapter snippets.
| , : + And / = Eqv ^ > <= Imp <> \ < => Mod * - Or & Xor |
Platforms like Reddit (e.g., r/EngineeringStudents), Quora, and specialized engineering forums are filled with students and educators who have solved these exact problems. If you are stuck on a specific problem from the book, posting the question text will often yield step-by-step guidance from peers. 3. Leverage Educational YouTube Channels
If you need help solving a from the book (e.g., “Chapter 12, Problem 5 on gyroscope”), I can provide a full, step-by-step solution in that “extra quality” format. Just send the problem statement.
: Detailed PDF solutions for various chapters (e.g., Chapter 11 on Belt, Rope, and Chain Drives) and overall exercise sets are hosted on sites like SlideShare Integrated Solutions
Many files labeled as "complete solution manuals" are often just copies of the textbook's front matter or random chapter snippets.
| 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" . .
!
(23.09.1998) www.midi.ru