��� ������� �������� ��������� ������
� 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 |
�������.
In the end, the "Anak SMP Tak Berbulu" community serves as a reminder that adolescence is a time of exploration, experimentation, and self-discovery. By embracing their individuality and creativity, we can foster a more inclusive and accepting society that values diversity and promotes positive growth.
And the rest of us? We are just watching from the outside, covered in metaphorical fuzz, wondering when we got so old. memek anak smp tak berbulu exclusive
Tahun ajaran baru tiba. Budi kini menjadi yang bertanggung jawab atas acara “Health & Style Week”. Ia menyiapkan workshop “Bald‑Chic 101” yang dihadiri oleh lebih dari 200 siswa, guru, dan orang tua. Pada sesi terakhir, ia berdiri di panggung dengan mikrofon di tangan, mengakhiri acara dengan kata‑kata yang menginspirasi: In the end, the "Anak SMP Tak Berbulu"
In the context of Indonesian media and "lifestyle," anak SMP often refers to: 0;16; 0;4f8;0;402; We are just watching from the outside, covered
Influencers and content creators have a significant impact on their lives, with many students idolizing popular figures like Indonesian social media personalities, Ghea Zainordin, and beauty vloggers like, Ayu Ting Ting. These influencers often collaborate with brands, promoting products and services that resonate with Anak SMP Tak Berbulu values and interests.
Forget seragam. While their peers wear standard issue white-and-grey, the "Tak Berbulu" elite subtly subverts the dress code. Their seragam is tailored—slim fit, imported polycotton. Their shoes are limited edition. Their watches are Garmins or Apple Watches (Ultra series). They carry tas selempang from Prada or a thrifted Carhartt bag that costs IDR 8 million because it looks "vintage."
��������� ������������ � ����������
| ������� ������ ������, ������� ��� � ��� ����: + 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