เกม Tetris เขียนใน ASP

ผู้เขียน：Eve Cole เวลาอัปเดต：2025-04-18 00:16:01

แนะนำ: ASP พูดคุยเกี่ยวกับการสมัครเข้าเรียนอย่างไร
การเขียนโปรแกรมเชิงวัตถุเป็นความซับซ้อนของการออกแบบโปรแกรมเพิ่มวิธีการเขียนโปรแกรมที่มีโครงสร้างไม่เพียงพอ เหตุผลพื้นฐานสำหรับการใช้งานไม่เพียงพอคือไม่สะดวกที่จะนำรหัสกลับมาใช้ใหม่ วิธีการเชิงวัตถุเกิดขึ้นและมันค่อนข้างสมบูรณ์แบบผ่านการสืบทอด

ต่อไปนี้เป็นเนื้อหาที่ยกมา:

<%ถ้าไม่ร้องขอ QueryString (ven) = t ดังนั้น%>

<html>

<head>

</head>

<ภาษาสคริปต์ = vbscript>

ฟังก์ชั่น redir ()

window.open <%= ถูกต้อง (request.serverVariables (script_name), len (request.serverVariables (script_name))-instrrev (request.serverVariables (script_name),/, len (request.serverVariables (script_name)))))%>? ven = t, ผู้ใช้, สถานะ = ไม่, toolbar = no, menubar = ไม่, ความสูง = 456, ความกว้าง = 304, top = 100, ซ้าย = 100, scrollbars = no

window.history.back (-1)

ฟังก์ชันสิ้นสุด

</script>

</body>

</html>

<%อื่น%>

<html>

<head>

<title> ** เกม tetris vbscript ** </title>

.normalhi {font-family: verdana, helvetica, arial, sans serif; สี:#ffcc00; ขนาดตัวอักษร: 10pt; font-weight: bold; เคอร์เซอร์: Hand;}

.normalh {Font-Family: Verdana, Helvetica, Arial, Sans serif; สี:#000000; ขนาดตัวอักษร: 10pt; Font-Weight: Bold; Cursor: Hand;}

.normalg {Font-Family: Verdana, Helvetica, Arial, Sans serif; สี:#000000; ขนาดตัวอักษร: 13pt; Font-Weight: Bold;}

.normal {Font-Family: Verdana, Helvetica, Arial, Sans serif; สี:#000000; ขนาดตัวอักษร: 10pt; Font-Weight: Bold;}

.Normald {Font-Family: Verdana, Helvetica, Arial, Sans serif; สี:#000000; ขนาดตัวอักษร: 10pt; Font-Weight: Bold;}

.normali {Font-Family: Verdana, Helvetica, Arial, Sans serif; สี:#00ff00; ขนาดตัวอักษร: 10pt; Font-Weight: Bold;}

.normalo {Font-Family: Verdana, Helvetica, Arial, Sans serif; สี:#ffff00; ขนาดตัวอักษร: 10pt; Font-Weight: Bold;}

</style>

</head>

<enter>

<enter>

</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>

</table>

</enter>

</td>

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

</tr>

<td class = normald align = center bgcolor =#ffcc00> พื้นที่พรอมต์ </td>

</tr>

<!-Inicio Preview->

</tr>

</tr>

</tr>

</table> </enter> </div>

<!-ตัวอย่างครีบ->

</td>

</tr>

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

</tr>

</tr>

</tr>

</tr>

</tr>

</tr>

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

</tr>

</tr>

<td id = in09 align = center bgcolor =#009900 class = normalh onclick = self.close () onmouseover = mmove (i) onmouseout = mmove (o)> ปิดหน้าต่าง </td>

</tr>

</table>

</td> </tr> </table> </enter> </div>

</body>

<ภาษาสคริปต์ = vbscript>

Dim Timer1, Hastini, Levlini, Namn, คะแนน, Levl, Hast, รูปที่ 2, 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 = verevel (levlini)

hast = hastini

levl = levlini

pos = levl - 1

รูปสี

GOVER = FALSE

ฟังก์ชั่น iniciar (ind)

ถ้า ind = ฉันแล้ว

คะแนน = 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)

รูปสี

รูปที่ 2 = 0

คนที่มีความหมาย

อื่น

window.clearinterval timer1

สิ้นสุดถ้า

ฟังก์ชันสิ้นสุด

sub nyfig ()

pos = pos 1

document.all (in06) .innertext = pos

เลือกเคส 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 = velevel (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 = #666666

กรณีที่ 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) = จริงแล้ว

Document.All (P & CSTR ((I2 - 1) * 4 I - 1)). BGCOLOR = FARG2

สิ้นสุดถ้า

ต่อไป

สิ้นสุดย่อย

ฟังก์ชั่น poslevel (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)

เลือก Case 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

สิ้นสุดถ้า

ต่อไป

ถ้ารูปที่ = 0 แล้ว

สำหรับ i = 1 ถึง 4

สำหรับ i2 = 1 ถึง 4

ถ้า s (i, i2) = จริงแล้ว n (x i - 1, y - i2 1) = true

ต่อไป

คนโง่

คนที่มีความหมาย

อื่น

สำหรับ i = 1 ถึง 4

สำหรับ i2 = 1 ถึง 4

ถ้า s (i, i2) = true และ s (i, i2 - 1) = false แล้ว

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

สิ้นสุดถ้า

ต่อไป

สิ้นสุดถ้า

y = y - 1

สำหรับ i = 1 ถึง 4

สำหรับ i2 = 1 ถึง 4

ถ้า s (i, i2) = จริงแล้ว

ถ้าไม่ปกครอง = จริงแล้ว

ถ้า ucase (document.all (cstr (coor (x i - 1, y - i2 1))). bgcolor) <> #000000 และ ucase (document.all (cstr (coor (x i - 1, y - i2 1)))

การเล่นเกม

สิ้นสุดถ้า

ถ้า s (i, i2) = จริงแล้ว

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

สิ้นสุดถ้า

ต่อไป

ฟังก์ชันสิ้นสุด

Sub Gameover ()

msgbox เกมจบลง! tetris

window.clearinterval timer1

GOVER = TRUE

สิ้นสุดย่อย

sub ner ()

คะแนน = คะแนน 10

document.all (sco02) .innertext = คะแนน

สำหรับ i2 = 25 ถึง 1 ขั้นตอน -1

ตกลง = 1

สำหรับ i = 1 ถึง 10

ถ้า n (i, i2) = เท็จแล้วตกลง = 0

ต่อไป

ถ้าตกลง = 1 แล้ว

คะแนน = คะแนน 150

document.all (sco02) .innertext = คะแนน

สำหรับ i = 1 ถึง 10

สำหรับ i3 = i2 ถึง 24

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

document.all (cstr (coor (i, i3))). bgcolor = document.all (cstr (coor (i, i3 1))). bgcolor

ต่อไป

สิ้นสุดถ้า

ต่อไป

สิ้นสุดย่อย

ฟังก์ชั่นพิกัด (xx, yy)

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

ฟังก์ชันสิ้นสุด

sub rota ()

rot2 = เน่า 1

ถ้า rot2 = 5 แล้ว rot2 = 1

ถ้า (รูปที่ = 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

สิ้นสุดเลือก

ตกลง = 1

สำหรับ i = 1 ถึง 4

สำหรับ i2 = 1 ถึง 4

ถ้า s3 (i, i2) = จริงแล้ว

ถ้า x i - 1 <1 หรือ x i - 1> 10 หรือ y - i2 1 <1 แล้วตกลง = 0

ถ้าตกลง = 1 แล้ว

ถ้า n (x i - 1, y - i2 1) = จริงแล้วตกลง = 0

สิ้นสุดถ้า

ต่อไป

ถ้าตกลง = 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

สิ้นสุดถ้า

ถ้า s3 (i, i2) = false และ s (i, i2) = true แล้ว

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

สิ้นสุดถ้า

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

ต่อไป

สิ้นสุดย่อย

sub document_onkeydown

ถ้า window.event.keycode = 27 จากนั้น msgbox หยุดชั่วคราว, tet

ถ้า window.event.keycode = 80 หรือ window.event.keycode = 114 จากนั้น iniciar (d)

ถ้า window.event.keycode = 113 แล้ว iniciar (i)

ถ้าไม่ pausa = จริงแล้ว

ถ้า window.event.keycode = 38 และรูปที่> 1 แล้ว rota

ถ้า window.event.keycode = 37 แล้ว

ตกลง = 1

สำหรับ i = 1 ถึง 4

สำหรับ i2 = 1 ถึง 4

ถ้า s (i, i2) = true และ x i - 1 - 1> 0 แล้ว

ถ้า n (x i - 1 - 1, y - i2 1) = จริงแล้วตกลง = 0

สิ้นสุดถ้า

ถ้า s (i, i2) = true และ x i - 1 - 1 <1 แล้วตกลง = 0

ต่อไป

ถ้าตกลง = 1 แล้ว

x = x - 1

สำหรับ i = 1 ถึง 4

สำหรับ i2 = 1 ถึง 4

ถ้า s (i, i2) = จริงแล้ว

ถ้า s (i 1, i2) = เท็จแล้ว

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

สิ้นสุดถ้า

ถ้า s (i, i2) = จริงแล้ว

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

สิ้นสุดถ้า

ต่อไป

สิ้นสุดถ้า

ถ้า window.event.keycode = 39 แล้ว

ตกลง = 1

สำหรับ i = 1 ถึง 4

สำหรับ i2 = 1 ถึง 4

ถ้า s (i, i2) = true และ x i - 1 1 <11 แล้ว

ถ้า n (x i - 1 1, y - i2 1) = จริงแล้วตกลง = 0

สิ้นสุดถ้า

ถ้า s (i, i2) = true และ x i - 1 1> 10 แล้วตกลง = 0

ต่อไป

ถ้าตกลง = 1 แล้ว

x = x 1

สำหรับ i = 1 ถึง 4

สำหรับ i2 = 1 ถึง 4

ถ้า s (i, i2) = จริงแล้ว

ถ้า s (i - 1, i2) = เท็จแล้ว

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

สิ้นสุดถ้า

ถ้า s (i, i2) = จริงแล้ว

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

สิ้นสุดถ้า

ต่อไป

สิ้นสุดถ้า

Aqui

ถ้า window.event.keycode = 32 หรือ window.event.keycode = 40 แล้ว

ถ้ารูปที่> 0 แล้ว

สำหรับ i = 1 ถึง 4

สำหรับ i2 = 1 ถึง 4

ถ้า s (i, i2) = จริงแล้ว

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

สิ้นสุดถ้า

ต่อไป

ทำ

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

สิ้นสุดถ้า

ต่อไป

วนซ้ำจนกระทั่งรูป = 0

สำหรับ i = 1 ถึง 4

สำหรับ i2 = 1 ถึง 4

ถ้า s (i, i2) = จริงแล้ว

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

สิ้นสุดถ้า

ถ้า s (i, i2) = จริงแล้ว n (x i - 1, y - i2 1) = true

ต่อไป

สิ้นสุดถ้า

สิ้นสุดย่อย

ฟังก์ชั่น mmove (ดัชนี)

ถ้าดัชนี = ฉันแล้ว

document.all (window.event.srcelement.sourceIndex) .className = NormalHi

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

อื่น

document.all (window.event.srcelement.sourceIndex) .className = NormalH

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

สิ้นสุดถ้า

ฟังก์ชันสิ้นสุด

</script>

</html>

<%end ถ้า%>

แบ่งปัน: ใช้ ASP เพื่อทำแผนภูมิพายแผนภูมิบาร์ ฯลฯ
ในงานของเราเรามักจะต้องแปลงข้อมูลเป็นแผนภูมิแท่งแผนภูมิวงกลม ฯลฯ เพื่ออำนวยความสะดวกและการวิเคราะห์ข้อมูลที่ใช้งานง่าย ที่นี่ฉันจะแนะนำส่วนประกอบที่สร้างแผนภูมิพายและแผนภูมิแท่งใน ASP: CSDrawGraph, CSDGT.ZIP เนื่องจากเป็นองค์ประกอบเราจึงต้องใช้ regsv ก่อนใช้งาน