Важная информация
Показано с 1 по 8 из 8

Тема: Нужна анимированная картинка

  1. #1  
    Новичок
    Регистрация
    25.12.2010
    Сообщений
    4
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Пацаны помогите пожалуйста!!!В понедельник зачет, нужна анимированная картинка, ток не сильно простая вроде движущейся машинки, так среднячек.Все операторы не проходили, достаточно PSET,LINE,CIRCLE,COLOR,DRAW,PAINT,RANDOMIZE и др.Спасибо
    Ответить с цитированием  
     

  2. #2  
    Гуру Аватар для Абадябер
    Регистрация
    09.12.2010
    Адрес
    Беларусь, Минск
    Сообщений
    1,219
    Сказал(а) спасибо
    302
    Поблагодарили 176 раз(а) в 144 сообщениях
    Записей в блоге
    5
    А Get, Put можно использовать? Делать анимацию из PSET Line и Draw эта сплошная мука
    Дружба-магия-радость!
    Ответить с цитированием  
     

  3. #3  
    Гуру Аватар для Konstantin Shcherba
    Регистрация
    08.11.2010
    Сообщений
    1,336
    Сказал(а) спасибо
    26
    Поблагодарили 139 раз(а) в 107 сообщениях
    Записей в блоге
    1
    Написал простенькие гоночки, не знаю подойтет ли?
    Код qbasic:
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    [Ссылки могут видеть только зарегистрированные пользователи. ] 12
    KeyLeft$ = [Ссылки могут видеть только зарегистрированные пользователи. ](0) + [Ссылки могут видеть только зарегистрированные пользователи. ](75)
    KeyRight$ = [Ссылки могут видеть только зарегистрированные пользователи. ](0) + [Ссылки могут видеть только зарегистрированные пользователи. ](77)
    KeyESC$ = [Ссылки могут видеть только зарегистрированные пользователи. ](27)
    [Ссылки могут видеть только зарегистрированные пользователи. ] Tumby(5, 11)
    Pi = 3.14
    Razmer = 40
    Cvet = 5
    CarX = 320
    CarY = 430
    Ryad = 4
     
    'Trassa
    [Ссылки могут видеть только зарегистрированные пользователи. ] (200, 0)-(200, 639), 15
    [Ссылки могут видеть только зарегистрированные пользователи. ] (440, 0)-(440, 639), 15
     
    GOSUB Car
     
    'Upravlenie
    InputKey:
    K$ = [Ссылки могут видеть только зарегистрированные пользователи. ]
    'IF LEN(K$) <> 0 THEN GOTO NoDelay
     
    'Stiraem starye Tumby
    FOR I = 1 TO 5
      FOR J = 1 TO 11
        IF Tumby(I, J) = 1 THEN
          TumbaX = 200 + I * 40
          TumbaY = J * 40
          TumbaColor = 0
          GOSUB Tumba
        [Ссылки могут видеть только зарегистрированные пользователи. ] IF
      NEXT J
    NEXT I
     
    'Sdvigaem tumby v massive
    FOR I = 1 TO 5
      FOR J = 11 TO 1 STEP -1
        IF J > 1 THEN
          Tumby(I, J) = Tumby(I, J - 1)
        ELSE
          Tumby(I, 1) = 0
        [Ссылки могут видеть только зарегистрированные пользователи. ] IF
      NEXT J
    NEXT I
     
    'Sluchainaya tumba
    IF Ryad = 4 THEN
      [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
      Tumby([Ссылки могут видеть только зарегистрированные пользователи. ]([Ссылки могут видеть только зарегистрированные пользователи. ] * 5) + 1, 1) = 1
      Ryad = 0
    ELSE
      Ryad = Ryad + 1
    [Ссылки могут видеть только зарегистрированные пользователи. ] IF
     
    'Risuem tumby
    FOR I = 1 TO 5
      FOR J = 1 TO 11
        IF Tumby(I, J) = 1 THEN
          TumbaX = 200 + I * 40
          TumbaY = J * 40
          TumbaColor = 8
          GOSUB Tumba
        [Ссылки могут видеть только зарегистрированные пользователи. ] IF
      NEXT J
    NEXT I
     
    'Stolknovenie
    IF Tumby((CarX - 200) / 40, 10) = 1 THEN GOTO EndGame
     
    'Klaviatura
    SELECT CASE K$
      CASE KeyLeft$
        IF CarX > 200 + Razmer * 2 - 1 THEN
          GOSUB Kvadrat
          CarX = CarX - Razmer
          Cvet = 5
          GOSUB Car
        [Ссылки могут видеть только зарегистрированные пользователи. ] IF
        GOTO InputKey
      CASE KeyRight$
        IF CarX < 440 - Razmer * 2 + 1 THEN
          GOSUB Kvadrat
          CarX = CarX + Razmer
          Cvet = 5
          GOSUB Car
        [Ссылки могут видеть только зарегистрированные пользователи. ] IF
        GOTO InputKey
      CASE KeyESC$
        GOTO EndGame
      CASE ELSE
    'Zaderzhka
        Timx = 0
        Tim1 = [Ссылки могут видеть только зарегистрированные пользователи. ]
        Tim2 = [Ссылки могут видеть только зарегистрированные пользователи. ] - Tim1
        DO WHILE Timx < .5
          Timx = [Ссылки могут видеть только зарегистрированные пользователи. ] - Tim1 - Tim2
        LOOP
        GOTO InputKey
    [Ссылки могут видеть только зарегистрированные пользователи. ] SELECT
     
    [Ссылки могут видеть только зарегистрированные пользователи. ]
     
    Car:
    'Kuzov
    [Ссылки могут видеть только зарегистрированные пользователи. ] (CarX - Razmer / 3, CarY), Razmer, Cvet, Pi / 2, 3 * Pi / 2, 10 / 1
    [Ссылки могут видеть только зарегистрированные пользователи. ] (CarX + Razmer / 3, CarY), Razmer, Cvet, 3 * Pi / 2, Pi / 2, 10 / 1
    [Ссылки могут видеть только зарегистрированные пользователи. ] (CarX, CarY - Razmer / 2 - Razmer / 40), Razmer, Cvet, .39 * Pi, .61 * Pi, 1 / 2
    [Ссылки могут видеть только зарегистрированные пользователи. ] (CarX, CarY + Razmer / 2 + Razmer / 40), Razmer, Cvet, .39 * Pi + Pi, .61 * Pi + Pi, 1 / 2
    'Krysha                                                                                                                                                       
    [Ссылки могут видеть только зарегистрированные пользователи. ] (CarX, CarY + Razmer * 1.5), Razmer * 2, Cvet, .36 * Pi, .64 * Pi, 2 / 1
    [Ссылки могут видеть только зарегистрированные пользователи. ] (CarX, CarY - Razmer * 1.4), Razmer * 2, Cvet, .433 * Pi + Pi, .568 * Pi + Pi, 1
    [Ссылки могут видеть только зарегистрированные пользователи. ] (CarX + Razmer * 1.33, CarY + Razmer * .145), Razmer, Cvet, .855 * Pi, 1.137 * Pi, 1
    [Ссылки могут видеть только зарегистрированные пользователи. ] (CarX - Razmer * 1.33, CarY + Razmer * .145), Razmer, Cvet, 1.87 * Pi, .141 * Pi, 1
    'Stekla
    [Ссылки могут видеть только зарегистрированные пользователи. ] (CarX, CarY + Razmer * 1.8), Razmer * 2, Cvet, .44 * Pi, .561 * Pi, 1
    [Ссылки могут видеть только зарегистрированные пользователи. ] (CarX, CarY + Razmer * 2.35), Razmer * 2, Cvet, .443 * Pi, .558 * Pi, 1
    RETURN
     
    Kvadrat:
    [Ссылки могут видеть только зарегистрированные пользователи. ] (CarX - Razmer * .42, CarY - Razmer - 1)-(CarX + Razmer * .42, CarY + Razmer + 1), 0, BF
    RETURN
     
    Tumba:
    [Ссылки могут видеть только зарегистрированные пользователи. ] (TumbaX - Razmer * .42, TumbaY - Razmer * .42)-(TumbaX + Razmer * .42, TumbaY + Razmer * .42), TumbaColor, BF
    RETURN
     
    EndGame:
    Ответить с цитированием  
     

  4. #4  
    Новичок
    Регистрация
    25.12.2010
    Сообщений
    4
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Цитата Сообщение от Абадябер
    А Get, Put можно использовать? Делать анимацию из PSET Line и Draw эта сплошная мука
    Да можно.)
    Ответить с цитированием  
     

  5. #5  
    Новичок
    Регистрация
    25.12.2010
    Сообщений
    4
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Цитата Сообщение от qbasic
    Написал простенькие гоночки, не знаю подойтет ли?
    Спасибо конечно, но такие операторы мы не проходили и я не смогу преподу объяснить как "я" делал....(
    Ответить с цитированием  
     

  6. #6  
    Гуру Аватар для Konstantin Shcherba
    Регистрация
    08.11.2010
    Сообщений
    1,336
    Сказал(а) спасибо
    26
    Поблагодарили 139 раз(а) в 107 сообщениях
    Записей в блоге
    1
    patrol, да я вроде ничего такого не использовал. :)

    Какие именно операторы не проходили?
    Ответить с цитированием  
     

  7. #7  
    Новичок
    Регистрация
    25.12.2010
    Сообщений
    4
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Я выше писал какие можно использовать:) (типа PSET,LINE,CIRCLE,COLOR,DRAW,PAINT,RANDOMIZE ). Сильно сложную не надо, можно что-то типа дом стоит из трубы дым идет, пару елок, можно речку чтоб по ней корабль плыл ну и солне,чтоб лучи двигались :) Мне так, лижбы он отмазался (препод) :D спс
    Ответить с цитированием  
     

  8. #8  
    Гуру Аватар для Konstantin Shcherba
    Регистрация
    08.11.2010
    Сообщений
    1,336
    Сказал(а) спасибо
    26
    Поблагодарили 139 раз(а) в 107 сообщениях
    Записей в блоге
    1
    Сам я не слижком силен в графике - вот попался пример на каком-то форуме:
    Код qbasic:
    [Ссылки могут видеть только зарегистрированные пользователи. ] 7
    A$ = "c2U2R2D2r8u10r5u10r3d10r2d10r28u2"
    A$ = A$ + "r2d32l5u2r3u8l26d10l5u2r3u18l20u12"
    a1$ = "c2U2R2D2r8u10r5e10r3g10r2d10r28u2"
    a1$ = a1$ + "r2d32l5u2r3u8l26d10l5u2r3u18l20u12"
    FOR x = 200 TO 20 STEP -20
    rem движение объекта с право на лево
    [Ссылки могут видеть только зарегистрированные пользователи. ] (x, 120)
    rem задание начальной точки изображения № 1
    [Ссылки могут видеть только зарегистрированные пользователи. ] "x" + [Ссылки могут видеть только зарегистрированные пользователи. ](A$)          
    FOR i = 1 TO 200000
    rem задержка изображения № 1
     NEXT i
    [Ссылки могут видеть только зарегистрированные пользователи. ] (x, 100)-(x + 50, 200), 0, BF
    rem очистка изображения № 1 
    [Ссылки могут видеть только зарегистрированные пользователи. ] (x, 120)
    rem задание начальной точки изображения № 2
    [Ссылки могут видеть только зарегистрированные пользователи. ] "x" + [Ссылки могут видеть только зарегистрированные пользователи. ](a1$)
    rem вызов из ячейки памяти изображения № 2
    FOR i = 1 TO 200000
    rem задержка изображения № 2
    NEXT i
    [Ссылки могут видеть только зарегистрированные пользователи. ] (x, 100)-(x + 50, 200), 0, BF
    rem очистка изображения № 2
    NEXT x

    Может поможет.
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. нужна анимация в qbasic
    от PuCyHOK в разделе QBasic
    Ответов: 4
    Последнее сообщение: 26.05.2012, 09:06
  2. Не отображается картинка
    от Ultra_Dragonoid в разделе HTML, CSS
    Ответов: 1
    Последнее сообщение: 18.03.2012, 09:27
  3. Ответов: 14
    Последнее сообщение: 21.02.2012, 09:25
  4. Ответов: 2
    Последнее сообщение: 21.12.2011, 11:34
  5. Нужна помощь с функцией.
    от Абадябер в разделе C/C++
    Ответов: 23
    Последнее сообщение: 22.01.2011, 13:22
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •