Справочник Жаркова по проектированию и программированию искусственного интеллекта. Том 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 закрывает вторую форму, но оставляет открытой первую форму. Мы можем ввести другие значения в окна первой форме и аналогично получить результат умножения других чисел.
Однако