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"
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)
|
