End Function
=мумнож(мумнож(мумнож(трансп(F2:F5);A2:D5);мумнож(C12:F17;A2:D5));мумнож(C14:F17;F2:F5))
Лекция 5. Графика
Материалы этой статьи опубликованы в [], [].
§ 1.
…
1.1.
Программма выводит на поверхность формы изображение оцифрованной координатной сетки. Окно программы показано на рис. 2.6
Dimx0, y0As Integer | ‘координаты начала координатных ‘осей |
Dimdx, dyAs Intager | ‘шаг координатной сетки по X и Y |
Dimh, wAs Integer | ‘высота и ширина области вывода ‘координатной сетки |
Dim x, y As Integer |
Dim1x, 1yAs Single | ‘ метки (оцифровка) линий сетки ‘по осям X и Y |
Dim d1x, d1yAs Single | ‘ шаг меток (оцифровки) линий сетки ‘ по осям X и Y |
DimcrossAs Integer DimdcrossAs Integer | ‘ счётчик не оцифрованных линий ‘сетки ‘ количество не оцифрованных линий ‘между оцифрованными по оси X |
‘ инициализация формы
Private Sub Form_Initialize()
Form1.BackColor = RGB (255, 255, 255)
h = 210
w = 210
x0 = 30 y0 = 15 + h | ‘оси начинаются в точке (30, 15 + h) |
dx = 30 dy = 30 | ‘шаг координатной сетки – 30 ‘пикселов |
dcross = 1 | ‘ линии сетки X помечаются: ‘dcross = 1 – каждая, ‘dcross = 2 – через одну, ‘dcross = 3 – через две и т.д. |
d1x = 0.5 | ‘ шаг меток оси X |
d1y = 1 | ‘ шаг меток оси Y, метками будут: ‘ 1, 2, 3, 4 и т.д. |
cross = dcross
Form1.Height=(Form1.Height - Form1.ScaleHeight) + _
(h+30+15)*Screen.TwipsPerPixelX
Form1.Width=(Form1. Width - Form1.Scale Width) + _
(w+30+15)*Screen.TwipsPerPixelX
Form1.ScaleMode = 3