Справочник Жаркова по проектированию и программированию искусственного интеллекта. Том 4: Программирование на Visual Basic искусственного интеллекта. Валерий Алексеевич ЖарковЧитать онлайн книгу.
объектом (таймером) Timer. Этот автоматически генерируемый шаблон мы уже приводили выше. Здесь мы будем давать лишь наш код, который следует записать в этот шаблон.
Листинг 3.3. Код для бегущего слева – направо заголовка.
'Записываем текст заголовка:
Dim myString As String = "Калькулятор2_2 (Calculator2_2) "
'Объявляем статическую переменную, по умолчанию равную нулю:
Static i As Integer
'Справа – налево появляются буквы заголовка:
Me.Text = myString.Substring(0, i)
i = i + 1
'Организовываем цикл вывода заголовка:
If i = myString.Length Then i = 1
Алгоритм бегущего справа – налево заголовка следующей формы формулируем иначе (чем предыдущий): появляются все буквы заголовка; начиная с последней буквы, поэтапно исчезают буквы заголовка (по одной букве) с заданным нами в панели Properties интервалом времени Interval; после исчезновения последней буквы заголовка снова появляются все буквы заголовка и цикл поэтапного (побуквенного) удаления заголовка повторяется. Дважды щёлкаем значок для компонента Timer ниже формы в режиме проектирования. Появляется файл Form1.vb с шаблоном, в который записываем код:
Листинг 3.4. Код для бегущего справа – налево заголовка.
'Записываем текст заголовка:
Dim myString As String = _
"Калькулятор2_2 (Calculator2_2). Форма2 (Form2) "
'Статическая переменная, равная числу знаков заголовка:
Static i As Integer = myString.Length()
'Слева – направо удаляются буквы заголовка:
Me.Text = myString.Substring(0, i)
i = i – 1
'Организовываем цикл удаления букв заголовка:
If i = -1 Then i = myString.Length()
Аналогично можно запрограммировать бегущую строку внутри какого-либо элемента управления (или нескольких элементов управления), если на листингах 3.3 и 3.4 в строке (Me.Text = myString.Substring(0, i) после оператора (Me.) мы допишем имя этого элемента управления (свойство Name), например, (Button1.) для кнопки.
3.5. Выполнение расчётов
Проверяем в действии созданное нами приложение (проект) в виде программы-калькулятора, например, для вычисления произведения двух чисел:
1. Запускаем программу: Build, Build Selection; Debug, Start Without Debugging.
В ответ Visual Basic выполняет программу и выводит первую форму с пустыми окнами и мигающим курсором в первом окне. Мы видим также бегущий слева – направо заголовок формы.
2. В первое окно вводим первый сомножитель (рис. 3.1).
3. Щёлкаем во втором окне, вводим второй сомножитель и щёлкаем кнопку “=”.
Появляется вторая форма (рис. 3.2) с пустыми окнами. Мы видим также бегущий справа – налево заголовок формы.
4. На второй форме щёлкаем кнопку OK.
В ответ Visual Basic на второй форме показывает (рис. 3.2):
в первом окне – значение первого сомножителя;
во втором окне – значение второго сомножителя;
в третьем окне – результат умножения двух чисел.
После окончания расчётов щёлкаем значок “x” (Close). В ответ Visual Basic закрывает вторую форму, но оставляет открытой первую форму. Мы можем ввести другие значения в окна первой форме и аналогично получить результат умножения других чисел.
Однако