Угринович Н., Босова Л., Михайлова Н. Практикум по информатике и информационным технологиям

Подождите немного. Документ загружается.

170

Глава 5

8 Сохранить проект

файле

prj5.vbp.

Проект

хранится

каталоге

\practicum\VB\Projects\project5\

Задания

для

самостоятельного

выполнения

5.19.

Модернизировать

проект

«Игра

Баше»

так,

чтобы

вывод

количества

предметов

осуществлялся

помощью

текстового

поля.

5.20.

Модернизировать

проект

«Игра

Баше»

так,

чтобы

первый

ход

делал

компьютер.

5.6.

Арифметические

операции

функции

преобразования

типов

данных

Проект

5.6. «Мультисистемный калькулятор». Для

создания

мультисистемного калькулятора воспользуемся возможностью

проведения арифметических операций

десятичной системе

счисления

функциями преобразования типов данных, позво-

ляющими

осуществлять перевод чисел

из

десятичной системы

счисления

восьмеричную

шестнадцатеричную системы

и,

наоборот,

из

восьмеричной

шестнадцатеричной систем

деся-

тичную.

Сначала создадим калькулятор

для

работы

десятичной

си-

стеме.

На

форме разместим

три

текстовых поля:

два

поля

txtlDec

txt2Dec

для

ввода числовых данных

одно

txt3Dec

для

вывода результата. Пять

кнопок

для

реализации

событийных процедур: сложения cmdPlus, вычитания cmdMi-

nus,

умножения cmdUmn, деления cmdDelen

завершения

ра-

боты cmdExit.

Событийные процедуры арифметических операций.

Собы-

тийная

процедура сложения cmdPlus_Click должна изменить

свойство

Text

текстового поля txt3Plus

так,

чтобы

оно

явля-

лось суммой числовых значений свойства

Text

объектов

txtlDec

txt2Dec.

Для

преобразования строковых значений,

вводимых

текстовые поля,

десятичное число, воспользуемся

функцией

Val. Код

событийной процедуры

будет

следующим:

Private

Sub

cmdPlus_Click()

txt3Dec.Text

Val(txtlDec.Text)

Val (txt2Dec.Text)

End Sub

Событийные процедуры вычитания, умножения

деления

создаются аналогично.

Объектно-ориентированное

программирование на языке Visual

Basic

171

Проект «Мультисистемный калькулятор»

Создать

новый проект. Разместить на форме три текстовых

поля и пять кнопок. Присвоить им имена:

txtlDec,

txt2Dec, txt3Dec, cmdPlus, cmdMinus, cmdUmn, cmdDe-

len, cmdExit.

Для

каждой из кнопок ввести программные коды событий-

ных процедур.

Установить для свойства

Alignment

текстовых полей значе-

ние

Right

Justufy.

Запустить

проект на выполнение. Ввести числа в два первых

текстовых

поля. Щелкнуть по любой кнопке арифметических

операций и соответствующая операция будет выполнена.

Перевод

целых положительных чисел из десятичной

систе-

мы счисления в восьмеричную с помощью функции Oct. Для

перевода

чисел из десятичной системы счисления в восьмерич-

ную воспользуемся функцией Oct, аргументом которой явля-

ются

десятичные числа, а значением восьмеричные числа в

строковой форме.

Введенные в десятичные поля числа переведем сначала из

строковой формы в числовую с помощью функции Val, а за-

тем

из десятичной числовой переведем в строковую восьме-

ричную

с помощью функции Oct. Создадим кнопку

cmdDe-

cOct

и запишем для нее событийную процедуру перевода

чисел:

Private

Sub cmdDecOct_Click ()

txtlOct.Text = Oct(Val(txtlDec.Text))

txt2Oct.Text = Oct(Val(txt2Dec.Text))

txt3Oct.Text = Oct(Val(txt3Dec.Text))

End Sub

Добавить на форму три текстовых поля

txtlOct, txt2Octn

txt3Oct.

Поместить на форму кнопку

cmdDecOct

и ввести програм-

мный

код событийной процедуры

cmdDecOct_Click

() .

172

Глава 5

Поместить

на

форму

две

метки

надписями

Десятичная

сис-

тема

Восьмеричная

система.

Запустить проект

на

выполнение. Ввести числа

в два

первых

текстовых поля десятичной системы. Щелкнуть

по

кнопке

« +

», а

затем

Dec-Oct.

Будет выполнено сложение десятичных

чисел

и их

перевод

восьмеричную систему.

Восьмеричная

система

1Я 21

Перевод

целых положительных чисел из восьмеричной сис-

темы счисления в десятичную с помощью функции Val. Для

перевода чисел

из

восьмеричной системы счисления

десяти-

чную воспользуемся функцией

Val,

аргументом которой явля-

ются восьмеричные числа

строковой форме,

значением деся-

тичные числа.

Введенные

восьмеричные поля

строковой форме числа

переведем сначала

восьмеричное представление добавлением

приставки

"&О" с

помощью операции конкатенации строк.

По-

лученное восьмеричное число

строковой форме переведем

десятичную числовую

помощью функции

Val.

Создадим

кнопку

cmdOctDec

запишем

для нее

событийную процедуру

перевода чисел:

Private

Sub

cmdOctDec_Click()

txtlDec.Text

Val("&0"

txtlOct.Text)

txt2Dec.Text

Val("&0"

txt2Oct.Text)

txt3Dec.Text

Val("&0"

txt3Oct.Text)

End Sub

9 Поместить

на

форму кнопку cmdOctDec

ввести

для нее

про-

граммный

код

событийной процедуры перевода чисел.

10 Запустить проект

на

выполнение. Ввести числа

в два пер-

вых текстовых поля восьмеричной системы. Щелкнуть

по

кнопке

Oct-Dec.

Будет выполнен

их

перевод

десятичную

систему.

Объектно-ориентированное

программирование на языке Visual

Basic

173

системный

калькулятор

ВЫПОЛНИТЬ

арифметическую операцию в десятичной систе-

ме,

щелкнув, например, по кнопке «-».

Перевести результат в восьмеричную систему, щелкнув по

кнопке

Dec-Oct.

12 Сохранить проект в файле

prj6.vbp.

Проект

хранится

каталоге

\practicum\VB\Projects\project6\

Задания

для

самостоятельного

выполнения

5.21. Усовершенствовать проект «Мультисистемный калькулятор» (файл

проекта prj6.vbp), расширив

его

функциональные возможности.

Обеспечить возможность перевода чисел

из

десятичной системы

счисления

шестнадцатеричную

обратно.

5.22. Преобразовать проект «Мультисистемный калькулятор»

проект

«Инженерный калькулятор», который позволяет вычислять значе-

ние

тригонометрических

и других

функций.

5.23. Создать проект «Подсчет цифр

числе», который позволяет опреде-

лить количество цифр

во

введенном натуральном десятичном числе.

5.24. Модернизировать проект

5.23

(файл проекта prjZ5_23),

так

чтобы

можно было определить количество цифр

во

введенном целом деся-

тичном числе.

5.25. Создать проект «Печать цифр числа», который обеспечивает вывод

на

печать

(по

зонам)

цифр,

составляющих введенное целое десяти-

чное число.

5.26. Создать проект

«Сумма

цифр», который позволяет вычислить сум-

му десятичных цифр заданного целого десятичного числа.

5.27. Создать проект «Числа без одинаковых цифр», который печатает в

возрастающей последовательности натуральные двухзначные

чис-

ла,

которых

нет

одинаковых

цифр.

5.28. Создать проект «Перевертыш чисел», который заменяет заданное

натуральное число

на

число, которое получается

из

исходного путем

записи

его

цифр

обратном порядке.

5.29. Создать проект «Перевод натуральных десятичных чисел

двоич-

ную систему счисления».

174

Глава 5

5.7.

Строковые операции

функции

Для обработки строк, то есть последовательностей символов,

строковых переменных (тип

String)

используются операция

конкатенации

(сложения строк) и строковые функции.

Проект

5.7.

«Строковый

калькулятор».

Создадим строковый

калькулятор, который позволит производить различные преоб-

разования

строк.

Проект

«Строковый

калькулятор»

Создать новый проект. Разместить на форме три текстовых

поля

и кнопку. Присвоить им имена; txtl, txt2, txt3,

cmdCon.

2 Для кнопки ввести программный код событийной процедуры

cmdCon_Click (), реализующий операцию конкатенации:

Private

Sub cmdCon_Click()

txt3.Text = txtl.Text + txt2.Text

End Sub

3 Запустить проект, в два первых поля ввести строки и щелк-

нуть по кнопке

Конкатенация.

В третьем поле появится ре-

зультат

сложения

двух

строк.

Воспользуемся теперь для преобразования строк строковой

функцией

Left$ (строка$,N). Функция вырезает из строки$

подстроку, содержащую

символов, начиная с первого симво-

ла. В качестве строки

будем

рассматривать значение свойства

первого текстового поля txtl. Text, а количество символов бу-

дет задаваться в текстовом поле txtLeft.Text и преобразовы-

ваться в числа с помощью функции Val.

4 Разместить на форме кнопку и текстовое поле. Присвоить им

имена

cmdLef t и txtLef t.

5 Для кнопки ввести программный код событийной процедуры

cmdLef t_Click (), реализующий операцию вырезания под-

строки:

Private

Sub cmdLeft_Click ()

txt3.Text = Left$(txtl.Text, Val(txtLeft.Text))

End Sub

Объектно-ориентированное

программирование

на

языке Visual

Basic

175

6 Запустить проект,

первое поле ввести строку,

поля функ-

ции

вырезки подстроки ввести числа

щелкнуть

по

кнопке

Left$.

третьем поле появится вырезанная подстрока.

Аналогично создается событийная процедура, позволяю-

щая

реализовать вырезку подстроки, начиная

последнего

правого символа строки,

использованием функции

Right$(строка$,Ы).

7 Разместить

на

форме кнопку

текстовое поле cmdRight

txtRight

ввести программный

код

событийной процедуры

cmdLeft_Click():

Private

Sub

cmdRight_Click

()

txt3.Text

Right$(txtl.Text,

Val(txtRight.Text))

End Sub

Для определения количества символов

строке использует-

ся

функция определения длины строки Ьеп(строка$)

аргу-

ментом которой является строка,

возвращает функция число,

равное количеству символов

строке.

8 Разместить

на

форме кнопку

присвоить

ей имя

cmdLen.

Для

кнопки

ввести программный

код

событийной процедуры

cmdLen__Click

() ,

реализующий операцию определения

ко-

личества символов

строке:

Private

Sub

cmdLen_Click

()

txt3.Text

Len(txtl.Text)

End Sub

10 Запустить проект,

первое поле ввести строку

щелкнуть

по

кнопке

Len. В

третьем поле появится число символов

строке.

176

Глава

Для преобразования символов в соответствующий им число-

вой

код используется функция Asc (строка$) , при этом необ-

ходимо иметь в

виду,

что функция возвращает числовой код

первого символа строки.

11 Разместить на форме кнопку и присвоить ей имя

cmdAsc.

12 Для

кнопки

ввести программный код событийной процеду-

ры

cmdAsc_Click

(), реализующий операцию определения

числового кода символа:

Private

Sub

txt3.Text

End

Sub

cmdAsc_Click()

Asc

(txtl.Text)

Запустить проект, в первое поле ввести символ и щелкнуть

по

кнопке Asc. В

третьем

поле появится числовой код сим-

вола.

14 Сохранить проект в файле

prj7.vbp.

CD-ROM

Проект хранится в каталоге

\practicum\VB\Projects\project7\

Проект

5.8.

«Шифровка

дешифровка

текстовых

сообще-

ний».

Данный проект позволит зашифровывать и расшифровы-

вать текстовые сообщения. Используем алгоритм шифрования,

который

базируется на использовании ключевой фразы (клю-

ча шифрования).

Пусть имеется некоторый секретный текст, который нужно

зашифровать. В процессе шифровки необходимо заменить каж-

дый символ секретного текста на порядковый номер этого сим-

вола в ключевой фразе.

При

дешифровке последовательность чисел должна преобра-

зовываться обратно в секретный текст с помощью той же ключе-

вой

фразы. Ключевая фраза должна содержать все символы, ко-

торые

будут

использоваться в сообщениях, и должна быть

известна только шифровальщику и

получателю

сообщений.

Исходный секретный текст, зашифрованное и дешифрован-

ное

сообщения

будем

вводить и выводить в текстовых полях, а

для запуска процедур шифровки и дешифровки используем

кнопки.

Объектно-ориентированное

программирование на языке Visual

Basic

177

^Щ|

Проект «Шифровка и дешифровка текстовых сообщений»

Разместить на форме три текстовых поля и две кнопки. При-

своить им имена:

txtSecrtext,

txtCod,

txtDecod,

cmdCod,

cmdDecod.

Сначала составим процедуру шифровки текстовых

сообще-

ний. Пусть ключевая фраза будет значением строковой пере-

менной strKF, а секретный текст значением свойства

Text

текстового

поля

txtSecrtext.

Будем

последовательно вырезать в цикле со счетчиком

bytl

символы из секретного текста, а затем во вложенном цикле со

счетчиком

bytJ

будем искать такой же символ в ключевой

фразе

и запоминать его порядковый номер в целочисленном

массиве

bytz.

Таким образом, секретный текст будет зашиф-

рован последовательностью чисел, хранящейся в целочислен-

ном массиве.

Для кнопки

cmdCod

ввести

программный

код событийной

процедуры cmdCod_Click () , реализующий шифрование

текстового

сообщения, введенного в текстовое поле

txtSecr-

text.

Секретная фраза (значение переменной

strKF)

должна

быть записана в программе в одну строку (без переносов).

Dim

bytl, bytJ, bytZ(l To 200) As

Byte,

strKF,

strA,

strB As

String

Private

Sub cmdCod_Click()

strKF

= "электронно-вычислительные машины,

компьютеры (железо) позволяют находить значения

функций,

а ещё свойства готовых объектов"

For

bytl

= 1 То Len (txtSecrtext .Text)

strA

= Mid$(txtSecrtext.Text,

bytl,

For

bytJ

= 1 To Len (strKF)

If Mid$ (strKF, bytJ, 1) =

strA

Then

bytZ

(bytl)

= bytJ:

bytJ

= Len (strKF) + 1

bytJ

txtCod.Text = txtCod.Text + Str (bytZ(bytl) )

bytl

End Sub

Рассмотрим

теперь алгоритм дешифровки. Итак, в нашем

распоряжении шифровка в форме целочисленного массива

bytZ,

которая выведена в текстовое окно

txtCod.

Необходи-

мо

с помощью ключевой фразы превратить эту числовую после-

довательность в секретный текст.

Считывая по очередности числа шифровки (элементы цело-

численного массива

bytZ),

необходимо вырезать из ключевой

фразы символ, номер которого по порядку равен значению

числа шифровки. Полученный символ последовательно присо-

178

Глава

единяется к значению txtDecod. Text, которое и является ис-

ходным секретным текстом.

3 Для

кнопки

cmdDecod ввести программный код событийной

процедуры cmdDecod_Click (), реализующий расшифровку

текстового сообщения, и его вывод в текстовое поле txtDe-

cod:

Private

Sub cmdDecod_Click()

For

bytl

= 1 To Len (txtSecrtext .Text)

strB

= Mid$(strKF, bytZ(bytl), 1)

txtDecod.Text = txtDecod.Text +

strB

bytl

End Sub

4 Разместить на форме три метки с надписями

Секретный

код,

Зашифрованный

текст

Расшифрованный

текст, которые

сделают интерфейс проекта более наглядным.

5 Запустить проект на выполнение,

ввести в верхнее текстовое поле

секретный текст.

6 Щелкнуть по кнопке

Зашифро-

вать, в среднем текстовом поле по-

явится

шифровка в виде числовой

последовательности.

7 Щелкнуть по кнопке

Расшифро-

вать, в нижнем текстовом поле

должен появиться исходный сек-

ретный текст.

8 Сохранить проект в файле

prj8.vbp.

Зашифрованный

текст

шшшшшшшшшшшшж

15 8

82762728515428

Проект хранится

каталоге

\practicum\VB\Projects\project8\

Задания

для

самостоятельного

выполнения

5.30. Модернизировать проект «Строковый калькулятор» (файл

prj7.vbp).

Добавить возможности вырезки

из

строки произвольной подстроки,

определения позиции подстроки

строке

преобразования число-

вого кода символа

символ.

5.31. Создать проект «Подсчет количества экземпляров символа

в тек-

сте»,

который позволяет подсчитывать количество экземпляров

ка-

кого-либо символа

заданном тексте.

5.32. Усовершенствовать предыдущий проект

5.31 так,

чтобы ввод

и вы-

вод текста

символа производился

помощью текстовых окон.

5.33. Создать проект «Замена символа

тексте»,

который позволяет заме-

нять

тексте один заданный символ

на

другой.

Объектно-ориентированное

программирование на языке Visual

Basic

179

5.34. Усовершенствовать предыдущий проект

5.33 так,

чтобы ввод

и вы-

вод текста

символов производился

помощью текстовых

окон.

5.35. Создать проект «Слово-перевертыш», который изменяет прямую

последовательность символов (слева направо)

во

введенном слове

на

обратную (справа налево).

5.36. Усовершенствовать предыдущий проект

5.35 так,

чтобы ввод

и вы-

вод слова производился

помощью текстового окна.

5.37. Изменить проект

5.8

«Шифровка

дешифровка» таким образом,

чтобы

программном коде событийных процедур использовался

цикл

послеусловием.

5.8.

Создание

меню

панелей

инструментов

проектов

Большинство Windows-приложений обладают стандартным

графическим интерфейсом. Ранее мы научились устанавливать

требуемый размер окна проекта, его положение на экране мо-

нитора, цвет фона и шрифта и др. Однако работа со многими

проектами невозможна без меню и панелей инструментов, ко-

торые обеспечивают доступ к тем или иным событийным про-

цедурам.

Проект 5.9. «Простой

текстовый

редактор».

Разработаем

простейший текстовый редактор, который позволит выполнять

основные операции редактирования текста. В качестве области

ввода и редактирования текста используем многострочное тек-

стовое поле.

JBJ

Проект «Простой

текстовый

редактор»

1 Разместить на форме текстовое поле и присвоить ему имя

txtEdit.

2 Для того чтобы сделать поле многострочным, свойству поля

MultiLine

присвоить

значение

True.

Создадим меню для нашего текстового редактора. Меню со-

стоит из одного или нескольких заголовков верхнего уровня,

например,

Файл,

Правка и так далее, в каждый из которых

входит

хотя бы одна команда. Например,

Файл-Выход,

Прав-

ка-ВырезатьКопировать-Вставить-Удалить.

Каждый заголо-

вок

меню и каждая команда являются управляющими элемен-

тами, которые обладают многими свойствами, но только одним

событием Click.

Для создания меню используется специальный редактор

меню

Editor.