extracted_text:
Проект №6 «Инженерный калькулятор»
1. Открыть проект «Обычный калькулятор». Добавить на форму шесть кнопок cmdSin, cmdCos, cmdTan,
cmdSqr, cmdSt и cmdLog.
Для каждой из этих кнопок  создать событийные процедуры, реализующие вычисление соответствующих функций:
синуса, косинуса, тангенса, квадратного корня, возведения в степень и натурального логарифма.
2. например, для возведения в степень событийная процедура cmdSt_Click() примет вид:
Sub cmdSt_Click()
Txt3.Text=Val(txt1.Text)^Val(txt2.Text)
End Sub
3. Ввести самостоятельно программный код других событийных процедур с использованием встроенных функций
языка Visual Basic: Sin(), Cos(), Tan(), Sqr() и Log().
4. Запустить проект на выполнение.
Произвести вычисление, например 232 : ввести числа 2 и 32 и щёлкнуть по кнопке X^Y.
Проект №6 «Инженерный калькулятор»
1. Открыть проект «Обычный калькулятор». Добавить на форму шесть кнопок cmdSin, cmdCos, cmdTan,
cmdSqr, cmdSt и cmdLog.
Для каждой из этих кнопок  создать событийные процедуры, реализующие вычисление соответствующих функций:
синуса, косинуса, тангенса, квадратного корня, возведения в степень и натурального логарифма.
2. например, для возведения в степень событийная процедура cmdSt_Click() примет вид:
Sub cmdSt_Click()
Txt3.Text=Val(txt1.Text)^Val(txt2.Text)
End Sub
3. Ввести самостоятельно программный код других событийных процедур с использованием встроенных функций
языка Visual Basic: Sin(), Cos(), Tan(), Sqr() и Log().
4. Запустить проект на выполнение.
Произвести вычисление, например 232 : ввести числа 2 и 32 и щёлкнуть по кнопке X^Y.
Проект №6 «Инженерный калькулятор»
1. Открыть проект «Обычный калькулятор». Добавить на форму шесть кнопок cmdSin, cmdCos, cmdTan,
cmdSqr, cmdSt и cmdLog.
Для каждой из этих кнопок  создать событийные процедуры, реализующие вычисление соответствующих функций:
синуса, косинуса, тангенса, квадратного корня, возведения в степень и натурального логарифма.
2. например, для возведения в степень событийная процедура cmdSt_Click() примет вид:
Sub cmdSt_Click()
Txt3.Text=Val(txt1.Text)^Val(txt2.Text)
End Sub
3. Ввести самостоятельно программный код других событийных процедур с использованием встроенных функций
языка Visual Basic: Sin(), Cos(), Tan(), Sqr() и Log().
4. Запустить проект на выполнение.
Произвести вычисление, например 232 : ввести числа 2 и 32 и щёлкнуть по кнопке X^Y.
Проект №6 «Инженерный калькулятор»
1. Открыть проект «Обычный калькулятор». Добавить на форму шесть кнопок cmdSin, cmdCos, cmdTan,
cmdSqr, cmdSt и cmdLog.
Для каждой из этих кнопок  создать событийные процедуры, реализующие вычисление соответствующих функций:
синуса, косинуса, тангенса, квадратного корня, возведения в степень и натурального логарифма.
2. например, для возведения в степень событийная процедура cmdSt_Click() примет вид:
Sub cmdSt_Click()
Txt3.Text=Val(txt1.Text)^Val(txt2.Text)
End Sub
3. Ввести самостоятельно программный код других событийных процедур с использованием встроенных функций
языка Visual Basic: Sin(), Cos(), Tan(), Sqr() и Log().
4. Запустить проект на выполнение.
Произвести вычисление, например 232 : ввести числа 2 и 32 и щёлкнуть по кнопке X^Y.

title: Проект №6 «Инженерный калькулятор»


extracted_text:
Проект 4 «Перевод чисел»
1. Создать новый проект. Разместить на форме три текстовых поля (txtDec, txtOct,
txtHex) для ввода и вывода чисел, четыре кнопки(cmdDecOct,
cmdDecHex,сmdOctDec,cmdHexDec) для создания событийных процедур,
реализующих перевод чисел, и три метки (lblDec,  lblOct, lblHex) для вывода
поясняющих надписей над текстовыми полями.
К вводимым в текстовые поля txtOct и txtHex в строковой форме числам добавим
восьмеричную и шестнадцатеричную приставки “&O” и “&H” с помощью операции
конкатенации строк. Полученное восьмеричное или шестнадцатеричное число в
строковой форме переведём в десятичную числовую форму с помощью функции Val.
2. Ввести событийную процедуру cmdOctDec_Click(), реализующую перевод чисел из
восьмеричной системы в десятичную:
Sub cmdOctDec_Click()
txtDec.Text=Val(“&O”+ txtOct.Text)
End Sub
3. Создать событийную процедуру cmdHextDec_Click(), реализующую перевод чисел из
шестнадцатеричной системы в десятичную.
Введённые в текстовое поле txtDec числа будем переводить сначала из строковой
формы в числовую с помощью функции Val, а затем из десятичной числовой в
строковую восьмеричную или шестнадцатеричную с помощью функции Oct или Hex.
4. Создать событийную процедуру cmdDecHex_Click(), реализующую перевод чисел из
десятичной системы в шестнадцатеричную:
Sub cmdDecHex_Click()
txtHex.Text= Hex(Val(txtDec.Text))
End Sub
5. Создать событийную процедуру cmdDecOct_Click(), реализующую перевод чисел з
десятичной системы в восьмеричную.
6. Запустить проект. Для перевода десятичного числа в восьмеричную и
шестнадцатеричную системы счисления ввести в левое текстовое поле десятичное
число и последовательно щёлкнуть по кнопкам DecOct и DecHex.

file_name: Проект4_перевод_чисел.doc

информатика

group: Дисциплины

title: Проект 4 «Перевод чисел»


extracted_text:
Проект 3 «Обычный калькулятор»
1. Создать новый проект. Разместить на форме три текстовых поля и пять кнопок.
Присвоить им имена: txt1, txt2, txt3, cmdPlus, cmdMinus, cmdUmn, cmdDelen, cmdExit.
Разместить также три метки для подписи полей.
Событийная процедура сложения cmdPlus_Click() должна изменять значения свойства Text
текстового поля txt3 так, чтобы оно являлось суммой числовых значений свойства Text
текстовых полей txt1 и txt2. для преобразования строковых значений, вводимых  в
текстовые поля. В десятичные числа, воспользуемся функцией Val. Код событийной
процедуры будет следующим:
Sub cmdPlus_Click()
Txt2.Text=Val(txt1.Text)+Val(txt2.Text)
End Sub
Событийные процедуры вычитания, умножения и деления создаются аналогично.
2. Для каждой из кнопок ввести программные коды событийных процедур.
3.Установить для свойства Alignment текстовых полей значение Right Justufy.
4. Пятую кнопку запрограммировать на окончание(завершение) работы с калькулятором.
5. Запустить проект на выполнение. Ввести числа в два левых текстовых поля и щёлкнуть
по кнопке арифметической операции. В правом поле будет выведен результат.

file_name: Проект3_калькулятор.doc

title: Проект 3 «Обычный калькулятор»


extracted_text:
Проект «Сортировка числового массива»
1. Поместить на форму frm1 кнопку cmd1 и создать
для неё событийную процедуру cmd1_Click(),
реализующую заполнение массива случайными
числами (см. предыдущую работу).
2. Определить переменные для всего программного
модуля. Преобразовать событийную процедуру из
проекта «Поиск в числовом массиве» в общую
процедуру МинЭлемент(bytI, bytN As
Byte),набранную в программном коде:
Dim bytA(1 To 10), bytMin, bytI, bytJ, bytK, bytR, bytN
As Byte
‘Общая процедура поиска минимального элемента
Sub МинЭлемент(bytI, bytN As Byte)
bytMin = bytA(bytI)
bytN = bytI
For bytJ = bytI + 1  To 10
If  bytA (bytJ) < bytMin  Then
bytMin = bytA(bytJ): bytN=bytJ
Next bytJ
End Sub
Создать событийную процедуру сортировки. Для
осуществления перестановки использовать
промежуточную переменную bytR. Для визуализации
процесса сортировки для каждого цикла перестановки
элементов (цикл по переменной bytI) в цикле по
переменной bytK  выводить в текстовое поле txtSort
значения элементов массива.
3. ‘ Событийная процедура сортировки
Private Sub cmd2_Click()
txtSort .Text = “ “
For bytI = 1 To 9
‘ Вызов общей процедуры поиска минимального
элемента
Call МинЭлемент(bytI, bytN)
‘ Перестановка
bytR = bytA (bytI)
bytA (bytI) = bytA (bytN)
bytA (bytN) = bytR
‘Печать массива для каждого цикла перестановки
For bytK = 1 To 10
txtSort . Text = txtSort . Text + Str(bytA(bytK))
Next bytK
Next bytI
End Sub
4. Запустить проект. Щёлкнуть по кнопкам
Заполнить массив и Сортировать. В текстовом поле
будет реализована визуализация процесса сортировки
числового массива по шагам.
Проект «Сортировка числового массива»
1. Поместить на форму frm1 кнопку cmd1 и
создать для неё событийную процедуру
cmd1_Click(), реализующую заполнение массива
случайными числами(см. предыдущую работу). .
2. Определить переменные для всего
программного модуля. Преобразовать
событийную процедуру из проекта «Поиск в
числовом массиве» в общую процедуру
МинЭлемент(bytI, bytN As
Byte),набранную в программном коде:
Dim bytA(1 To 10), bytMin, bytI, bytJ, bytK,
bytR, bytN As Byte
‘Общая процедура поиска минимального
элемента
Sub МинЭлемент(bytI, bytN As Byte)
bytMin = bytA(bytI)
bytN = bytI
For bytJ = bytI + 1  To 10
If  bytA (bytJ) < bytMin  Then
bytMin = bytA(bytJ): bytN=bytJ
Next bytJ
End Sub
Создать событийную процедуру сортировки.
Для осуществления перестановки использовать
промежуточную переменную bytR. Для
визуализации процесса сортировки для каждого
цикла перестановки элементов (цикл по
переменной bytI) в цикле по переменной bytK
выводить в текстовое поле txtSort значения
элементов массива.
3. ‘ Событийная процедура сортировки
Private Sub cmd2_Click()
txtSort .Text = “ “
For bytI = 1 To 9
‘ Вызов общей процедуры поиска минимального
элемента
Call МинЭлемент(bytI, bytN)
‘ Перестановка
bytR = bytA (bytI)
bytA (bytI) = bytA (bytN)
bytA (bytN) = bytR
‘Печать массива для каждого цикла
перестановки
For bytK = 1 To 10
txtSort . Text = txtSort . Text + Str(bytA(bytK))
Next bytK
Next bytI End Sub
4. Запустить проект. Щёлкнуть по кнопкам
Заполнить массив и Сортировать. В текстовом поле
будет реализована визуализация процесса сортировки
числового массива по шагам.

file_name: Проект_сортировка_числовой_массив.doc

title: Проект «Сортировка числового массива»


extracted_text:
Проект № 7 «Строковый калькулятор».
1. Разместить на форме три текстовых поля (txt1, txt2 – для ввода строк, txt3 – для
вывода результата) и
     кнопку cmdCon.
2. Для кнопки ввести программный код событийной процедуры cmdCon_Click(),
реализующий операцию конкатенации:
Sub cmdCon_Click()
Txt3.Text = txt1.Text + txt2.Text
End Sub
3. Запустить проект, в два первых поля ввести строки и щёлкнуть по кнопке
Конкатенация. В третьем поле появится результат сложения двух строк.
Воспользуемся теперь для преобразования строк строковой функцией Mid$
(строка$,bytM,bytN). Функция вырезает из строки$ подстроку, начинающуюся с
символа, позиция которого в строке задаётся целочисленной переменной  bytM, и
имеющую длину, заданную целочисленной переменной bytN.
4. Разместить на форме два текстовых поля txt1Mid и  txt2Mid для ввода значений
переменных bytM и
    bytN и кнопку cmdMid.
5. Для кнопки ввести программный код событийной процедуры cmdMid_Click(),
реализующий операцию вырезания подстроки. Для преобразования строковых
значений свойства Text текстовых полей в числа использовать функцию Val:
Sub cmdMid_Click()
Txt3.Text = Mid$(txt1.Text, Val(txt1Mid.Text),Val(txt2Mid.Text))
End Sub
6. Запустить проект, в первое поле ввести строку, в поля ввода аргументов функции
вырезанной подстроки  ввести числа и щёлкнуть по кнопке Mid$. В третьем поле
появится вырезанная подстрока.
7. Разместить на форме кнопку cmdLen и ввести программный код событийной
процедуры cmdLen_Click(), реализующий операцию определения количества
символов в строке:
Sub  cmdLen_Click()
Txt3.Text = Len (txt1.Text)
End Sub
8. Запустить проект, в первое поле ввести строку и щёлкнуть по кнопке Len. В
третьем  поле появится число символов в строке.
9. Разместить на форме кнопку  cmdAsc и ввести программный код событийной
процедуры cmdAsc_Click(),  реализующий операцию определения числового кода
символа:
Sub  cmdAsc_Click()
Txt3.Text = Asc(txt1.Text)
End Sub
10. Запустить проект, в первое поле ввести символ и щёлкнуть по кнопке  Asc.  В
третьем поле появится числовой код символа.
Проект № 7 «Строковый калькулятор».
1. Разместить на форме три текстовых поля (txt1, txt2 – для ввода строк, txt3 – для
вывода результата) и
     кнопку cmdCon.
2. Для кнопки ввести программный код событийной процедуры cmdCon_Click(),
реализующий операцию конкатенации:
Sub cmdCon_Click()
Txt3.Text = txt1.Text + txt2.Text
End Sub
3. Запустить проект, в два первых поля ввести строки и щёлкнуть по кнопке
Конкатенация. В третьем поле появится результат сложения двух строк.
Воспользуемся теперь для преобразования строк строковой функцией Mid$
(строка$,bytM,bytN). Функция вырезает из строки$ подстроку, начинающуюся с
символа, позиция которого в строке задаётся целочисленной переменной  bytM, и
имеющую длину, заданную целочисленной переменной bytN.
4. Разместить на форме два текстовых поля txt1Mid и  txt2Mid для ввода значений
переменных bytM и
    bytN и кнопку cmdMid.
5. Для кнопки ввести программный код событийной процедуры cmdMid_Click(),
реализующий операцию вырезания подстроки. Для преобразования строковых
значений свойства Text текстовых полей в числа использовать функцию Val:
Sub cmdMid_Click()
Txt3.Text = Mid$(txt1.Text, Val(txt1Mid.Text),Val(txt2Mid.Text))
End Sub
6. Запустить проект, в первое поле ввести строку, в поля ввода аргументов функции
вырезанной подстроки  ввести числа и щёлкнуть по кнопке Mid$. В третьем поле
появится вырезанная подстрока.
7. Разместить на форме кнопку cmdLen и ввести программный код событийной
процедуры cmdLen_Click(), реализующий операцию определения количества
символов в строке:
Sub  cmdLen_Click()
Txt3.Text = Len (txt1.Text)
End Sub
8. Запустить проект, в первое поле ввести строку и щёлкнуть по кнопке Len. В
третьем  поле появится число символов в строке. 9. Разместить на форме кнопку  cmdAsc и ввести программный код событийной
процедуры cmdAsc_Click(),  реализующий операцию определения числового кода
символа:
Sub  cmdAsc_Click()
Txt3.Text = Asc(txt1.Text)
End Sub
10. Запустить проект, в первое поле ввести символ и щёлкнуть по кнопке   Asc В
третьем поле появится числовой код символа.

file_name: Проект7_строковый-калькулятор.doc

intro:
Разместить на форме три текстовых поля (txt1, txt2 – для ввода строк, txt3 – для вывода результата) и
     кнопку cmdCon.
2. Для кнопки ввести программный код событийной процедуры cmdCon_Click(), реализующий операцию конкатенации:
Sub cmdCon_Click()
Txt3.Text = txt1.Text + txt2.Text
End Sub
3. Запустить проект, в два первых поля ввести строки и щёлкнуть по кнопке Конкатенация. В третьем поле появится результат сложения двух строк.
Воспользуемся теперь для преобразования строк строковой функцией Mid$(строка$,bytM,bytN). Функция вырезает из строки$ подстроку, начинающуюся с символа, позиция которого в строке задаётся целочисленной переменной  bytM, и имеющую длину, заданную целочисленной переменной bytN.

title: Проект № 7 «Строковый калькулятор».


extracted_text:
Код графического редактора:
Dim R, G, B, s
Dim d As Integer
‘Процедура записи рисунка в файл
Private Sub Command1_Click()
Save Picture Picture1.Image, “C:\Мои документы\Мои рисунки\Рисунки
приложений\Рисовальщик.bmp”
End Sub
Private Sub Command2_Click()
‘ Завершение работы
End
End Sub
Private Sub Command3_Click()
‘ Удаление рисунка
Picture1.Cls
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As
Single)
‘ Точка для последующей работы метода Line
Picture1.Pset(X,Y)
‘ Разрешение рисования
S=1
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As
Single)
‘ Ширина линии рисования
d=Val(Text1.Text)
Picture1.DrawWidth=d
If s=1 Then Picture1.Line – (x,y),RGB(R,G,B) ‘ Рисование
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
‘ Запрет рисования при опускании кнопки
s=0
End Sub
‘Процедура выбора цвета линий
Select Case Index
Case 0: Label2. Caption = VScroll(0).Value: R=VScroll(0).Value
Case 1: Label3. Caption = VScroll(1).Value: G=VScroll(1).Value
Case 2: Label4. Caption = VScroll(2).Value: B=VScroll(2).Value
End Select
Picture2. BackColor = RGB (R, G, B)
End Sub

file_name: Код графического редактора.doc

title: Проект Код графического редактора:


extracted_text:
Проект 5 «Коды символов»
1. Создадим новый проект. Разместить на форме два текстовых поля txtS, txtN и две кнопки cmdS и
cmdT.
Воспользуемся функцией Asc() для преобразования  символа, вводимого в текстовое поле txtS, в
его числовой код, вводимый в поле txtN.
2. Ввести событийную процедуру cmdS_Click(), реализующую преобразование символа Вт его
числовой код:
Sub cmdS_Click()
txtN.Text = Asc(txtS.Text)
End Sub
Воспользуемся циклом со счётчиком с шагом 1, для того чтобы печатать на форме символы,
начиная с символа, имеющего наибольший числовой код (255). Такая последовательность вывода
символов связана с тем, что первые 33 числовых кода
 (от 0 до 32) соответствуют не символам, а управляющим клавишам клавиатуры (клавиши
управления курсором, Пробел, Ввод и др.).
3. Ввести код событийной  процедуры cmdT_Click(), которая осуществляет ввод кодировочной
таблицы символов на форму:
Sub cmdT_Click()
Dim strA As String, N As Integer
For N = 255 To 33 Step 1
strA = Chr(N)
Print “Числовой код”; N; “ – “ ; strA
Next N
End Sub
4. Запустить проект. Для получения числового кода в нижнем текстовом поле ввести символ в
верхнее поле и щёлкнуть по кнопке Код символа.
Для получения таблицы кодировки символов щёлкнуть по кнопке Кодировочная таблица.
Сохранить проект.

file_name: Проект5_коды_символов.doc

intro:
Воспользуемся функцией Asc() для преобразования  символа, вводимого в текстовое поле txtS, в его числовой код, вводимый в поле txtN.
2. Ввести событийную процедуру cmdS_Click(), реализующую преобразование символа Вт его числовой код:
Sub cmdS_Click()
txtN.Text = Asc(txtS.Text)
End Sub
Воспользуемся циклом со счётчиком с шагом -1, для того чтобы печатать на форме символы, начиная с символа, имеющего наибольший числовой код (255). Такая последовательность вывода символов связана с тем, что первые 33 числовых кода
 (от 0 до 32) соответствуют не символам, а управляющим клавишам клавиатуры (клавиши управления курсором, Пробел, Ввод и др.).

title: Проект 5 «Коды символов»


extracted_text:
Поиск в строковых массивах.
1. Поместить на форму frm1 кнопку cmd1 и
создать для неё событийную процедуру
cmd1_Click(), реализующую заполнение массива
буквами русского алфавита путём их
последовательного ввода с клавиатуры.
Dim  strA(1 To 10) As String, bytI As Byte
‘ Заполнение массива с клавиатуры
Sub cmd1_Click()
For bytI = 1  To 10
StrA(bytI) = InputBox(“Введите букву”,  “
Заполнение массива”)
Next bytI
End Sub
2. Поместить на форму кнопку cmd2 и создать
для неё событийную процедуру cmd2_Click(),
реализующую поиск: (добавить в описание
первого массива в оператор Dim bytN)
Sub cmd2_Click()
‘ Поиск элемента
StrB = InputBox(“Введите искомую букву”,
“Поиск”)
For bytI = 1  To 10
If strB=strA(bytI)  Then  bytN = bytI
Next bytI
frm1.Print “Буква и её номер:”   ;strB ; ”“ ; bytN
End Sub
Поиск в числовом массиве.
1. Поместить на форму frm1 кнопку cmd3 и
создать для неё событийную процедуру
cmd3_Click(), реализующую заполнение массива
случайными числами.
(добавить в описание первого массива bytA(1 To
10))
Sub cmd3_Click()
‘ Заполнение массива присваиванием
For bytI = 1  To  10
bytA(bytI)=Int(Rnd*100)
frm1.Print  bytA(bytI) ; “ –“ ;”номер”; bytI
Next bytI
End Sub
2. Поместить на форму кнопку cmd4 и создать
для неё событийную процедуру cmd4_Click(),
реализующую поиск:
(добавить в описание первого массива bytMin)
Sub cmd4_Click()
 ‘ Поиск минимального элемента
bytMin=bytA(1)
bytI=1
For bytI = 2  To 10
If  bytA(bytI)  < bytMin  Then  bytMin =
bytA(bytI) : bytN = bytI
Next bytI
frm1.Print “Минимальный элемент:”   ;bytMin ;
”его индекс“ ; bytN
End Sub
Поиск в строковых массивах.
1. Поместить на форму frm1 кнопку cmd1 и
создать для неё событийную процедуру
cmd1_Click(), реализующую заполнение массива
буквами русского алфавита путём их
последовательного ввода с клавиатуры.
Dim  strA(1 To 10) As String, bytI As Byte
‘ Заполнение массива с клавиатуры
Sub cmd1_Click()
For bytI = 1  To 10
StrA(bytI) = InputBox(“Введите букву”, “
Заполнение массива”)
Next bytI
End Sub
2. Поместить на форму кнопку cmd2 и создать
для неё событийную процедуру cmd2_Click(),
реализующую поиск: (добавить в описание
первого массива в оператор Dim bytN)
Sub cmd2_Click()
‘ Поиск элемента
StrB = InputBox(“Введите искомую букву”, “
Поиск”)
For bytI = 1  To 10
If strB=strA(bytI)  Then  bytN = bytI
Next bytI
frm1.Print “Буква и её номер:”   ;strB ; ”“ ; bytN
End Sub
Поиск в числовом массиве.
1. Поместить на форму frm1 кнопку cmd3 и
создать для неё событийную процедуру
cmd3_Click(), реализующую заполнение массива
случайными числами.
(добавить в описание первого массива bytA(1 To
10))
Sub cmd3_Click()
‘ Заполнение массива присваиванием
For bytI = 1  To  10
bytA(bytI)=Int(Rnd*100)
frm1.Print  bytA(bytI) ; “ –“ ;”номер”; bytI
Next bytI
End Sub
2. Поместить на форму кнопку cmd4 и создать
для неё событийную процедуру cmd4_Click(),
реализующую поиск:
(добавить в описание первого массива bytMin)
Sub cmd4_Click()
 ‘ Поиск минимального элемента
bytMin=bytA(1) bytI=1
For bytI = 2  To 10
If  bytA(bytI)  < bytMin  Then  bytMin =
bytA(bytI) : bytN = bytI
Next bytI
frm1.Print “Минимальный элемент:”   ;bytMin ;
”его индекс“ ; bytN
End Sub

file_name: Поиск_в_строковых_массивах.doc

title: Поиск в строковых массивах.


extracted_text:
Проект «Движение круга».
1. Разместить на форме графическое поле picAnim, в
котором будет производится движение круга.
2. Поместить на форму кнопку cmdStart и создать
событийную процедуру, реализующую анимацию:
Private Sub cmdStart_Click()
Dim intX As Integer, lngI  As Long
‘Масштаб
picAnim.Scale (10,10)(10,10)
‘Анимация
For intX= 10 To 10
‘Рисование
picAnim.FillColor=vbBlue
picAnim.Circle(intX,0),1,vbBlue
‘Задержка стирания
For lngI=1 To 10000000
Next lngI
‘Стирание
picAnim.FillColor=vbWhite
picAnim.Circle(intX,0),1,vbWhite
next intX
End Sub
В свойстве FillStyle объекта  picAnim поставить
значение 0  Solid
 3. Запустить проект и щёлкнуть по кнопке Старт. В
графическом поле начнётся движение синего круга
по оси ОХ.
Проект «Движение круга».
1. Разместить на форме графическое поле picAnim, в
котором будет производится движение круга.
2. Поместить на форму кнопку cmdStart и создать
событийную процедуру, реализующую анимацию:
Private Sub cmdStart_Click()
Dim intX As Integer, lngI  As Long
‘Масштаб
picAnim.Scale (10,10)(10,10)
‘Анимация
For intX= 10 To 10
‘Рисование
picAnim.FillColor=vbBlue
picAnim.Circle(intX,0),1,vbBlue
‘Задержка стирания
For lngI=1 To 10000000
Next lngI
‘Стирание
picAnim.FillColor=vbWhite
picAnim.Circle(intX,0),1,vbWhite
next intX
End Sub
В свойстве FillStyle объекта  picAnim поставить
значение 0  Solid
3. Запустить проект и щёлкнуть по кнопке Старт. В
графическом поле начнётся движение синего круга
по оси ОХ.
Проект «Движение круга».
1. Разместить на форме графическое поле picAnim, в
котором будет производится движение круга.
2. Поместить на форму кнопку cmdStart и создать
событийную процедуру, реализующую анимацию:
Private Sub cmdStart_Click()
Dim intX As Integer, lngI  As Long
‘Масштаб
picAnim.Scale (10,10)(10,10)
‘Анимация
For intX= 10 To 10
‘Рисование
picAnim.FillColor=vbBlue
picAnim.Circle(intX,0),1,vbBlue
‘Задержка стирания
For lngI=1 To 10000000
Next lngI
‘Стирание
picAnim.FillColor=vbWhite
picAnim.Circle(intX,0),1,vbWhite
next intX
End Sub
В свойстве FillStyle объекта  picAnim поставить
значение 0  Solid
3. Запустить проект и щёлкнуть по кнопке Старт. В
графическом поле начнётся движение синего круга
по оси ОХ.
Проект «Движение круга».
1. Разместить на форме графическое поле picAnim, в
котором будет производится движение круга.
2. Поместить на форму кнопку cmdStart и создать
событийную процедуру, реализующую анимацию:
Private Sub cmdStart_Click()
Dim intX As Integer, lngI  As Long
‘Масштаб
picAnim.Scale (10,10)(10,10)
‘Анимация
For intX= 10 To 10
‘Рисование
picAnim.FillColor=vbBlue
picAnim.Circle(intX,0),1,vbBlue
‘Задержка стирания
For lngI=1 To 10000000
Next lngI
‘Стирание
picAnim.FillColor=vbWhite
picAnim.Circle(intX,0),1,vbWhite
next intX
End Sub В свойстве FillStyle объекта  picAnim поставить
значение 0  Solid
3. Запустить проект и щёлкнуть по кнопке Старт. В
графическом поле начнётся движение синего круга
по оси ОХ.

file_name: Проект_движение_круга.doc

intro:
1. Разместить на форме графическое поле picAnim, в котором будет производится движение круга.
2. Поместить на форму кнопку cmdStart и создать событийную процедуру, реализующую анимацию:
Private Sub cmdStart_Click()
Dim intX As Integer, lngI  As Long
‘Масштаб
picAnim.Scale (-10,10)-(10,-10)
‘Анимация
For intX= -10 To 10
‘Рисование
picAnim.FillColor=vbBlue
picAnim.Circle(intX,0),1,vbBlue
‘Задержка стирания
For lngI=1 To 10000000
Next lngI
‘Стирание
picAnim.FillColor=vbWhite
picAnim.Circle(intX,0),1,vbWhite
next intX

title: Проект «Движение круга».


extracted_text:
Проект № 9 «Дата»
1. Разместить на форме кнопку cmd1  и ввести событийную процедуру cmd1_Click():
Dim dtmA, dtmB As Date
Sub cmd1_Click()
dtmA = date
dtmB = #1/1/2001#
Print “Сегодня  “; dtmA
Print  “С начала третьего тысячилетия прошло “; dtmA – dtmB; “ дней “
End Sub
2. Запустить проект и щёлкнуть по кнопке Дата. На форме будет напечатано текущее число и
количество дней, прошедших с начала третьего тысячилетия.
Поместить на форму текстовое поле txtTime. Ввести событийную процедуру tmr1_Timer():
Проект № 10 «Секундомер»
1. Разместить на форме объект Timer и присвоить ему имя tmr1, а свойству Interval – значение 1000.
Sub tmr1_Timer()
txtTime.Text = Time$
End Sub
2. Запустить проект. В текстовое окно с интервалом в одну секунду будет выводится сист емное
время компьютера.
Проект № 9 «Дата»
3. Разместить на форме кнопку cmd1  и ввести событийную процедуру cmd1_Click():
Dim dtmA, dtmB As Date
Sub cmd1_Click()
dtmA = date
dtmB = #1/1/2001#
Print “Сегодня  “; dtmA
Print  “С начала третьего тысячилетия прошло “; dtmA – dtmB; “ дней “
End Sub
4. Запустить проект и щёлкнуть по кнопке Дата. На форме будет напечатано текущее число и
количество дней, прошедших с начала третьего тысячилетия.
Поместить на форму текстовое поле txtTime. Ввести событийную процедуру tmr1_Timer():
Проект № 10 «Секундомер»
2. Разместить на форме объект Timer и присвоить ему имя tmr1, а свойству Interval – значение 1000.
Sub tmr1_Timer()
txtTime.Text = Time$
End Sub
2. Запустить проект. В текстовое окно с интервалом в одну секунду будет выводится сист емное
время компьютера.

title: Проект № 9 «Дата»


extracted_text:
ЗАДАНИЯ К ПРОЕКТУ 9_10:
№ 4.20 Разработать проект, который позволяет определить количество дней, прошедших
со дня вашего рождения.
№ 4.21 Разработать проект, который выводит в текстовые поля текущие дату и время.
ЗАДАНИЯ К ПРОЕКТУ 9_10:
№ 4.20 Разработать проект, который позволяет определить количество дней, прошедших
со дня вашего рождения.
№ 4.21 Разработать проект, который выводит в текстовые поля текущие дату и время.
ЗАДАНИЯ К ПРОЕКТУ 9_10:
№ 4.20 Разработать проект, который позволяет определить количество дней, прошедших
со дня вашего рождения.
№ 4.21 Разработать проект, который выводит в текстовые поля текущие дату и время.
ЗАДАНИЯ К ПРОЕКТУ 9_10:
№ 4.20 Разработать проект, который позволяет определить количество дней, прошедших
со дня вашего рождения.
№ 4.21 Разработать проект, который выводит в текстовые поля текущие дату и время.
ЗАДАНИЯ К ПРОЕКТУ 9_10:
№ 4.20 Разработать проект, который позволяет определить количество дней, прошедших
со дня вашего рождения.
№ 4.21 Разработать проект, который выводит в текстовые поля текущие дату и время.
ЗАДАНИЯ К ПРОЕКТУ 9_10:
№ 4.20 Разработать проект, который позволяет определить количество дней, прошедших
со дня вашего рождения.
№ 4.21 Разработать проект, который выводит в текстовые поля текущие дату и время.
ЗАДАНИЯ К ПРОЕКТУ 9_10:
№ 4.20 Разработать проект, который позволяет определить количество дней, прошедших
со дня вашего рождения.
№ 4.21 Разработать проект, который выводит в текстовые поля текущие дату и время.
ЗАДАНИЯ К ПРОЕКТУ 9_10:
№ 4.20 Разработать проект, который позволяет определить количество дней, прошедших
со дня вашего рождения.
№ 4.21 Разработать проект, который выводит в текстовые поля текущие дату и время.

file_name: ЗАДАНИЯ К ПРОЕКТУ 9.doc

title: ЗАДАНИЯ К ПРОЕКТУ 9_10:


extracted_text:
ПРОЕКТ № 8
1. Разместить на форме кнопку cmd1, задать значение Начать проверку свойства Caption. Создать
    событийную процедуру cmd1_Click().
2. C помощью функции InputBox запросить имя и фамилию и присвоить это значение строковой переменной strA, а с
помощью функции MsgBox вывести результаты регистрации:
Dim bytB, bytN As Byte, strA, strB As String
Sub cmd1_Click()
strA = InputBox("Введите ваше имя и фамилию:", "Регистрация")
bytB = MsgBox("Уважаемый  " + strA + ", Вы готовы к проверке знаний?", 36, "Конец регистрации")
3. Запустить проект и щёлкнуть по кнопке Начать проверку. На появившейся диалоговой панели Регистрация ввести в
текстовое поле имя и фамилию.
4. Число 36 обеспечивает вывод информационного окна типа «Вопрос», которое имеет две кнопки «Да»  и «Нет».
   Щелчок по одной из кнопок приводит к возвращению функцией определённого числового значения  ( Да 6, Нет – 7),
которое присваивается числовой переменной  bytB.
5. С помощью условного оператора можно реализовать либо выход из программы (щелчок по кнопке  Нет), либо переход к
проверке знаний (щелчок по кнопке Да):
     If bytB = 7 Then End
6. Ввести в событийную процедуру программный код, реализующий проверку знаний с помощью последовательности
вопросов. В переменной bytN накапливать количество правильных ответов:
strC = InputBox("Чему равен 1 байт?:", "Первый вопрос")
If strC = "8 бит" Then MsgBox "Правильно!", 0, "Первый вопрос" _
Else MsgBox "Неправильно!", 0, "Первый вопрос": bytN = bytN + 1
strC = InputBox("Переведите десятичное число 5 в двоичную систему счисления:", "Второй вопрос")
If strC = "101" Then MsgBox "Правильно!", 0, "Второй вопрос" _
Else MsgBox "Неправильно!", 0, "Второй вопрос": bytN = bytN + 1
MsgBox "Уважаемый  " + strA + ", Вы сделали " + Str(bytN) + " ошибок!", 0, "Конец опроса"
End Sub
7. Запустить проект, пройти регистрацию и ответить на вопросы. Дополнить проект ещё тремя вопросами.
Один вопрос
ПРОЕКТ № 8
1. Разместить на форме кнопку cmd1, задать значение Начать проверку свойства Caption. Создать
    событийную процедуру cmd1_Click().
2. C помощью функции InputBox запросить имя и фамилию и присвоить это значение строковой переменной strA, а с
помощью функции MsgBox вывести результаты регистрации:
Dim bytB, bytN As Byte, strA, strB As String
Sub cmd1_Click()
strA = InputBox("Введите ваше имя и фамилию:", "Регистрация")
bytB = MsgBox("Уважаемый  " + strA + ", Вы готовы к проверке знаний?", 36, "Конец регистрации")
3. Запустить проект и щёлкнуть по кнопке Начать проверку. На появившейся диалоговой панели Регистрация ввести в
текстовое поле имя и фамилию.
4. Число 36 обеспечивает вывод информационного окна типа «Вопрос», которое имеет две кнопки «Да»  и «Нет».
   Щелчок по одной из кнопок приводит к возвращению функцией определённого числового значения  ( Да 6, Нет – 7),
которое присваивается числовой переменной  bytB.
5. С помощью условного оператора можно реализовать либо выход из программы (щелчок по кнопке  Нет), либо переход к
проверке знаний (щелчок по кнопке Да):
     If bytB = 7 Then End
6. Ввести в событийную процедуру программный код, реализующий проверку знаний с помощью последовательности
вопросов. В переменной bytN накапливать количество правильных ответов:
strC = InputBox("Чему равен 1 байт?:", "Первый вопрос")
If strC = "8 бит" Then MsgBox "Правильно!", 0, "Первый вопрос" _
Else MsgBox "Неправильно!", 0, "Первый вопрос": bytN = bytN + 1
strC = InputBox("Переведите десятичное число 5 в двоичную систему счисления:", "Второй вопрос")
If strC = "101" Then MsgBox "Правильно!", 0, "Второй вопрос" _
Else MsgBox "Неправильно!", 0, "Второй вопрос": bytN = bytN + 1
MsgBox "Уважаемый  " + strA + ", Вы сделали " + Str(bytN) + " ошибок!", 0, "Конец опроса"
End Sub
Один вопрос 7. Запустить проект, пройти регистрацию и ответить на вопросы. Дополнить проект ещё тремя вопросами.

title: ПРОЕКТ № 8 Проверка знаний


extracted_text:
Проект «Создание графического интерфейса»
1. Запустить Visual Basic. Создать новый проект командой [File – New – Standart].
2. С помощью Панели инструментов на форму (Form1) разместить метку (Label1), текстовое поле (Text1) и командную кнопку
(Command1).
3. С помощью окна Свойства объекта изменить значения свойств формы и управляющих элементов согласно таблице:
Новое значение
Значение по умолчанию
Класс объектов
Свойство
Form (форма)
Label (надпись)
TextBox
(текстовое поле)
CommandButton
(командная кнопка)
Name
Caption
Name
Caption
Name
Caption
Name
Caption
Form1
Form1
Label1
Label1
Text1
Text1
Command1
Command1
frm1
Первый проект
lbl1
Первый проект
txt1
Первый проект
cmd1
Метод  Print
4. Двойным щелчком по кнопке cmd1 вызвать окно Программный код с пустой процедурой cmd1_Click(). Ввести в процедуру
метод Print.
frm1.Print “Первый проект на языке Visual Basic”
5. Ввести команду [Run – Start]. Появится окно приложения Первый проект.
Для выполнения событийной процедуры щёлкнуть по кнопке Метод Print.
6. Активизировать форму frm1. В окне Свойства объекта выбрать свойство Backcolor (цвет фона) и двойным щелчком
открыть диалоговое окно с цветной палитрой. Выбрать цвет, например жёлтый.
7. Активизировать метку lbl1. В окне Свойства объекта установить значение свойств: Backcolor – зелёный, Forecolor
(цвет надписи) – синий, Font – размер шрифта 18, Alignment (выравнивание) – center.
8. Активизировать текстовое поле txt1. В окне  Свойства объекта установить значения свойств:  , Forecolor (цвет
надписи) – красный, Font – размер шрифта 14 и начертание курсивное, Alignment (выравнивание) – center.
9. Двойным щелчком по кнопке cmd1 вызвать окно Программный код. Ввести в процедуру cmd1_Click() строку
Font.Size = 12 .
10. После запуска проекта и щелчка по кнопке Метод Print получим новый вид графического интерфейса.
11. Сохранить файл командой [Save Form1.frm As…] как frmVB1.frm  и файл проекта командой [Save Project As …] как
prjVB1.vbp.
Проект «Создание графического интерфейса»
1. Запустить Visual Basic. Создать новый проект командой [File – New – Standart].
2. С помощью Панели инструментов на форму (Form1) разместить метку (Label1), текстовое поле (Text1) и командную кнопку
(Command1).
3. С помощью окна Свойства объекта изменить значения свойств формы и управляющих элементов согласно таблице:
Новое значение
Значение по умолчанию
Класс объектов
Свойство
Form (форма)
Label (надпись)
TextBox
(текстовое поле)
CommandButton
(командная кнопка)
Name
Caption
Name
Caption
Name
Caption
Name
Caption
Form1
Form1
Label1
Label1
Text1
Text1
Command1
Command1
frm1
Первый проект
lbl1
Первый проект
txt1
Первый проект
cmd1
Метод  Print
4. Двойным щелчком по кнопке cmd1 вызвать окно Программный код с пустой процедурой cmd1_Click(). Ввести в процедуру
метод Print.
frm1.Print “Первый проект на языке Visual Basic”
5. Ввести команду [Run – Start]. Появится окно приложения Первый проект.
Для выполнения событийной процедуры щёлкнуть по кнопке Метод Print.
6. Активизировать форму frm1. В окне Свойства объекта выбрать свойство Backcolor (цвет фона) и двойным щелчком
открыть диалоговое окно с цветной палитрой. Выбрать цвет, например жёлтый.
7. Активизировать метку lbl1. В окне Свойства объекта установить значение свойств: Backcolor – зелёный, Forecolor
(цвет надписи) – синий, Font – размер шрифта 18, Alignment (выравнивание) – center.
8. Активизировать текстовое поле txt1. В окне  Свойства объекта установить значения свойств:  , Forecolor (цвет
надписи) – красный, Font – размер шрифта 14 и начертание курсивное, Alignment (выравнивание) – center.
9. Двойным щелчком по кнопке cmd1 вызвать окно Программный код. Ввести в процедуру cmd1_Click() строку
Font.Size = 12 .
10. После запуска проекта и щелчка по кнопке Метод Print получим новый вид графического интерфейса.
11. Сохранить файл командой [Save Form1.frm As…] как frmVB1.frm  и файл проекта командой [Save Project As …] как
prjVB1.vbp.


extracted_text:
Проект «Рисование домика»
1. разместить на форме frm1 две командные кнопки cmdСтена и cmdКрыша и создат дляних событийные процедуры
рисования стены и крыши:
Private Sub cmdСтена_Click()
Scale (0,170) – (350,0)
Frm1.Line (20,100) – (220,20),,B
End Sub
Private Sub cmdКрыша_Click()
Scale (0,170)(350,0)
Frm1.Line (20,100)(220,100)
Frm1.Line (20,100)(120,150)
Frm1.Line (120,150)(220,100)
End Sub
2. Ввести код глобальной общей процедуры Домик2 в программный код первой формы frm1:
Public Sub Домик2 (X1,X2,Y1,Y2 As Single)
Frm2.Line (X1,Y1)(X2,Y2),,B
Frm2.Line (X1,Y1) – (X2,Y1)
Frm2.Line (X1,Y1)((X1+X2)/2 , Y1+Y2/2)
Frm2.Line ((X1+X2)/2,Y1+Y2/2)(X2,Y1)
End Sub
3. Добавим в проект стандартный программный модуль командой [ProjectAdd Form]. Поместить на форму frm2
кнопку cmdДомики2.
4. Ввести код событийной процедуры cmdДомики1 в программный код второй формы:
Private Sub cmdДомики2_Click()
Frm2.Scale (0,170)(350,0)
Call frm1.Домик2(10,50,50,10)
Call frm1.Домик2(60,150,100,40)
Call frm1.Домик2(160,320,110,50)
End Sub
5. Добавить в проект стандартный программный модуль командой [ProjectAdd Module]. В окне Программный код
определить переменные и ввести процедуру:
Global X1, X2 , Y1, Y2 As Single
Public Sub Домик2(X1, X2, Y1, Y2 As Single)
Frm3.Line (x1,y1)(x2,y2),,B
Frm3.Line(X1,Y1) – (X2,Y1)
Frm3.Line (X1,Y1)((X1+X2)/2,Y1+Y2/2)
Frm3.Line ((X1+X2)/2,Y1+Y2/2)(X2,Y1)
End Sub
6. Сохранить программный модуль в папке проекта командой [FileSave Module.bas As…]
7. Добавить в проект форму командой [ProjectAdd Form]. Поместить на форму frm3 кнопку Домики3.
8. Ввести код событийной процедуры cmdДомики3_Click() в программный код третьей формы frm3:
Private Sub cmdДомики3_Click()
Frm3.Scale (0,170)(350,0)
Module1. Домик 10 , 50, 50, 10
Module1. Домик 60 , 150, 100, 40
Module1. Домик 160 , 320, 110, 50
End Sub
9. Для показа второй и третьей формы используем метод Show.
Поместить на frm1 кнопки cmd2 и cmd3. Создать для них событийные процедуры. Реализующие показ второй и
третьей форм:
Private Sub cmd2_Click()
Frm2.Show
End Sub
Private Sub cmd3_Click()
Frm3.Show End Sub
10. Запустить проект. Последовательно щёлкнуть по кнопкам событийных процедур. На первой форме будет
нарисован один домик, а на второй и третьей формах по три домика.

file_name: Проект_домики.doc

intro:
Вот часть презентации ( 2 слайда)
разместить на форме frm1 две командные кнопки cmdСтена и cmdКрыша и создат дляних событийные процедуры рисования стены и крыши:
Private Sub cmdСтена_Click()
Scale (0,170) – (350,0)
Frm1.Line (20,100) – (220,20),,B
End Sub

Private Sub cmdКрыша_Click()
Scale (0,170)-(350,0)
Frm1.Line (20,100)-(220,100)
Frm1.Line (20,100)-(120,150)
Frm1.Line (120,150)-(220,100)
End Sub

title: Проект «Рисование домика»


extracted_text:
Игра «Отгадай число»
Dim a As Integer, k As Integer, b As Integer
Private Sub Form_Load()
Show
Randomize
A=Int(Rnd*100+1)
b=InputBox(“Введите число в диапазоне
от 1 до 100”,,,3000,4000)
Do While b<>a
If b>a Then
Print “Введено число”;b; “Оно больше
загаданного компьютером.”
End If
If   ba
If b>a Then
Print “Введено число”;b; “Оно больше
загаданного компьютером.”
End If
If   ba
If b>a Then
Print “Введено число”;b; “Оно больше
загаданного компьютером.”
End If
If   ba
If b>a Then
Print “Введено число”;b; “Оно больше
загаданного компьютером.”
End If
If   b

description:
Игра «Отгадай число»
Dim a As Integer, k As Integer, b As Integer
Private Sub Form_Load()
Show
Randomize
A=Int(Rnd*100+1)
b=InputBox(“Введите число в диапазоне
от 1 до 100”,,,3000,4000)
Do While b<>a
If b>a Then
Print “Введено число”;b; “Оно больше
загаданного компьютером.”
End If
If   b<a  Then
Print “Введено число”;b; “Оно меньше
загаданного компьютером.”
End If
K=k+1
B=InputBox(“Введите
число”,,,3000,4000)
Loop
Print “Вы отгадали число. Оно равно:”; b
Print “Было сделано”;k+1;”попыток.”
End Sub
Игра «Отгадай число»
Dim a As Integer, k As Integer, b As Integer
Private Sub Form_Load()
Show
Randomize
A=Int(Rnd*100+1)
b=InputBox(“Введите число в диапазоне
от 1 до 100”,,,3000,4000)
Do While b<>a
If b>a Then
Print “Введено число”;b; “Оно больше
загаданного компьютером.”
End If
If   b<a  Then
Print “Введено число”;b; “Оно меньше
загаданного компьютером.”
End If
K=k+1
B=InputBox(“Введите
число”,,,3000,4000)
Loop
Print “Вы отгадали число. Оно равно:”; b
Print “Было сделано”;k+1;”попыток.”
End Sub
Игра «Отгадай число»
Dim a As Integer, k As Integer, b As Integer
Private Sub Form_Load()
Show
Randomize
A=Int(Rnd*100+1)
b=InputBox(“Введите число в
диапазоне от 1 до 100”,,,3000,4000)
Do While b<>a
If b>a Then
Print “Введено число”;b; “Оно больше
загаданного компьютером.”
End If
If   b<a  Then
Print “Введено число”;b; “Оно меньше
загаданного компьютером.”
End If
K=k+1
B=InputBox(“Введите
число”,,,3000,4000)
Loop
Print “Вы отгадали число. Оно равно:”;
b
Print “Было сделано”;k+1;”попыток.”
End Sub
Игра «Отгадай число»
Dim a As Integer, k As Integer, b As
Integer
Private Sub Form_Load()
Show
Randomize
A=Int(Rnd*100+1)
b=InputBox(“Введите число в
диапазоне от 1 до 100”,,,3000,4000)
Do While b<>a
If b>a Then
Print “Введено число”;b; “Оно больше
загаданного компьютером.”
End If
If   b<a  Then
Print “Введено число”;b; “Оно меньше
загаданного компьютером.”
End If
K=k+1
B=InputBox(“Введите
число”,,,3000,4000)
Loop
Print “Вы отгадали число. Оно равно:”;
b
Print “Было сделано”;k+1;”попыток.”
End Sub

title: Игра «Отгадай число»


extracted_text:
В строку объявления переменных (Dim) добавим
переменные:
strA, strB As String
Затем создадим событийную процедуру, реализующую
логические операции с логическими переменными.
7. Разместить на форме (frm1) управляющий элемент
коммандная  кнопка (cmd3).
Создадим заготовку событийной процедуры, в которой в
качестве объекта будет использоваться кнопка cmd3, а в
качестве события щелчок Click().
В строку объявления переменных (Dim) добавим
переменные blnA, blnB и blnC As Boolean.
8. В окне Программный код ввести третью событийную
процедуру целиком:
Sub cmd3_Click()
blnA = 5 > 3
blnB = 2 * 2 = 5
blnC = blnA And blnB
frm1. Print blnC
End Sub
После запуска проекта на экране появится его
графический интерфейс (форма с размещёнными на ней
командными кнопками). Последовательные щелчки по
кнопкам вызовут выполнение событийных процедур и на
форме будут напечатаны результаты выполнения
проекта.
Сохранить этот проект в своей папке под именем
prjVb2.
Проект 2 «Переменные»:
1. Создать новый проект. Для создания графического
интерфейса разместить на форме (frm1) управляющий
элемент командная кнопка (cmd1).
В качестве аргументов программы пусть выступают две
целочисленные переменные intA и intB, а в качестве
результатов неотрицательная целочисленная переменная
bytC, вещественная переменная одинарной точности
sngD и вещественная переменная двойной точности
dblE.
2. Объявить переменные для их использования в
программе:
Dim intA, intB As Integer, bytC As Byte,
sngD As Single, dblE As Double
Создадим заготовку событийной процедуры, в которой в
качестве объекта будет использоваться кнопка cmd1, а в
качестве события щелчок – Click().
3. Произвести двойной щелчок по кнопке cmd1, в окне
Программный код появится заготовка событийной
процедуры:
Private Sub cmd1_Click()
End Sub
Теперь необходимо разработать программный модуль,
реализующий следующий алгоритм деления двух чисел:
1. Присвоить аргументам алгоритма, переменным intA
и intB конкретные значения.
2. Присвоить каждой из переменных bytC, sngD и
dblE результат деления аргументов.
3. напечатать результаты (значения переменных) на
форме.
4. В окне Программный код ввести первую событийную
процедуру целиком:
Dim intA, intB As Integer, bytC As Byte,
sngD As Single, dblE As Double
Sub cmd1_Click()
intA = 2
intB = 3
bytC = intA / intB
sngD = intA / intB
dblE = intA / intB
frm1.Print bytC, sngD, dblE
End Sub
Теперь создадим событийную процедуру, реализующую
операцию конкатенации строк и строковой переменной.
5. Разместить на форме (акь1) управляющий элемент
командная кнопка (cmd2).
Создадим заготовку событийной процедуры, в которой в
качестве объекта будет использоваться кнопка cmd2, а в
качестве события щелчок Click().
Объявим строковые переменные и произведём
конкатенацию двух строковых выражения и строковой
переменной.
6. В окне программный код ввести вторую событийную
процедуру целиком:
Sub cmd2_Click()
strA = “форма “
strB = “ин“ + strA + “тика“
frm1.Print strB
End Sub

title: Проект 2 «Переменные»:


extracted_text:
Урок №3.
Тема: Алгоритм и его свойства.
Цель:
Учебная:  Ввести определение алгоритма, рассмотреть его свойства. Изучить способы
записи алгоритма, виды алгоритмов.
Воспитательная: Воспитать стремление к аккуратности, ответственности при работе с
техникой.
Развивающая: Развить у учащихся алгоритмическое и логическое мышление.
Основные знания и умения:
Знать:
 Что такое алгоритм; какова роль алгоритма в системах управления;
 В чем состоят основные свойства алгоритма;
 Способы записи алгоритмов: блок – схемы, учебный алгоритмические конструкции
 Виды алгоритмов.
 Этапы создания программы.
Уметь:
 Пользоваться   языком   блок   –   схем,   понимать   описания   алгоритмов   на   учебном
алгоритмическом языке;
 Выполнять трассировку алгоритма для известного исполнителя;
 Составлять несложные линейные, ветвящиеся, циклические алгоритмы:
Обеспечение занятия:
Литература:
1). ПК – ЭВМ
2). Раздаточный материал
–
12 шт.
Н.Г. Волченков «Программирование на Visual Basic 6.0 »
С.Н Лукин «Самоучитель работы на Visual Basic 6.0»
Вид занятия:
комбинированное
–
1ч.
План занятия:
1. Организационный момент
2. Изложение новой темы
3. Закрепление темы
4. Практическая работа
5. Отчет по работе
6. Д/з
Последовательность изложения темы:
1. Введение.
2. Свойства алгоритма.
3. Способы записи алгоритма.
–
–
–
10
–
–
  2
20
10
2
  1
– 4. Виды алгоритмов.
5. Этапы создания программы.
6. Практическое задание №1.
Х О Д   У Р О К А .
1. Организационный момент
(Приветствие, проверка посещаемости, объявление целей и задач урока)
2. Изложение новой темы
20
  2
–
–
1.Введение.
Основные термины:
Алгоритм     это   четкое   описание   последовательности   действий,   которые   необходимо
выполнить для решения поставленной задачи.
Программа  это алгоритм, записанный на языке программирования.
Языком программирования называется специальный язык, понятный для компьютера.
Программирование  это процесс создания, отладки и тестирования программ.

Создание   любой   программы   начинается   с   разработки   алгоритма.   Именно   четкое
описание   последовательности   действий   позволяет   мысленно   представить   будущую
программу. Построив алгоритм, программист мыслит четко, последовательно, однозначно
так, как и будет впоследствии мыслить компьютер. Вот почему данный учебник начинается
с алгоритма.
2. Свойства алгоритма.
Для алгоритма характерны следующие свойства:
Дискретность     алгоритм   должен   быть   представлен   как   последовательное   выполнение
простых шагов.
Шагом называется каждое действие алгоритма.
Определенность  каждое действие алгоритма должно быть четким и однозначным.
Результативность  алгоритм должен приводить к решению задачи за определенное число
шагов.
Массовость  алгоритм составляется в общем виде, т.е. он должен быть применим к ряду
задач, различающихся исходными данными.
Исполнитель   алгоритма  –   это   тот   объект   или   субъект,   для   управления   которым
составлен алгоритм.
Среда исполнителя: обстановка, в которой функционирует исполнитель.
Задача №1.
Назвать исполнителей следующих видов работы: обучение детей в школе, охрана здания,
знакомство с достопримечательностями города, местности, перевозка грузов, пассажиров.
Попробуйте сформулировать СКИ для каждого из этих исполнителей.
3. Способы записи алгоритма.
Формальный  запись алгоритма словесно, на естественном языке. Графический  изображение алгоритма в виде блоксхемы.
Задача №2.
Рассчитать   площадь   равностороннего   треугольника.   Записать   алгоритм   решения
задачи на формальном, графическом, алгоритмическом языке.
4. Виды алгоритмов.
Линейный  шаги алгоритма следуют один за другим
не повторяясь,  действия  происходят  только  в одной
заранее намеченной последовательности.
Блоки алгоритма 1, 2, 3 выполняются именно в такой
последовательности,   после   чего   алгоритм   достигает
цели и заканчивается.
Алгоритм   с   ветвлением     в   зависимости   от
выполнения   или   невыполнения   условия,
исполняется   либо   одна,   либо   другая   ветвь
алгоритма.
В данном алгоритме проверяется условие, и если
оно выполняется, то есть на вопрос можно ответить
"Да",   исполняется   блок   алгоритма   1   (одно   ли
несколько действий), а если не выполняется  ответ
на вопрос отрицательный, то исполняется блок 2. Примечание: одного из блоков: 1 или 2 может не быть вовсе.  Тогда в одном из
случаев   будут   выполняться   какиелибо   действия,   а   в   другом      ничего   не   будет
выполняться.
Циклический  блоки алгоритма выполняются до тех пор,
пока не будет выполнено определенное условие.
Блок алгоритма 1 будет выполняться один или несколько раз до
тех пор, пока не выполнится условие.
  Алгоритм выполняется так: выполняется блок 1, проверяется
условие, если оно не выполняется, то блок 1 выполняется снова
и   условие   проверяется   заново.   При   выполнении   условия
алгоритм заканчивается.
Примечание:   в   общей   схеме   алгоритма   "Да"   и   "Нет"   можно
поменять   местами,   тогда   алгоритм   будет   выполняться,   пока
условие   выполняется.   Как   только   условие   не   выполнится
алгоритм завершится.
5. Этапы создания программы
Постановка задачи  составление точного и понятного словесного описания того,
как   должна   работать   будущая   программа,   что   должен   делать   пользователь   в
процессе ее работы.
Разработка интерфейса (интерфейс  способ общения)  создание экранной формы
(окна программы).
Составление алгоритма.
Программирование  создание программного кода на языке программирования.
Отладка программы  устранение ошибок.
Тестирование программы  проверка правильности ее работы.
6. Практическое задание
Составьте и опишите словесно следующие алгоритмы (определите их тип самостоятельно):
Дорога в школу;
Приготовление салата «винегрет»;
Приготовление кофе.
Опишите составленные алгоритмы с помощью блоксхемы.
Составьте   алгоритм,   содержащий   элементы   всех   трех   типов.   Тему   придумайте
самостоятельно. Опишите алгоритм словесно и с помощью блоксхемы.
7.  Задание на дом
Поработать с конспектом, составить алгоритм вычисления квадратного корня
Примечание: при изучении нового материала учащиеся делают в тетрадь необходимые
записи под руководством учителя.

file_name: Алгоритм и его свойства.doc

intro:
Тема: Алгоритм и его свойства.
Цель:
Учебная: 	Ввести определение алгоритма, рассмотреть его свойства. Изучить способы записи алгоритма, виды алгоритмов.
Воспитательная: Воспитать стремление к аккуратности, ответственности при работе с техникой.
Развивающая: Развить у учащихся алгоритмическое и логическое мышление.
Основные знания и умения:
Знать:
•	Что такое алгоритм; какова роль алгоритма в системах управления;
•	В чем состоят основные свойства алгоритма;
•	Способы записи алгоритмов: блок – схемы, учебный алгоритмические конструкции
•	Виды алгоритмов.
•	Этапы создания программы.

title: Урок №3.  Тема: Алгоритм и его свойства.


extracted_text:
Урок №.
Тема: Графические методы.
Цель:
Цели урока:
Образовательная:
Познакомить учащихся с применением графических средств в Visual Basic. Научить
учащихся составлять программы с использованием графических методов.
Развивающая:
Развивать у учащихся навыки работы с ПЭВМ, память, внимание, мышление, речь,
кругозор.
Воспитательная :
Воспитывать у учащихся интерес к предмету, бережное отношение к учебной технике.
Основные знания и умения:
Знать:
 Что такое метод, графический метод;
 В чем состоят 1) метод Scale
2) метод  PSet
3) метод  Line
4) метод  Circle
5) метод  Cls
Уметь:
Задавать  на данном объекте декартову систему координат;

 Изображать на данном объекте точку в заданной системе координат;
 Изображать отрезок с заданными декартовыми координатами;
 Строить на данном объекте окружности,   круги, эллипсы, дуги и секторы кругов,
эллипсов с заданными координатами;
 Составлять несложные приложения используя графические методы;
Обеспечение занятия:
1). ПК – ЭВМ
2). Раздаточный материал
–
12 шт.
Литература:
Н.Г. Волченков «Программирование на Visual Basic 6.0 »
С.Н Лукин «Самоучитель работы на Visual Basic 6.0»
Вид занятия:
комбинированное
–
1ч.
План занятия:
1. Организационный момент
2. Опрос по домашнему заданию
3. Изложение новой темы
4. Практическая работа
5. Д/з
–
–
–
15
–
  2
5
15
  3
– Х О Д   У Р О К А .
1. Организационный момент
(Приветствие, проверка посещаемости, объявление целей и задач урока)
2. Опрос по домашнему заданию
5
  2
–
–
1. Как вы думаете, выполняется или нет перестановочный  закон для операции + над
строками (для конкатенации)? Другими словами, всегда ли справедливо равенство
A+B=B+A?
2. Как вы думаете, сколько начальных позиций может быть у подстроки длиной М в
строке длиной N(N>M)? (ОТВЕТ: NM+1)
3. Как   вы   думаете,   сколько   начальных   позиций   может   иметь   пустая   подстрока   в
непустой строке? (Сколько угодно)
4. какое значение вернет функция Val(2е5)?
3. Изложение новой темы
–
20
Графические методы Scale и PSet.
Метод – это некоторое действие, которое может выполнять Visual Basic над данным
объектом.
Графический метод – это такой метод, который позволяет изображать на объекте данного
класса какой –  нибудь геометрический элемент.
Метод Scale, с помощью которого Вы можете задать на данном объекте декартову систему
координат. Этот метод применяется к объектам Экранная форма (Form) и Графическое
окно (PictureBox).
 пиктограмма инструмента PictureBox (графическое окно). Объекты Form  и
PictureBox  имеют   абсолютные   координаты,   а   также   размеры   (ширину   и
высоту).
Форма и элемент PictureBox имеют систему координат. Единицу измерения координат для
данного конкретного проекта можно выбрать. В настоящем занятии мы обсудим те
свойства и методы, которые имеют отношение к системе координат и выбору для нее
единиц измерения, научимся использовать графические методы.
1. Система координат
Свойство ScaleMode отвечает за используемую единицу измерения. По умолчанию
принимается единица измерения – твип. Один твип соответствует 1/1440 дюйма или 0,0176
мм. Свойство ScaleMode позволяет выбрать в качестве единицы измерения миллиметры,
сантиметры, дюймы, пункты или символы.
Как только вы поменяли значение свойства ScaleMode, соответственно новым единицам
измерения поменяются и значения свойств ScaleHeight и ScaleWidth объекта.
У объектов формы и PictureBox есть еще свойства ScaleTop и ScaleLeft, определяющие
положение начала координат.
Определить систему координат и единицу измерения на форме, элементе PictureBox и
объекте Printer позволяет метод Scale. Нужно задать координаты начала и конца отсчета по вертикали и горизонтали. При этом необходимо, чтобы значение свойства ScaleMode имело
значение 0  User. Синтаксис метода следующий:
ИмяОбъекта . Scale[(X1,Y1) – (X2,Y2)]
X1,Y1 – координаты левого верхнего угла (начала координат) системы координат.
X2,Y2 – координаты правого нижнего угла системы координат.
Если указаны параметры X1,Y1 и X2,Y2, то они будут соответствовать левому верхнему и
правому нижнему углам объекта. При этом единица измерения будет определяться
фактическими размерами объекта и диапазоном изменения соответствующей координаты.
Обе пары координат могут быть опущены. Тогда будет принята система координат по
умолчанию с единицей измерения – твип.
2. Графические методы
Форма и элемент PictureBox располагают графическими методами, которые позволяют
рисовать на рабочей поверхности объекта.
Метод Cls служит для очистки поверхности объекта от результатов текстового вывода и
графических методов. Формат метода предельно прост:
ИмяОбъекта . Cls
или просто
Cls
Для рисования линий и прямоугольников служит метод Line. Результаты работы метода
Line зависят от значений свойств FillColor, FillStyle, DrawWidth, DrawMode и DrawStyle.
Перед вызовом метода можно задать этим свойствам значения для получения
разнообразных эффектов. Синтаксис метода такой:
Line [Step] (X1,Y1)  [Step] (X2,Y2), [Color] [,B] [F]
B – при наличии этого параметра метод рисует прямоугольник, а не линию.
F  прямоугольник будет заполнен. Этот параметр можно использовать только при наличии
параметра B.
(X1, Y1) и (X2,Y2) – две пары координат, задающие местоположение начала и конца линии
(или верхний левый и правый нижний углы прямоугольника).
Step – зарезервированное слово. Если вызов метода сопровождается этим словом, то
координаты отсчитываются от текущей позиции вывода.
Color – параметр, который позволяет задать цвет. Для этого можно использовать функции
QBColor или RGB. Если параметр отсутствует, то будет использован цвет, определенный
значением свойства ForeColor. Метод PSet служит для рисования на поверхности одиночной точки. Размеры точки
определяются значением свойства DrawWidth. Синтаксис метода следующий:
PSet [Step] (X,Y), [Color]
(X,Y) – координаты точки
Step – при наличии этого слова используются относительные координаты.
Color – параметр для задания цвета точки.
Окружности или эллипсы на поверхности формы или элемента PictureBox можно рисовать
с помощью метода Circle. Результат работы метода тоже зависит от значений свойств
FillColor, FillStyle, DrawWidth, DrawMode и DrawStyle. Синтаксис метода следующий:
Circle [Step] (X,Y),Radius[,Color] [,Start] [,End] [,F]
(X,Y)  координаты, задающие местоположение центра окружности.
Radius  значение радиуса окружности.
Метод позволяет рисовать дуги. Для этого в нем должны быть два параметра,
определяющих начало и конец дуги в радианах от 0 до 2p.
Start  параметр, определяющий начало дуги, End  параметр, определяющий конец дуги.
С помощью метода можно нарисовать эллипс. Тогда нужно задать параметр F, равный
отношению осей эллипса.
3. Цвет
Видеосистемы IBM PC, так же, как и цветное телевидение основываются на
трехкомпонентной модели цвета, которую называют также RGBмоделью. Она позволяет
получить необходимый цвет или оттенок сложением чистых цветовых тонов: красного,
синего и зеленого в разных соотношениях яркости. Если яркость всех компонентов
одинакова, получается чернобелая гамма. В 16 миллионном цветовом режиме адаптер
SVGA отводит под значение каждого из RGBкомпонентов 1 байт, позволяющий запомнить
одну из 256 градаций.
4. Использование цвета в Visual Basic
При проектировании на Visual Basic на этапе создания проекта цвет для соответствующего
элемента можно выбрать в окне свойств с помощью комбинированного поля.
В период выполнения проекта значение цвета можно задать в качестве значения свойства,
отвечающего за тот или иной цвет. Вы уже задавали цвет с помощью функции QBColor.
Параметр этой функции  число в диапазоне от 0 до 15. Этим количеством ограничен и
выбор цветов. Более широкие возможности предоставляет функция RGB. Эта функция
позволяет задать в явном виде значения трех цветовых компонентов. Синтаксис функции
следующий:
RGB(Red, Green, Blue) Red, Green, Blue  параметры, определяющие удельный вес каждого компонента. Это числа
от 0 до 255.
Вот так можно, например, задать цвет фона метки label1 в период выполнения проекта с
помощью функции RGB:
Label1.BackColor = RGB(23, 106, 241)
5. Управляющие элементы Shape и Line
Управляющие элементы Shape и Line предназначены для построения геометрических
фигур и линий на поверхности формы. У элемента Shape на панели элементов управления
вот такая пиктограмма:
Свойство Shape задает вид, который будет иметь фигура. Всего может быть шесть разных
видов фигур, значение по умолчанию – прямоугольник.
Свойство BorderWidth задает толщину линий фигуры.
Свойство BorderColor задает цвет линии, которым будет изображена фигура.
Свойство BackStyle определяет режим фона фигуры. Значение 0 – Transparent
соответствует прозрачному фону, 1 – Opaque непрозрачному.
Свойство BorderStyle определяет стиль линии фигуры.
Свойство FillColor определяет цвет заполнения фигуры, а FillStyle – стиль заполнения.
У элемента Line на панели элементов управления пиктограмма такая:
Можно изменять цвет, толщину и координаты концов линии.
Свойство BorderColor задает цвет линии, BorderStile – стиль, BorderWidth – толщину.
X1, Y1 – два свойства, содержащие координаты начала линии.
X2, Y2 – два свойства, содержащие координаты конца линии.
6. Проект в котором используются элементы Shape и функция RGB( )
Для того, чтобы попрактиковаться в использовании элементов shape сделаем небольшой
проект, в котором части некоторой геометрической фигуры по событиям таймера меняют
свой цвет.
Фигура будет состоять из пяти одинаковых квадратов (элементов shape), расположенных
так, как показано на рисунке:
Первый нижний левый квадрат представлен элементом Shape1, последний правый верхний
квадрат  элементом Shape5. Толщину линий всех элементов фигуры (свойство
BorderWidth) на этапе проектирования зададим равным 3. На форму кроме описанных
элементов поместим таймер Timer1, значение свойства Interval = 300, свойства Enabled =
False.
Фон формы (свойство BackColor) на этапе проектирования зададим черный. Цвет
квадратов (свойство BorderColor элементов shape) зададим тоже черный. На форму поместим таймер Timer1, значение свойства Interval = 300, свойства Enabled =
False. Кроме этого на форму поместим еще командную кнопку Command1, после щелчка
по которой будет запускаться таймер.
Во время работы нашего проекта после щелчка пользователем по командной кнопке
квадраты по событиям таймера начнут менять черный цвет на зеленый  будут "зажигаться"
по очереди: сначала левый нижний shape1, затем тот который выше и правее shape2, затем
следующий shape3. Когда все квадраты "загорятся", по следующему событию таймера все
они должны погаснуть  поменять цвет опять на черный. Дальше процесс "зажигания"
повторяется.
Приступим к составлению кода. В коде командной кнопки будем запускать таймер.
Составьте код:
Private Sub Command1_Click( )
End Sub
Всю основную программу поместим в код таймера. Дополните код:
Private Sub Timer1_Timer( )
Static C As Integer
C = C + 1
If C = 1 Then
Shape1.BorderColor = RGB(20, 200, 20)
ElseIf C = 2 Then
. . .
Shape5.BorderColor = RGB(20, 200, 20)
ElseIf C = 6 Then
Shape1.BorderColor = RGB(0, 0, 0)
Shape2.BorderColor = RGB(0, 0, 0)
Shape3.BorderColor = RGB(0, 0, 0)
Shape4.BorderColor = RGB(0, 0, 0)
Shape5.BorderColor = RGB(0, 0, 0)
ElseIf C > 7 Then
C = 0
End If
В начале кода объявляется статическая переменная. По событиям таймера ее значение
будет увеличиваться на единицу. Если ее значение превысит 7, то она "обнуляется". Цвет в
приведенном коде задается с помощью функции RGB( ). Сделайте проект на своем
компьютере.
7. Ваш собственный проект с использованием элементов Shape, Line и функции RGB( )
Придумайте свою геометрическую фигуру и сделайте проект, используя описанный
принцип. Фигура должна быть сложнее, интереснее, должна содержать элементы Shape и
Line. "Поиграйте" цветами.
5.Отчет по работе
В   конце   урока   подводим   итог   нашего   урока   все   ли   цели   достигнуты,   все   ли   задачи
выполнены, Если нет ищем причины почему это произошло.
2
–
6. Д/з
–
  1 Задание на дом
 Поработать с конспектом.
Примечание: при изучении нового материала учащиеся делают в тетрадь необходимые
записи под руководством учителя.

file_name: Графические методы.doc

intro:
Цели урока:
Образовательная:
Познакомить учащихся с применением графических средств в Visual Basic. Научить учащихся составлять программы с использованием графических методов.
Развивающая:
Развивать у учащихся навыки работы с ПЭВМ, память, внимание, мышление, речь, кругозор.
Воспитательная :
Воспитывать у учащихся интерес к предмету, бережное отношение к учебной технике.
Основные знания и умения:
Знать:
•	Что такое метод, графический метод;
•	В чем состоят 1) метод Scale
			2) метод  PSet
			3) метод  Line
			4) метод  Circle
			5) метод  Cls

title: Тема: Графические методы.


extracted_text:
Подробный конспект урока.
Организационная информация:
Тема урока: Данные логического типа (Turbo Pascal).
Предмет: Информатика
Класс: 9
Автор урока: Муртазина Аида Думановна, учитель информатики
Образовательное учреждение: КГУ «Гимназия №6»
Республика Казахстан
Город Семей
Восточно – Казахстанская область
Методическая информация:
Тип урока: комбинированный
Цели урока:
Образовательные – изучить логический тип переменных, логические константы TRUE
(истина) и FALSE (ложь), операции с данными логического типа . Решать и программировать
задачи,  с использованием логических операций
.
Развивающие   –
познавательных и творческих способностей учащихся.
Воспитательные  воспитание усидчивости, аккуратности, внимательности и
самостоятельности учащихся.
развитие   алгоритмического   мышления,
  математической   логики,
Задачи урока: Уметь решать и программировать задачи,  с использованием логических
операций.
Используемые педагогические технологии,  методы и приемы: Объяснительно
иллюстративный, частичнопоисковый, практическая и индивидуальная работа.
Время реализации урока: 45 мин
Учащиеся должны:
Знать:
 Какие переменные называются логическими.
 Какие имеются логические константы
 Обозначения операций отношений в языке Turbo Pascal
 Операции с данными логического типа
Уметь:
 Уметь решать и программировать задачи, с использованием логических операций.
Оборудование урока: проектор, компьютеры, операционная среда – Microsoft Windows XP,
Microsoft PowerPoint, Turbo Pascal.
Список учебной и дополнительной литературы:
План занятия:
1. Организационный момент
2. Изложение новой темы
3. Закрепление темы
–
–
–
  2
20
10 4. Практическая работа
5. Отчет по работе
6. Д/з
–
10
–
–
2
  1
Последовательность изложения темы:
1. Данные логического типа
2. Операции с данными логического типа
3. Логические выражения
4. Примеры решения  задач  с использованием логических операций.
Х О Д   У Р О К А .
1. Организационный момент
(Приветствие, проверка посещаемости, объявление целей и задач урока)
2. Изложение новой темы
20
  2
–
–
1. Данные логического типа
Логический тип переменных называется булевым. Он основан на математической логике,
в которой применяются две константы: 1 (ис тина) и 0 (ложь). В языке Turbo Pascal тоже есть
две логические константы: TRUE (истина) и FALSE (ложь). Их можно использовать в явном
виде или обозначать именем в разделе CONST, например:
 const
 T=true;
 F=false;
 L=true;
 Логическая переменная тоже может принимать два значения TRUE и FALSE. Описание
логической переменной имеет тип BOOLEAN, например:
 var L,A,C:boolean;
 В разделе операторов логическому типу переменной можно присвоить
 значение логической константы, например:
 L1:=true; L2:=false; L3:=L1;
  В языке Turbo Pascal для сравнения переменных, принимающих численные значения,
существуют следующие операции отношений:
 < меньше,
 <= меньше или равно,
 = равно, <> не равно,
 > больше,
 >= больше или равно.
Примеры.
1) a2=b2+c2 – истинно при a=5, b=4, c=3
ложно при a=2, b=3,c=4.
2) x2<0 – всегда ложно.
В языке Паскаль переменные логического типа могут принимать значения True и False.
Описание переменной имеет тип Boolean:
Var
A, B: Boolean;
В теле программы такой переменной можно присваивать значения логических констант
True и False.
Пример.
A:=True;
B:=False;
Пример программы с использованием логических операций.
Задача.  Дополните программу вычисления площади треугольника по формуле Герона
исследованием существования треугольника, если
 заданы его три стороны.
 program tangle;
 var a,b,c,p,S,Q:real;
 begin
 writeln('Вычислите площадь треугольника по трем сторонам');
 writeln('и проведите его анализ.');
 writeln('Введите стороны треугольника a,b,c:');
 read(a,b,c);
 p:=(a+b+c)/2;
 S:=sqrt(abs(p*(pa)*(pb)*(pc)));
 if (a>=(b+c)) or (b>=(a+c)) or (c>=(a+b))
 then writeln('Треугольник не существует.')
 else if (a=b) and (b=c) then writeln('Треугольник равносторонний, его площадь S=',s)
 else if (a=b) or (b=c) or (a=c)
 then writeln('Треугольник равнобедренный, его площадь S=',s)
 else writeln('Треугольник разносторонний, его площадь S=',s);
 if (a*a=(b*b+c*c)) or (b*b=(a*a+c*c)) or (c*c=(a*a+b*b))
 then writeln('Треугольник прямоугольный.');
 writeln('Для выхода из программы введите число 1.');
 readln(Q);
 end.
2. Логические выражения
Как   уже   отмечалось   выше,   логические   данные   широко   используются   при   сравнении
величин. В результате сравнении величин, получается либо ложное, либо истинное значение. В
языке   Паскаль   для   сравнения   данных   предусмотрены   следующие   операции   отношения
(сравнения):
<  меньше;
>  больше;
=  равно;
<=  меньше или равно;
>=  больше или равно;
<>  не равно.
Отношения можно использовать в правой части оператора присваивания. Например:
A:=2<6;
A:=b1<>b2;
B:=(b1+b2)<18;
{Всегда False}
В математической логике имеются специальные логические операции:
Or – логическое сложение (ИЛИ)
And –логическое умножение (И)
Not – логическое отрицание (НЕ)
Логическое сложение дает ложный результат только в том случае, когда оба операнда
ложные.
Логическое   умножение   дает   истинный   результат   только   в   том   случае,   когда   оба
операнда истинны.
Операция   отрицания   дает   ложный   результат,   если   операнд   истинный,   и,   наоборот,
истинный результат, если операнд ложный.
Данные о результатах логических операций представлены в таблице 1.
Таблица 1
A
A and B
B
False
False
False
True
A or B
False
True
False
False
Not A
True
True использовать not((x>2) and (x<2)) или (x>=2) or (x<=2))
3. Закрепление темы
–
Разберём данную задачу.
10
True
True
False
True
True
True
False
True
False
False
Примеры.
(A<3)Or(B>2) – при a=4, b=0 – ложно, при a=4, b=3 – истина.
(A<3)And(B>2) – при a=1, b=10 –истина, при a=3, b=3 – ложь.
Not (A<2) – при a=1 – ложь, a=4 – истина.
Таким   образом,
 логические   выражения   строятся   из   логических   переменных,
логических констант, логических операций, операций отношений.
Следует знать:
 В   языке   Turbo   Pascal   нельзя   записать   двустороннее   неравенство   вида   11) and (a<2).
 Нельзя   также   записать  a=b=c,   нужно   использовать   логическое   выражение   (a=b)  and
(b=c);
 Для записи условия, заключающегося в том, что x не лежит в диапазоне от 2 до 2, нужно
Даны два числа а,b (a,b≠0). Ответить одного ли знака введённые числа.
Здесь   возможны   четыре   варианта   входных   данных,   для   каждого   из   которых   запишем
отдельное составное условие:
A
a>0
a<0
a>0
a<0
b
b>0
b<0
b<0
b>0
Ответ:
Одного знака
Одного знака
Разные знаки
Разные знаки
program zadacha3_6a;
var a,b:real;
Begin
writeln('Введите  два числa');
readln(a,b);
if (a>0) and (b>0) then writeln('числа одного знака');
if (a<0) and (b<0) then writeln('числа одного знака');
if (a>0) and (b<0) then writeln('числа разных знаков');
if (a<0) and (b>0) then writeln('числа разных знаков');
End.
На сегодняшнем занятии мы не просто будем изучать новую тему, но и попробуем
уяснить для себя, что хороший программист всегда внимательно обдумывает даже уже
написанную   и   отлаженную   программу.   Ведь   почти   всегда   можно   применить   правило:
"Любую программу можно переписать так, что она станет более короткой, либо более
красивой".
А можно ли сделать нашу программу более красивой или более короткой? Да, можно.
Давайте объединим первое и второе составные условия.program zadacha3_6b;
var a,b:real;
Begin
writeln('Введите  два числa');
readln(a,b);
if ((a>0)and(b>0)) or ((a<0)and(b<0)) then writeln('числа одного знака')
else writeln('числа разных знаков');
End.
Программа стала действительно короче. Но в примере 3_6b составное условие состоит в
свою очередь из двух составных условий. Просмотрите, как расставлены скобки.
А можно ли и эту программу сделать более красивой или более короткой? Можно. Приведём
новую версию проверки условия для данной программы:
if a*b>0
then writeln('числа одного знака')
else writeln('числа разных знаков');
Замените условие в компьютере и убедитесь, что оно работает верно.
4.Практическая работа
–
10
Задания:
1. Даны два число х и у (x<>y) .Вывести на экран числа в следующем порядке: сначала
меньшее, затем большее.
2. Заданы два числа. Является ли хотя бы одно число положительным?
Контрольные вопросы.
1. Какие логические константы вы знаете?
2. Найти значение выражения
Not(((x<3)and(x>0))or(x=2)), при х=1.
3. Какие логические операции вы знаете?
5.Отчет по работе
В конце урока подводим итог нашего урока все ли цели достигнуты, все ли задачи выполнены,
Если нет ищем причины почему это произошло.
–
2
6. Д/з
Задание на дом
Поработать с конспектом. Решить задачу:
Дано  число.  Дать  характеристику  числа:
 положительное,  отрицательное;
 чётное,  нечётное;
 целое, не целое.
–
  1
Примечание: при изучении нового материала учащиеся делают в тетрадь необходимые записи
под руководством учителя.

file_name: данные логического типа turbo pascal.doc

description:
использовать not((x>2) and (x<2)) или (x>=2) or (x<=2))
3. Закрепление темы
–
Разберём данную задачу.
10
True
True
False
True
True
True
False
True
False
False
Примеры.
(A<3)Or(B>2) – при a=4, b=0 – ложно, при a=4, b=3 – истина.
(A<3)And(B>2) – при a=1, b=10 –истина, при a=3, b=3 – ложь.
Not (A<2) – при a=1 – ложь, a=4 – истина.
Таким   образом,
 логические   выражения   строятся   из   логических   переменных,
логических констант, логических операций, операций отношений.
Следует знать:
 В   языке   Turbo   Pascal   нельзя   записать   двустороннее   неравенство   вида   1<a<2.   нужно
использовать логическое выражение  (a>1) and (a<2).
 Нельзя   также   записать  a=b=c,   нужно   использовать   логическое   выражение   (a=b)  and
(b=c);
 Для записи условия, заключающегося в том, что x не лежит в диапазоне от 2 до 2, нужно
Даны два числа а,b (a,b≠0). Ответить одного ли знака введённые числа.
Здесь   возможны   четыре   варианта   входных   данных,   для   каждого   из   которых   запишем
отдельное составное условие:
A
a>0
a<0
a>0
a<0
b
b>0
b<0
b<0
b>0
Ответ:
Одного знака
Одного знака
Разные знаки
Разные знаки
program zadacha3_6a;
var a,b:real;
Begin
writeln('Введите  два числa');
readln(a,b);
if (a>0) and (b>0) then writeln('числа одного знака');
if (a<0) and (b<0) then writeln('числа одного знака');
if (a>0) and (b<0) then writeln('числа разных знаков');
if (a<0) and (b>0) then writeln('числа разных знаков');
End.
На сегодняшнем занятии мы не просто будем изучать новую тему, но и попробуем
уяснить для себя, что хороший программист всегда внимательно обдумывает даже уже
написанную   и   отлаженную   программу.   Ведь   почти   всегда   можно   применить   правило:
"Любую программу можно переписать так, что она станет более короткой, либо более
красивой".
А можно ли сделать нашу программу более красивой или более короткой? Да, можно.
Давайте объединим первое и второе составные условия.program zadacha3_6b;
var a,b:real;
Begin
writeln('Введите  два числa');
readln(a,b);
if ((a>0)and(b>0)) or ((a<0)and(b<0))

intro:
Методическая информация:
Тип урока: комбинированный
Цели урока:
Образовательные – изучить логический тип переменных, логические константы TRUE (истина) и FALSE (ложь), операции с данными логического типа . Решать и программировать задачи,  с использованием логических операций
.
Развивающие – развитие алгоритмического мышления, математической логики, познавательных и творческих способностей учащихся.
Воспитательные - воспитание усидчивости, аккуратности, внимательности и самостоятельности учащихся.
Задачи урока: Уметь решать и программировать задачи,  с использованием логических операций.
Используемые педагогические технологии,  методы и приемы: Объяснительно-иллюстративный, частично-поисковый, практическая и индивидуальная работа.
Время реализации урока: 45 мин
Учащиеся должны:

title: Данные логического типа (Turbo Pascal).


extracted_text:
Урок №5.
Тема:   Запись   арифметических   выражений   в    Visual  Basic  6.0.   Типы   данных   и
точность вычислений.
Цель:
Учебная:  научить записывать  арифметические  выражения  на языке  Visual  Basic  6.0.
Рассмотреть математические функции Visual Basic 6.0.
Воспитательная: Воспитать стремление к аккуратности, ответственности при работе с
техникой.
Развивающая:  развитие   познавательного   интереса,   логического   мышления,   памяти,
творческого подхода к решению задачи.
Основные знания и умения:
Знать:
1. Обозначения действий арифметики в Visual Basic
2. Запись математических функций
3. типы данных: целые числа и десятичные дроби
Уметь:
записывать математические выражения  на языке Visual Basic
1.
2. использовать математические функции в проекте
3. форматировать результат
Обеспечение занятия:
Литература:
1). ПК – ЭВМ
2). Раздаточный материал
–
12 шт.
Н.Г. Волченков «Программирование на Visual Basic 6.0 »
С.Н Лукин «Самоучитель работы на Visual Basic 6.0»
Вид занятия:
комбинированное
–
1ч.
План занятия:
1. Организационный момент
2. Опрос по домашнему заданию
3. Изложение новой темы
4. Практическая работа
5. Д/з
Последовательность изложения темы:
1.
Х О Д   У Р О К А .
–
–
–
15
–
  2
10
15
  3
–
1. Организационный момент
(Приветствие, проверка посещаемости, объявление целей и задач урока)
–
  2 2. Опрос по домашнему заданию
Тестовая работа
–
10 Кнопка   "Save   Project"   на   панели
 Меню  "File"   "New   Project"     выбрать
  Кнопка   "Save   Project"   на   панели
1. Как сохранить новый проект?
A. Меню "File"  " Save Forml As"
B. Меню "File"  " Save Project As"
C.
инструментов
D. Меню "Project"  "Save Project As"
2. Как отобразить окно свойств, если оно не
видно в рабочей среде?
A. Меню "View"  "Toolbox"
B. Меню "View"  "Properties Window"
C. Меню "View"  "Form Layout Window"
D. Меню "View"  "Project Explorer"
3. Для чего служит окно “Properties”?
A.   Для   отображения   свойств   выбранного
объекта
B. Для изменения свойств выбранного объекта
C. Для отображения списка файлов в проекте
D. Для отображения списка форм в проекте
E. Для показа макета проекта
4. Как сохранить форму в проекте?
A. Меню "File"  "Save Project As"
B. Меню "File"  "Save Forml As"
C.
инструментов
D. Меню "Project"  "Save Forml As"
E. Меню "Project"  "Save Project 1 As"
5.   Какое   расширение   получает   файл
проекта при сохранении его на диске?
A.*. frm
B *.vbp
C. .*. bmp
D. *.com
E. *.exe
F. *.doc
6. Как создать новый проект?
A. При запуске VB в окне New Project выбрать
"Standard EXE
B. Меню "View"  "Project Window"  "New"
C. Меню "Project"  "Add Project"
D.
"Standard EXE"

7. Как добавить в проект новую форму?
A. Меню "Project"  "Add Form"  в окне "Add
Form"  выбрать значок "Form"
B.   На   панели   инструментов   выбрать   кнопку
"Add Form"
C. Меню "File"  "Add Form"   в окне "Add
Form"  выбрать значок "Form"
D.   В   окне   "Project"      установить   курсор   на
любой объект  контекстное меню  "Add"
"Form"
E. Меню "Edit"  "Add Form"  в окне "Add
Form"  выбрать значок "Form"
8.   Какое   расширение   получает   файл
формы при сохранении его на диске?
A. *.vbp
B. *.bas
C. *.frm
D. *.ехе
E. *. doc
9.Для чего предназначено окно "Toolbox"?
A.   Для   отображения   свойств   выбранного
объекта
B. Для выбора объектов и размещения их на
форме
C. Для изменения свойств выбранного объекта
D. Для показа макета проекта
E. Для отображения списка файлов в проекте
10.  Как называется указанный на рисунке
объект?
 A.TextBox (Текстовое поле)
 B.Label (Метка)
 C.CommandButton (Командная кнопка)
 D.PictureBox (Графическое поле)
 E. Image
11. Как называется указанный на рисунке
объект?
A.TextBox (Текстовое поле)
 B.Label (Метка)
 C.CommandButton (Командная кнопка)
 D.PictureBox (Графическое поле)
 E. Image
12. Как называется указанный на рисунке
объект?
A.TextBox (Текстовое поле)
 B.Label (Метка)
 C.CommandButton (Командная кнопка)
 D.PictureBox (Графическое поле)
 E. Image 13. Как называется указанный на рисунке
объект?

 A.TextBox (Текстовое поле)
 B.Label (Метка)
 C.CommandButton (Командная кнопка)
 D.PictureBox (Графическое поле)
 E. Image
14. Как называется указанный на рисунке
объект?
A.TextBox (Текстовое поле)
 B.Label (Метка)
 C.CommandButton (Командная кнопка)
 D.PictureBox (Графическое поле)
 E. Image
15. Как называется указанный на рисунке
объект?
A.TextBox (Текстовое поле)
 B.Label (Метка)
 C.CommandButton (Командная кнопка)
 D.PictureBox (Графическое поле)
 E. Timer 3. Изложение новой темы
–
25
Простые   арифметические   вычисления   лучше   делать   на   калькуляторе,   чем   на
компьютере, а вот сложные  наоборот. Мы сегодня на уроке научимся   правильно вводить в
компьютер сложные формулы.
Действия арифметики обозначаются в Visual Basic следующим образом:
ДЕЙСТВИЕ
4+5
51
5*4
10/5
10/3
10 Mod 3
3^2
РЕЗУЛЬТАТ СМЫСЛ
9
4
20
2
3
1
9
плюс
минус
умножение
Разделитель
Целочисленное деление (получается 3, в остатке 1)
остаток от целочисленного деления
Возведение в степень
1
1


На уроках математики мы привыкли писать ab+cd , подразумевая: a умножить на b плюс c
умножить на d. В Visual Basic это выражение мы обязаны писать так: a*b+c*d. Иначе компьютер
подумает, что нужно к переменной, имеющей имя ab, прибавить переменную, имеющую имя cd.
Во избежание двусмысленности знак умножения положено писать всегда, в том числе и перед
скобками. Например, a * (b+c).
Скобки.   Ввиду   того,   что   с   клавиатуры   всю   информацию   приходится   вводить   символ   за
символом в одну строку, ввод двухэтажных выражений, таких как
a
c
очень затруднен. Поэтому для обозначения деления и выбрана косая черта. Это выражение на
Visual   Basic   положено   записывать   так:   (a+1)/(c+1).   Если   бы   мы   не   поставили   скобок,   то
выражение получилось бы таким a+1/b+1, а это неправильно, так
как   компьютер,   как   и   мы,   всегда   перед   сложением   и   вычитанием   выполняет   умножение   и
деление, поэтому в последнем случае он бы сначала разделил 1 на  с  , а затем к результату
прибавил a и 1.
Вопрос: когда в выражениях  можно ставить скобки? Ответ: всегда, когда у вас возникают
сомнения в правильной очередности действий. Лишняя пара скобок не помешает.
Пример: записать на Visual Basic выражение:
2

1

ba
a
*
Его можно было бы записать так:
(1 + a) / (2+a*b).
Разберитесь в этой записи. К сожалению, в выражениях разрешается писать только круглые
скобки.   Квадратные   и   фигурные   запрещены.   От   этого   сложные   выражения   с   большим
количеством скобок на глаз воспринимаются с трудом, так как трудно для конкретной скобки
увидеть ее законную пару.
Запись   десятичных   дробей.   Путаница   с   точками   и   запятыми.   Почти   во   всех   языках
программирования и уж, конечно, в Visual Basic, в десятичных дробях принято вместо запятой
ставить точку. Пример: 62.8  шестьдесят две целых восемь десятых
Математические   функции.   Кроме   нескольких   действий   арифметики   Visual   Basic   может
выполнять и другие математиче ские   действия,   например,   извлечение   квадратного   корня.   На   компьютере   нет   клавиши   со
значком , поэтому в Visual Basic
имеется специальная функция  Sqr. Например, корень из 36 обозначается так  Sqr(36), корень
из a+b так  Sqr(a+b). Здесь
Sqr  сокращение от английского выражения Square root  квадратный корень. То, из чего нужно
извлечь корень, записывается
в скобках.
Приведу неполный список математических функций Visual Basic:
ДЕЙСТВИЕ
РЕЗУЛЬТАТ СМЫСЛ
Sqr (25)
Round (5.82716)
Round   (5.82716,
3)
Abs ( 20)
Fix (3.98)
Fix (3.98)
Int (3.98)
Int (3.98)
Rnd 0.73088
5
6
корень квадратный
округление до целых
5.827
округление до трех знаков после точки
20
3
3
3
4
абсолютная величина (модуль) числа
целая часть числа (дробная часть отбрасывается)
наибольшее целое число, не превышающее выражение в
скобках
случайное число из диапазона (0  1)
Кроме этого, имеются функции Sin, Cos, Tan  (что означает тангенс), Atn  (что означает
арктангенс), Exp, Log и др.
Примеры:
Выражение (3+3)^2 при вычислении даст 36
Выражение 1+ (2+8)^3 при вычислении даст 1001
Выражение 1+Abs(58) при вычислении даст 4
Выражение 2^4+Sqr(35+1) при вычислении даст 22
Выражение Sqr (8+Int(41.5)) при вычислении даст 7
Выражение 21 \ (Round (2.54+1)) при вычислении даст 5
Задание 1: Определите без компьютера, что напечатает данный фрагмент программы:
a = (4^2+5) * (30 (2^2)^2)  20 : b=10 \ (a5) : Debug.Print a^3 + b  2
4.5. Типы данных и точность вычислений
Integer и Long  целые числа
Создайте проект с кнопкой и введите такую программу:
Dim a As Integer
Dim b As Integer
Private Sub Command1_Click()
a = 100
b = 1 Debug.Print a, b, a + b
End Sub
Работает она нормально. Посмотрим, насколько большие числа способна воспринимать наша
программа. Заменим b=1 на b=40000. Visual Basic выдает сообщение об ошибке "Overflow", что
означает "Переполнение ячейки". В чем дело?
Как вы уже знаете, в Visual Basic принято правило, что если человек объявил переменную, как
Integer,   то   он   разрешает   ей   принимать   значения   только   целых   чисел.   Число   типа   Integer
занимает в памяти два байта. Значит, под переменные а и b компьютер отводит в памяти ячейки
по два байта каждая. Два байта  это маленький объем памяти и уместиться в него может лишь
небольшое целое число, а именно  число в диапазоне от 32768 до 32767.
Для того, чтобы переменная имела право принимать значения больших целых чисел, она должна
быть объявлена не как
Integer, а как Long (Длинное Целое). Под переменную типа Long компьютер отводит в памяти 4
байта и поэтому она может
принимать значения в диапазоне от 2147483648 до 2147483647.
Зачем нужен Integer, если есть Long? Ну, хотя бы для того, чтобы экономить память, она же не
резиновая.
Задание   2:  Население   Астаны   равняется   а=900000   жителей.   Население   города   Семей
равняется b=30000 жителей. Вся Астана переехала в Семей. Сколько там стало жителей?
Используйте переменные величины.
Single и Double  десятичные дроби
Создайте проект с кнопкой и введите такую программу:
Dim a As Single
Dim b As Single
Private Sub Command1_Click()
a = 100.78656954325 : b = 40000.1234567895 : Debug.Print a, b, a + b
End Sub
Запустите проект. Вот результат:
100,7866 40000,13 40100,91
Как видите, Visual Basic обрезал наши длинные числа до 7 значащих  цифр. Сделал он это
потому, что 4 байта, отведенные под ячейку памяти для переменной типа Single, не в состоянии
вместить больше. Если мы хотим иметь большую точность, то объявляем наши переменные
имеющими другой тип  Double  десятичная дробь двойной точности. Под переменную типа
Double компьютер отводит в памяти 8 байтов и поэтому она может быть гораздо длиннее.
Dim a As Double
Dim b As Double
Private Sub Command1_Click()
a = 100.78656954325 : b = 40000.1234567895 : Debug.Print a, b, a + b
End Sub
Запустите проект. Вот результат:
100,78656954325 40000,1234567895 40100,9100263327
Здесь максимум  15 значащих цифр. Если вам интересно задать в программе еще более длинное
значение b, например, b= 40000.12345678957453457, то у вас ничего не получится, Visual Basic
обрежет его прямо в программе, зная, что с такими длинными числами работать он все равно не
умеет.
Зачем нужен Single, если есть Double? Ну хотя бы для экономии памяти.
6. Практическая работа
Задача 3.
Даны размеры спичечной коробки. Вычислить площадь основания коробки, ее объем и
полную площадь поверхности.
15
– Задача вычисления площади основания, объема и полной площади поверхности спичечной
коробки по известным ее размерам
Объявляем переменные величины
Dim Ширина As Double 'ширина
Dim Толщина As Double 'толщина
Dim Высота As Double 'высота
Dim S_основ As Double 'площадь основания
Dim V As Double 'объем
Dim Периметр As Double 'периметр основания
Dim S_бок As Double 'площадь боковой поверхности
Dim S_полн As Double 'полная площадь поверхности
 Перед вычислениями нужно задать исходные данные решения задачи..
Выберем InputBox.
Вот следующие строки программы:
Private Sub Command1_Click()
'Ввод исходных данных
Ширина = InputBox("Введите ширину коробки")
Толщина = InputBox("Введите толщину коробки")
Высота = InputBox("Введите высоту коробки")
Теперь нужно задать компьютеру действия, которые он должен проделать с исходными
данными, чтобы получить результат.
'Вычисление результатов
S_основ = Ширина * Толщина
V = S_основ * Высота
Периметр = 2 * Ширина + 2 * Толщина
S_бок = Периметр * Высота
S_полн = 2 * S_основ + S_бок
После получения результатов их нужно показать человеку. Мы будем использовать новый
для нас оператор Print, который в нашем случае будет печатать результат прямо на
поверхности формы (в отличие от Debug.Print, который печатает в окне Immediate):
'Отображение результатов
Print "Площадь основания ="; S_основ
Print "Объем ="; V
Print "Полная площадь поверхности ="; S_полн
End Sub
Написать с использованием переменных программы для решения следующей задачи:
Самостоятельная работа
Задание №4
 Автомобиль 4 часа ехал со скоростью 60 км/час и 3 часа со скоростью 80 км/час. Вычислить
среднюю скорость автомобиля (она равна суммарному пути, деленному на суммарное время).
Значения   переменным   задать   операторами   присваивания,   результат   напечатать   оператором
Debug.Print с пояснениями.
7. Д/з
Поработать с конспектом
Примечание: при изучении нового материала учащиеся делают в тетрадь необходимые записи
под руководством учителя.
  3
–

file_name: Запись арифметических выражений в  Visual Basic 6.0. Типы данных и точность вычислений.doc

intro:
Цель:
Учебная: научить записывать арифметические выражения на языке Visual Basic 6.0. Рассмотреть математические функции Visual Basic 6.0.
Воспитательная: Воспитать стремление к аккуратности, ответственности при работе с техникой.
Развивающая: развитие познавательного интереса, логического мышления, памяти, творческого подхода к решению задачи.
Основные знания и умения:
Знать:
1.	Обозначения действий арифметики в Visual Basic
2.	Запись математических функций
3.	типы данных: целые числа и десятичные дроби
Уметь:
1.	записывать математические выражения  на языке Visual Basic
2.	использовать математические функции в проекте
3.	форматировать результат


extracted_text:
Урок №.
Тема: Логические операции.
Цель:
Цели урока:
Образовательная:
Познакомить учащихся с применением логических операций AND (И) и OR (ИЛИ) в Visual
Basic. Научить учащихся составлять программы с использованием этих операций.
Развивающая:
Развивать у учащихся навыки работы с ПЭВМ, память, внимание, мышление, речь,
кругозор.
Воспитательная :
Воспитывать у учащихся интерес к предмету, бережное отношение к учебной технике.
Обеспечение занятия:
1). ПК – ЭВМ
2). Раздаточный материал
–
12 шт.
Литература:
Н.Г. Волченков «Программирование на Visual Basic 6.0 »
С.Н Лукин «Самоучитель работы на Visual Basic 6.0»
Вид занятия:
комбинированное
–
1ч.
План занятия:
1. Организационный момент
2. Опрос по домашнему заданию
3. Изложение новой темы
4. Практическая работа
5. Д/з
Х О Д   У Р О К А .
–
–
–
15
–
  2
10
15
  3
–
1. Организационный момент
(Приветствие, проверка посещаемости, объявление целей и задач урока)
2. Опрос по домашнему заданию
10
–
–
  2
Задача №1.
Можно ли находить максимальное из двух чисел с помощью одинарного, а не
двойного условного перехода, как это делается? Составьте программу.
 3.Изложение новой темы
Логические операции
Применение вложенных If создает довольно громоздкую, трудную для понимания
программу. Поэтому в Visual Basic есть возможность записывать многие программы короче
и понятнее, используя вместо вложенных друг в друга If только один If.
Для этого используются так называемые логические операции.
15
–
В Visual Basic можно выделить пять основных и важных логических операторов:
And, Or, Not, Xor и Eqv.
And
Возвращает результат конъюнкции (логического И) для двух выражений.
Синтксис:
результат = выражение1 And выражение2
А теперь маленький пример: Представим себе, что переменные Bul1 и Bul2 объявлены как булевы значения и в процессе
какихнибудь действий приняли значения либо True либо False. Вы устанавливаете
условие, проверяющие эти значения:
Мы же сэмулируем это сами :)  впишите куда  нибудь следующие строки:
Dim Bul1 As Boolean
Dim Bul2 As Boolean
Bul1= True
 Bul2= True
If Bul1And Then Bul2
   MsgBox " And  Возвращает результат конъюнкции (логического И)!"
End If
Следующий оператор Or.
Выполняет операцию логического ИЛИ (сложения) для двух выражений.
Синтаксис:
результат = выражение1 Or выражение2
Результат будет истинным только в том случае, если только одно из выражений истинно.
И снова маленький пример с прежними булевыми перменными  Bul1 и Bul2, которые в
процессе какихнибудь действий приняли значения либо True либо False.
Dim Bul1 As Boolean
Dim Bul2 As Boolean
Bul1= False
Bul2= True
If Bul1 Or  Bul2  Then
MsgBox «оператор Or. Выполняет операцию логического ИЛИ (сложения) для двух
выражений !"
End If
Оператор Not.
Выполняет над выражением операцию логического отрицания.
Синтаксис:
результат = Not выражение
Т.е. результат стаёт противополжным выражению (исключая Null).
Оператор Xor.
Выполняет операцию исключающего ИЛИ для двух выражений.
Синтаксис:
[результат =] выражение1 Xor выражение2
В принципе, этот оператор похож на Or, но это не просто ИЛИ, а исключающее ИЛИ. Если
одно и только одно из выражений истинно (имеет значение True), результат имеет значение
True.
Оператор Eqv.
Help:
Используется для проверки логической эквивалентности двух выражений.
Синтаксис: результат = выражение1 Eqv выражение2
Тут совсем всё просто: результат будет истинным в том случае, если оба выражения либо
истинны, либо ложны.
Давайте все логические операции разберем на примерах.
Задача "Давай поженимся 1". Ведущие программы «Давай поженимся» перебирали
претендентов для следующей программы – огромное количество анкет. Участнице
программы нравятся только высокие и блондины. Устав перебирать анкеты и отбирать из
них подходящих, поставили компьютер, написав для него программу, которая говорит ОН
НАМ ПОДОЙДЕТЕ тем, кто блондин и рост выше 170 см. Остальным программа говорит
ДО СВИДАНИЯ.
Вот эта программа:
Dim Tsvet As String 'Цвет волос
Dim Rost As Integer: 'Рост
Private Sub Command1_Click()
Tsvet = InputBox("Каков цвет ваших глаз?")
Rost = InputBox("Введите ваш рост в сантиметрах")
If Tsvet = "Блондин" And Rost > 170 Then Print "ОН НАМ ПОДОЙДЕТЕ" Else Print "ДО
СВИДАНИЯ"
End Sub
Мы видим, что условие в операторе If уже не такое простое, как мы описывали раньше, а
сложное, то есть состоящее из двух условий, соединенных знаком логической операции
And (переводится "и"). Весь оператор If можно прочесть так – если Вы блондин И рост
выше 170  сантиметров, то печатай ОН НАМ ПОДОЙДЕТЕ, иначе печатай ДО
СВИДАНИЯ.
Знак логической операции And, поставленный между двумя условиями, говорит о
том, что должны выполняться сразу оба эти условия.
Программа для задачи ПОПАЛ  НЕ ПОПАЛ при использовании логических операций
значительно упростится:
Private Sub Command1_Click()
a = InputBox("Введите дальность выстрела")
If a > 28 And a < 30 Then MsgBox ("ПОПАЛ") Else MsgBox ("НЕ ПОПАЛ")
End Sub
Задача "Давай поженимся 2". Следующей претендентки для участия в программе нравятся
все высокие независимо от цвета волос и все блондины независимо от роста. Программа
«Давай поженимся 2» будет отличаться от программы «Давай поженимся 2»одним
единственным знаком логической операции:
If Tsvet ="Блондин" Or Rost>170 Знак логической операции Or переводится "или".
Поставленный между двумя условиями, знак Or говорит о том, что достаточно, если
будет выполняться хотя бы одно из них.
Логические выражения
Выражения
a>b
66
a > 28 And a < 30
Tsvet ="Русый" Or Rost>170
a>2 Or x=b Or c<>1 имеют ту общую черту, что про каждое из них можно сказать, верно
оно или нет в каждый момент времени. Такие выражения называются логическими
выражениями. Если логическое выражение верно, то говорят, что оно имеет значение
True (Правда). Если логическое выражение неверно, то говорят, что оно имеет значение
False (Ложь). Любое логическое выражение может стоять в качестве условия в операторе
If. Логические выражения могут быть сложными  содержать одновременно операции And, Or,
Not. Например, такое:
a>2 And Not b>3 Or s>8
Чтобы его понять, нужно знать порядок действий. В арифметике сначала выполняется
умножение, потом сложение. В логических выражениях сначала выполняется Not, затем
And, затем Or. Для облегчения понимания не возбраняется расставлять скобки:
(a>2 And (Not b>3)) Or s>8
Это выражение равносильно предыдущему.
Скобки можно расставлять и чтобы изменить порядок действий:
a>2 And Not (b>3 Or s>8)
Примеры:
ФРАГМЕНТ РЕЗУЛЬТАТ
a=8: b=6: If a>b And b>7 Then k=1 Else k=0 k=0
a=8: b=6: If a>b Or b>7 Then k=1 Else k=0 k=1
a=8: b=6: If a7 Then k=1 Else k=0 k=0
a=8: b=6: If Not a=8 Then k=1 Else k=0 k=0
4.Практическая работа
–
15
Задание 1: "Давай поженимся 3". Определите, кто нравится невесте, по фрагменту из ее
программы:
If Tsvet ="Карий " And (Rost<180 Or Rost>184) Then Print "ВЫ МНЕ ПОДОЙДЕТЕ" Else
Print "ДО СВИДАНИЯ"
Задание 2: Усложним нашу задачу про ПОПАЛ  НЕ ПОПАЛ: Человек вводит в
компьютер число. Если оно находится в интервале от 28 до 30, то нужно напечатать текст
ПОПАЛ, если оно больше или равно 30  то ПЕРЕЛЕТ, если оно находится
на отрезке от 0 до 28, то НЕДОЛЕТ, если число меньше нуля  НЕ БЕЙ ПО СВОИМ.
Задание 3:
Человек вводит с клавиатуры строку, смысл которой  приветствие при встрече.
Компьютер тоже должен ответить приветствием. Отвечать нужно в соответствии со
следующей таблицей:
ПРИВЕТСТВИЕ ЧЕЛОВЕКА ОТВЕТ КОМПЬЮТЕРА
Привет Привет
Здравствуйте Здравствуйте
Добрый день Салют
Приветик Салют
Салют Салют
Здравия желаю Вольно
Любое другое приветствие Я вас не понимаю.
5.  Задание на дом
Поработать с конспектом. Составить  и решить задачу на логические.
  Примечание: при изучении нового материала учащиеся делают в тетрадь необходимые
записи под руководством учителя.

file_name: Логические операторы.doc

description:
Логические выражения могут быть сложными  содержать одновременно операции And, Or,
Not. Например, такое:
a>2 And Not b>3 Or s>8
Чтобы его понять, нужно знать порядок действий. В арифметике сначала выполняется
умножение, потом сложение. В логических выражениях сначала выполняется Not, затем
And, затем Or. Для облегчения понимания не возбраняется расставлять скобки:
(a>2 And (Not b>3)) Or s>8
Это выражение равносильно предыдущему.
Скобки можно расставлять и чтобы изменить порядок действий:
a>2 And Not (b>3 Or s>8)
Примеры:
ФРАГМЕНТ РЕЗУЛЬТАТ
a=8: b=6: If a>b And b>7 Then k=1 Else k=0 k=0
a=8: b=6: If a>b Or b>7 Then k=1 Else k=0 k=1
a=8: b=6: If a<b Or b>7 Then k=1 Else k=0 k=0
a=8: b=6: If Not a=8 Then k=1 Else k=0 k=0
4.Практическая работа
–
15
Задание 1: "Давай поженимся 3". Определите, кто нравится невесте, по фрагменту из ее
программы:
If Tsvet ="Карий " And (Rost<180 Or Rost>184) Then Print "ВЫ МНЕ ПОДОЙДЕТЕ" Else
Print "ДО СВИДАНИЯ"
Задание 2: Усложним нашу задачу про ПОПАЛ  НЕ ПОПАЛ: Человек вводит в
компьютер число. Если оно находится в интервале от 28 до 30, то нужно напечатать текст
ПОПАЛ, если оно больше или равно 30  то ПЕРЕЛЕТ, если оно находится
на отрезке от 0 до 28, то НЕДОЛЕТ, если число меньше нуля  НЕ БЕЙ ПО СВОИМ.
Задание 3:
Человек вводит с клавиатуры строку, смысл которой  приветствие при встрече.
Компьютер тоже должен ответить приветствием. Отвечать нужно в соответствии со
следующей таблицей:
ПРИВЕТСТВИЕ ЧЕЛОВЕКА ОТВЕТ КОМПЬЮТЕРА
Привет Привет
Здравствуйте Здравствуйте
Добрый день Салют
Приветик Салют
Салют Салют
Здравия желаю Вольно
Любое другое приветствие Я вас не понимаю.
5.  Задание на дом
Поработать с конспектом. Составить  и решить задачу на логические.
  Примечание: при изучении нового материала учащиеся делают в тетрадь необходимые
записи под руководством учителя.

intro:
Цели урока:
Образовательная:
Познакомить учащихся с применением логических операций AND (И) и OR (ИЛИ) в Visual Basic. Научить учащихся составлять программы с использованием этих операций.
Развивающая:
Развивать у учащихся навыки работы с ПЭВМ, память, внимание, мышление, речь, кругозор.
Воспитательная :
Воспитывать у учащихся интерес к предмету, бережное отношение к учебной технике.
Обеспечение занятия:
1). ПК – ЭВМ	–	12 шт.
2). Раздаточный материал
Литература:
Н.Г. Волченков «Программирование на Visual Basic 6.0 »
С.Н Лукин «Самоучитель работы на Visual Basic 6.0»
Вид занятия: 	комбинированное	–	1ч.

title: Тема: Логические операции.