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)