![]() Заглавная страница Избранные статьи Случайная статья Познавательные статьи Новые добавления Обратная связь КАТЕГОРИИ: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ТОП 10 на сайте Приготовление дезинфицирующих растворов различной концентрацииТехника нижней прямой подачи мяча. Франко-прусская война (причины и последствия) Организация работы процедурного кабинета Смысловое и механическое запоминание, их место и роль в усвоении знаний Коммуникативные барьеры и пути их преодоления Обработка изделий медицинского назначения многократного применения Образцы текста публицистического стиля Четыре типа изменения баланса Задачи с ответами для Всероссийской олимпиады по праву ![]() Мы поможем в написании ваших работ! ЗНАЕТЕ ЛИ ВЫ?
Влияние общества на человека
Приготовление дезинфицирующих растворов различной концентрации Практические работы по географии для 6 класса Организация работы процедурного кабинета Изменения в неживой природе осенью Уборка процедурного кабинета Сольфеджио. Все правила по сольфеджио Балочные системы. Определение реакций опор и моментов защемления |
Picture1.Line (xmin, zx)-(xmax, zx)
Picture1.CurrentX = xmin - 0.25 Picture1.CurrentY = zx Picture1.Print zx Next zx Picture1.CurrentX = xmax + 0.25 Picture1.CurrentY = yminlin - 0.25 Picture1.Print "X" ' позначення осі абсцис Х ' Визначення кроку масштабної сітки вздовж осі абсцис Х If dx <= 1 Then stx = 0.1 ElseIf dx <= 2 Then stx = 0.2 ElseIf dx <= 5 Then stx = 0.5 ElseIf dx <= 10 Then stx = 1 ElseIf dx <= 20 Then stx = 2 ElseIf dx <= 50 Then stx = 5 ElseIf dx <= 100 Then stx = 10 ElseIf dx <= 500 Then stx = 50 ElseIf dx <= 1000 Then stx = 100 ElseIf dx <= 2000 Then stx = 200 ElseIf dx <= 5000 Then stx = 500 ElseIf dx <= 10000 Then stx = 1000 End If ' Організація циклу для нанесення масштабної сітки For zy = xmin To xmax Step stx Picture1.Line (zy, yminlin)-(zy, ymaxlin) Picture1.CurrentX = zy Picture1.CurrentY = yminlin - 0.25 Picture1.Print zy Next zy ' кінець циклу ' Побудова зображення Державного прапора України Line (9600, 3500)-(11100, 4000), vbCyan, BF Line (9600, 4000)-(11100, 4500), vbYellow, BF End Sub ' Процедура запуску програми Private Sub Command1_Click() Call graf_fun End Sub ' Процедура виходу з програми Private Sub Command2_Click() End End Sub ' Процедура очищення вікон Private Sub Command3_Click() Picture1.Cls Form1.Cls End Sub Приклад 8.3 Завдання: на основі хронометричних досліджень встановлено, що інтенсивність пасажиропотоку (кількість пасажирів, що перевозяться в одиницю часу) у певний час доби обчислюється за такою формулою: S = 120 + 1750 · e-x· sin(x), де x = 3,14·(t–6) / 9; t –часдоби, протягом якого характеризуется пасажиропотік. Кількість пасажирів, що перевозяться за певний час, обчислюється за такою формулою: Розробити програму, в якій можна розрахувати кількість пасажирів, що перевозяться протягом певного часового інтервалу доби (наприклад, з 9 до 12 години). Розрахувати також загальну кількість пассжиров, що перевозяться за тиждень в інтервалі часу з 6 до 15 години. Побудувати графік інтенсивності пасажиропотоку в інтервалі цього часу.
Виконання: 1. Створити початкову екранну форму згідно з рис. 8.10. На поверхні форми розміщено імена й назви компонентів, які використовуються за умовчуванням. Надалі імена кожного з компонентів не змінюються, а їх назви відповідають діям, із застосуванням яких вони виконуються.
2. Послідовно виконати операції, спрямовані на створення екранної форми "Розрахунок пасажиропотоку", перелік яких подано в табл. 8.10.
Таблиця 8.10 Порядок створення екранної форми "Розрахунок пасажиропотоку"
Виконання перелічених у табл. 8.10 операцій дає остаточний варіант екранної форми зображений на рис. 8.11. 3. Створити програмний код розрахунку паспжиропотоку на тролейбусному маршруті таким чином: ' Процедура побудови графіка інтенсивності ' пасажиропотоку залежно від часу доби Sub SPicture1() Cls ' очищення поверхні вікна Picture1.Scale (4, 700)-(15, -50) ' задання розмірів графічного поля і ' напрямку 'координатних осей s2 = 0 Max = -1000 ' Формування циклу для побудови графіка функції інтенсивності ' пасажиропотоку залежно від часу роботи For t2 = 6 To 15 X2 = 3.14152 * (t2 - 6) / 9 s2 = 120 + 1750 * Exp(-X2) * Sin(X2) X21 = 3.14152 * ((t2 + 1) - 6) / 9 s21 = 120 + 1750 * Exp(-X21) * Sin(X21) ' Оцифрування шкали Х Picture1.PSet (6, 100) Picture1.Print "6"
Picture1.PSet (8, 100) Picture1.Print "8" Picture1.PSet (10, 100) Picture1.Print "10" Picture1.PSet (12, 100) Picture1.Print "12" Picture1.PSet (14, 100) Picture1.Print "14" Picture1.PSet (6, 45) Picture1.Print " час доби" Picture1.PSet (4.3, 170) ' Позначення мінімальних і максимальних значень інтенсивності ' пасажиропотоку Picture1.Print "220" Picture1.PSet (4.3, (25 + Max)) Picture1.Print Int(Max) End Sub
' Процедура очищення вікон Private Sub Command2_Click() Text6.Text = "" Text7.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text10.Text = "" Text5.Text = "" Picture1.Cls End Sub ' Процедура виходу з програми Private Sub Command3_Click() End
End Sub ' Процедури створення лінійок прокручування і роботи з ними для введення ' початкового і кінцевого часу інтервалу Private Sub HScroll2_Scroll() HScroll2_Change End Sub Private Sub HScroll2_Change() lb2 = HScroll2 Text7.Text = Str(lb2) End Sub Private Sub HScroll1_Scroll() HScroll1_Change End Sub Private Sub HScroll1_Change() lb1 = HScroll1 - 1 Text6.Text = Str(lb1) End Sub
' Процедура використання кнопки, Command1 для виконання ' розрахунку обчислення пасажиропотоку Private Sub Command1_Click() enter1 = Chr(13) + Chr(10) vus = InputBox(" Введіть назву навчального закладу, в якому ви навчаєтесь ") fak = InputBox(" Введіть назву факультету ") grup = InputBox(" Введіть назву групи ") fam = InputBox(" Введіть своє прізвище та ініціали ") Text5.Text = vus + enter1 + fak + enter1 + grup + enter1 + fam S = 0: k = 0: s1 = 0 For i = 1 To 5 ' створення вкладеного циклу для обчислення пасажиропотоку ' за тиждень у заданому інтервалі For t = 7 To 15 x = 3.14152 * (t - 6) / 9 S = S + 120 + 1750 * Exp(-x) * Sin(x) Next t Next i Text2.Text = Text6.Text Text3.Text = Text7.Text l1 = Val(Text6.Text) + 1 l2 = Val(Text7.Text) For t1 = l1 To l2 Step 1 ' початок циклу; створення циклу для обчислення ' пасажиропотоку в заданому інтервалі часу доби k = k + 1 X1 = 3.14152 * (t1 - 6) / 9 s1 = s1 + 120 + 1750 * Exp(-X1) * Sin(X1) Next t1 'кінець циклу Cls Text4.Text = Str(Int(s1)) Text10 = Str(Int(S)) SPicture1 ' використання процедури SPicture1 для побудови графіка ' інтенсивності пасажиропотоку End Sub
Контрольні питання
1. Яку систему координат прийнято в графіці Visual Basic? Чи можливе її перевизначення? 2. Яким чином встановлюють поточні координати точки, з якої починається графічна побудова об'єкта? 3. Які види графічних примітивів використовуються в Visual Basic. 4. На яких об'єктах Visual Basic можна виконувати графічні побудови? 5. Які способи введення тексту використовуються на графічній поверхні Visual Basic? 6. Назвіть способи форматування тексту в графіці Visual Basic. 7. Які об'єкти можна використовувати для вставлення растрових зображень? 8. У чому полягаєвідмінність між об'єктами Image та PictureBox? 9. Які способи зміни кольору графічних примітивів застосовуються в Visual Basic? 10. Опишить способи зміни типу і товщини ліній у графічних зображеннях Visual Basic. 11. Яким чином можна очистити екран графічної поверхні?
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Последнее изменение этой страницы: 2016-09-19; просмотров: 322; Нарушение авторского права страницы; Мы поможем в написании вашей работы! infopedia.su Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 3.147.52.102 (0.055 с.) |