Game Tetris ditulis dalam ASP

Penulis：Eve Cole Waktu Pembaruan：2025-04-18 00:16:01

Direkomendasikan: Bagaimana ASP berbicara tentang melamar ke kelas?
Pemrograman berorientasi objek dengan kompleksitas desain program meningkat, metode pemrograman terstruktur tidak cukup. Alasan mendasar untuk penggunaan yang tidak mencukupi adalah bahwa tidak nyaman untuk menggunakan kembali kode tersebut. Metode berorientasi objek lahir, dan relatif sempurna melalui warisan.

Berikut ini adalah konten yang dikutip:

<%Jika tidak meminta.QueryString (ven) = T lalu%>

<Html>

<head>

</head>

fungsi redir ()

window.open <%= Right (request.serverVariable (script_name), len (request.servervariable (script_name))-instrrev (request.servarible (script_name),/, len (Request.serverVariable (script_name)))))%>? Ven = t, pengguna, status = tidak, toolbar = tidak, menubar = tidak, tinggi = 456, lebar = 304, atas = 100, kiri = 100, scrollbars = no

window.history.back (-1)

Fungsi akhir

</script>

</body>

</html>

<%else%>

<Html>

<head>

<title> ** VBScript Tetris Game ** </title>

<!-

.normalhi {font-family: verdana, helvetica, arial, sans serif; warna:#ffcc00; font-size: 10pt; font-weight: tebal; kursor: tangan;}

.normalh {font-family: verdana, helvetica, arial, sans serif; color:#000000; font-size: 10pt; font-weight: tebal; kursor: tangan;}

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

.normal {font-family: verdana, helvetica, arial, sans serif; warna:#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; warna:#00ff00; font-size: 10pt; font-weight: bold;}

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

</tyle>

</head>

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

</boable>

</penter>

</td>

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

</tr>

<td class = normald align = center bgcolor =#ffcc00> area prompt </td>

</tr>

<!-Pratinjau Inicio->

</tr>

</tr>

</tr>

</able> </penter> </div>

<!-pratinjau sirip->

</td>

</tr>

</tr>

</tr>

<td id = in01 align = center bgcolor =#009900 class = normal onmouseover = mmove (i) onmouseout = mmove (o)> tinggi </td>

</tr>

</tr>

</tr>

</tr>

<td id = in03 align = center bgcolor =#009900 class = Normalh onClick = iniciar (i) onmouseover = mmove (i) onmouseout = mmove (o)> mulai </td>

</tr>

</tr>

<td id = in09 align = center bgcolor =#009900 class = Normalh onClick = self.close () onmouseover = mmove (i) onmouseout = mmove (o)> Tutup jendela </td>

</tr>

</boable>

</td> </tr> </able> </center> </div>

</body>

Redup timer1, hastini, levlini, namn, skor, levl, hast, gbr, gbr2, farg2, farg2, x, y, rot, rot2, ratt, pausa, scrpau, pos, gover

Redup 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 = Level - 1

Colorform

Gover = false

function iniciar (ind)

Jika IND = I kemudian

skor = 0

Gover = false

Hast = hastini

Levl = Levlini

Pos = poslevel (lev)

Untuk i = 1 hingga 4: untuk i2 = 1 hingga 4: s2 (i, i2) = false: selanjutnya: selanjutnya

Untuk i = 1 hingga 10: untuk i2 = 1 hingga 25: n (i, i2) = false: selanjutnya: selanjutnya

Timer1 = window.setInterval (andar (), HAST)

Colorform

Fig2 = 0

Nyfig

kalau tidak

window.clearinterval timer1

akhiri jika

fungsi akhir

Sub nyfig ()

Pos = pos 1

document.all (in06) .innertext = pos

Pilih case pos

Kasus 30: LevL = 2: HAST = Vellevel (LevL): window.in02.innertext = LevL

Kasus 60: LevL = 3: HAST = Vellevel (LevL): window.in02.innerText = LevL

Kasus 90: LEVL = 4: HAST = Vellevel (LevL): window.in02.innertext = LevL

Kasus 120: LEVL = 5: HAST = Vellevel (LevL): window.in02.innertext = LevL

Kasus 150: LevL = 6: HAST = Vellevel (LevL): window.in02.innertext = LevL

Kasus 180: LevL = 7: HAST = Vellevel (LevL): window.in02.innertext = LevL

Kasus 210: lev ll = 8: hast = vellevel (levl): window.in02.innertext = levL

Kasus 240: LevL = 9: HAST = Vellevel (LevL): window.in02.innertext = LevL

Kasus 270: LevL = 10: HAST = Vellevel (LevL): window.in02.innertext = LevL

Kasus 300: LEVL = 11: HAST = Vellevel (LevL): window.in02.innertext = LevL

Akhiri Pilih

window.clearinterval timer1

Timer1 = window.setInterval (andar (), HAST)

Gbr = Fig2

Farg = farg2

Fig2 = int (rnd * 7) 1

X = 4

Y = 26

Rot = 1

Untuk i = 1 hingga 4: untuk i2 = 1 hingga 4: s (i, i2) = s2 (i, i2): s2 (i, i2) = 0: selanjutnya: selanjutnya

Pilih case gbr2

Kasus 1: S2 (2, 2) = Benar: S2 (3, 2) = Benar: S2 (2, 3) = Benar: S2 (3, 3) = Benar: Farg2 = #FF0000

Kasus 2: S2 (1, 2) = Benar: S2 (2, 2) = Benar: S2 (3, 2) = Benar: S2 (4, 2) = Benar: Farg2 = #33cc33

Kasus 3: S2 (2, 1) = Benar: S2 (3, 1) = Benar: S2 (3, 2) = Benar: S2 (3, 3) = Benar: Farg2 = #FF9900

Kasus 4: S2 (3, 1) = Benar: S2 (2, 1) = Benar: S2 (2, 2) = Benar: S2 (2, 3) = Benar: Farg2 = #6666666

Kasus 5: S2 (3, 1) = Benar: S2 (3, 2) = Benar: S2 (3, 3) = Benar: S2 (2, 2) = Benar: Farg2 = #CC00CC

Kasus 6: S2 (2, 1) = Benar: S2 (2, 2) = Benar: S2 (3, 2) = Benar: S2 (3, 3) = Benar: Farg2 = #6666ff

Kasus 7: S2 (3, 1) = Benar: S2 (3, 2) = Benar: S2 (2, 2) = Benar: S2 (2, 3) = Benar: Farg2 = #33CCCC

Akhiri Pilih

Untuk i = 1 hingga 4

Untuk i2 = 1 hingga 3

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

Jika s2 (i, i2) = true maka

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

Akhiri jika

Berikutnya

Akhir sub

Fungsi poslevel (lev)

Pilih Case Lev

Kasus 1: poslevel = 1

Kasus 2: PosLevel = 51

Kasus 3: PosLevel = 81

Kasus 4: PosLevel = 111

Kasus 5: poslevel = 141

Kasus 6: PosLevel = 181

Kasus 7: PosLevel = 221

Kasus 8: PosLevel = 261

Kasus 9: PosLevel = 301

Kasus 10: PosLevel = 341

Akhiri Pilih

Fungsi akhir

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

Fungsi vellevel (velo)

Pilih Case Velo

Kasus 1: Vellevel = 500

Kasus 2: Vellevel = 450

Kasus 3: Vellevel = 400

Kasus 4: Vellevel = 350

Kasus 5: Vellevel = 300

Kasus 6: Vellevel = 250

Kasus 7: Vellevel = 200

Kasus 8: Vellevel = 150

Kasus 9: Vellevel = 100

Kasus 10: Vellevel = 50

Kasus 11: Vellevel = 10

Akhiri Pilih

Fungsi akhir

Sub colorform ()

Untuk i = 0 hingga 11: document.all (p & cstr (i)). Bgcolor = #000000: Berikutnya

Untuk i = 0 hingga 249: document.all (cstr (i)). Bgcolor = #000000: selanjutnya

Akhir sub

fungsi andar ()

Untuk i = 1 hingga 4

Untuk i2 = 1 hingga 4

If s (i, i2) = true dan y - i2 1 = 1 lalu gbr = 0

Jika y - i2> 0 dan x i - 1> 0 dan x i - 1 <11 Kemudian

Jika s (i, i2) = true dan n (x i - 1, y - i2) = true maka gbr = 0

Akhiri jika

Berikutnya

Jika gbr = 0 lalu

Untuk i = 1 hingga 4

Untuk i2 = 1 hingga 4

Jika s (i, i2) = true maka n (x i - 1, y - i2 1) = true

Berikutnya

Ner

Nyfig

Kalau tidak

Untuk i = 1 hingga 4

Untuk i2 = 1 hingga 4

Jika s (i, i2) = true dan s (i, i2 - 1) = false maka

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

Akhiri jika

Berikutnya

Akhiri jika

Y = y - 1

Untuk i = 1 hingga 4

Untuk i2 = 1 hingga 4

Jika s (i, i2) = true maka

Jika tidak memerintah = benar maka

Jika uCase (document.all (cstr (coor (x i - 1, y - i2 1))). Bgcolor) <> #000000 dan ucase (document.all (cstr (coor (x i - 1, y - i2 1))). Bgcolor) <> farg kemudian

Gameover

akhiri jika

Akhiri jika

Jika s (i, i2) = true maka

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

Akhiri jika

Berikutnya

fungsi akhir

Sub Gameover ()

Msgbox game berakhir! Tetris

window.clearinterval timer1

Gover = Benar

Akhir sub

Sub ner ()

Skor = skor 10

document.all (sco02) .innertext = skor

Untuk i2 = 25 hingga 1 langkah -1

OK = 1

Untuk i = 1 hingga 10

Jika n (i, i2) = false maka ok = 0

Berikutnya

Jika OK = 1 maka

Skor = skor 150

document.all (sco02) .innertext = skor

Untuk i = 1 hingga 10

Untuk i3 = i2 hingga 24

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

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

Berikutnya

Akhiri jika

Berikutnya

Akhir sub

Koordinat fungsi (xx, yy)

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

Fungsi akhir

Sub rota ()

ROT2 = Busuk 1

Jika ROT2 = 5 maka ROT2 = 1

If (gbr = 2 atau gbr> 5) dan rot2 = 3 lalu rot2 = 1

Untuk i = 1 hingga 4

Untuk i2 = 1 hingga 4

S3 (i, i2) = 0

Berikutnya

Pilih case gbr

Kasus 2

Pilih Case ROT2

Kasus 1: S3 (1, 2) = Benar: S3 (2, 2) = Benar: S3 (3, 2) = Benar: S3 (4, 2) = Benar

Kasus 2: S3 (2, 1) = Benar: S3 (2, 2) = Benar: S3 (2, 3) = Benar: S3 (2, 4) = Benar

Akhiri Pilih

Kasus 3

Pilih Case ROT2

Kasus 1: S3 (2, 1) = Benar: S3 (3, 1) = Benar: S3 (3, 2) = Benar: S3 (3, 3) = Benar

Kasus 2: S3 (4, 1) = Benar: S3 (4, 2) = Benar: S3 (3, 2) = Benar: S3 (2, 2) = Benar

Kasus 3: S3 (3, 3) = Benar: S3 (2, 3) = Benar: S3 (2, 2) = Benar: S3 (2, 1) = Benar

Kasus 4: S3 (2, 2) = Benar: S3 (2, 1) = Benar: S3 (3, 1) = Benar: S3 (4, 1) = Benar

Akhiri Pilih

Kasus 4

Pilih Case ROT2

Kasus 1: S3 (3, 1) = Benar: S3 (2, 1) = Benar: S3 (2, 2) = Benar: S3 (2, 3) = Benar

Kasus 2: S3 (2, 1) = Benar: S3 (3, 1) = Benar: S3 (4, 1) = Benar: S3 (4, 2) = Benar

Kasus 3: S3 (3, 1) = Benar: S3 (3, 2) = Benar: S3 (3, 3) = Benar: S3 (2, 3) = Benar

Kasus 4: S3 (2, 1) = Benar: S3 (2, 2) = Benar: S3 (3, 2) = Benar: S3 (4, 2) = Benar

Akhiri Pilih

Kasus 5

Pilih Case ROT2

Kasus 1: S3 (3, 1) = Benar: S3 (3, 2) = Benar: S3 (3, 3) = Benar: S3 (2, 2) = Benar

Kasus 2: S3 (3, 1) = Benar: S3 (2, 2) = Benar: S3 (3, 2) = Benar: S3 (4, 2) = Benar

Kasus 3: S3 (2, 1) = Benar: S3 (2, 2) = Benar: S3 (2, 3) = Benar: S3 (3, 2) = Benar

Kasus 4: S3 (2, 1) = Benar: S3 (3, 1) = Benar: S3 (4, 1) = Benar: S3 (3, 2) = Benar

Akhiri Pilih

Kasus 6

Pilih Case ROT2

Kasus 1: S3 (2, 1) = Benar: S3 (2, 2) = Benar: S3 (3, 2) = Benar: S3 (3, 3) = Benar

Kasus 2: S3 (2, 2) = Benar: S3 (3, 2) = Benar: S3 (3, 1) = Benar: S3 (4, 1) = Benar

Akhiri Pilih

Kasus 7

Pilih Case ROT2

Kasus 1: S3 (3, 1) = Benar: S3 (3, 2) = Benar: S3 (2, 2) = Benar: S3 (2, 3) = Benar

Kasus 2: S3 (2, 1) = Benar: S3 (3, 1) = Benar: S3 (3, 2) = Benar: S3 (4, 2) = Benar

Akhiri Pilih

OK = 1

Untuk i = 1 hingga 4

Untuk i2 = 1 hingga 4

Jika s3 (i, i2) = true maka

Jika x i - 1 <1 atau x i - 1> 10 atau y - i2 1 <1 maka ok = 0

Jika OK = 1 maka

Jika n (x i - 1, y - i2 1) = true maka ok = 0

Akhiri jika

Berikutnya

Jika OK = 0 maka Keluar dari Sub

Rot = ROT2

Untuk i = 1 hingga 4

Untuk i2 = 1 hingga 4

Jika s3 (i, i2) = true dan s (i, i2) = false maka

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

Akhiri jika

Jika s3 (i, i2) = false dan s (i, i2) = true maka

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

Akhiri jika

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

Berikutnya

Akhir sub

Sub Document_onkeydown

Jika window.event.keycode = 27 lalu msgbox jeda ,, tet

If window.event.keycode = 80 atau window.event.keycode = 114 Kemudian iniciar (d)

If window.event.keycode = 113 lalu iniciar (i)

Jika bukan Pausa = true maka

Jika window.event.keycode = 38 dan gbr> 1 lalu rota

Jika window.event.keycode = 37 lalu

OK = 1

Untuk i = 1 hingga 4

Untuk i2 = 1 hingga 4

If s (i, i2) = true dan x i - 1 - 1> 0 lalu

Jika n (x i - 1 - 1, y - i2 1) = true maka ok = 0

Akhiri jika

If s (i, i2) = true dan x i - 1 - 1 <1 maka ok = 0

Berikutnya

Jika OK = 1 maka

X = x - 1

Untuk i = 1 hingga 4

Untuk i2 = 1 hingga 4

Jika s (i, i2) = true maka

Jika s (i 1, i2) = false maka

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

Akhiri jika

Jika s (i, i2) = true maka

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

Akhiri jika

Berikutnya

Akhiri jika

Jika window.event.keycode = 39 lalu

OK = 1

Untuk i = 1 hingga 4

Untuk i2 = 1 hingga 4

Jika s (i, i2) = true dan x i - 1 1 <11 lalu

Jika n (x i - 1 1, y - i2 1) = true maka ok = 0

Akhiri jika

If s (i, i2) = true dan x i - 1 1> 10 maka ok = 0

Berikutnya

Jika OK = 1 maka

X = x 1

Untuk i = 1 hingga 4

Untuk i2 = 1 hingga 4

Jika s (i, i2) = true maka

Jika s (i - 1, i2) = false maka

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

Akhiri jika

Jika s (i, i2) = true maka

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

Akhiri jika

Berikutnya

Akhiri jika

Aqui

Jika window.event.keycode = 32 atau window.event.keycode = 40 lalu

Jika Gbr> 0 Lalu

Untuk i = 1 hingga 4

Untuk i2 = 1 hingga 4

Jika s (i, i2) = true maka

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

Akhiri jika

Berikutnya

Melakukan

Y = y - 1

Untuk i = 1 hingga 4

Untuk i2 = 1 hingga 4

If s (i, i2) = true dan y - i2 1 = 1 lalu gbr = 0

Jika y - i2> 0 dan x i - 1> 0 dan x i - 1 <11 Kemudian

Jika s (i, i2) = true dan n (x i - 1, y - i2) = true maka gbr = 0

Akhiri jika

Berikutnya

Loop sampai gbr = 0

Untuk i = 1 hingga 4

Untuk i2 = 1 hingga 4

Jika s (i, i2) = true maka

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

Akhiri jika

Jika s (i, i2) = true maka n (x i - 1, y - i2 1) = true

Berikutnya

Akhiri jika

Akhir sub

fungsi mmove (indeks)

Jika indeks = saya kemudian

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

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

kalau tidak

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

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

akhiri jika

fungsi akhir

</script>

</html>

<%Berakhir jika%>

Bagikan: Gunakan ASP untuk membuat diagram lingkaran, diagram batang, dll.
Dalam pekerjaan kami, kami sering perlu mengonversi data menjadi bagan batang, diagram lingkaran, dll. Untuk memfasilitasi dan analisis data intuitif. Di sini saya akan memperkenalkan kepada Anda komponen yang membuat diagram lingkaran dan diagram batang di ASP: CSDrawGraph, csdgt.zip. Karena ini adalah komponen, kita perlu menggunakan REGSV sebelum menggunakannya.