Здравствуйте Гость
Сегодня Пятница 27.06.2025 21:31

Visual Basic

Форма входа
Мини-чат
500
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Меню сайта
Поиск
Главная » Статьи » Уроки

Урок 6

Функции Vsual Basic

В этом шаге ты узнаешь несколько функций, которые тебе понадобятся на первых этапах программирования.
  1. VAL(строка) - Эта функция тебе уже знакома, как я уже и говорил она нужна для преобразования символа из "строки" в "число".
  2. Fix Это функция обрезает у дробного числа дробную часть, и получается целое число. Например, было число 12.123456, станет 12
  3. Rnd - Эта функция генерирует случайные числа. Например, в игре сапер, бомбы появляются каждый раз по разному, это благодаря этой функции.

Например:

Private Sub Command1_Click() 
Text1.Text = Rnd ' В текстовое поле выводится всегда разное число
End Sub

Если ты был внимателен, то ты заметил, что при запуске программы, числа генерируются такие же как при предыдущем и следующем запуске. Чтобы этого избежать, в Form_Load помести слово Randomize. 
Чтобы ограничить эту функцию надо записать так: Rnd * 5, и тогда здесь будут генерироваться числа от 0 до 5, но чтоб он не выдавал дробные числа, поставим функцию Fix: Fix(Rnd*5).Эта функция нам тоже пригодится для игры. 
4-5. Asc(Строка) Эта функция нужна для перевода символов в код ASCII, а код ASCII нам очень пригодиться очень скоро, сейчас я поясню почему, а потому, что во всех языках программирования, код аски нужен для доступа к клавиатуре, но об этом потом. А функция Chr(число) делает все наоборот, она переводит из ASCII в символы. И поскольку эти функции очень важны испробуем на примере,

Задание:

Тебе надо сделать программу, которая переводила любой вписанный символ в код ASCII  и обратно. Для этого тебе понадобится два текстовых поля, 2 кнопки со свойством Caption равным: У первой Asc, у второй Chr. Да, чуть не забыл, если мы заговорили о текстовых полях, то я хотел бы тебе сказать, что для текстового поля есть одно свойство, оно нужно для ограничения вводимых символов, это свойство называется MaxLength(Его так назвал дядька Билл Гейц), так вот тебе надо выделить Текстовое поле, и в окне свойств найти свойство MaxLength, по умолчанию стоит 0, но вместо него можно ввести любое число, и это число будет устанавливать ограничения вводимых символов (т.е. если ты введешь 3, то в текстовое поле нельзя будет ввести больше 3 символов). После того, как ты сделаешь эту программу, тебе надо ее отложить подальше, до лучших времен(когда будем работать с клавиатурой, она нам очень пригодится).
Исходник программы можешь скачать отсюда 
6. Unload Объект - Эта функция нужна для выхода. Например, чтобы выйти из программы надо написать Unload Me, или Unload Form1(также можно написать End) 
7. MsgBox - Эта функция нужна для создания сообщений(ну.. знаешь.. 98 виндовс постоянно ругается, это почти тоже самое). Короче посмотри ниже, и ты все поймешь:

Теперь я тебе немного расскажу, как надо делать такие сообщения. Посмотри на код, и сам поймешь.

MsgBox "Любой текст",ЧитКод1+ЧитКод2,"Заголовок" 

Где любой текст - это наверное понятно (у меня: "Вот эта ошибка...")
Читкод1+ЧитКод2 - это значение, посмотри ниже в таблице (у меня 20,16+4)
Заголовок - думаю тоже понятно (у меня: "И не забудь....")

Теперь Примеры, только примеры:

MsgBox "Здоровеньки булы",53,"<=Здесь я вписал 53.к. 48+5=53" 

Ну что понял (а)? Отлично! А как обращаться к кнопкам, которые находятся в сообщении(Да - Нет, ОК - Отмена...), я расскажу потом.
8. InputBox Я опять сразу объяснять не буду, а покажу как это выглядит, чтоб ты был (а) в курсе дела.

Код:

Dim str As String 'Объявляем переменную str, как строковую 
Private Sub Form_Load() 'При загрузке формы:
str = InputBox("Как тебя зовут", "Опрос", "Падре") 'Будет появляться опрос:
Text1.Text = str 'Текстовое поле будет равно тому значению, которое ты введешь (у нас Падре):
End Sub

Ну вроде и все. На функциях мы закончим, и перейдем к ОПЕРАТОРАМ.

Категория: Уроки | Добавил: vacsa (07.05.2013) | Автор: Денис
Просмотров: 1096 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]