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