Домой

Последняя активность

  

Midlet Pascal создание программы с анимацией

 MPascal00 (0) [#] (17.05.2014 / 23:46)
Вот пример простых анимационных логотипов на языке программирования для мобильных телефонов Midlet Pascal

  1. program AniLogo;
  2. const interval=100; // Скорсть с которой анимируются логотипы
  3. var logo1, logo2, logo3: image;
  4. begin
  5. // Загружаем три логотипа
  6. logo1:=LoadImage('/logo1.png'); // 1-й логотип
  7. logo2:=LoadImage('/logo2.png'); // 2-й логотип
  8. logo3:=LoadImage('/logo3.png'); // 3-й логотип
  9. // Показываем анимацию
  10. // Показываем 1-й логотип
  11. DrawImage(logo1, 0, 0);
  12. Repaint;
  13. Delay(interval);
  14. // Показываем 2-й логотип
  15. DrawImage(logo2, 0, 0);
  16. Repaint;
  17. Delay(interval);
  18. // Показываем 3-й логотип
  19. DrawImage(logo3, 0, 0);
  20. Repaint;
  21. Delay(interval);
  22. // Дальше ваш проект
  23. // ...
  24. end.
  Всего: 1

Зарегистрируйтесь и сможете комментировать все темы. Кнопочка вверху
Фильтр по автору
Скачать тему

В Форум

Новые вверху
Statok.net Рейтинг@Mail.ru
spywap.nettop-sid.ru
Яндекс.Метрика