Физика в тестах! И не только ...?!

Ускорение

wadmail — Mon, 23 Sep 2013 18:51:27 GMT

Функция MsgBox

wadmail — Mon, 11 Feb 2013 14:15:50 GMT

   Функция MsgBox для вывода диалогового окна.
Первым делом, нужно, чтобы программа вела диалог с тем идиотом, которому ты всучишь свой шедевр. Для этого существую диалоговые окна различного содержания. Выводятся они на экран функцией MsgBox. Входят в нее такие аргументы:
   MsgBox ("сообщение", число и тип кнопок, "заголовок окна", "имя файла справки если есть", номер раздела справки если есть имя файла)
Два последних аргумента необязательны. Они используются, если у тебя создан файл помощи (Help).
"сообщение" - это сообственно сообщение пользователю, например, "Ну ты дурак, нет такого файла" (максимальная длина приблизительно 1024 символа)
   "заголовок окна" - это то, что выводится в верхней полосочке (заголовке) окна, например, "Это твоя ошибка"
А вот число и тип кнопок разберем подробнее. Это число получается из складывания трех чисел или констант (кому как удобнее):
количество и тип кнопок
     вид сообщения (какой значок будет в окне)
     какая кнопка является основной (по умолчанию - первая)

Тип кнопок Вид сообщения Основная кнопка константа или число выводимые кнопки константа или число значок сообщения константа или число номер основной кнопки
vbOKOnly 0

VbCritical 16

VbDefaultButton1 0 первая
VbOKCancel 1

VbQuestion 32

VbDefaultButton2 256 вторая
VbAbortRetryIgnore 2

VbExclamation 48

VbDefaultButton3 516 третья
VbYesNoCancel 3

VbInformation 64

VbDefaultButton4 768 четвертая
VbYesNo 4
VbApplicationModal (на уровне приложения) 0 модальное окно ( не свернется, пока на кнопку не нажмешь)
VbRetryCancel 5 VbSystemModal (на уровне системы) 4096

Теперь, например, если нам нужно вывести на экран предупреждающий запрос с тремя кнопками Да, Нет, Отмена и чтоб главной была кнопка Нет, мы пишем цифру 3+48+256 число 307:
PushButton = MsgBox ("Да ты баран! Нажми Нет!", 307, "Нельзя так делать!!!")
или если использовать константы
PushButton = MsgBox("Да ты баран! Нажми Нет!", vbYesNoCancel + vbExclamation + vbDefaultButton2, "Нельзя так делать!!!")

Видишь, Выделена кнопка "Нет". Значит она главная. Это если пользователь давнет клавишу "Enter", то сработает "Нет", а не "Да"
PushButton - это должна быть объявленная переменная. Это я придумал для нее такое имя.В нее записывается число, обозначающее, какую же кнопку нажал пользователь, чтобы мы могли заставить нашу программу среагировать как-нибудь. А числа (вместо них тоже можно писать константы) эти соответствуют следующим кнопкам:Константа Число Какая кнопка нажата
vbOK           1              OK
vbCancel     2               Отмена (Cancel)
vbAbort       3               Прервать (Abort)
vbRetry       4               Повторить (Retry)
vbIgnore     5               Пропустить (Ignore)
vbYes          6               Да (Yes)
vbNo           7               Нет (No)

Дто для того, чтобы в диалоговом окне писать сообщение в несколько строк, используется CHR(13). А как раз 13 - это ASCII-код перевода строки.

Презентация по VB

wadmail — Wed, 06 Feb 2013 08:09:20 GMT

Презентация по VB

/26_VB-1-.7z

VB урок 1

wadmail — Mon, 21 Jan 2013 17:56:20 GMT

Урок 1

1. Visual basic – язык, поддерживающий событийно-управляемое программирование В 1991 г.

Корпорация Microsoft представила всему компьютерному миру Visual Basic. Эта система программирования позволяла, отстранившись от сложной структуры Windows, создавать Windows-приложения самого разного уровня сложности. Visual Basic – один из первых языков, поддерживающих событийно-управляемое программирование (event-driven programming).

Традиционное программирование ориентировалось на поэтапное описание конкретного процесса, поэтому программный код во многом напоминал кулинарный рецепт: «взять стакан муки, два яйца, стакан кефира, добавить соль и сахар, хорошо перемешать и поставить в духовку на 20 минут». Одна из особенностей такого подхода: все действия, которые описаны в рецепте необходимо сделать. Не дай бог о чем-либо забыть! С таким подходом можно смириться в кулинарии, но не при разработке современных компьютерных приложений. Они до того сложны, что всего не предусмотришь.

В событийно-управляемом программировании вместо описания каждого шага нужно лишь указать, как реагировать на отдельные события. На одни события можно предусмотреть реакцию, другие – просто проигнорировать. Мы создаем не одну большую программу, а приложения Windows, состоящие из набора взаимодействующих микропрограмм (процедур), управляемых пользователем. С помощью Visual Basic такое приложение можно разработать достаточно быстро и без глубоких профессиональных познаний и навыков.

Visual Basic пользуется успехом с момента выхода самой первой версии, разошедшейся в десятках тысяч копий и получившей ряд призов от самых авторитетных компьютерных журналов.

Весной 1992 г. вышла вторая версия этого языка с существенно расширенными возможностями. Третья версия – это система программирования, вооруженная множеством мощных инструментальных средств, вышла в 1993 г. В настоящий момент выпущены четвертая, пятая и шестая версии Visual Basic. Каждая последующая версия расширяет возможности и упрощает процесс создания приложений.

Мы начинаем знакомиться со средой Visual Basic и будем ориентироваться на пятую и шестую версии, хотя с очень небольшими изменениями все примеры должны работать и в версиях 3, 4.

2. Первый проект на Visual Basic

Лучший способ научиться программировать – это программировать, поэтому на первом же уроке вы создадите ваш собственный проект на Visual Basic.

Как только вы вошли в Visual Basic, вы очутились в интегрированной среде разработки Visual Basic (Integrated Development Environment) - Visual Basic IDE.

скачатьp

Форма

wadmail — Mon, 21 Jan 2013 12:19:50 GMT

Итак, создаем первый "Стандартный EXE” (как в Главе 1). На экране имеем примерно такую картинку:

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

Ясное дело, форму можно растягивать. Можно также менять ее положение на экране, двигая квадратик в окне "Размещение формы”.

Еще одно. Можно создавать несколько форм и управлять объектами одной из другой. Для этого в меню выберите "Проект – Добавить форму – Открыть”.

Только если после этого запустить программу, второй формы не увидишь. Чтобы сделать ее видимой, надо прописать в Form1 такой код:

Form2.Show

'******вот некоторые возможности работы с формой*****

Private Sub Form_Load()
Form1.AutoRedraw = True 'включает перерисовку формы 1
Form1.BackColor = vbBlack 'меняет цвет формы 1 на черный
Form1.ForeColor = &HFF& 'меняет цвет текста формы 1 на красный
Form1.BorderStyle = 3 'меняет рамку (бордюр) формы 1 на неизменяемую
Form1.Font.Size = 18 'меняет размер шрифта формы 1 на 18
Form1.Font.Underline = True 'подчеркивает текст в форме 1
Form1.Caption = "Моя первая программа" 'устанавливает заголовок формы 1
Form1.Print "Я стану программистом" 'выводит текст на форму 1
Form2.Show 'делает видимой форму 2
Form2.Width = 9000 'устанавливает ширину формы 2 равной 9000 твипов
Form2.WindowState = 1 'сворачивает форму 2
End Sub

Калькулятор

wadmail — Mon, 21 Jan 2013 12:18:20 GMT

Использование кнопок, лейблов и текстбоксов. Программа "Калькулятор".

Итак, сейчас мы сделаем небольшую программу с использованием основных компонентов формы (объектов). Запустим VB. Создадим новый Exe-проект.
У нас откроется окно формы Проект1 – Form1 (Form). Слева, там где компонеты формы, найдем командную кнопку (желтая подсказка CommandButton). Щелкнем по ней, а потом мышь переведем на поле формы и нажав на левую клавишу мыши растянем пунктирный прямоугольник до нужного нам размера. Отпустив клавишу мыши мы увидим, что на форме появилась командная кнопка с надписью Command1 (Рис.5). Справа, в окне свойств мы увидим свойства этой кнопки, так как в настоящий момент выделена именно она.

Рисунок 5.

Добавим на форму еще пять кнопок(Command), и совершенно аналогичным образом два лейбла(Label) и три текстбокса (TextBox). У тебя должно получится что-то вроде того (Рис.6)

Рисунок 6.

Попробуем из всего этого барахла сделать калькулятор. В окне свойств для каждой кнопки уберем в свойстве Caption надпись «Command…» и впишем для каждой кнопки соответственно+ ,- , * ,/ , Очистить, Корень. Это будут названия наших кнопок и они будут написаны на наших кнопках. Теперь, чтобы надписи на кнопках читались лучше, в окне свойств щелкнем по свойству Font и в открывшемся окне Font выберем подходящий шрифт, размер и жирность. Вообще-то дизайн – это личное дело каждого и в дальнейшем я на этом подробно останавливаться не буду. Короче, у тебя должно получиться что-то типа как на рис. 7.

Рисунок 7.

Пора уже код писать, а мы все кнопочки двигаем. Поэтому перейдем теперь к окну кодов (в верхней строке нажимаем «Вид» и выбираем «Код». В левом окне Проект1 – Form1(Код), и там где "(General)” из выпадающего меню выбираем строчку Form. У нас появилась процедура загрузки формы, как в главе 1. Ну меняем заголовок формы и убираем некрасивые записи в леблах и тексте. В теле процедуры пишем:

Form1.Caption = "Калькулятор"

Чтобы вписать что-нибудь в Поле Text, можно использовать свойство .Text. У лейбла аналогичное свойство .Саption.

Text1.Text = "" 'присвоим текстбоксам значение Text2.Text = "" 'пустой строки Text3.Text = "" Label2.Caption = "Действие" 'Присвоим лейблам Label1.Caption = "Результат:" 'соответствующие значения

Теперь для каждой кнопки напишем свою подпрограмму (процедуру) для обработки каждого действия.

В поле (General) выбираем Command1. У нас появилась новая процедура для первой кнопки (у меня она соответствует кнопке «+»). Она очень похожа на процедуру формы, только событие здесь другое – нажатие кнопки мышью (Click). Пишем строку для обработки операции сложения. Однако надо учесть, что в текстбоксах содержится строковая информация, а сложение двух строк приводит к их сцеплению, т.е. если в Text1 у нас будет 10, а в Text2 – 5, то результатом сложения в Text3 станет "10" + "5" = 105 (10 & 5), а не 15, как нам бы хотелось. Поэтому придется преобразовать каждое значение в числовое с помощью функции Val(строка):

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

Кроме того, чтобы пользователь видел, какую операцию он произвел, мы будем программно, "на лету" менять содержимое верхнего лейбла:

Label2.Caption = "Плюс"

Используя стандартные операторы арифметических действий, создадим аналогичные процедуры для всех кнопок.

На всякий случай я приведу основные математические операторы в табличке:

Оператор	Название оператора	Пример операции	Результат
+	сложение	c=2+5	с=7
-	вычитание	c=2-5	с=-3
*	умножение	c=2*5	с=10
/	деление	c=2/5	с=0,4
\	целая часть от деления	c=2\5	с=0
Mod	остаток от деления	c=2 Mod 5 c=9 Mod 4	c= 2 (50+2) c= 1 (42+1)
^	возведение в степень	с=2^5	с=32
&	слияние строк (конкатенация)	c=2 & 5	с=25
=	Оператор присваивания, а никакое не "равно”	с=с+2	если с было равно 5, то станет 7

Для того, чтобы кнопка Command6 выполняла извлечение квадратного корня используем соответствующую функцию. Она будет выглядеть так: Sqr(число). Вот весь код этой программы. Исходник этого примера "Калькулятор” можно скачать вверху страницы. Да, вот еще что. Если мы будем делить на ноль, программа аварийно прервется, и появится сообщение об ошибке. Как это преодолевать, т.е. перехватывать и обрабатывать ошибки , мы поговорим значительно позднее, в Главе 11. Перехват и обработка ошибок. Операторы On Error и Resume. Объект Err. Оператор GoTo.

‘****************************** НАЧАЛО***********************

Private Sub Command1_Click() ‘процедура нажатия кнопки Command1 Text3.Text = Val(Text1.Text) + Val(Text2.Text) 'операция сложения Label2.Caption = "Плюс" 'указаваем в метке математическую операцию End Sub

Private Sub Command2_Click() ‘процедура нажатия кнопки Command2 Text3.Text = Val(Text1.Text) * Val(Text2.Text) 'операция умножения Label2.Caption = "Умножить" End Sub

Private Sub Command3_Click() ‘процедура нажатия кнопки Command3 Text3.Text = Val(Text1.Text) - Val(Text2.Text) 'операция вычитания Label2.Caption = "Вычесть" End Sub

Private Sub Command4_Click() ‘процедура нажатия кнопки Command4 Text3.Text = Val(Text1.Text) / Val(Text2.Text) 'операция деления Label2.Caption = "Разделить" End Sub

Private Sub Command5_Click() ‘процедура нажатия кнопки Command5Text1.Text = "" 'присвоим текстбоксам значение пустой строки Text2.Text = "" 'для очистки всех текстбоксов Text3.Text = "" End Sub

Private Sub Command6_Click() ‘процедура нажатия кнопки Command6 Text3.Text = Sqr((Text1.Text)) 'функция вычисления корня Text2.Text = "" 'очистка Text2, так как он не нужен при этой операции Label2.Caption = "Кв. корень" End Sub

Private Sub Form_Load() ‘процедура загрузки формы Form1.Caption = "Калькулятор" 'меняем заголовок формы Text1.Text = "" 'присвоим текстбоксам значение пустой строки Text2.Text = "" Text3.Text = "" Label2.Caption = "Действие" 'присвоим лейблам Label1.Caption = "Результат:" 'нужные значения End Sub

‘****************************** КОНЕЦ***********************

Пожалуйста, обратите внимание, что VB выполняет операторы не в том порядке, в каком они записаны в окне кода. Когда вы запускаете программу, загружается форма и наступает событие Form_Load. И все. Выполняются только те операторы, которые написаны в теле этой процедуры. После программа, грубо скажем, останавливается. Если же мы нажмем, например кнопку Command1, то возникает событие Command1_Click и выполняются операторы только в процедуре первой кнопки. Остальной код не выполняется.
Теперь вы можете сами доработать программу, поменять шрифты, расположение, добавить новые кнопки для новых математических операций.

Да, поскольку мы уже использовали математические функции "Извлечение квадратного корня” и "Преобразование строки в число”, я перечислю остальные:

Abs (n) абсолютное значение n
Atn (n) арктангенс n в радианах
Cos (n) косинус угла n (n - в радианах)
Exp (n) константа e в степени n
Rnd (n) генерирует случайное число от 0 до 1
Sgn (n) равно –1, если n<0; 0 если n=0; +1 если n>0
Sin (n) синус угла n (n - в радианах)
Sqr (n) квадратный корень n
Str (n) преобразует число n в строку
Tan (n) тангенс угла n (n - в радианах)
Val (n) преобразует строку n в число