Библиотека Рефераты Курсовые Дипломы Поиск
Библиотека Рефераты Курсовые Дипломы Поиск
сделать стартовой добавить в избранное
Кефирный гриб на сайте za4eti.ru

Компьютеры, Программирование Компьютеры, Программирование     Программное обеспечение Программное обеспечение

Visual Basic

Забавная пачка "5000 дублей".
Юмор – настоящее богатство! Купюры в пачке выглядят совсем как настоящие, к тому же и банковской лентой перехвачены... Но вглядитесь
60 руб
Раздел: Прочее
Ночник-проектор "Звездное небо, планеты", черный.
Оригинальный светильник-ночник-проектор. Корпус поворачивается от руки. Источник света: 1) Лампочка (от карманных фанариков); 2) Три
350 руб
Раздел: Ночники
Ночник-проектор "Звездное небо и планеты", фиолетовый.
Оригинальный светильник - ночник - проектор. Корпус поворачивается от руки. Источник света: 1) Лампочка (от карманных фонариков) 2) Три
330 руб
Раздел: Ночники

Руководство по разработке динамической логической игры на Visual Basic 6.0 Работу подготовил Валерий Шмелев Москва Данное руководство содержит подробнейшее описание процесса разработки полного аналога JAVA-игры на Visual Basic 6.0 (часть 1). В следующих частях документа: - Часть 2 – доводка игровой программы - Часть 3 – разработка версии игры на VB для «наладонных» компьютеров - Часть 4 – разработка версии игры на Delphi - Часть 5 – разработка версии игры на JAVA для сотовых телефонов OFLAMERO Часть 1 Создадим проект формата Projec EXE. Создадим форму Form1 размером 2715х5745. На форме расположим элемент Frame, а в нем разместим элементы Label1 – Label55. Где Label1 – Label6 это колонка Level. А Label7 – Label46 – ячейки игрового поля с номиналами. Label 47-48 – ячейки для служебной информации. Нижний цветной индикатор образован Label49-Label55. Колонке элементов Level и игровому полю будут соответствовать числовые массивы.   Массив Dim level(5)   Массив Dim field(8, 6) Краткое описание игры. Игра начинается с установки игроком маркера в любую ячейку нижнего ряда ячеек (просто Click-нуть мышкой). Такая ячейка выделяется синим цветом, а номинал занятой ячейки прибавляется (либо вычитается) к счету игрока.  Нижний цветной линейный индикатор  начинает укорачиваться. Пока индикатор не исчез, игрок может перемещать игровой маркер по нижней строке вправо или влево от текущего положения нажимая на клавиатуре стрелки «Вправо» или «Влево». Номиналы всех ячеек, которые будет «проходить» маркер, будут прибавляться (или вычитаться) к счету. Как только весь цветной линейный индикатор исчезнет, игрок не может перемещать свой маркер (на мгновение), а номиналы всех ячеек сдвигаются сверху-вниз на одну строчку. Верхняя строка игрового поля заполняется новыми значениями от генератора случайных чисел. При этом, номинал ячейки, сдвинувшейся сверху на ячейку, в которой уже находится маркер, так же прибавляется к счету – это может существенно изменить ваш счет. После этого цветной линейный индикатор восстанавливается и начинает опять укорачиваться, а игрок опять может перемещать игровой маркер. Счет игры ведется в оранжевой ячейке Игра ведется до тех пор, пока счет игрока не станет равным нулю или маркер не попадет на ячейку с номиналом E d . Игра совсем не так проста, как может показаться. Совсем легко разместить свой маркер так, что на него сместится ячейка с номиналом Z - обнуление счета, или E d - окончание игры. Здесь описывается процесс программирования  «текстовой версии» логической табличной игры «Oflamero ». Номиналы ячеек представлены на экране в символьном виде, а ячейки представляют собой элементы Label. В следующей части документа будет представлено полное описание процесса разработки графической версии игры и версии игры для карманных компьтеров (PDA). Программирование Заполним ячейки игрового (массив field(8, 6))поля значениями от генератора случайных чисел. Вычислим количество секунд в текущем времени и столько раз «прокрутим» цикл с обращением к генератору случайных чисел: M = ime                   'Получить время в переменную MS = Le ( M)          'Определить длину строки с значением времени M = Mid$( M, 7, 2)   'Выделить из строки количество секунд For i = 0 o M             ‘Цикл с числом повторений, равным количеству секунд Form1.C

ap io = I ((20 R d) 1)  ‘Значения запишем в заголовок формы, чтобы ‘посмотреть, что работает ex i Заполним массив field(8, 5). Полностью процедура будет: Priva e Sub Se omi al() M = ime                   'Получить время в переменную MS = Le ( M)          'Определить длину строки с значением времени M = Mid$( M, 7, 2)   'Выделить из строки количество секунд For i = 0 o M           Form1.Cap io = I ((20 R d) 1) ex i ' Заполним массив field(8, 5) For i = 0 o 7  For j = 0 o 4  field(i, j) = I ((20 R d) 1)   ex j ex i E d Sub Теперь можно записать тестовую процедуру Priva e Sub Fdraw() для того, чтобы посмотреть, как заполняется массив field(8, 6) Процедура будет выглядеть следующим образом: Priva e Sub Fdraw() Label7.Cap io = field(0, 0) Label8.Cap io = field(1, 0) Label9.Cap io = field(2, 0) Label10.Cap io = field(3, 0) Label11.Cap io = field(4, 0) Label12.Cap io = field(5, 0) Label13.Cap io = field(6, 0) Label14.Cap io = field(7, 0) Label15.Cap io = field(0, 1) Label16.Cap io = field(1, 1) Label17.Cap io = field(2, 1) Label18.Cap io = field(3, 1) Label19.Cap io = field(4, 1) Label20.Cap io = field(5, 1) Label21.Cap io = field(6, 1) Label22.Cap io = field(7, 1) Label23.Cap io = field(0, 2) Label24.Cap io = field(1, 2) Label25.Cap io = field(2, 2) Label26.Cap io = field(3, 2) Label27.Cap io = field(4, 2) Label28.Cap io = field(5, 2) Label29.Cap io = field(6, 2) Label30.Cap io = field(7, 2) Label31.Cap io = field(0, 3) Label32.Cap io = field(1, 3) Label33.Cap io = field(2, 3) Label34.Cap io = field(3, 3) Label35.Cap io = field(4, 3) Label36.Cap io = field(5, 3) Label37.Cap io = field(6, 3) Label38.Cap io = field(7, 3) Label39.Cap io = field(0, 4) Label40.Cap io = field(1, 4) Label41.Cap io = field(2, 4) Label42.Cap io = field(3, 4) Label43.Cap io = field(4, 4) Label44.Cap io = field(5, 4) Label45.Cap io = field(6, 4) Label46.Cap io = field(7, 4) E d Sub Т.е. здесь просто каждая ячейка записывается в Cap io каждой ячейки. Такой метод не стоит считать оптимальным и в последующем можно использовать другие приемы программирования. Чтобы посмотреть резльтаты, нужно вставить вызов двух процедур Priva e Sub Se omi al() и Priva e Sub Fdraw()  в автозапуск при старте программы (на время): Priva e Sub Form Load() Se omi al Fdraw E d Sub Полный проект на Visual Basic этого этапа разработки игры – в файле vbg1.zip Теперь нужно создать процедуру, в которой будет анализироваться содержимое ячеек массива field(8, 6) и в зависимости от их значений будет формироваться нужное символьное значение (номинал) ячейки игрового поля и задаваться нужный цвет символа и фона ячейки. Перепишем процедуру Fdraw() в другую процедуру. Создадим еще одну Label56 для временного хранения «сгенерированного» номинала ячейки и ее цветовых атрибутов (выделена на рисунке). Priva e Sub Color Chars() If field(i, j) = 0 he Label56.Cap io = " 1" If field(i, j) = 0 he Label56.BackColor = &HBBECF4 If field(i, j) = 0 he Label56.ForeColor = &H80000008 If field(i, j) = 1 he Label56.Cap io = "-1" If field(i, j) = 1 he Label56.BackColor = &HBBECF4 If field(i, j) = 1 he Label56.F

oreColor = &H80000008 If field(i, j) = 2 he Label56.Cap io = " 5" If field(i, j) = 2 he Label56.BackColor = &HBBECF4 If field(i, j) = 2 he Label56.ForeColor = &H80000008 If field(i, j) = 3 he Label56.Cap io = "-5" If field(i, j) = 3 he Label56.BackColor = &HBBECF4 If field(i, j) = 3 he Label56.ForeColor = &H80000008 If field(i, j) = 4 he Label56.Cap io = " 10" If field(i, j) = 4 he Label56.BackColor = &HBBECF4 If field(i, j) = 4 he Label56.ForeColor = &H80000008 If field(i, j) = 5 he Label56.Cap io = "-10" If field(i, j) = 5 he Label56.BackColor = &HBBECF4 If field(i, j) = 5 he Label56.ForeColor = &H80000008 If field(i, j) = 6 he Label56.Cap io = " 15" If field(i, j) = 6 he Label56.BackColor = &HBBECF4 If field(i, j) = 6 he Label56.ForeColor = &H80000008 If field(i, j) = 7 he Label56.Cap io = "-15" If field(i, j) = 7 he Label56.BackColor = &HBBECF4 If field(i, j) = 7 he Label56.ForeColor = &H80000008 If field(i, j) = 8 he Label56.Cap io = " 25" If field(i, j) = 8 he Label56.BackColor = &HBBECF4 If field(i, j) = 8 he Label56.ForeColor = &H80000008 If field(i, j) = 9 he Label56.Cap io = " " If field(i, j) = 9 he Label56.BackColor = &HABCFBB If field(i, j) = 9 he Label56.ForeColor = &H80000008 If field(i, j) = 10 he Label56.Cap io = "P" If field(i, j) = 10 he Label56.BackColor = &HFFC0C0 If field(i, j) = 10 he Label56.ForeColor = &H80000008 If field(i, j) = 11 he Label56.Cap io = "B" If field(i, j) = 11 he Label56.BackColor = &H80FFFF If field(i, j) = 11 he Label56.ForeColor = &H80000008 If field(i, j) = 12 he Label56.Cap io = "Z" If field(i, j) = 12 he Label56.BackColor = &H40& If field(i, j) = 12 he Label56.ForeColor = &HFFFFFF If field(i, j) = 13 he Label56.Cap io = "Z" If field(i, j) = 13 he Label56.BackColor = &H40& If field(i, j) = 13 he Label56.ForeColor = &HFFFFFF If field(i, j) = 14 he Label56.Cap io = "E d" If field(i, j) = 14 he Label56.BackColor = &HFF& If field(i, j) = 14 he Label56.ForeColor = &HFFFFFF If field(i, j) = 15 he Label56.Cap io = "-10" If field(i, j) = 15 he Label56.BackColor = &HBBECF4 If field(i, j) = 15 he Label56.ForeColor = &H80000008 If field(i, j) = 16 he Label56.Cap io = "-5" If field(i, j) = 16 he Label56.BackColor = &HBBECF4 If field(i, j) = 16 he Label56.ForeColor = &H80000008 If field(i, j) = 17 he Label56.Cap io = "-1" If field(i, j) = 17 he Label56.BackColor = &HBBECF4 If field(i, j) = 17 he Label56.ForeColor = &H80000008 If field(i, j) = 18 he Label56.Cap io = " 1" If field(i, j) = 18 he Label56.BackColor = &HBBECF4 If field(i, j) = 18 he Label56.ForeColor = &H80000008 If field(i, j) = 19 he Label56.Cap io = " 5" If field(i, j) = 19 he Label56.BackColor = &HBBECF4 If field(i, j) = 19 he Label56.ForeColor = &H80000008 E d Sub Теперь добавим копирование значения и атрибутов ячейки Label56 в ячейку игрового поля и используем несколько циклов для обработки всего массива field(8, 6): - пример копирования Label7.Cap io = Label56.Cap io Label7.BackColor = Label56.BackColor Label7.ForeColor = Label56.ForeColor В итоге появится процедура Sub Field Fill() копирования номиналов из «дежурной» ячейки Label56, а процедура Color Chars() изменится следующим образом: Priva e Sub Color Chars() If field(i, j) = 0 he Label56.C

вариация varied разнообразный variety разновидность, разнообразие various различный, разнообразный variouspagination различная нумерация страниц VAROS (VariableRefractionOpticalSystem) оптическая система с изменяемым преломлением (система, применяемая в сканерах) vary варьировать(ся), менять(ся) varing изменение varingtext изменения в тексте VB (VisualBasic) Визуальный Бейсик (язык программирования) VBA (Visual Basic for Applications) язык Visual Basic для приложений VB Script (Visual Basic Script) языксценариев, разработанныйнаосновеязыкаVisual Basic VBX (Visual Basic extention) управляющиеэлементывсредеVisual Basic VCL (Vector Control Language) Язык векторного управления VCR (video cassette recorder) видеомагнитофон VCPI (virtual control program interface) виртуальный программный управляющий интерфейс VDCA (variable duty-cycle algorithm) алгоритм с переменным рабочим циклом VDH (very distant host) дистанционно удаленная главная ЭВМ VDI (video device interface) интерфейс видеоустройств VDIU (visualdatainputunit)

1. Разработка программы для расчета финансовых показателей, используемых в составлении бизнес-плана на языке Visual Basic

2. Программирование логической игры на visual basic

3. Тест на языке программирования Visual Basic

4. Потоки в Visual Basic

5. Visual Basic и Системный Реестр Windows

6. Техника программирования сложных окон в Visual Basic
7. Не много теории о Visual Basic
8. Использование языка программирования Visual Basic для решения математических задач

9. Access і Visual basic for Application. Excel VBA: прийоми програмування

10. Greating 3D-Graphics on visual basic

11. Адресная книга на языка Visual Basic

12. Работа в среде Visual Basic

13. Решение экономических и бухгалтерских задач с использованием инструментария Visual Basic For Application

14. Создание макроса на языке Statistica Visual Basic для проверки гипотезы о нормальности остатков регрессии

15. Создание теста на Visual Basic

16. Завдання з програмування на Visual Basic

Трехколесный велосипед Funny Jaguar Lexus Racer Trike Air (цвет: бронза).
Детский трехколесный велосипед с колясочной крышей на надувных колесах – настоящее спасение для мам с маленькими детьми. Главное место для
4200 руб
Раздел: Трехколесные
Набор детской мебели "Растем вместе" (цвет: орех).
Качественная детская мебель всегда отличается от взрослой, так как производится с учетом строения тела малыша и того, что он быстро
4541 руб
Раздел: Наборы детской мебели
Набор мисок Mayer & Boch "Земляника".
Набор эмалированных мисок из 10 предметов: миска (5 штук) + крышка (5 штук). Материал: сталь. Эмалированное покрытие. Крышка:
487 руб
Раздел: Наборы

17. Великобритания (расширенный вариант реферата 9490)

18. Реферат о Пугачеве

19. Three Waves of Alvin Toffler. The Basic Points

20. Реферат перевода с английского языка из книги “A History of England” by Keith Feiling

21. Реферат по книге Фернана Броделя

22. Описание языка Turbo Basic для студентов всех специальностей
23. Учебник по языку Basic в задачах и примерах
24. Субъект преступления ("подновлённая" версия реферата 6762)

25. Психология труда (Обзорный реферат по психологии труда)

26. "Русский Тарзан" (реферат о российском пловце Александре Попове)

27. Реферат по статье П. Вайнгартнера «Сходство и различие между научной и религиозной верой»

28. Генезис капитализма в Мексике. Реферат по истории экономики

29. Семь чудес света - древний мир, средние века и наше время (история цивилизации, реферат)

30. реферат

31. Обзорный реферат по творчеству Ф.И. Тютчева

32. Реферат - Социальная медицина (ЗДРАВООХРАНЕНИЕ КАК СОЦИАЛЬНАЯ СИСТЕМА ЧЕЛОВЕЧЕСКОГО ОБЩЕСТВА)

Фоторамка "Poster gold" (40х60 см).
Для фотографий размером 40 х 60 см. Материал рамки - пластик. Цвет - золотистый. Материал подложки - плотный картон. Крепежи позволяют
770 руб
Раздел: Размер 40x60 (А2)
Качели, подвесные.
Эти подвесные качели можно разместить дома или на улице в любом удобном месте. Наш пластик прочен и долговечен, поэтому качели прослужат
381 руб
Раздел: Качели
Насос ножной (арт. TD 0468).
Насос механический ножной незаменимый помощник не только для автомобилистов, но и для любителей активного отдыха. Ведь с его помощью Вы
448 руб
Раздел: Насосы, компрессоры автомобильные

33. Реферат - Физиология (строение и функции гемоглобина)

34. Реферат по менеджменту

35. Реферат монографии А.А. Смирнова Проблемы психологии памяти

36. Сборник рефератов о конфликтах

37. Реферат по экскурсоведению

38. Реферат по экологии
39. Реферат о прочитаной на немецком языке литературы
40. Реферат для выпускных экзаменов

41. Реферат по ОБЖ, Тема: СПИД

42. Реферат о США

43. Реферат по делопроизводству с вопросами: Подготовка документов к архивному хранению, Правила оформления реквизитов №№16, 19, 20, 22, Контракты (договоры)

44. Методы работы с массивами на языке BASIC

45. Turbo Basic прикладной

46. Справочник по Visual С++

47. Delphi или Visual C++ - вот в чем вопрос

48. Программируем под IIS на Visual C++

Дневник "My Life Story" (черный).
Дневник, который запечатлеет Всю историю Вашей жизни. В него Вы можете записать все, что не хотите забыть, все важные моменты Вашей жизни,
2850 руб
Раздел: Прочее
Конструктор "Веселый городок" (56 деталей).
Конструктор "Весёлый городок" относится к тематическим наборам для конструирования, так как включает в себя не только детали для
584 руб
Раздел: Деревянные конструкторы
Набор детской складной мебели Ника "Познайка. Большие гонки".
В комплект входит стол-парта и стул с мягким сиденьем. Металлический каркас. Столешница облицована пленкой с тематическими рисунками. На
1367 руб
Раздел: Наборы детской мебели

49. Создание в среде Borland C++ Builder dll, совместимой с Visual C++

50. Создание консольных приложений с помощью мастера в Visual C++ 6 - 2

51. Массивы в языках Pascal и Basic

52. Basic perspectives and schools of developing sociology in the XX century

53. The basic features of translation informal lexicon

54. Мова програмування C++ та середовище розробки Microsoft Visual C++
55. Построение модели DFD и реализация в СУБД Visual FoxPro


Поиск Рефератов на сайте za4eti.ru Вы студент, и у Вас нет времени на выполнение письменных работ (рефератов, курсовых и дипломов)? Мы сможем Вам в этом помочь. Возможно, Вам подойдет что-то из ПЕРЕЧНЯ ПРЕДМЕТОВ И ДИСЦИПЛИН, ПО КОТОРЫМ ВЫПОЛНЯЮТСЯ РЕФЕРАТЫ, КУРСОВЫЕ И ДИПЛОМНЫЕ РАБОТЫ. 
Вы можете поискать нужную Вам работу в КОЛЛЕКЦИИ ГОТОВЫХ РЕФЕРАТОВ, КУРСОВЫХ И ДИПЛОМНЫХ РАБОТ, выполненных преподавателями московских ВУЗов за период более чем 10-летней работы. Эти работы Вы можете бесплатно СКАЧАТЬ.