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 |
.
The white dwarf designated "458" is waiting in the digital stacks. Its PDF holds the light—literally—of a dead star, and through that light, we read the history of the galaxy. Start your search today, and contribute to the ever-growing story of stellar remnants.
During this period, Games Workshop was heavily pushing Warcry (their skirmish game). Issue 458 included a detailed guide on running narrative tournaments for Warcry.
💡 : If you are looking for the specific rules (like the Tome Keepers Index), many community sites like Goonhammer provide detailed breakdowns of the mechanics even if you don't have the full PDF. If you'd like, I can help you find: Specific rules or datasheets from this issue. Painting guides for the Tome Keepers.
I should verify if WD 458 is a known white dwarf. A quick search shows that there isn't a widely known white dwarf by that exact name, so perhaps the user is referring to a specific paper or a less-documented object. If there's no such object, I might have to frame the article around hypothetical or the role of white dwarf research, emphasizing that such studies often result in detailed PDF papers.
| , : + And / = Eqv ^ > <= Imp <> \ < => Mod * - Or & Xor |
The white dwarf designated "458" is waiting in the digital stacks. Its PDF holds the light—literally—of a dead star, and through that light, we read the history of the galaxy. Start your search today, and contribute to the ever-growing story of stellar remnants.
During this period, Games Workshop was heavily pushing Warcry (their skirmish game). Issue 458 included a detailed guide on running narrative tournaments for Warcry.
💡 : If you are looking for the specific rules (like the Tome Keepers Index), many community sites like Goonhammer provide detailed breakdowns of the mechanics even if you don't have the full PDF. If you'd like, I can help you find: Specific rules or datasheets from this issue. Painting guides for the Tome Keepers.
I should verify if WD 458 is a known white dwarf. A quick search shows that there isn't a widely known white dwarf by that exact name, so perhaps the user is referring to a specific paper or a less-documented object. If there's no such object, I might have to frame the article around hypothetical or the role of white dwarf research, emphasizing that such studies often result in detailed PDF papers.
| 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