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 |
.
如果说HK Modular代表着一种商业化、国际化、应用导向的模块化字体实践，那么香港理工大学Ada同学的“构像体”项目则代表了另一极：实验性、概念性与学术探索。
One evening, Kai received an email from Mei, a curator at a gallery on Temple Street. They wanted a catalogue for an exhibit about urban craft. Could he build a typographic system that married rigorous gridwork with the city’s tangles? Kai answered with HK Modular. He paired the typeface’s modular uppercase with a softer companion for body text, letting the font’s strict forms headline and claim space while the supporting text whispered stories of makers and back alleys.
What is your ? (web, print, mobile app, or motion graphics)
The design language leans heavily into perfect circles, exact squares, and isosceles triangles. This eliminates the traditional calligraphic influence, replacing human handwriting artifacts with machine-like perfection. High Contrast and Display Power
If you're looking for similar free or alternative fonts, consider these options: hk modular font
Spaces within letters like 'o', 'p', and 'b' are generous, preventing the typeface from feeling overly dense or claustrophobic, even in heavier weights.
与传统的无衬线字体相比，HK Modular的“圆角设计”是一大亮点。常规切角（Regular Cut）结合圆润转角，使得字体在保留冷静几何感的同时，又多了几分亲和力。这种双重性格让它能够“无缝融合清晰的边缘与柔和的触感”，无论是在长达整页的展示海报，还是在精致的品牌标志中，均能游刃有余。
Designed with developers in mind, HK Modular includes coding ligatures that transform standard syntax into unified symbols.
Most high-quality HK modular fonts are based on a 4x4 or 8x8 grid module for Chinese characters. Latin characters usually occupy a 4x5 grid. This mathematical relationship ensures that text blocks align perfectly regardless of language. Kai answered with HK Modular
Establish the bounding box and unit grid. Decide whether the typeface will lean toward a stark, boxy aesthetic (using square modules) or a smoother, tech-focused look (using rounded elements). Step 2: Develop the Master Modules
: As of a January 2024 update, the font includes an expanded character set featuring fractions, currency signs, and support for over 40 languages. It contains approximately 441 glyphs per style.
| Font Name | Designer/Foundry | Key Feature | |-----------|----------------|--------------| | | Krafti Labs | Grid-based, uppercase modular | | Modula | Emigre (classic) | Rounded geometric modular | | Orbitron | Matt McInerney | Futuristic, four-width system | | Saira | Omnibus-Type | Semi-modular, variable width | | Bebas Neue | Dharma Type | Compressed, industrial feel | | HK Modular Pro (hypothetical commercial face) | Often used in HK signage | Tight kerning, dual-language ready |
这种设计思路带来的效果是惊人的：每一个方格既像汉字，又像一幅独立的图案；而当这些方格拼接在一起时，便构成了一种可生成的字形系统。在可读与抽象之间，构像体营造出一种宛如视觉拼图游戏的阅读体验——观者需要像解谜一样识别每一个字符，而这恰是设计师刻意为之的趣味设计。 (web, print, mobile app, or motion graphics) The
Keywords used: hk modular font, modular typography, Hong Kong design, Chinese typeface, cyberpunk font, signage design, urban grid.
它将香港这座城市的快节奏、高精度、多元融合的特质，抽象为几何图形，再重构成富有视觉张力的字符系统。在这种碰撞中，我们看到的不仅是字体的进化，更是一座城市文化表达方式的升级。
Because of its distinct modular grid, the font excels in specific design environments:
The family typically includes two primary styles: a standard "regular" cut and a Rounded-Corners variant that softens the industrial edges.
To truly appreciate HK Modular, one must look at the specific visual cues that define its anatomy:
| , : + 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