32 33 34 1 2 35 36 37 38 39 40 41 4 42 43 44 45 46 47 5 48 49 6 50 51 52 53 54 55 56 57 58 9 59 10 60 7 61 62 63 64 65 66 67 68 69 8 70 71 72 11 73 74 75 76 77 78 14 79 80 81 31 17 15 82 16 20 83 84 85 19 86 87 88 30 89 18 90 21 91 92 93 94 95 96 97 98 99 22 100 101 102 103 104 105 23 24 106 107 108 26 109 13 110 111 29 28 112 113 114 115
Увага Знижка 50% на курси! поспішайте подати
заявку
Професійної перепідготовки 30 курсів від 6900 руб.
Курси для всіх від 3000 руб. від 1500 руб.
Підвищення кваліфікації 36 курсів від 1500 руб.
Використання мови програмування Visual Basic для вирішення математичних задач
Використання мови програмування Visual Basic для вирішення математичних задач
У моїй попередній роботі «Комп'ютерне моделювання руху тіл» розглядалися можливості мови програмування QBasic для вирішення математичних (професійних) завдань в умовах навчання учнів середніх шкіл та професійних училищ.
Подальший розвиток програмування призвело до появи нових програм адаптованих до операційній системі Windows, і зокрема до появи Visual Basic. У даній роботі я постараюся показати основні відмінності та переваги Visual Basic.
Так що ж таке Visual Basic?
Перед початківцями програмістами завжди постає одне й те ж питання, а саме, яка мова програмування вибрати? На чому програмувати? Звичайно краще починати з легкого і в той же час потужного мови - Visual Basic (VB). Вивчивши прийоми програмування на VB, можна без особливих зусиль вивчити інші мови, такі як Pascal, C ++ і ін.
Слово "БЕЙСІК" (BASIC) - "базовий, основний" - створене з початкових букв англійського виразу "Універсальний мова символічного кодування для початківців". Це "для початківців" довго викликало зневага програмістів, причому подібне нехтування не зникло досі, незважаючи на наявність професійних видань VB.
Програми написані на Visual Basic відрізняються від звичайних додатків тим, що вимагають для своєї роботи бібліотеку msvbvmX0.dll, яка має бути присутня в каталозі Windows \ System. У ролі X виступає версія компілятора VB. Для VB5 - msvbvm50.dll, для VB6 - msvbvm60.dll. Ці бібліотеки йдуть в комплекті з WinME (обидві) і Win98 (тільки msvbvm50.dll), і природно з більш новими версіями цих ОС.
Середовищі Visual Basic може з успіхом використовуватися початківцями користувачами для пізнання секретів програмування і захоплюючих занять по створенню нескладних (спочатку) додатків і, в той же час, надає потужні інструменти розробки досвідченим програмістам. Розвинена довідкова система дозволить при побудові програми і роботі в Visual Basic знайти вихід з будь-якої ситуації і отримати відповідь на будь-яке питання. Починати працювати з Visual Basic можна практично з будь-яким рівнем підготовки.
Що може Visual Basic?
В принципі, можливості Visual Basic нічим не обмежені. Ви можете розширювати можливості VB допомогою використання додаткових функцій. Visual Basic дозволяє використовувати бібліотеки динамічного компонування (DLL бібліотеки), які також можуть широко розширити можливості Visual Basic. Ці бібліотеки можуть бути написані на будь-якій мові програмування.
На VB можна написати будь-яку програму, від обслуговуючих рутинні операції введення даних, до складних інформаційних і комунікаційних систем. У США 60% програмних продуктів написані на VB. Є звичайно дуже невеликі обмеження, наприклад, на VB не можна написати повноцінну DLL бібліотеку, драйвер пристрою VXD, також у VB можна використовувати асемблер.
Установка і настройка VB
Установка Visual Basic не відрізняється особливою складністю, все стандартно. У процесі інсталяції необхідно вказати компоненти, які будуть встановлені на комп'ютер. Якщо на жорсткому диску є місце, то краще вибрати всі компоненти, щоб потім їх не довелося додавати. Тут слід відзначити те, що версія VB 5.0 поставляється з файлами допомоги (приблизно 15Мб), а допомога для VB 6.0 йде в комплекті з MSDN, який поставляється на трьох дисках. Тому якщо у вас шоста версія, записана на одному диску, то будьте впевнені, допомоги там не буде. Але цілком можна взяти допомогу від п'ятої версії і використовувати її для VB 6.0. Після установки VB перезавантажте комп'ютер.
Отже, комп'ютер перезавантажений. Перед роботою з VB його необхідно налаштувати. Для цього запустіть VB (Пуск> Програми-> Microsoft Visual Basic 6.0-> Visual Basic 6). Необхідно зайти в меню Tools-> Options, встановити галочку "Require Variable Declaration". Це позбавить від зайвих помилок при автоматичному визначенні змінних. Далі на вкладці Editor Format, в списку Font необхідно вказати Courier New Cyr. Якщо цього не зробити, то VB НЕ буде коректно відображати кирилицю. Також бажано встановити колір зарезервованих слів в яскраво-синій. Для цього вибрати в списку Code Colors Keyword Text і в полі Foreground вказати яскраво-синій колір (сьомий знизу). От і все! Visual Basic готовий до роботи!
Структура проекту VB
У Visual Basic будь-який проект складається з однієї або декількох так званих форм, кожна з яких вирішує якесь завдання і складається з наступних файлів:
-файл форми (розширення frm) - це звичайний ASCII текстовий файл, в якому записаний весь код, поміщений в форму, а також властивості усіх поміщених на форму елементів управління і самої форми теж.
-файл форми (розширення frx), містить бінарну інформацію (наприклад картинку в PictureBox).
-файл проекту (розширення vbp), містить інформацію про проект
-в файлі (розширення vbw) міститься інформація про робочої області проекту (workspace).
Це необхідний мінімум. (Хоча, бувають і винятки, наприклад, коли в проекті не використовуються форми. Тоді замість frm файлу, буде bas файл.)
Далі наводить додаткові файли, які можуть бути підключені до проекту:
файл кожного модуля (розширення bas) Це текстовий файл.
файл кожного модуля класів (розширення cls). Це текстовий файл.
файл кожного додаткового елемента управління (розширення ctl) Це теж текстовий файл.
файл ресурсів (розширення res)
інші файли (ocx, tlb, і т.д.)
Запам'ятовувати призначення всіх цих файлів не обов'язково, досить запам'ятати 2 файлу: frm-файл, в якому зберігаються код форми і властивості усіх поміщених на цю форму елементів управління. І bas-файл - модуль. У ньому можуть бути оголошені глобальні змінні, константи, функції і т.д. Коротше, тільки код. Без елементів управління.
Середовище розробки VB
Для того щоб зрозуміти, як проектувати інтерфейс, необхідно розібрати середовище розробки Visual Basic. Запустити VB. У вікні (Рис. 1) необхідно вказати тип проекту - "Standart EXE" і натиснути ОК.
На екрані з'явиться наступне вікно (Рис 2).
У лівій частині розташована панель з доступними елементами управління, з якої можна перетягувати потрібні елементи на форму. У центрі знаходиться форма (вікно), іншими словами робоча область активного застосування. Ім'я нової форми - Form1. Вгорі розташована панель інструментів середовища розробки. Праворуч розташовані вікна проекту (Project) і властивостей поточного об'єкта (Properties).
Головна перевага роботи з об'єктами в тому, що об'єкти забезпечують програмний код, який вже не потрібно писати розробнику. Йому просто потрібно встановити властивості об'єкта і викликати методи об'єкту, щоб спонукати об'єкт виконати необхідні функції. Деякі властивості можна відредагувати тільки в період виконання програми (RunTime). Багато об'єктів мають однакові властивості. Наприклад, властивість Caption. У форми (Form) Caption - це заголовок вікна, а у елемента мітки (Label) - це текст всередині позначки.
Для того щоб оцінити різницю між VB і QBasic, згадаємо рішення задачі польоту ядра (Додаток 1). Наприклад: щоб намалювати лінію в QBasic, яка відповідала б сітці координат, необхідно кожну точку, лінію, межі, положення напису, колір описувати відповідними операторами. У VB цей процес значно спрощується, достатньо в лівій частині робочої форми викликати відповідні елементи управління. Для початку проведемо пару ліній і розмістимо на формі два скрол (вертикальний -Vscroll і горизонтальний - Hscpoll), щоб вийшла приблизно картинка, як показано на рис. 3. Причому вибравши той чи інший
Але не слід забувати, що все що знаходиться на робочій області форми міститься у файлі form1.frm і в міру роботи з формою вміст файлу буде змінюватися.
Щоб запустити форму необхідно натиснути Run \ Start або просто F5. Вихід - Run \ End.
Рішення задач в VB
Рішення завдання польоту ядра (Додаток 1), почнемо з визначення необхідних умов, які повинні бути відображені на екрані:
Положення цілі прив'язати до положення горизонтального скрол (HScroll);
Завдання кута стрільби прив'язати до положення вертикального скрол (VScroll);
Максимально відобразити найбільш важливі числові параметри.
Рішення першого пункту почнемо з установки параметрів для горизонтального скрол виділивши HScroll і активувавши властивості поточного об'єкта (Properties-HScroll). Припустимо, що задана максимальна дальність мети відповідає 15000 м, тоді максимальне значення скрол також повинно відповідати 15000 м. Змінимо в графі MAX величину 32767 на 15000 (Рис.5). А в графі MousePointer встановити значення 7-Size NS. Подивитися що з цього вийшло можна увійшовши через F5.
Виведемо на екран значення скрол, яка і визначатиме дальність до цілі. Для цього в лівій частині в панелі управління елементів виберемо елемент Label і розмістимо його в будь-якій частині робочої області. Виділимо тепер горизонтальний скрол і кликнемо його мишкою. Активується вікно Project1 (вміст форми). Між рядків: Private Sub HScroll1_Change () і End Sub введемо нові дані.
X1 = Label1 * 0.55 + 500
Line (X1, 4300) - (X1 + 100, 4450), 11, BF
Загальний вигляд запису представлений на рис. 6.
При цьому треба враховувати різницю в масштабах координати Х1 і значення HScroll. Їх узгодження забезпечується виразом:
X1 = Label1 * 0.55 + 500
В принципі, для кожного конкретного випадку, значення коефіцієнтів (0,55 та 500) можуть бути різними і вимагають індивідуального підбору.
Оператор CLS забезпечує обнулення зображення цілі після кожного звернення до HScroll.
Private Sub VScroll1_Change ()
Label2 = 80 - VScroll1
Загальний вигляд змісту форми представлений на Рис. 7.
Private Sub Command1_Click ()
PSet (xc, yc), HFFFF80 * Rnd + HC0C0FF * Rnd
If Label1.Caption> 200 Then Timer2.Interval = 0
При цьому таймер 3 зупиниться при подальшому опусканні снаряда до -100:
If Y0> 100 Then Timer3.Interval = 0
При досягненні ракети мети по дальності:
If Label5.Caption> 11500 - (Label1.Caption) Then Timer4.Interval = 1
починає працювати таймер 4. У цьому випадку перевіряється висота польоту, і якщо вона менше 200 включається таймер 5:
Private Sub Timer4_Timer ()
If Label4.Caption 80 THEN 20
10 INPUT «Кут повинен бути> = 5»; a
20 INPUT «Кут повинен бути 5000 THEN 60
50 INPUT «Відстань до мети повинно бути> = 200»; l
60 INPUT «Відстань до мети повинно бути 13000 Then Timer1.Interval = 0
If Y0> 50 Then Timer2.Interval = 1
If Y0> 100 Then Timer3.Interval = 0
If Label5.Caption> 11500 - (Label1.Caption) Then Timer4.Interval = 1
Private Sub Command1_Click ()
Rem старт ПТУРС
Private Sub Timer2_Timer ()
Rem: a кут розльоту
Rem: r радіус розльоту, n кількість осколків
Rem: коефіцієнти 1 і 4 визначають ширину і висоту розльоту