ASP로 작성된 테트리스 게임

저자：Eve Cole 업데이트 시간：2025-04-18 00:16:01

권장 : ASP는 수업에 신청하는 것에 대해 어떻게 이야기합니까?
객체 지향 프로그래밍 프로그램 설계의 복잡성이 증가함에 따라 구조화 된 프로그래밍 방법으로는 충분하지 않습니다. 불충분 한 사용의 근본적인 이유는 코드를 재사용하는 것이 불편하기 때문입니다. 객체 지향 방법이 탄생했으며 상속을 통해 비교적 완벽합니다.

다음은 인용 된 내용입니다.

요청이없는 경우 <%QueryString (ven) = t 다음%>

<html>

<헤드>

<메타 이름 = 발전기 컨텐츠 = Microsoft Visual Studio 6.0>

<제목> </title>

</head>

함수 redir ()

window.open <%= right (request.servervariables (script_name), len (request.servervaribles (script_name)) -Sentrev (request.servervariables (script_name),/, len (request.servervariables (script_name))))%>? ven = t, 사용자, 상태 = 아니오, 도구 모음 = 아니오, menubar = no, height = 456, 너비 = 304, 왼쪽 = 100, scrollbar = no

Window.history.back (-1)

엔드 기능

</스크립트>

</body>

</html>

<%else%>

<html>

<헤드>

<메타 이름 = 발전기 컨텐츠 = Microsoft Visual Studio 6.0>

<title> ** vbscript Tetris Game ** </title>

<스타일 유형 = 텍스트/CSS>

<!-

.normalhi {font-family : Verdana, helvetica, arial, sans serif; color :#ffcc00; font-size : 10pt; font-weight : bold; cursor : hand;}

.normalh {Font-Family : Verdana, Helvetica, Arial, Sans Serif; 컬러 :#000000; 글꼴 크기 : 10pt; font-weight : Bold; Cursor : Hand;}

.normalg {font-family : Verdana, helvetica, arial, sans serif; color :#000000; font-size : 13pt; font-weight : bold;}

.normal {font-family : Verdana, helvetica, arial, sans serif; color :#000000; font-size : 10pt; font-weight : bold;}

.normald {font-family : Verdana, helvetica, arial, sans serif; color :#000000; font-size : 10pt; font-weight : bold;}

.normali {font-family : Verdana, helvetica, arial, sans serif; color :#00ff00; font-size : 10pt; font-weight : bold;}

.normalo {font-family : Verdana, helvetica, arial, sans serif; color :#ffff00; font-size : 10pt; font-weight : bold;}

</스타일>

</head>

<테이블 테두리 = 0 너비 = 300 CellPacing = 0 CellPadding = 0> <tr> <td width = 200>

<테이블 테두리 = 1 BorderColor =#000000 CellPacing = 0 CellPadding = 0 BGCOLOR =#000000>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

</테이블>

</센터>

</td>

<테이블 테두리 = 1 BorderColor =#000000 높이 = 452 너비 = 100 CellPacing = 0 CellPadding = 0>

<td class = normalg align = center bgcolor =#ffff00> tetris </td>

</tr>

</tr>

<!-Inicio Preview->

</tr>

</tr>

</tr>

</table> </center> </div>

<!-FIN 미리보기->

</td>

</tr>

<td id = sco01 align = center bgcolor =#009900 class = normalh onmouseover = mmove (i) onmouseout = mmove (o)> score </td>

</tr>

</tr>

</tr>

</tr>

<td id = in05 align = center bgcolor =#009900 class = normalh onmouseover = mmove (i) onmouseout = mmove (o)> block </td>

</tr>

</tr>

<td id = in03 align = center bgcolor =#009900 class = normalh onclick = iniciar (i) onmouseover = mmove (i) onmouseout = mmove (o)> start </td>

</tr>

</tr>

</tr>

</테이블>

</td> </tr> </table> </center> </div>

</body>

Dim Timer1, Hastini, Levlini, Namn, Score, Levl, Hast, Fig2, Fig2, Farg, Farg2, X, Y, Rot, Rot2, Tratt, Pausa, Scrpau, POS, Gover

dim hs (), sor (), hsant (), n (), s (), s2 (), s3 ()

REDIM HS (3, 15, 2) : REDIM SOR (3, 15) : redim hsant (3) : redim n (10, 25) : redim s (5, 4) : redim s2 (4, 4) : redim s3 (4, 4)

levlini = 1

pausa = false

hastini = vellevel (levlini)

Hast = Hastini

levl = levlini

pos = levl -1

Colorform

Gover = False

기능 iniciar (ind)

ind = i라면

점수 = 0

Gover = False

Hast = Hastini

levl = levlini

pos = poslevel (levl)

i = 1 ~ 4 : i2 = 1 ~ 4 : s2 (i, i2) = false : 다음 : 다음 : 다음 : 다음 :

i = 1 ~ 10의 경우 : i2 = 1 ~ 25 : n (i, i2) = false : 다음 : 다음 : 다음 : 다음 : 다음 :

timer1 = window.setInterval (andar (), hast)

Colorform

그림 2 = 0

nyfig

또 다른

Window.ClearInterval Timer1

끝 If

엔드 기능

sub nyfig ()

pos = pos 1

문서 .ALL (in06) .innerText = pos

Case POS를 선택하십시오

사례 30 : levl = 2 : hast = vellevel (levl) : window.in02.innertext = levl

사례 60 : levl = 3 : hast = vellevel (levl) : window.in02.innertext = levl

사례 90 : levl = 4 : hast = vellevel (levl) : window.in02.innertext = levl

사례 120 : levl = 5 : hast = vellevel (levl) : window.in02.innertext = levl

사례 150 : levl = 6 : hast = vellevel (levl) : window.in02.innertext = levl

사례 180 : levl = 7 : hast = vellevel (levl) : window.in02.innertext = levl

사례 210 : levl = 8 : hast = vellevel (levl) : window.in02.innertext = levl

사례 240 : levl = 9 : hast = vellevel (levl) : window.in02.innertext = levl

사례 270 : levl = 10 : hast = vellevel (levl) : window.in02.innertext = levl

사례 300 : levl = 11 : hast = vellevel (levl) : window.in02.innertext = levl

종료 선택

Window.ClearInterval Timer1

timer1 = window.setInterval (andar (), hast)

그림 = 그림 2

farg = farg2

그림 2 = int (RND * 7) 1

x = 4

y = 26

썩음 = 1

i = 1 ~ 4 : i2 = 1 ~ 4 : s (i, i2) = s2 (i, i2) : s2 (i, i2) = 0 : 다음 : 다음 : 다음 : 다음 :

사례 그림 2를 선택하십시오

사례 1 : s2 (2, 2) = true : s2 (3, 2) = true : s2 (2, 3) = true : s2 (3, 3) = true : farg2 = #ff0000

사례 2 : s2 (1, 2) = true : s2 (2, 2) = true : s2 (3, 2) = true : s2 (4, 2) = true : farg2 = #33cc33

사례 3 : s2 (2, 1) = true : s2 (3, 1) = true : s2 (3, 2) = true : s2 (3, 3) = true : farg2 = #ff9900

사례 4 : s2 (3, 1) = true : s2 (2, 1) = true : s2 (2, 2) = true : s2 (2, 3) = true : farg2 = #6666666

사례 5 : s2 (3, 1) = true : s2 (3, 2) = true : s2 (3, 3) = true : s2 (2, 2) = true : farg2 = #cc00cc

사례 6 : s2 (2, 1) = true : s2 (2, 2) = true : s2 (3, 2) = true : s2 (3, 3) = true : farg2 = #6666ff

사례 7 : s2 (3, 1) = true : s2 (3, 2) = true : s2 (2, 2) = true : s2 (2, 3) = true : farg2 = #33cccc

종료 선택

i = 1 ~ 4의 경우

i2 = 1 ~ 3의 경우

document.all (p & cstr (((i2-1) * 4 i -1))). bgcolor = #000000

s2 (i, i2) = true 인 경우

document.all (p & cstr ((i2-1) * 4 i -1)). bgcolor = farg2

끝 If

종료 서브

함수 poslevel (LEV)

사례 lev를 선택하십시오

사례 1 : poslevel = 1

사례 2 : poslevel = 51

사례 3 : poslevel = 81

사례 4 : poslevel = 111

사례 5 : poslevel = 141

사례 6 : poslevel = 181

사례 7 : poslevel = 221

사례 8 : poslevel = 261

사례 9 : poslevel = 301

사례 10 : poslevel = 341

종료 선택

엔드 기능

いいいいいいいいいいいいいいいいいいいいいいいいいい

기능 vellevel (velo)

케이스 벨로를 선택하십시오

사례 1 : Vellevel = 500

사례 2 : Vellevel = 450

사례 3 : Vellevel = 400

사례 4 : Vellevel = 350

사례 5 : Vellevel = 300

사례 6 : Vellevel = 250

사례 7 : Vellevel = 200

사례 8 : Vellevel = 150

사례 9 : Vellevel = 100

사례 10 : Vellevel = 50

사례 11 : Vellevel = 10

종료 선택

엔드 기능

sub colorform ()

i = 0 ~ 11 : document.all (p & cstr (i)). bgcolor = #000000 : 다음

i = 0 ~ 249의 경우 : document.all (cstr (i)). bgcolor = #000000 : 다음

종료 서브

기능 andar ()

i = 1 ~ 4의 경우

i2 = 1 ~ 4의 경우

s (i, i2) = true 및 y -i2 1 = 1 인 경우 그림 = 0

y -i2> 0 및 x i -1> 0 및 x i -1 <11 인 경우

s (i, i2) = true 및 n (x i -1, y -i2) = true 인 경우 그림 = 0

끝 If

그렇다면 그림 = 0이면

i = 1 ~ 4의 경우

i2 = 1 ~ 4의 경우

s (i, i2) = true 인 경우 n (x i -1, y -i2 1) = true

네르

nyfig

또 다른

i = 1 ~ 4의 경우

i2 = 1 ~ 4의 경우

s (i, i2) = true이고 s (i, i2-1) = false 인 경우

문서 (cstr (coor (x i -1, y -i2 1))). bgcolor = #000000

끝 If

y = y -1

i = 1 ~ 4의 경우

i2 = 1 ~ 4의 경우

s (i, i2) = true 인 경우

그렇지 않으면 = 참으로

경우 UCASE (document.all (cstr (coor (x i -1, y -i2 1))).

게임 오버

끝 If

s (i, i2) = true 인 경우

document.all (cstr (coor (x i -1, y -i2 1))). bgcolor = farg

끝 If

엔드 기능

하위 게임 오버 ()

Msgbox 게임이 끝납니다! 테트리스

Window.ClearInterval Timer1

Gover = true

종료 서브

서브 네르 ()

점수 = 점수 10

문서 .ALL (sco02) .innerText = score

i2 = 25 ~ 1 단계 -1

OK = 1

i = 1 ~ 10의 경우

n (i, i2) = false 인 경우 ok = 0입니다

OK = 1이면

점수 = 점수 150

문서 .ALL (sco02) .innerText = score

i = 1 ~ 10의 경우

i3 = i2 ~ 24의 경우

n (i, i3) = n (i, i3 1)

document.all (cstr (coor (i, i3))

끝 If

종료 서브

함수 좌표 (xx, yy)

coor = (yy -1) * 10 xx -1

엔드 기능

하위 로타 ()

rot2 = rot 1

ROT2 = 5 인 경우 ROT2 = 1

if (그림 = 2 또는 그림> 5) 및 Rot2 = 3 인 다음 ROT2 = 1

i = 1 ~ 4의 경우

i2 = 1 ~ 4의 경우

S3 (i, i2) = 0

사례를 선택하십시오

사례 2

Case ROT2를 선택하십시오

사례 1 : s3 (1, 2) = true : s3 (2, 2) = true : s3 (3, 2) = true : s3 (4, 2) = true

사례 2 : s3 (2, 1) = true : s3 (2, 2) = true : s3 (2, 3) = true : s3 (2, 4) = true

종료 선택

사례 3

Case ROT2를 선택하십시오

사례 1 : s3 (2, 1) = true : s3 (3, 1) = true : s3 (3, 2) = true : s3 (3, 3) = true

사례 2 : s3 (4, 1) = true : s3 (4, 2) = true : s3 (3, 2) = true : s3 (2, 2) = true

사례 3 : s3 (3, 3) = true : s3 (2, 3) = true : s3 (2, 2) = true : s3 (2, 1) = true

사례 4 : s3 (2, 2) = true : s3 (2, 1) = true : s3 (3, 1) = true : s3 (4, 1) = true

종료 선택

사례 4

Case ROT2를 선택하십시오

사례 1 : s3 (3, 1) = true : s3 (2, 1) = true : s3 (2, 2) = true : s3 (2, 3) = true

사례 2 : s3 (2, 1) = true : s3 (3, 1) = true : s3 (4, 1) = true : s3 (4, 2) = true

사례 3 : s3 (3, 1) = true : s3 (3, 2) = true : s3 (3, 3) = true : s3 (2, 3) = true

사례 4 : s3 (2, 1) = true : s3 (2, 2) = true : s3 (3, 2) = true : s3 (4, 2) = true

종료 선택

사례 5

Case ROT2를 선택하십시오

사례 1 : s3 (3, 1) = true : s3 (3, 2) = true : s3 (3, 3) = true : s3 (2, 2) = true

사례 2 : s3 (3, 1) = true : s3 (2, 2) = true : s3 (3, 2) = true : s3 (4, 2) = true

사례 3 : s3 (2, 1) = true : s3 (2, 2) = true : s3 (2, 3) = true : s3 (3, 2) = true

사례 4 : s3 (2, 1) = true : s3 (3, 1) = true : s3 (4, 1) = true : s3 (3, 2) = true

종료 선택

사례 6

Case ROT2를 선택하십시오

사례 1 : s3 (2, 1) = true : s3 (2, 2) = true : s3 (3, 2) = true : s3 (3, 3) = true

사례 2 : s3 (2, 2) = true : s3 (3, 2) = true : s3 (3, 1) = true : s3 (4, 1) = true

종료 선택

사례 7

Case ROT2를 선택하십시오

사례 1 : s3 (3, 1) = true : s3 (3, 2) = true : s3 (2, 2) = true : s3 (2, 3) = true

사례 2 : s3 (2, 1) = true : s3 (3, 1) = true : s3 (3, 2) = true : s3 (4, 2) = true

종료 선택

OK = 1

i = 1 ~ 4의 경우

i2 = 1 ~ 4의 경우

s3 (i, i2) = true 인 경우

x i -1 <1 또는 x i -1> 10 또는 y -i2 1 <1 인 경우 OK = 0

OK = 1이면

if n (x i -1, y -i2 1) = true then ok = 0

끝 If

OK = 0이면 서브를 종료하십시오

rot = rot2

i = 1 ~ 4의 경우

i2 = 1 ~ 4의 경우

S3 (i, i2) = true이고 s (i, i2) = false 인 경우

document.all (cstr (coor (x i -1, y -i2 1))). bgcolor = farg

끝 If

s3 (i, i2) = false 및 s (i, i2) = true 인 경우

문서 (cstr (coor (x i -1, y -i2 1))). bgcolor = #000000

끝 If

s (i, i2) = s3 (i, i2)

종료 서브

sub document_onkeydown

if window.event.keyCode = 27 인 경우 Msgbox Pause ,, Tet

if window.event.keyCode = 80 또는 Window.event.KeyCode = 114 iniciar (d)

if window.event.keyCode = 113 인 경우 iniciar (i)

pausa = true가 아닌 경우

if window.event.keyCode = 38 및 그림 1 인 경우 로타

Window.event.keyCode = 37 인 경우

OK = 1

i = 1 ~ 4의 경우

i2 = 1 ~ 4의 경우

s (i, i2) = true 및 x i -1-1> 0 인 경우

n (x i -1-1, y -i2 1) = true then the then the wal = 0 인 경우

끝 If

s (i, i2) = true이고 x i -1-1 <1 인 경우 ok = 0

OK = 1이면

x = x -1

i = 1 ~ 4의 경우

i2 = 1 ~ 4의 경우

s (i, i2) = true 인 경우

s (i 1, i2) = 거짓이면

문서 (cstr (coor (x i, y -i2 1)). bgcolor = #000000

끝 If

s (i, i2) = true 인 경우

document.all (cstr (coor (x i -1, y -i2 1))). bgcolor = farg

끝 If

Window.event.keyCode = 39 인 경우

OK = 1

i = 1 ~ 4의 경우

i2 = 1 ~ 4의 경우

s (i, i2) = true이고 x i -1 1 <11이면

if n (x i -1 1, y -i2 1) = true then the the wal = 0

끝 If

s (i, i2) = true이고 x i -1 1> 10이면 OK = 0

OK = 1이면

x = x 1

i = 1 ~ 4의 경우

i2 = 1 ~ 4의 경우

s (i, i2) = true 인 경우

s (i -1, i2) = 거짓이면

문서 (cstr (coor (x i -2, y -i2 1))). bgcolor = #000000

끝 If

s (i, i2) = true 인 경우

document.all (cstr (coor (x i -1, y -i2 1))). bgcolor = farg

끝 If

Aqui

if window.event.keyCode = 32 또는 Window.event.keyCode = 40입니다

그렇다면 그림> 0이면

i = 1 ~ 4의 경우

i2 = 1 ~ 4의 경우

s (i, i2) = true 인 경우

문서 (cstr (coor (x i -1, y -i2 1))). bgcolor = #000000

끝 If

하다

y = y -1

i = 1 ~ 4의 경우

i2 = 1 ~ 4의 경우

s (i, i2) = true 및 y -i2 1 = 1 인 경우 그림 = 0

y -i2> 0 및 x i -1> 0 및 x i -1 <11 인 경우

s (i, i2) = true 및 n (x i -1, y -i2) = true 인 경우 그림 = 0

끝 If

그림 = 0까지 루프

i = 1 ~ 4의 경우

i2 = 1 ~ 4의 경우

s (i, i2) = true 인 경우

document.all (cstr (coor (x i -1, y -i2 1))). bgcolor = farg

끝 If

s (i, i2) = true 인 경우 n (x i -1, y -i2 1) = true

끝 If

종료 서브

기능 mmove (색인)

인덱스 = i라면

document.all (wind

document.all (window.event.srcelement.sourceindex) .bgcolor = #0099cc

또 다른

document.all (window.event.srcelement.sourceindex) .classname = normalh

document.all (window.event.srcelement.sourceindex) .bgcolor = #009900

끝 If

엔드 기능

</스크립트>

</html>

<%종료 if%>

공유 : ASP를 사용하여 파이 차트, 막대 차트 등을 만듭니다.
우리의 작업에서, 우리는 종종 데이터를 막대 차트, 원형 차트 등으로 변환하기 위해 데이터를 용이하게하고 직관적으로 분석해야합니다. 여기에서는 ASP : CSDGT.ZIP에서 PIE 차트 및 막대 차트를 만드는 구성 요소를 소개하겠습니다. 구성 요소이므로 사용하기 전에 RegSV를 사용해야합니다.