Вычесления разницами между датами
Функция DateDiff
DateDiff(interval,date1,date2[,firstdayofweek[firstweekofyear]])
interval - Параметр задающий единицу измерения результата функции это должна быть строка в кавычках.
Date1, date2 – из второй вычитается первое. Результат функции long(длинное целое)
Значения параметра interval:
Q- quarter yyyy- year
Y- day of year m-month
W- weekday d-day
H- hour ww-week
S-second n-minute
Dim the date as date’ declare variables
Работа с графикой в vb
Изображение на форму можно наносить 2 способами:
-
Можно рисовать линии и другие фигуры
-
Можно использовать готовые изображения сохранённые в графических файлах.
Для обеспечения возможности рисования VB имеет специальный класс Graphics, расположенный в пространстве имен System.Drawing. Его код и содержит программы для рисования фигур и других лействий с графикой. Класс Graphics содержит подпрограммы и функции для рисования простейших графических фигур и других действий с графикой. Возможности этого класса можно использовать только создав объект из этого класса. Изображения можно выводить на форме, копке, текстовом поле, на специальном элементе управления PictureBox и других элементов управления. Для каждого элемента на котором мы будем рисовать создается свой собственный объект класса Graphics.
Рассмотрим пример:
на форме будет рисоваться отрезок с координатами (50;20) и (200;100)
Private Sub btnDraw_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDraw.Click
Dim Graph As Graphics – объявление класса графикс
Graph = Me.CreateGraphics – создание объекта графикс
Graph.DrawLine(Pens.Blue, 50, 20, 200, 100) – вызывается метод DrawLine и задаются координаты
End Sub
(0;0) – левый верхний угол
Простейшие графические фигуры
Линии и эллипсы
Метод DrawLine позволяет нарисовать отрезок прямой. Его синтаксис:
Object.DrawLine (pen, x1, y1, x2, y2)
Метод DrawRectangle позволяет нарисовать прямоугольник по положению левого верхнего угла, ширине и высоте. Его синтаксис:
Object.DrawRectangle (pen, x, y, width, height)
Например: Graph.DrawRectangle(Pens.Black, 10, 10, 100, 50)
Метод DrawEllipse позволяет нарисовать эллипс, вписанный в невидимый прямоугольник заданного размера. Синтаксис метода:
Object.DrawEllipse (pen, x, y, width, height)
Например: Graph.DrawEllipse(Pens.Aqua, 10, 60, 100, 50)
Рисование закрашенных фигур
При рисовании закрашенных фигур необходимо выбрать кисть. Подобно тому, как используется класс Pens, содержащий перья разных цветов, существует класс Brushes, содержащий несколько десятков кистей разных цветов.
FillRectangle – этот метод позволяет нарисовать закрашенный прямоугольник.
Например:
Graph.FillRectangle(Brushes.Coral, 150, 10, 100, 50)
Метод FillEllipse позволяет нарисовать закрашенный эллипс.
Например:
Graph.FillEllipse(Brushes.Aqua, 150, 60, 100, 50)
Дуги и секторы
Дуги рисуются методом DrawArc:
Object.DrawArc (pen, x, y, width, height, start, angle)
Первые пять параметров у этого метода такие же, как и у метода DrawEllipse. Последние два параметра задают в градусах начальный угол и размер дуги эллипса. Углы измеряются по часовой стрелке от направления направо (на восток). Первый из параметров определяет начало дуги, второй – размер дуги.
Секторы можно нарисовать с помощью метода DrawPie. Все параметры имеют тот же смысл, что и у метода DrawArc.
Закрашенный сектор рисуется методом FillPie.
Private Sub btnDraw_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDraw.Click
Dim Graph As Graphics
Graph = Me.CreateGraphics
Graph.DrawArc(Pens.DarkGreen, 10, 60, 100, 50, 0, 60)
Graph.DrawArc(Pens.Black, 120, 60, 100, 50, 0, 270)
Graph.DrawPie(Pens.Black, 10, 120, 100, 50, 0, 60)
Graph.DrawPie(Pens.Black, 120, 120, 100, 50, 0, 270)
Graph.FillPie(Brushes.Blue, 230, 120, 100, 50, 270, 90)
End Sub
End Class