Основы алгоритмизации и программирования. Проект хранится в каталоге „_ „-.„, ~^=, \taxtbook\VB\DnVB3\ CD-ROM |Щ=

Проект хранится в каталоге „_ „-.„, ~^=,
\taxtbook\VB\DnVB3\ CD-ROM |Щ=

\textbook\VB\prjVB3\ ___

Строковое выражение, являющееся аргументом функции Val, может быть задано не только в десятичной, но также в восьмеричной (приставка "&0")и шестнадцатеричной (при­ставка "&Н") системах счисления. Например, значением фун­кций Val ("&О3720")и Val ("&H7D0") является десятичное число 2000.

Таким образом, появляется возможность перевода чисел, выраженных в строковой форме, из восьмеричной и шест­надцатеричной систем счисления в число десятичной систе­мы счисления.

Функции Str, Hex, Oct. Функции Str, Oct и Hex по­зволяют производить преобразование десятичных чисел в десятичные, восьмеричные и шестнадцатеричные числа в строковой форме. Аргументом функции является десятичное число, а значением — строка:

Ф

Str (Число) Oct(Число) Hex(Число)

Например, значением функций Str (2000), Oct (2000), Hex (2000) является десятичное число 2 000, восьмеричное число 3720 и шестнадцатеричное число H7D0 в строковой форме

Создадим проект, который позволит переводить целые числа из десятичной системы счисления в восьмеричную и шестнадцатеричную и обратно — из восьмеричной и шест­надцатеричной в десятичную.

JM Проект «Перевод чисел»

1. Создать новый проект. Разместить на форме три тексто­вых поля (txtDec, txtOct, txtHex) для ввода и вывода чисел, четыре кнопки (cmdDecOct, cmdDecHex, cmdOct-Dec, cmdHexDec) для создания событийных процедур, ре­ализующих перевод чисел, и три метки (lblDec, lblOct, 1ЫНех) для вывода поясняющих надписей над текстовы­ми полями.

К вводимым в текстовые поля txtOct и txtHex в строко­вой форме числам добавим восьмеричную и шестнадцате-

Глава 4

ричную приставки "&0" или "&Н" с помощью операции конкатенации строк. Полученное восьмеричное или шестнадцатеричное число в строковой форме переведем в десятичную числовую форму с помощью функции Val.

2. Ввести событийную процедуру cmdOctDec_Click (), реа­
лизующую перевод чисел из восьмеричной системы в деся­
тичную:

Sub cmdOctDec_Click()

txtDec.Text = Val("&0" + txtOct.Text)

End Sub

3. Создать событийную процедуру cmdHexDec_Click (), реа­
лизующую перевод чисел из шестнадцатеричной системы
в десятичную.

Введенные в текстовое поле txtDec числа будем перево­дить сначала из строковой формы в числовую с помощью функции Val, а затем из десятичной числовой в строковую восьмеричную или шестнадцатеричную с помощью функ­ций Oct или Hex.

4. Создать событийную процедуру cmdDecHex_Click (), реа­
лизующую перевод чисел из десятичной системы в шест­
надцатеричную:

Sub cmdDecHex_Click()

txtHex.Text = Hex(Val(txtDec.Text))

End Sub

5. Создать событийную процедуру cmdDecOct_Click (), реа­лизующую перевод чисел из десятичной системы в восьме­ричную.

6. Запустить проект. Для пе­ревода десятичного числа в восьмеричную и шестнад­цатеричную системы счис­ления ввести в левое тек­стовое поле десятичное число и последовательно щелкнуть по кнопкам Dec-Oct и Dec-Hex.

Проект хранится в каталоге _оп „-... г^^—,
\textbook\VB\prjVB4\ _____________ CD-ROM 1ИГ

Функция As с. Функция As с осуществляет преобразова­ние строки в числовой код (в таблице кодировки) первого символа. Аргументом функции является строка, а значени­ем — число:

Основы алгоритмизации и программирования

а#%

Asc (Строка$)
0 ^=^=

Функция Chr. Функция Chr осуществляет преобразова­ние числового кода в соответствующий ему символ. Аргу­ментом функции является число, а значением — символ:

£/ Chr (Число)

0 _

Создадим проект «Коды символов», который выводит числовой код введенного символа, а также распечатывает символы по числовым кодам (выводит кодировочную табли­цу символов).

Яй Проект «Коды символов»

1. Создать новый проект. Разместить на форме два тексто­
вых поля txtS, txtN и две кнопки cmds и cmdT.

Воспользуемся функцией Asc () для преобразования сим­вола, вводимого в текстовое поле txtS, в его числовой код, выводимый в поле txtN.

2. Ввести событийную процедуру cmdS_Cl ick (), реализую­
щую преобразование символа в его числовой код:

Sub cmdS_Click()

txtN.Text = Asc(txtS.Text)