��� ������� �������� ��������� ������
� 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 |
�������.
: A common recurring fashion element in related aesthetic searches.
If "vecina tetona top" refers to a cultural or fashion phenomenon, your paper could explore its origins, its impact on society or the fashion industry, and how it has evolved over time. vecina tetona top
On the other hand, the emphasis on physical attributes can also have negative consequences, perpetuating unrealistic beauty standards and contributing to body dissatisfaction. The constant bombardment of idealized images can lead to feelings of inadequacy and low self-esteem, particularly among young women. : A common recurring fashion element in related
From the pages of classic novels to modern television sitcoms, the proximity of a compelling neighbor provides a natural source of conflict, humor, or romance, driving engagement through the "familiar yet distant" dynamic. Cultural Impact and Social Media The constant bombardment of idealized images can lead
So, why does the "vecina tetona top" captivate audiences? Research suggests that the attraction to curvy women is rooted in a combination of biological, psychological, and cultural factors. For some, the appeal lies in the perceived fertility and femininity associated with a voluptuous figure. Others may find curvy women more attractive due to the cultural significance placed on curves as a symbol of beauty and abundance.
Since the phrase translates to "busty neighbor top" (often used in social media trends or character archetypes), a "solid piece" of content usually focuses on one of the following: 1. Fashion & Styling (The "Neighbor Next Door" Aesthetic)
The constant exposure to idealized body types can affect individuals' perceptions of their own bodies, influencing self-esteem and body satisfaction. For some, it may inspire body positivity and self-acceptance, while for others, it can lead to body dissatisfaction and mental health issues.
��������� ������������ � ����������
| ������� ������ ������, ������� ��� � ��� ����: + And / = Eqv ^ > <= Imp <> \ < => Mod * - Or & Xor |
��������� �������
| Instr (������, ������, ������� ���������) | If Instr(1,mail,@) then ... | ���������� ����� ������� � ������ � �������� ���������� �������� ��������� |
| Lcase (������) | a=Lcase("������") ... a="������" | �������������� �������� ������ � �������� ����� |
| Ucase (������) | a=Ucase("������") ... a="������" | �������������� �������� ������ � ��������� ����� |
| Left (������,N ��������) | a=Left("������",3) ... a="���" | ����� ����� ������ ������� N �������� |
| Right (������,N ��������) | a=Right("������",3) ... a="���" | ������ ����� ������ ������� N �������� |
| Len (������) | a=Len("������") ... a=6 | ����� ������ |
| Ltrim (������) | a=Ltrim(" ������ ",) a="������ " | ������� ��������� ������� |
| Rtrim (������) | a=Rtrim(" ������ ",) a=" ������" | ������� �������� ������� |
| Trim (������) | a=Ttrim(" ������ ",) a="������" | ������� ��������� � �������� ������� |
| Mid (������, ������, N ��������) | a=Mid("������",3,2) a="��" | ����� ������ � ������� "������" � ������ N �������� |
| Left(������,N ��������) | a=Left("������",3) a="���" | ����� ����� ������ ������� N �������� |
| Space (N) | a=Space(5) | ������ �� N �������� |
| String (N ��������, ������) | a=String(5,"A") a="AAAAA" | ������ �� N �������� |
| Ltrim (������) | a=Ltrim(" ������ ",) a="������ " | ������� ��������� ������� |
��������� � �����
| 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