Tetris -Spiel in ASP geschrieben

Autor：Eve Cole Aktualisierungszeit：2025-04-18 00:16:01

Empfohlen: Wie spricht ASP über die Bewerbung für Klassen?
Objektorientierte Programmierung Mit zunehmender Komplexität des Programmdesigns reichen strukturierte Programmiermethoden nicht aus. Der grundlegende Grund für die unzureichende Verwendung ist, dass es unpraktisch ist, den Code wiederzuverwenden. Eine objektorientierte Methode wurde geboren und ist durch Vererbung relativ perfekt.

Das Folgende ist der zitierte Inhalt:

<%Wenn nicht anfrage.QueryString (ven) = t, dann%>

<html>

<kopf>

</Head>

Funktion 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, user, status = no, toolbar = no, MenuBar = no, Höhe = 456, width = 304, top = 100, links = 100, Scrollbars = Nr

window.history.back (-1)

Endfunktion

</Script>

</Body>

</Html>

<%sonst%>

<html>

<kopf>

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

<!-

.normalhi {Schriftfamilie: Verdana, Helvetica, Arial, sans serif; Farbe:#ffcc00; Schriftgröße: 10PT; Schriftgewicht: fett; Cursor: Hand;}

.normalh {Schriftfamilie: Verdana, Helvetica, Arial, sans serif; Farbe:#000000; Schriftgröße: 10pt; Schriftgewicht: fett; Cursor: Hand;}

.normalg {Schriftfamilie: Verdana, Helvetica, Arial, sans serif; Farbe:#000000; Schriftgröße: 13PT; Schriftgewicht: BOLD;}

.normale {Schriftfamilie: Verdana, Helvetica, Arial, sans serif; Farbe:#000000; Schriftgröße: 10PT; Schriftgewicht: fett;}

.normald {Schriftfamilie: Verdana, Helvetica, Arial, sans serif; Farbe:#000000; Schriftgröße: 10PT; Schriftgewicht: BOLD;}

.normali {Schriftfamilie: Verdana, Helvetica, Arial, sans serif; Farbe:#00ff00; Schriftgröße: 10PT; Schriftgewicht: BOLD;}

.normalo {Schriftfamilie: Verdana, Helvetica, Arial, sans serif; Farbe:#ffff00; Schriftgröße: 10PT; Schriftgewicht: 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> Eingabeaufforderungsbereich </td>

</tr>

<!-Inicio Preview->

</tr>

</tr>

</tr>

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

<!-Fin Preview->

</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)> Schließen Sie das Fenster </td>

</tr>

</table>

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

</Body>

Dim Timer1, Hastini, Levlini, Namn, Score, Levl, Hast, Abb, Fig. 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 = vellevel (Levlini)

Hastini

Levl = Levlini

Pos = levl - 1

Farbform

Gover = falsch

Funktionsiniciar (IND)

Wenn ind = i dann

Punktzahl = 0

Gover = falsch

Hastini

Levl = Levlini

Pos = poslevel (Levl)

Für i = 1 bis 4: für i2 = 1 bis 4: s2 (i, i2) = false: Weiter: Weiter: Weiter

Für i = 1 bis 10: für i2 = 1 bis 25: n (i, i2) = false: Weiter: Weiter

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

Farbform

Fig. 2 = 0

NYFIG

anders

Fenster.ClearInterval Timer1

Ende wenn

Endfunktion

Sub nyfig ()

Pos = pos 1

document.all (in06) .Innertext = pos

Wählen Sie Case pos

Fall 30: Levl = 2: Hast = vellevel (Levl): Fenster.in02.Innertext = Levl

Fall 60: Levl = 3: Hast = vellevel (Levl): Fenster.in02.Innertext = Levl

Fall 90: Levl = 4: Hast = vellevel (Levl): Fenster.in02.Innertext = Levl

Fall 120: Levl = 5: Hast = vellevel (Levl): Fenster.in02.Innertext = Levl

Fall 150: Levl = 6: Hast = vellevel (Levl): Fenster.in02.Innertext = Levl

Fall 180: Levl = 7: Hast = vellevel (Levl): Fenster.in02.Innertext = Levl

Fall 210: Levl = 8: Hast = vellevel (Levl): Fenster.in02.Innertext = Levl

Fall 240: Levl = 9: Hast = vellevel (Levl): Fenster.in02.Innertext = Levl

Fall 270: Levl = 10: Hast = vellevel (Levl): Fenster.in02.Innertext = Levl

Fall 300: Levl = 11: Hast = vellevel (Levl): Fenster.in02.Innertext = Levl

Ende auswählen

Fenster.ClearInterval Timer1

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

Fig = Fig2

Farg = farg2

Fig. 2 = int (rnd * 7) 1

X = 4

Y = 26

Faust = 1

Für i = 1 bis 4: für i2 = 1 bis 4: s (i, i2) = s2 (i, i2): s2 (i, i2) = 0: Weiter: Weiter

Wählen Sie Fall Abbildung 2

Fall 1: S2 (2, 2) = TRUE: S2 (3, 2) = Richtig: S2 (2, 3) = TRUE: S2 (3, 3) = TRUE: FARG2 = #FF0000

Fall 2: S2 (1, 2) = Richtig: S2 (2, 2) = Richtig: S2 (3, 2) = TRUE: S2 (4, 2) = TRUE: FARG2 = #33CC33

Fall 3: S2 (2, 1) = TRUE: S2 (3, 1) = Richtig: S2 (3, 2) = TRUE: S2 (3, 3) = TRUE: FARG2 = #ff9900

Fall 4: S2 (3, 1) = Richtig: S2 (2, 1) = Richtig: S2 (2, 2) = TRUE: S2 (2, 3) = TRUE: FARG2 = #666666

Fall 5: S2 (3, 1) = Richtig: S2 (3, 2) = Richtig: S2 (3, 3) = TRUE: S2 (2, 2) = TRUE: FARG2 = #CC00CC

Fall 6: S2 (2, 1) = TRUE: S2 (2, 2) = TRUE: S2 (3, 2) = TRUE: S2 (3, 3) = TRUE: FARG2 = #6666FF

Fall 7: S2 (3, 1) = Richtig: S2 (3, 2) = Richtig: S2 (2, 2) = TRUE: S2 (2, 3) = TRUE: FARG2 = #33CCC

Ende auswählen

Für i = 1 bis 4

Für i2 = 1 bis 3

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

Wenn s2 (i, i2) = wahr ist

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

Ende wenn

Ende sub

Funktion poslevel (Lev)

Wählen Sie Case Lev

Fall 1: poslevel = 1

Fall 2: poslevel = 51

Fall 3: poslevel = 81

Fall 4: poslevel = 111

Fall 5: poslevel = 141

Fall 6: poslevel = 181

Fall 7: poslevel = 221

Fall 8: poslevel = 261

Fall 9: poslevel = 301

Fall 10: poslevel = 341

Ende auswählen

Endfunktion

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

Funktion Vellevel (Velo)

Wählen Sie Case Velo

Fall 1: vellevel = 500

Fall 2: vellevel = 450

Fall 3: vellevel = 400

Fall 4: vellevel = 350

Fall 5: vellevel = 300

Fall 6: vellevel = 250

Fall 7: vellevel = 200

Fall 8: vellevel = 150

Fall 9: vellevel = 100

Fall 10: vellevel = 50

Fall 11: vellevel = 10

Ende auswählen

Endfunktion

Subfarbig ()

Für i = 0 bis 11: document.all (p & cstr (i)). Bgcolor = #000000: Weiter

Für i = 0 bis 249: document.all (cstr (i)). Bgcolor = #000000: Weiter

Ende sub

Funktion andar ()

Für i = 1 bis 4

Für i2 = 1 bis 4

Wenn s (i, i2) = true und y - i2 1 = 1 dann 1 0 0

Wenn y - i2> 0 und x i - 1> 0 und x i - 1 <11 dann

Wenn s (i, i2) = true und n (x i - 1, y - i2) = true dann fig = 0

Ende wenn

Wenn Fig = 0 dann

Für i = 1 bis 4

Für i2 = 1 bis 4

Wenn s (i, i2) = true dann n (x i - 1, y - i2 1) = true

Ner

NYFIG

Anders

Für i = 1 bis 4

Für i2 = 1 bis 4

Wenn s (i, i2) = true und s (i, i2 - 1) = false dann

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

Ende wenn

Y = y - 1

Für i = 1 bis 4

Für i2 = 1 bis 4

Wenn s (i, i2) = wahr ist

wenn nicht regieren = wahr dann

Wenn ucase (document.All (cstr (coor (x i - 1, y - i2 1)). Bgcolor) <> #000000 und ucase (document.all (cstr (coor (x i - 1, y - i2))). Bgcolor) <> farg, dann dann dann dann

Spiel vorbei

Ende wenn

Wenn s (i, i2) = wahr ist

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

Ende wenn

Endfunktion

Sub wameover ()

Msgbox Das Spiel endet! Tetris

Fenster.ClearInterval Timer1

Gover = wahr

Ende sub

Sub ner ()

Punktzahl = Punktzahl 10

Dokument.All (SCO02) .InNerText = Score

Für i2 = 25 bis 1 Schritt -1

OK = 1

Für i = 1 bis 10

Wenn n (i, i2) = false dann ok = 0

Wenn ok = 1 dann

Punktzahl = Punktzahl 150

Dokument.All (SCO02) .InNerText = Score

Für i = 1 bis 10

Für i3 = i2 bis 24

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

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

Ende wenn

Ende sub

Funktionskoordinate (xx, yy)

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

Endfunktion

Sub rota ()

Rot2 = Rot 1

Wenn rot2 = 5 dann rot2 = 1

If (Fig. 2 oder Fig.> 5) und Rot2 = 3, rot2 = 1

Für i = 1 bis 4

Für i2 = 1 bis 4

s3 (i, i2) = 0

Wählen Sie Fall Abb

Fall 2

Wählen Sie Case rot2

Fall 1: s3 (1, 2) = true: s3 (2, 2) = true: s3 (3, 2) = true: s3 (4, 2) = true

Fall 2: s3 (2, 1) = true: s3 (2, 2) = true: s3 (2, 3) = true: s3 (2, 4) = true

Ende auswählen

Fall 3

Wählen Sie Case rot2

Fall 1: s3 (2, 1) = true: s3 (3, 1) = true: s3 (3, 2) = true: s3 (3, 3) = true

Fall 2: s3 (4, 1) = true: s3 (4, 2) = true: s3 (3, 2) = true: s3 (2, 2) = true

Fall 3: S3 (3, 3) = TRUE: S3 (2, 3) = TRUE: S3 (2, 2) = TRUE: S3 (2, 1) = TRUE

Fall 4: s3 (2, 2) = true: s3 (2, 1) = true: s3 (3, 1) = true: s3 (4, 1) = true

Ende auswählen

Fall 4

Wählen Sie Case rot2

Fall 1: s3 (3, 1) = true: s3 (2, 1) = true: s3 (2, 2) = true: s3 (2, 3) = true

Fall 2: s3 (2, 1) = true: s3 (3, 1) = true: s3 (4, 1) = true: s3 (4, 2) = true

Fall 3: s3 (3, 1) = true: s3 (3, 2) = true: s3 (3, 3) = true: s3 (2, 3) = true

Fall 4: S3 (2, 1) = TRUE: S3 (2, 2) = TRUE: S3 (3, 2) = TRUE: S3 (4, 2) = TRUE

Ende auswählen

Fall 5

Wählen Sie Case rot2

Fall 1: s3 (3, 1) = true: s3 (3, 2) = true: s3 (3, 3) = true: s3 (2, 2) = true

Fall 2: s3 (3, 1) = true: s3 (2, 2) = true: s3 (3, 2) = true: s3 (4, 2) = true

Fall 3: s3 (2, 1) = true: s3 (2, 2) = true: s3 (2, 3) = true: s3 (3, 2) = true

Fall 4: s3 (2, 1) = true: s3 (3, 1) = true: s3 (4, 1) = true: s3 (3, 2) = true

Ende auswählen

Fall 6

Wählen Sie Case rot2

Fall 1: S3 (2, 1) = TRUE: S3 (2, 2) = TRUE: S3 (3, 2) = TRUE: S3 (3, 3) = TRUE

Fall 2: s3 (2, 2) = true: s3 (3, 2) = true: s3 (3, 1) = true: s3 (4, 1) = true

Ende auswählen

Fall 7

Wählen Sie Case rot2

Fall 1: s3 (3, 1) = true: s3 (3, 2) = true: s3 (2, 2) = true: s3 (2, 3) = true

Fall 2: s3 (2, 1) = true: s3 (3, 1) = true: s3 (3, 2) = true: s3 (4, 2) = true

Ende auswählen

OK = 1

Für i = 1 bis 4

Für i2 = 1 bis 4

Wenn s3 (i, i2) = wahr ist

Wenn x i - 1 <1 oder x i - 1> 10 oder y - i2 1 <1 dann OK = 0

Wenn ok = 1 dann

Wenn n (x i - 1, y - i2 1) = true dann ok = 0

Ende wenn

Wenn OK = 0 dann beenden

Rot = Rot2

Für i = 1 bis 4

Für i2 = 1 bis 4

Wenn s3 (i, i2) = true und s (i, i2) = false dann

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

Ende wenn

Wenn s3 (i, i2) = false und s (i, i2) = wahr ist

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

Ende wenn

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

Ende sub

Sub document_onkeydown

If window.event.keycode = 27, dann msgbox pause ,, tet

If window.event.keycode = 80 oder window.event.keycode = 114, dann iniciar (d)

Wenn window.event.keycode = 113 dann iniciar (i))

Wenn nicht Pausa = true dann

Wenn window.event.keycode = 38 und Abb> 1, dann rota

Wenn window.event.keycode = 37 dann

OK = 1

Für i = 1 bis 4

Für i2 = 1 bis 4

Wenn s (i, i2) = true und x i - 1 - 1> 0 dann

Wenn n (x i - 1 - 1, y - i2 1) = true dann OK = 0

Ende wenn

Wenn s (i, i2) = true und x i - 1 - 1 <1 dann OK = 0

Wenn ok = 1 dann

X = x - 1

Für i = 1 bis 4

Für i2 = 1 bis 4

Wenn s (i, i2) = wahr ist

Wenn s (i 1, i2) = false dann

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

Ende wenn

Wenn s (i, i2) = wahr ist

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

Ende wenn

Wenn window.event.keycode = 39 dann

OK = 1

Für i = 1 bis 4

Für i2 = 1 bis 4

Wenn s (i, i2) = true und x i - 1 1 <11 dann

Wenn n (x i - 1 1, y - i2 1) = true dann OK = 0

Ende wenn

Wenn s (i, i2) = true und x i - 1 1> 10 dann ok = 0

Wenn ok = 1 dann

X = x 1

Für i = 1 bis 4

Für i2 = 1 bis 4

Wenn s (i, i2) = wahr ist

Wenn s (i - 1, i2) = false dann

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

Ende wenn

Wenn s (i, i2) = wahr ist

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

Ende wenn

Aqui

Wenn window.event.keycode = 32 oder window.event.keycode = 40 dann

Wenn Abb> 0 dann

Für i = 1 bis 4

Für i2 = 1 bis 4

Wenn s (i, i2) = wahr ist

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

Ende wenn

Tun

Y = y - 1

Für i = 1 bis 4

Für i2 = 1 bis 4

Wenn s (i, i2) = true und y - i2 1 = 1 dann 1 0 0

Wenn y - i2> 0 und x i - 1> 0 und x i - 1 <11 dann

Wenn s (i, i2) = true und n (x i - 1, y - i2) = true dann fig = 0

Ende wenn

Schleife bis Abb. = 0

Für i = 1 bis 4

Für i2 = 1 bis 4

Wenn s (i, i2) = wahr ist

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

Ende wenn

Wenn s (i, i2) = true dann n (x i - 1, y - i2 1) = true

Ende wenn

Ende sub

Funktion MMove (Index)

Wenn index = i dann

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

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

anders

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

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

Ende wenn

Endfunktion

</script>

</Html>

<%Ende wenn%>

Teilen: Verwenden Sie ASP, um Kreisdiagramme, Balkendiagramme usw. zu erstellen.
In unserer Arbeit müssen wir häufig Daten in Balkendiagramme, Kreisdiagramme usw. umwandeln, um Datenanalysen zu erleichtern und intuitive Daten zu erleichtern. Hier werde ich Ihnen eine Komponente vorstellen, die Kreisdiagramme und Balkendiagramme in ASP: CSDrawgraph, CSDGT.zip erstellt. Da es sich um eine Komponente handelt, müssen wir REGSV verwenden, bevor wir sie verwenden.