Программирование на Visual Basic

Радар visual basic

Сегодня, как я и обещал, мы будем делать радар. Делается он элементарно.

  1. Создаем форму с именем frmRadar
  2. Добавляем на форму объект frame с именем Radar
  3. Таймер с именем tmrPosition и интервалом 50
  4. Image с именем UnitBig
  5. В фрейм добавляем объект Shape с именем UnitSmall и свойством Shape = 3 - Circle

Теперь я расскажу вам, как все это будет работать. Таймер будет каждые 0,005 секунды определять координаты UnitBig (это ваш юнит/здание), затем делить их на 5 и, полученные координаты, присваивать объекту UnitSmall. А вообще лучше смотрите код и читайте комментарии, там усе написано...

Private Sub tmrPosition_Timer()" высчитываем высоту UnitSmall UnitSmall.Top = UnitBig.Top / 5" координаты от левого краяUnitSmall.Left = UnitBig.Left / 5End SubPrivate Sub Form_Load()" Фрайм меньше ширине формы в 5 раз Radar.Height = Me.Height / 5" Фрайм меньше высоты формы в 5 раз                                      Рис.1. РадарRadar.Width = Me.Width / 5                                                  " теперь размещаем UnitSmall UnitSmall.Top = UnitBig.Top / 5UnitSmall.Left = UnitBig.Left / 5" каких размеров будет UnitSmallUnitSmall.Height = 45UnitSmall.Width = 45 End SubСправа вы можете посмотреть, что, примерно, должно получиться. Дополнительно скажу, чтолучше сделать фрэйм такого же цвета, что и форма, сделать свойство BorderStyle равным None. И теперь добавляем в этот фрайм Shape свойство shape, которого, будет равным RoundedRectangle. Еще немного. Свойство BackStyle = Opaque, свойство BackColor = &H00008000&,свойство BorderColor = &H0000FF00&. Теперь все будет смотреться намного красивее.
Hosted by uCoz