Студопедия — Sub SPicture1()
Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

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)

Next t2

' Оцифрування шкали Х

Picture1.PSet (6, 100)

Picture1.Print " 6"

Рис. 8.11. Остаточний варіант екранної форми для розрахунку пасажиропотоку на тролейбусному маршруті

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)







Дата добавления: 2014-11-10; просмотров: 472. Нарушение авторских прав; Мы поможем в написании вашей работы!



Композиция из абстрактных геометрических фигур Данная композиция состоит из линий, штриховки, абстрактных геометрических форм...

Важнейшие способы обработки и анализа рядов динамики Не во всех случаях эмпирические данные рядов динамики позволяют определить тенденцию изменения явления во времени...

ТЕОРЕТИЧЕСКАЯ МЕХАНИКА Статика является частью теоретической механики, изучающей условия, при ко­торых тело находится под действием заданной системы сил...

Теория усилителей. Схема Основная масса современных аналоговых и аналого-цифровых электронных устройств выполняется на специализированных микросхемах...

Именные части речи, их общие и отличительные признаки Именные части речи в русском языке — это имя существительное, имя прилагательное, имя числительное, местоимение...

Интуитивное мышление Мышление — это пси­хический процесс, обеспечивающий познание сущности предме­тов и явлений и самого субъекта...

Объект, субъект, предмет, цели и задачи управления персоналом Социальная система организации делится на две основные подсистемы: управляющую и управляемую...

Тема: Кинематика поступательного и вращательного движения. 1. Твердое тело начинает вращаться вокруг оси Z с угловой скоростью, проекция которой изменяется со временем 1. Твердое тело начинает вращаться вокруг оси Z с угловой скоростью...

Условия приобретения статуса индивидуального предпринимателя. В соответствии с п. 1 ст. 23 ГК РФ гражданин вправе заниматься предпринимательской деятельностью без образования юридического лица с момента государственной регистрации в качестве индивидуального предпринимателя. Каковы же условия такой регистрации и...

Седалищно-прямокишечная ямка Седалищно-прямокишечная (анальная) ямка, fossa ischiorectalis (ischioanalis) – это парное углубление в области промежности, находящееся по бокам от конечного отдела прямой кишки и седалищных бугров, заполненное жировой клетчаткой, сосудами, нервами и...

Studopedia.info - Студопедия - 2014-2024 год . (0.011 сек.) русская версия | украинская версия