Jeu tetris écrit en asp

Auteur：Eve Cole Date de mise à jour：2025-04-18 00:16:01

Recommandé: comment ASP parle-t-il de postuler aux cours?
La programmation orientée objet à mesure que la complexité de la conception du programme augmente, les méthodes de programmation structurées ne sont pas suffisantes. La raison fondamentale de l'utilisation insuffisante est qu'il n'est pas pratique de réutiliser le code. Une méthode orientée objet est née et elle est relativement parfaite grâce à l'héritage.

Ce qui suit est le contenu cité:

<% Sinon demande.Querystring (Ven) = t alors%>

<html>

<adal>

</ Head>

fonction redir ()

window.open <% = right (request.servervariables (script_name), Len (request.servervariables (script_name)) - instrrev (request.servervariables (script_name), /, len (Request.servervariables (script_name))))%>? Ven = t, utilisateur, status = non, barre d'outils = non, menuBar = non, hauteur = 456, largeur = 304, top = 100, gauche = 100, barreaux de défilement = non

window.history.back (-1)

Fonction finale

</cript>

</docy>

</html>

<% else%>

<html>

<adal>

<Title> ** VBScript Tetris Game ** </Title>

<! -

.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; Color: # 000000; Font-Size: 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;}

</ Style>

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

</ table>

</ Center>

</td>

<td class = Normalg Align = Center BgColor = # FFFF00> TETRIS </TD>

</tr>

<td class = normald align = Center bgColor = # ffcc00> zone rapide </td>

</tr>

<! - Inicio Aperçu ->

</tr>

</tr>

</tr>

</ table> </ centre> </div>

<! - Aperçu de 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>

<td id = in09 align = Center bgColor = # 009900 class = normalh onclick = self.close () onMouseOver = mMove (i) onMouseout = mMove (o)> Fermez la fenêtre </ td>

</tr>

</ table>

moins

</docy>

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

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 = faux

Hastini = Vellevel (Levlini)

Hast = Hastini

Levl = Levlini

Pos = levl - 1

Colorier

Gover = faux

fonction iniciar (ind)

Si ind = je alors

score = 0

Gover = faux

Hast = Hastini

Levl = Levlini

Pos = poslevel (levl)

Pour i = 1 à 4: pour i2 = 1 à 4: s2 (i, i2) = false: Suivant:

Pour i = 1 à 10: pour i2 = 1 à 25: n (i, i2) = false: suivant: Suivant

Timer1 = window.setinterval (andar (), hast)

Colorier

Fig2 = 0

Nyfig

autre

Window.ClearInterval Timer1

terminer si

fonction finale

Sub nyfig ()

Pos = pos 1

document.all (in06) .InnerText = pos

Sélectionnez Case POS

Cas 30: levl = 2: hast = velvel (levl): window.in02.innertext = levl

Cas 60: LEVL = 3: Hast = Vellevel (LEVL): Window.in02.InnerText = LEVL

Cas 90: levl = 4: Hast = Vellevel (levl): Window.in02.InnerText = LEVL

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

Cas 150: levl = 6: Hast = Vellevel (levl): Window.in02.InnerText = levl

Cas 180: levl = 7: hast = velvel (levl): window.in02.innertext = levl

Cas 210: levl = 8: hast = velvel (levl): window.in02.innertext = levl

Cas 240: levl = 9: hast = velvel (levl): window.in02.innertext = levl

Cas 270: levl = 10: hast = velvel (levl): window.in02.innertext = levl

Cas 300: levl = 11: hast = velvel (levl): window.in02.innertext = levl

Fin de sélection

Window.ClearInterval Timer1

Timer1 = window.setinterval (andar (), hast)

Fig = Fig2

Farg = farg2

Fig2 = int (rnd * 7) 1

X = 4

Y = 26

Rot = 1

Pour i = 1 à 4: pour i2 = 1 à 4: s (i, i2) = s2 (i, i2): s2 (i, i2) = 0: Suivant:

Sélectionnez le cas Fig2

Cas 1: S2 (2, 2) = Vrai: S2 (3, 2) = Vrai: S2 (2, 3) = Vrai: S2 (3, 3) = Vrai: Farg2 = # FF0000

Cas 2: S2 (1, 2) = Vrai: S2 (2, 2) = Vrai: S2 (3, 2) = Vrai: S2 (4, 2) = Vrai: Farg2 = # 33CC33

Cas 3: S2 (2, 1) = Vrai: S2 (3, 1) = Vrai: S2 (3, 2) = Vrai: S2 (3, 3) = Vrai: Farg2 = # FF9900

Cas 4: S2 (3, 1) = Vrai: S2 (2, 1) = Vrai: S2 (2, 2) = Vrai: S2 (2, 3) = Vrai: Farg2 = # 666666

Cas 5: S2 (3, 1) = Vrai: S2 (3, 2) = Vrai: S2 (3, 3) = Vrai: S2 (2, 2) = Vrai: Farg2 = # CC00CC

Cas 6: S2 (2, 1) = Vrai: S2 (2, 2) = Vrai: S2 (3, 2) = Vrai: S2 (3, 3) = Vrai: Farg2 = # 6666FF

Cas 7: S2 (3, 1) = Vrai: S2 (3, 2) = Vrai: S2 (2, 2) = Vrai: S2 (2, 3) = Vrai: Farg2 = # 33CCCC

Fin de sélection

Pour i = 1 à 4

Pour i2 = 1 à 3

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

Si s2 (i, i2) = true alors

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

Terminer si

Sub-Sub

Fonction poslevel (LEV)

Sélectionnez Case Lev

Cas 1: Poslevel = 1

Cas 2: Poslevel = 51

Cas 3: Poslevel = 81

Cas 4: Poslevel = 111

Cas 5: Poslevel = 141

Cas 6: Poslevel = 181

Cas 7: Poslevel = 221

Cas 8: Poslevel = 261

Cas 9: Poslevel = 301

Cas 10: Poslevel = 341

Fin de sélection

Fonction finale

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

Fonction Vellevel (velo)

Sélectionnez Case Velo

Cas 1: Vellevel = 500

Cas 2: Vellevel = 450

Cas 3: Vellevel = 400

Cas 4: Vellevel = 350

Cas 5: Vellevel = 300

Cas 6: Vellevel = 250

Cas 7: Vellevel = 200

Cas 8: Vellevel = 150

Cas 9: Vellevel = 100

Cas 10: Vellevel = 50

Cas 11: Vellevel = 10

Fin de sélection

Fonction finale

Sub ColorForm ()

Pour i = 0 à 11: document.all (p & cstr (i)). Bgcolor = # 000000: suivant

Pour i = 0 à 249: document.all (cstr (i)). Bgcolor = # 000000: Suivant

Sub-Sub

fonction andar ()

Pour i = 1 à 4

Pour i2 = 1 à 4

Si s (i, i2) = true et y - i2 1 = 1 alors fig = 0

Si y - i2> 0 et x i - 1> 0 et x i - 1 <11 alors

Si s (i, i2) = true et n (x i - 1, y - i2) = true alors fig = 0

Terminer si

Si Fig = 0 alors

Pour i = 1 à 4

Pour i2 = 1 à 4

Si s (i, i2) = true alors n (x i - 1, y - i2 1) = true

Nervure

Nyfig

Autre

Pour i = 1 à 4

Pour i2 = 1 à 4

Si s (i, i2) = true et s (i, i2 - 1) = false alors

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

Terminer si

Y = y - 1

Pour i = 1 à 4

Pour i2 = 1 à 4

Si s (i, i2) = true alors

Si ce n'est pas gouverné = true alors

Si ucase (document.all (cstr (coor (x i - 1, y - i2 1))). Bgcolor) <> # 000000 et ucase (document.all (cstr (coor (x i - 1, y - i2 1))). Bgcolor) <> farg alors alors

Jeu terminé

terminer si

Terminer si

Si s (i, i2) = true alors

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

Terminer si

fonction finale

Sub Gameover ()

Msgbox le jeu se termine! Tétris

Window.ClearInterval Timer1

Gover = vrai

Sub-Sub

Sub ner ()

Score = score 10

Document.all (SCO02) .InnerText = Score

Pour i2 = 25 à 1 étape -1

Ok = 1

Pour i = 1 à 10

Si n (i, i2) = false alors ok = 0

Si ok = 1 alors

Score = score 150

Document.all (SCO02) .InnerText = Score

Pour i = 1 à 10

Pour 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

Terminer si

Sub-Sub

Coordonnée de fonction (xx, yy)

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

Fonction finale

Sous-rota ()

Rot2 = rot 1

Si rot2 = 5 alors rot2 = 1

If (Fig = 2 ou Fig> 5) et rot2 = 3 alors rot2 = 1

Pour i = 1 à 4

Pour i2 = 1 à 4

s3 (i, i2) = 0

Sélectionnez le figuier du cas

Cas 2

Sélectionner le cas Rot2

Cas 1: S3 (1, 2) = Vrai: S3 (2, 2) = Vrai: S3 (3, 2) = Vrai: S3 (4, 2) = Vrai

Cas 2: S3 (2, 1) = Vrai: S3 (2, 2) = Vrai: S3 (2, 3) = Vrai: S3 (2, 4) = Vrai

Fin de sélection

Cas 3

Sélectionner le cas Rot2

Cas 1: S3 (2, 1) = Vrai: S3 (3, 1) = Vrai: S3 (3, 2) = Vrai: S3 (3, 3) = Vrai

Cas 2: S3 (4, 1) = Vrai: S3 (4, 2) = Vrai: S3 (3, 2) = Vrai: S3 (2, 2) = Vrai

Cas 3: S3 (3, 3) = Vrai: S3 (2, 3) = Vrai: S3 (2, 2) = Vrai: S3 (2, 1) = Vrai

Cas 4: S3 (2, 2) = Vrai: S3 (2, 1) = Vrai: S3 (3, 1) = Vrai: S3 (4, 1) = Vrai

Fin de sélection

Cas 4

Sélectionner le cas Rot2

Cas 1: S3 (3, 1) = Vrai: S3 (2, 1) = Vrai: S3 (2, 2) = Vrai: S3 (2, 3) = Vrai

Cas 2: S3 (2, 1) = Vrai: S3 (3, 1) = Vrai: S3 (4, 1) = Vrai: S3 (4, 2) = Vrai

Cas 3: S3 (3, 1) = Vrai: S3 (3, 2) = Vrai: S3 (3, 3) = Vrai: S3 (2, 3) = Vrai

Cas 4: S3 (2, 1) = Vrai: S3 (2, 2) = Vrai: S3 (3, 2) = Vrai: S3 (4, 2) = Vrai

Fin de sélection

Cas 5

Sélectionner le cas Rot2

Cas 1: S3 (3, 1) = Vrai: S3 (3, 2) = Vrai: S3 (3, 3) = Vrai: S3 (2, 2) = Vrai

Cas 2: S3 (3, 1) = Vrai: S3 (2, 2) = Vrai: S3 (3, 2) = Vrai: S3 (4, 2) = Vrai

Cas 3: S3 (2, 1) = Vrai: S3 (2, 2) = Vrai: S3 (2, 3) = Vrai: S3 (3, 2) = Vrai

Cas 4: S3 (2, 1) = Vrai: S3 (3, 1) = Vrai: S3 (4, 1) = Vrai: S3 (3, 2) = Vrai

Fin de sélection

Cas 6

Sélectionner le cas Rot2

Cas 1: S3 (2, 1) = Vrai: S3 (2, 2) = Vrai: S3 (3, 2) = Vrai: S3 (3, 3) = Vrai

Cas 2: S3 (2, 2) = Vrai: S3 (3, 2) = Vrai: S3 (3, 1) = Vrai: S3 (4, 1) = Vrai

Fin de sélection

Cas 7

Sélectionner le cas Rot2

Cas 1: S3 (3, 1) = Vrai: S3 (3, 2) = Vrai: S3 (2, 2) = Vrai: S3 (2, 3) = Vrai

Cas 2: S3 (2, 1) = Vrai: S3 (3, 1) = Vrai: S3 (3, 2) = Vrai: S3 (4, 2) = Vrai

Fin de sélection

Ok = 1

Pour i = 1 à 4

Pour i2 = 1 à 4

Si S3 (I, I2) = TRUE alors

Si x i - 1 <1 ou x i - 1> 10 ou y - i2 1 <1 alors ok = 0

Si ok = 1 alors

Si n (x i - 1, y - i2 1) = true alors ok = 0

Terminer si

Si ok = 0 alors sortez sous

Rot = rot2

Pour i = 1 à 4

Pour i2 = 1 à 4

Si s3 (i, i2) = true et s (i, i2) = false alors

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

Terminer si

Si s3 (i, i2) = false et s (i, i2) = true alors

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

Terminer si

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

Sub-Sub

Sub document_onkeydown

If window.event.KeyCode = 27 alors msgbox pause, TET

If window.event.keycode = 80 ou window.event.KeyCode = 114 alors iniciar (d)

If window.event.KeyCode = 113 alors iniciar (i)

Si pas Pausa = TRUE alors

If window.event.KeyCode = 38 et Fig> 1 alors rota

Si window.event.KeyCode = 37 alors

Ok = 1

Pour i = 1 à 4

Pour i2 = 1 à 4

Si s (i, i2) = true et x i - 1 - 1> 0 alors

Si n (x i - 1 - 1, y - i2 1) = true alors ok = 0

Terminer si

Si s (i, i2) = true et x i - 1 - 1 <1 alors ok = 0

Si ok = 1 alors

X = x - 1

Pour i = 1 à 4

Pour i2 = 1 à 4

Si s (i, i2) = true alors

Si s (i 1, i2) = false alors

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

Terminer si

Si s (i, i2) = true alors

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

Terminer si

Si window.event.KeyCode = 39 alors

Ok = 1

Pour i = 1 à 4

Pour i2 = 1 à 4

Si s (i, i2) = true et x i - 1 1 <11 alors

Si n (x i - 1 1, y - i2 1) = true alors ok = 0

Terminer si

Si s (i, i2) = true et x i - 1 1> 10 alors ok = 0

Si ok = 1 alors

X = x 1

Pour i = 1 à 4

Pour i2 = 1 à 4

Si s (i, i2) = true alors

Si s (i - 1, i2) = false alors

Document.all (CSTR (coor (X I - 2, Y - I2 1))). BGCOLOR = # 000000

Terminer si

Si s (i, i2) = true alors

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

Terminer si

Aqui

If window.event.KeyCode = 32 ou Window.Event.KeyCode = 40 alors

Si Fig> 0 alors

Pour i = 1 à 4

Pour i2 = 1 à 4

Si s (i, i2) = true alors

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

Terminer si

Faire

Y = y - 1

Pour i = 1 à 4

Pour i2 = 1 à 4

Si s (i, i2) = true et y - i2 1 = 1 alors fig = 0

Si y - i2> 0 et x i - 1> 0 et x i - 1 <11 alors

Si s (i, i2) = true et n (x i - 1, y - i2) = true alors fig = 0

Terminer si

Boucle jusqu'à la figure = 0

Pour i = 1 à 4

Pour i2 = 1 à 4

Si s (i, i2) = true alors

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

Terminer si

Si s (i, i2) = true alors n (x i - 1, y - i2 1) = true

Terminer si

Sub-Sub

fonction mmove (index)

Si index = i alors

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

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

autre

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

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

terminer si

fonction finale

</cript>

</html>

<% Fin si%>

Partager: Utilisez ASP pour fabriquer des graphiques circulaires, des graphiques à barres, etc.
Dans nos travaux, nous devons souvent convertir les données en graphiques à barres, graphiques circulaires, etc. pour faciliter et une analyse intuitive des données. Ici, je vous présenterai un composant qui fabrique des graphiques à tarte et des graphiques à barres dans ASP: CSDrawgraph, csdgt.zip. Parce qu'il s'agit d'un composant, nous devons utiliser REGSV avant de l'utiliser.