Рекомендуется: как ASP говорит о подаче заявления на занятия? Объектно-ориентированное программирование По мере увеличения сложности проектирования программы, структурированных методов программирования недостаточно. Основная причина недостаточного использования заключается в том, что в повторном использовании кода неудобно. Родился объектно-ориентированный метод, и он относительно совершенен благодаря наследству.
| Ниже приведено цитируемое содержание: <%, Если не запросить. Querystring (ven) = t Тогда%> <html> <Голова> <Meta name = Generator Content = Microsoft Visual Studio 6.0> <Title> </title> </Head> <Script language = vbscript> Функция 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 onload = redir ()> </Body> </Html> <%else%> <html> <Голова> <Meta name = Generator Content = Microsoft Visual Studio 6.0> <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> <Body topmargin = 2 Leftmargin = 2> <div align = center> <Центр> <таблица границы = 0 ширина = 300 сотока = 0 cellPadding = 0> <TR> <td ширина = 200> <Центр> <таблица границы = 1 Bordercolor =#000000 CellPacing = 0 cellPadding = 0 bgcolor =#000000> <tr Height = 18> <td id = 240 width = 18> </td> <td id = 241 width = 18> </td> <td id = 242 width = 18> </td> <td id = 243 width = 18> </td> <td id = 244 width = 18> </td> <td id = 245 width = 18> </td> <td id = 246 width = 18> </td> <td id = 247 width = 18> </td> <td id = 248 width = 18> </td> <td id = 249 width = 18> </td> </tr> <tr Height = 18> <td id = 230 width = 18> </td> <td id = 231 width = 18> </td> <td id = 232 width = 18> </td> <td id = 233 width = 18> </td> <td id = 234 width = 18> </td> <td id = 235 width = 18> </td> <td id = 236 width = 18> </td> <td id = 237 width = 18> </td> <td id = 238 width = 18> </td> <td id = 239 width = 18> </td> </tr> <tr Height = 18> <td id = 220 width = 18> </td> <td id = 221 width = 18> </td> <td id = 222 width = 18> </td> <td id = 223 width = 18> </td> <td id = 224 width = 18> </td> <td id = 225 width = 18> </td> <td id = 226 width = 18> </td> <td id = 227 width = 18> </td> <td id = 228 width = 18> </td> <td id = 229 width = 18> </td> </tr> <tr Height = 18> <td id = 210 width = 18> </td> <td id = 211 width = 18> </td> <td id = 212 width = 18> </td> <td id = 213 width = 18> </td> <td id = 214 width = 18> </td> <td id = 215 width = 18> </td> <td id = 216 width = 18> </td> <td id = 217 width = 18> </td> <td id = 218 width = 18> </td> <td id = 219 width = 18> </td> </tr> <tr Height = 18> <td id = 200 width = 18> </td> <td id = 201 width = 18> </td> <td id = 202 width = 18> </td> <td id = 203 ширина = 18> </td> <td id = 204 width = 18> </td> <td id = 205 width = 18> </td> <td id = 206 width = 18> </td> <td id = 207 width = 18> </td> <td id = 208 width = 18> </td> <td id = 209 width = 18> </td> </tr> <tr Height = 18> <td id = 190 width = 18> </td> <td id = 191 width = 18> </td> <td id = 192 width = 18> </td> <td id = 193 width = 18> </td> <td id = 194 width = 18> </td> <td id = 195 width = 18> </td> <td id = 196 width = 18> </td> <td id = 197 width = 18> </td> <td id = 198 width = 18> </td> <td id = 199 width = 18> </td> </tr> <tr Height = 18> <td id = 180 width = 18> </td> <td id = 181 width = 18> </td> <td id = 182 width = 18> </td> <td id = 183 width = 18> </td> <td id = 184 width = 18> </td> <td id = 185 width = 18> </td> <td id = 186 width = 18> </td> <td id = 187 width = 18> </td> <td id = 188 width = 18> </td> <td id = 189 width = 18> </td> </tr> <tr Height = 18> <td id = 170 width = 18> </td> <td id = 171 width = 18> </td> <td id = 172 width = 18> </td> <td id = 173 width = 18> </td> <td id = 174 width = 18> </td> <td id = 175 width = 18> </td> <td id = 176 width = 18> </td> <td id = 177 width = 18> </td> <td id = 178 width = 18> </td> <td id = 179 width = 18> </td> </tr> <tr Height = 18> <td id = 160 width = 18> </td> <td id = 161 width = 18> </td> <td id = 162 width = 18> </td> <td id = 163 width = 18> </td> <td id = 164 width = 18> </td> <td id = 165 width = 18> </td> <td id = 166 width = 18> </td> <td id = 167 width = 18> </td> <td id = 168 width = 18> </td> <td id = 169 width = 18> </td> </tr> <tr Height = 18> <td id = 150 width = 18> </td> <td id = 151 width = 18> </td> <td id = 152 width = 18> </td> <td id = 153 width = 18> </td> <td id = 154 width = 18> </td> <td id = 155 width = 18> </td> <td id = 156 width = 18> </td> <td id = 157 width = 18> </td> <td id = 158 width = 18> </td> <td id = 159 width = 18> </td> </tr> <tr Height = 18> <td id = 140 width = 18> </td> <td id = 141 width = 18> </td> <td id = 142 width = 18> </td> <td id = 143 width = 18> </td> <td id = 144 width = 18> </td> <td id = 145 width = 18> </td> <td id = 146 width = 18> </td> <td id = 147 width = 18> </td> <td id = 148 width = 18> </td> <td id = 149 width = 18> </td> </tr> <tr Height = 18> <td id = 130 width = 18> </td> <td id = 131 width = 18> </td> <td id = 132 width = 18> </td> <td id = 133 width = 18> </td> <td id = 134 width = 18> </td> <td id = 135 width = 18> </td> <td id = 136 width = 18> </td> <td id = 137 width = 18> </td> <td id = 138 width = 18> </td> <td id = 139 width = 18> </td> </tr> <tr Height = 18> <td id = 120 width = 18> </td> <td id = 121 width = 18> </td> <td id = 122 width = 18> </td> <td id = 123 width = 18> </td> <td id = 124 width = 18> </td> <td id = 125 width = 18> </td> <td id = 126 width = 18> </td> <td id = 127 width = 18> </td> <td id = 128 width = 18> </td> <td id = 129 width = 18> </td> </tr> <tr Height = 18> <td id = 110 width = 18> </td> <td id = 111 width = 18> </td> <td id = 112 width = 18> </td> <td id = 113 width = 18> </td> <td id = 114 width = 18> </td> <td id = 115 width = 18> </td> <td id = 116 width = 18> </td> <td id = 117 width = 18> </td> <td id = 118 width = 18> </td> <td id = 119 width = 18> </td> </tr> <tr Height = 18> <td id = 100 width = 18> </td> <td id = 101 width = 18> </td> <td id = 102 width = 18> </td> <td id = 103 ширина = 18> </td> <td id = 104 width = 18> </td> <td id = 105 width = 18> </td> <td id = 106 width = 18> </td> <td id = 107 width = 18> </td> <td id = 108 width = 18> </td> <td id = 109 width = 18> </td> </tr> <tr Height = 18> <td id = 90 width = 18> </td> <td id = 91 width = 18> </td> <td id = 92 width = 18> </td> <td id = 93 width = 18> </td> <td id = 94 width = 18> </td> <td id = 95 width = 18> </td> <td id = 96 width = 18> </td> <td id = 97 width = 18> </td> <td id = 98 width = 18> </td> <td id = 99 width = 18> </td> </tr> <tr Height = 18> <td id = 80 width = 18> </td> <td id = 81 width = 18> </td> <td id = 82 width = 18> </td> <td id = 83 width = 18> </td> <td id = 84 width = 18> </td> <td id = 85 width = 18> </td> <td id = 86 width = 18> </td> <td id = 87 width = 18> </td> <td id = 88 width = 18> </td> <td id = 89 width = 18> </td> </tr> <tr Height = 18> <td id = 70 width = 18> </td> <td id = 71 width = 18> </td> <td id = 72 width = 18> </td> <td id = 73 width = 18> </td> <td id = 74 width = 18> </td> <td id = 75 width = 18> </td> <td id = 76 width = 18> </td> <td id = 77 width = 18> </td> <td id = 78 width = 18> </td> <td id = 79 width = 18> </td> </tr> <tr Height = 18> <td id = 60 width = 18> </td> <td id = 61 width = 18> </td> <td id = 62 width = 18> </td> <td id = 63 width = 18> </td> <td id = 64 width = 18> </td> <td id = 65 width = 18> </td> <td id = 66 width = 18> </td> <td id = 67 width = 18> </td> <td id = 68 width = 18> </td> <td id = 69 width = 18> </td> </tr> <tr Height = 18> <td id = 50 width = 18> </td> <td id = 51 width = 18> </td> <td id = 52 width = 18> </td> <td id = 53 width = 18> </td> <td id = 54 width = 18> </td> <td id = 55 width = 18> </td> <td id = 56 width = 18> </td> <td id = 57 width = 18> </td> <td id = 58 width = 18> </td> <td id = 59 width = 18> </td> </tr> <tr Height = 18> <td id = 40 width = 18> </td> <td id = 41 width = 18> </td> <td id = 42 width = 18> </td> <td id = 43 width = 18> </td> <td id = 44 width = 18> </td> <td id = 45 width = 18> </td> <td id = 46 width = 18> </td> <td id = 47 width = 18> </td> <td id = 48 width = 18> </td> <td id = 49 width = 18> </td> </tr> <tr Height = 18> <td id = 30 width = 18> </td> <td id = 31 width = 18> </td> <td id = 32 width = 18> </td> <td id = 33 width = 18> </td> <td id = 34 width = 18> </td> <td id = 35 width = 18> </td> <td id = 36 width = 18> </td> <td id = 37 width = 18> </td> <td id = 38 width = 18> </td> <td id = 39 width = 18> </td> </tr> <tr Height = 18> <td id = 20 width = 18> </td> <td id = 21 width = 18> </td> <td id = 22 width = 18> </td> <td id = 23 width = 18> </td> <td id = 24 width = 18> </td> <td id = 25 width = 18> </td> <td id = 26 width = 18> </td> <td id = 27 width = 18> </td> <td id = 28 width = 18> </td> <td id = 29 width = 18> </td> </tr> <tr Height = 18> <td id = 10 width = 18> </td> <td id = 11 width = 18> </td> <td id = 12 width = 18> </td> <td id = 13 width = 18> </td> <td id = 14 ширина = 18> </td> <td id = 15 width = 18> </td> <td id = 16 width = 18> </td> <td id = 17 width = 18> </td> <td id = 18 ширина = 18> </td> <td id = 19 ширина = 18> </td> </tr> <tr Height = 18> <td id = 0 width = 18> </td> <td id = 1 width = 18> </td> <td id = 2 width = 18> </td> <td id = 3 width = 18> </td> <td id = 4 ширина = 18> </td> <td id = 5 width = 18> </td> <td id = 6 width = 18> </td> <td id = 7 width = 18> </td> <td id = 8 width = 18> </td> <td id = 9 ширина = 18> </td> </tr> </table> </center> </td> <td ширина = 100> <Таблица границы = 1 Bordercolor =#000000 Высота = 452 Ширина = 100 сотовой связи = 0 CellPadding = 0> <tr Height = 30> <td class = normalg align = center bgcolor =#ffff00> tetris </td> </tr> <tr Height = 20> <td class = normald align = center bgcolor =#ffcc00> область приглашения </td> </tr> <tr Height = 100> <td bgcolor =#ffcc00> <!-предварительный просмотр INICIO-> <div align = center> <Center> <таблица границы = 1 cellpacing = 0 cellpadding = 0 bgcolor =#000000> <tr Height = 18> <td id = p0 width = 18> </td> <td id = p1 width = 18> </td> <td id = p2 width = 18> </td> <td id = p3 width = 18> </td> </tr> <tr Height = 18> <td id = p4 width = 18> </td> <td id = p5 width = 18> </td> <td id = p6 width = 18> </td> <td id = p7 width = 18> </td> </tr> <tr Height = 18> <td id = p8 width = 18> </td> <td id = p9 width = 18> </td> <td id = p10 width = 18> </td> <td id = p11 width = 18> </td> </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> <td id = sco02 align = center bgcolor =#ffff00 class = normalh> 0 </td> </tr> <ТР высота = 32> <td id = in01 align = center bgcolor =#009900 class = normal onmouseover = mmove (i) onmouseout = mmove (o)> High </td> </tr> <ТР высота = 32> <td id = in02 align = center bgcolor =#ffff00 class = нормальный> 1 </td> </tr> <ТР высота = 32> <td id = in05 align = center bgcolor =#009900 class = normalh onmouseover = mmove (i) onmouseout = mmove (o)> block </td> </tr> <ТР высота = 32> <td id = in06 align = center bgcolor =#ffff00 class = normalh> 1 </td> </tr> <ТР высота = 32> <td id = in03 align = center bgcolor =#009900 class = normalh onclick = iniciar (i) onmouseover = mmove (i) onmouseout = mmove (o)> start </td> </tr> <ТР высота = 32> <td id = in04 align = center bgcolor =#009900 class = normalh onclick = iniciar (d) onmouseover = mmove (i) onmouseout = mmove (o)> end </td> </tr> <TR HEIGHT = 38> <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> <Script language = vbscript> 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, прежде чем использовать его.