Решение задачи номер 40 по книге Лукина С.Н. «Понятно о Visual Basic.NET»
Условие задачи:
«Две очереди трассирующими ночью». Мы «перечеркнули» форму окружностями наискосок из левого верхнего угла приблизительно в правый нижний. Пусть теперь это будут очень маленькие кружочки на черной форме. Получилась «очередь трассирующи-ми». Вслед за этим перечеркните форму очередью также и из левого нижнего угла, чтобы на экране получились две пересекающиеся очереди.
Код vb.net
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim graf As Graphics
Dim x, x1 As Integer
Dim y, y1 As Integer
graf = Me.CreateGraphics
x = 50 : x1 = 50
y = 100 : y1 = 200
Do While x < 190
x = x + 5
y = y + 5
x1 = x1 + 5
y1 = y1 — 5
graf.DrawEllipse(Pens.White, x, y, 2, 2)
graf.DrawEllipse(Pens.White, x1, y1, 2, 2)
Loop
End Sub
End Class
Разбор кода vb.net
- Объявили переменную для рисования
- указали, что рисование будет на форме
- объявили переменные для широты и высоты
- вписали цикл