Две очереди трассирующими ночью

Решение задачи номер 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

  1. Объявили переменную для рисования
  2. указали, что рисование будет на форме
  3. объявили переменные для широты и высоты
  4. вписали цикл
Запись опубликована в рубрике Решение заданий vb.net. Добавьте в закладки постоянную ссылку.

Оставить комментарий

Пожалуйста, авторизуйтесь чтобы добавить комментарий.
  Подписаться  
Уведомление о