кні властівостей замінюю встановленного по замовчуванню ім я формі на frmQueen. Ставлю властівість форми BorderStyle рівнім 1-Fixed Single. Це означає, что во время Виконання програми розмір формі не может змінюватіся. Властивості Caption надаю Значення 8 королев . Вказ, что MaxButton рівне False, тоб форма не может буті Розгорнутим/згорнута.
З панелі ToolBox вибираю PictureBox и ВСТАНОВЛЕНО его Розміри на ФОРМІ. Отже, я створі Першу клітинку щахової дошки. Оскількі шахова дошка Складається з 8х8 (64) клітінок, то звітність, создать масив клітінок. Для цього Першу створену клітинку копіюю у буфер, а потім вставляю з буфера. При цьом Visual Basic автоматично створює масив клітінок (у дужках вказується номер клітінкі). Дану операцію повторилися 64 рази, тоб відповідно до числа клітінок на шаховій дошці. p align="justify"> створі МАСИВ з міток Label1 и Label2, в якіх будут Виводити цифри та літері латинську алфавіту для позначені координат фігур на шаховій дошці. Такоже створі мітку lblEkran, в якій будут Виводити дані про порядок розташування королев и їх координат. p align="justify"> З панелі ToolBox вибираю CommandButton и ВСТАНОВЛЕНО ее на ФОРМІ. Надаю їй Назва - cmdAvtor. Це буде командна кнопка, при натісканні Якої можна отріматі інформацію про учасника програми. Аналогічно створі командну кнопку cmdExit, Що означає вихід з програми. p align="justify"> До віконуваного файлу програми я прієдную особисту піктограму через власівість Icon. Цю піктограму я створах с помощью Microsoft Image Editor. p align="justify"> Залішається позбав Встановити розташування формі на екрані. Для цього Властивості StartUpPosition надаю Значення CenterScreen. Це означає, что форма при запуску програми будет с являтися посередіні екранах.
Опіс кодом програми.
Основою внутрішньої Частини є процедура Rozstanovka. Самперед нужно Встановити Значення змінної KilkKorolev. Оскількі в Нашій Програмі нужно розставіті 8 королев, то значення цієї змінної такоже буде 8. Ставлю Початкове Значення стовпчік col = -1. Далі всю процедуру запису в цикл з Передумови: Do Until ... Loop. Оператори всередіні циклу віконуються до тихий ПІР, поки Умова Хибне (іншімі словами, поки Умова НЕ віконується). У Моїй Програмі умів службовцями змінні kilk i col, тоб цикл віконується до тихий ПІР, поки змінна kilk буде рівна KilkKorolev або номер стовпчік колонки буде Рівний 7, тоб последнего. За помощью Властивості Height, я ВСТАНОВЛЕНО висота Мітки lblEkran, в якій будут Виводити дані про послідовність розташування королев та їх координат. p align="justify"> Потім я обнуляють матрицю и очищаю ВСІ клітінкі шахової дошки. Для цього використову два цикли з ітераціямі по и (0 .. 7), то по j
