Компьютерные технологии в металлургии и литейном производстве. Дембовский В.В. - 151 стр.

UptoLike

ВУЗ: 

СЗТУ | Санкт-Петербург

Составители: 

Рубрика: 

151
Form2.Picture1.Scale (– 1.25, 5) – (Nmax+1, – 1.25) ‘Задание масштаба
Form2.Picture1.DrawWidth = 2 ‘Задание толщины линий
For X = Nmin To Nmax
Form2.Picture1.Line (0, 0) – (Nmax, 0), QBColor(1) ‘Ось абсцисс
Form2.Picture1.Line (0, 0) – (0, 4), QBColor(1) ‘Ось ординат
Next X
‘Цикл построения кривых Y1 = f (R1) и Y2 = f (R2)
For I = 1 To Nmax Step DN
Form2.Picture1.Line (N(I – 1), Y1(I – 1)) – (N(I), Y1(I)), QBColor(12)
Form2.Picture1.Line (N(I – 1), Y2(I – 1)) – (N(I), Y2 (I)), QBColor(10)
Next I
‘Построение горизонтальных линий сетки
For X = 0.5 To 4 Step 0.5
Form2.Picture1.Line (– 0.1, X) – (Nmax, X), QBColor(8)
Next X
‘Построение вертикальных линий сетки
For X = 0.5 To Nmax Step 0.5
Form2.Picture1.Line (X, –0.05) – (X, 4), QBColor(8)
Next X
‘Оцифровка делений оси абсцисс
For X = Nmin To Nmax
Form2.Picture1.CurrentX = X – 0.2
Form2.Picture1.CurrentY = – 0.3
Form2.Picture1.Print X
Next X
‘Оцифровка делений оси ординат
For Z = 0.5 To 4 Step 0.5
Form2.Picture1.CurrentX = – 1
Form2.Picture1.CurrentY = Z + 0.15
Form2.Picture1.Print Z
Next Z
‘Обозначения элементов графика
v = 0.075*Nmax
Form2.Picture1.CurrentX = v
Form2.Picture1.CurrentY = 4.75
Form2.Picture1.Print “Обозначения”
Form2.Picture1.Line (v + 4, 4.5) – (v + 5, 4.5), QBColor(12)
Form2.Picture1.CurrentX = 6.25
Form2.Picture1.CurrentY = 4.75
Form2.Picture1.Print “Y1;”
Form2.Picture1.Line (7, 4.5) – (8, 4.5), QBColor(10)
Form2.Picture1.CurrentX = 8.25
Form2.Picture1.CurrentY = 4.75
Form2.Picture1.Print “Y2”
Form2.Picture1.CurrentX = Nmax – 1
Form2.Picture1.CurrentY = – 0.75
Form2.Picture1.Print “N”
Form2.Picture1.CurrentX = – 0.75
Form2.Picture1.CurrentY = 4.5

Страницы