Игра тетриса, написанная в ASP

Автор：Eve Cole Время обновления：2025-04-18 00:16:01

Рекомендуется: как ASP говорит о подаче заявления на занятия?
Объектно-ориентированное программирование По мере увеличения сложности проектирования программы, структурированных методов программирования недостаточно. Основная причина недостаточного использования заключается в том, что в повторном использовании кода неудобно. Родился объектно-ориентированный метод, и он относительно совершенен благодаря наследству.

Ниже приведено цитируемое содержание:

<%, Если не запросить. Querystring (ven) = t Тогда%>

<html>

<Голова>

</Head>

Функция 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, пользователь, статус = no, wbar = no, menubar = no, height = 456, width = 304, top = 100, left = 100, scrollbars = no

window.history.back (-1)

Конечная функция

</Script>

</Body>

</Html>

<%else%>

<html>

<Голова>

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

<Стиль типа = текст/css>

<!-

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

.Normal

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

. Нормальный {font-family: verdana, helvetica, arial, без засечка; цвет:#000000; размер шрифта: 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>

<Центр>

<таблица границы = 0 ширина = 300 сотока = 0 cellPadding = 0> <TR> <td ширина = 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>

</table>

</center>

</td>

<Таблица границы = 1 Bordercolor =#000000 Высота = 452 Ширина = 100 сотовой связи = 0 CellPadding = 0>

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

</tr>

<td class = normald align = center bgcolor =#ffcc00> область приглашения </td>

</tr>

<!-предварительный просмотр INICIO->

</tr>

</tr>

</tr>

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

<!-ПРЕДВАРИТЕЛЬНЫЙ ПРЕДУПРЕЖДЕНИЕ->

</td>

</tr>

<ТР высота = 32>

<td id = sco01 align = center bgcolor =#009900 class = normalh onmouseover = mmove (i) onmouseout = mmove (o)> оценка </td>

</tr>

<ТР высота = 32>

</tr>

<ТР высота = 32>

</tr>

<ТР высота = 32>

</tr>

<ТР высота = 32>

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

</tr>

<ТР высота = 32>

</tr>

<ТР высота = 32>

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

</tr>

<ТР высота = 32>

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

</Body>

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

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

Цветовая форма

GUBE = FALSE

функция Iniciar (Ind)

Если ind = я тогда

Оценка = 0

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

Выберите 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

Fig2 = 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) = true, тогда

Document.all (P & Cstr ((i2 - 1) * 4 I - 1)). Bgcolor = farg2

Конец, если

Конец суб

Функция poslevel (lev)

Выберите Case 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) = true then n (x i - 1, y - i2 1) = true

Нор

Нифиг

Еще

Для i = 1 до 4

Для i2 = 1-4

Если s (i, i2) = true и s (i, i2 - 1) = false then

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, тогда

Если не правительство = правда, тогда

Если ucase (document.all (cstr (coor (x i - 1, y - i2 1))). Bgcolor) <> #000000 и ucase (document.all (cstr (coor (x i - 1, y - i2 1)). Bgcolor) <> farg тогда

Игра закончена

конец, если

Конец, если

Если s (i, i2) = true, тогда

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

Конец, если

конечная функция

Sub GameOver ()

MSGBOX Игра заканчивается! Тетрис

Window.clearinterval Timer1

GUBE = TRUE

Конец суб

Sub ner ()

Оценка = оценка 10

document.all (sco02) .innertext = оценка

Для i2 = 25-1 Шаг -1

ОК = 1

Для i = 1-10

Если n (i, i2) = false, то OK = 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 = rot 1

Если rot2 = 5, то rot2 = 1

If (Fig = 2 или Fig> 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) = true, тогда

Если x i - 1 <1 или x i - 1> 10 или y - i2 1 <1, то OK = 0

Если ОК = 1, то тогда

Если n (x i - 1, y - i2 1) = true then ok = 0

Конец, если

Если OK = 0, то выйдите

Гниль = гниль2

Для i = 1 до 4

Для i2 = 1-4

Если s3 (i, i2) = true и s (i, i2) = false then

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

Конец, если

Если s3 (i, i2) = false и s (i, i2) = true then

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

Конец, если

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

Конец суб

Sub Document_onkeydown

If window.event.keycode = 27, то msgbox pause ,, tet

Если window.event.keycode = 80 или window.event.keycode = 114 Then Iniciar (d)

If window.event.keycode = 113, затем iniciar (i)

Если не pausa = true, тогда

If 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) = true, то OK = 0

Конец, если

Если s (i, i2) = true и x i - 1 - 1 <1, то OK = 0

Если ОК = 1, то тогда

X = x - 1

Для i = 1 до 4

Для i2 = 1-4

Если s (i, i2) = true, тогда

Если s (i 1, i2) = false, то

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

Конец, если

Если s (i, i2) = true, тогда

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) = true then ok = 0

Конец, если

Если s (i, i2) = true и x i - 1 1> 10, то OK = 0

Если ОК = 1, то тогда

X = x 1

Для i = 1 до 4

Для i2 = 1-4

Если s (i, i2) = true, тогда

Если s (i - 1, i2) = false, то

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

Конец, если

Если s (i, i2) = true, тогда

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

Конец, если

Акви

Если window.event.keycode = 32 или window.event.keycode = 40 тогда

Если рис.> 0, тогда

Для i = 1 до 4

Для i2 = 1-4

Если s (i, i2) = true, тогда

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) = true, тогда

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

Конец, если

Если s (i, i2) = true then n (x i - 1, y - i2 1) = true

Конец, если

Конец суб

Функция mmove (индекс)

Если index = я тогда

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

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

еще

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

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

конец, если

конечная функция

</script>

</Html>

<%Конец, если%>

Поделиться: используйте ASP, чтобы сделать круговые диаграммы, барные диаграммы и т. Д.
В нашей работе нам часто нужно преобразовать данные в гистограммы, круговые диаграммы и т. Д., Чтобы облегчить и интуитивно понятный анализ данных. Здесь я представлю вам компонент, который изготавливает круговые диаграммы и барные диаграммы в ASP: CSDRAWGRAPH, CSDGT.ZIP. Поскольку это компонент, нам нужно использовать REGSV, прежде чем использовать его.