Контрольная работа по "Программированию и компьютерам"

ФЕДЕРАЛЬНОЕ АГЕНТСТВО  ПО ОБРАЗОВАНИЮ

ГОСУДАРСТВЕННОЕ ОБРАЗОВАТЕЛЬНОЕ  УЧРЕЖДЕНИЕ

ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО  ОБРАЗОВАНИЯ

«ИВАНОВСКАЯ ГОСУДАРСТВЕННАЯ  ТЕКСТИЛЬНАЯ АКАДЕМИЯ»

(ИГТА)

 

 

 

 

Кафедра ПМИТ

 

 

 

Контрольная работа

по дисциплине: «Средства информационных коммуникаций»

 

 

 

                                                                             Выполнил: Шашин А.П.

                                                            Специальность: 230702

                                                                 Номер зачётной книжки:043102

      Подпись:____________________

      Проверил: Косинов Ю.А.

      Работа принята с оценкой:_____

 

 

                                                                                        

                                                    Иваново 2011

 

Содержание

 

1. Теоретический материал
2. Задачи
3. Фото форм
4. Текст программы

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Задачи

1. Разобрать фрагмент приложения, предназначенный для вычисления таблицы значений функции:

Y=|sin3x * cos2x * e^-x / (x² - 1)| * sin

Шагов изменения значений аргумента ≤ 10 задается с клавиатуры. Диапазон изменения аргумента задается паролем с клавиатуры и может быть произвольным. Результаты вывести на форму обеспечив возможность просмотра всего диапазона значений аргумента и функций.

2. В старояпонском календаре календаре был принят двенадцатилетний цикл. Годы внутри цикла носили название животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, петуха, собаки и свиньи. Разобрать приложение, которое по номеру года определяет его название в старояпонском календаре (1996 г. Был годом крысы и началом очередного цикла) и выводит соответствующее изображение на форму.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

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

Описание функций примененных  для решения задач:

1. Dim a As String

Переменные могут объявляться  в любом месте программы до её (переменной) использования.

Используя один раз оператор Dim, можно объявить сразу несколько  переменных.

Для этого их нужно  перечислить через запятую.

Dim a, b, c, d, e

Массив объявляется  так же, как переменная, только с указанием размерности в скобках.

Пример кода:

Dim a As Integer   ' переменная - число

Dim b As Boolean = False  ' переменная = false

Dim c, d, f, g As Long   ' несколько  переменных - число

Dim h()   ' переменная - неопределенный массив

Dim l(100 To 2000)   ' переменная - определенный массив

Private Sub Command1_Click() ' При нажатии на кнопку

Dim e As String   ' переменная - строка

End Sub   ' Конец процедуры

2. Функция Val возвращает числа, содержащиеся в строке, как числовое значение соответствующего типа. Функция Val прекращает чтение строки на первом символе, который она не может распознать в качестве части числа. Символы, которые часто рассматриваются в качестве частей числовых значений, типа знака доллара и запятых, не распознаются. Однако эта функция распознает префикс основания &O (для восьмеричных) и &H (для шестнадцатеричных значений). Пробелы, символы табуляции и символы перевода строк удаляются из значения аргумента.

 

Например выражение

a = Val ( "22 слона" )

Возвратит в переменную (а) число 22.

Этот оператор будет  преобразовывать выражение в  число до первого нецифрового  символа.

То есть если выражение  будет "22 слона и 33 крокодила", то (а) все равно будет равно 22.  

3) For [счетчик] = [начальное значение] To [конечное значение]

Step [шаг счетчика] [конструкции] Next  [счетчик(переменная)]

По умолчанию параметр Step равен 1, и указывать его не обязательно

For  i = 0  To  100

Text1.Text  =  i

Next i

В этом случае конструкции  будут выполняться 100 раз.

Для оператора For ... Next существует оператор преждевременного выход из цикла Exit For.

For  i = 0  To  100  Step  1

Text1.Text  =  i

If i = 50 Then Exit For

Next i

Если i станет равно 50, то цикл завершится.

 

 

 

 

 

 

 

Пример кода:

Dim i As Integer   ' Объявляем  переменную

Private Sub Command1_Click() ' При нажатии на кнопку

i = 0  ' очищаем переменную i

For i = 0 To 10000 Step 1  ' От 0 до 10000

Text1.Text = i   ' Выводим  i в текстовое поле

DoEvents  ' Чтобы программа  не зависала

Next i    ' Повтор  цикла

End Sub   ' Конец процедуры

4) Text - Текст, который будет отображаться в элементе.

Задать текст программно:

Text1.Text = " Привет! "

Изменить размер шрифта:

Text1.FontSize = 16

Пример кода:

Private Sub Command1_Click() ' При нажатии на кнопку

Text1.Alignment = 2 ' Выравнивание текста по центру

Text1.FontName = "Comic Sans Ms" ' Меняем шрифт

Text1.FontSize = 20 ' Размер шрифта

Text1.PasswordChar = "*" ' Символ вместо текста

End Sub

 

 

 

 

 

5) Label – основные свойства

Name - Имя элемента. Оно будет использоваться  в коде.

Alignment - Выравнивание текста.

BackColor - Цвет элемента.

BorderStyle - Тип границы.

Caption - Текст, который будет выводиться  в элементе.

Enabled - Состояние элемента. Определяет, активен элемент или нет.

Font - Шрифт.

Height - Высота элемента.

Left - Расстояние между левой границей формы и элементом.

Top - Расстояние между верхней  границей формы и элементом.

Visible - Определяет, виден элемент  на форме или нет.

Width - Ширина элемента.

Задать текст программно:

Label1.Caption = " Привет! "

Изменить размер шрифта:

Label1.FontSize = 16

Пример кода:

Private Sub Command1_Click() ' При  нажатии на кнопку

Label1.FontSize = 25 ' Меняем шрифт

Label1.Caption = "Большой  шрифт" ' Выводим надпись

End Sub

Private Sub Form_Load() ' При открытии формы

Label1.Caption = "Обычный шрифт" ' Выводим надпись

End Sub

 

6) If Then Else

Конструкция If.. .Then применяется в том случае, когда необходимо выполнить один или группу операторов при соблюдении определенного условия. Существует две разновидности данного оператора: однострочный и многострочный. Однострочный оператор имеет следующий синтаксис:

IF [условие] Then [конструкция] Закрывать его не надо.

Если требуется выполнить  несколько комманд, то их нужно разделить  двоеточием.

If  a  =  b  then  Text1.Text  =  "Привет " :  Form1.Caption  =  "Приветствие "

Но в таких случаях  удобнее использовть многострочный  оператор. Здесь после Then обязательно должен быть перенос сторки, а в конце конструкции должен стоять закрывающий компонент End If.

IF [условие] Then [конструкции]

End If

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

IF [условие] Then [конструкции]

Else [конструкции2]

End If

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

IF [условие] Then [конструкции]

Else

If [условие2] Then [конструкции2]

Else [конструкции3]

End If

Предыдущий код будет  аналогичен следующему.

IF [условие] Then [конструкции]

ElseIf [условие2] Then [конструкции2]

Else [конструкции3]

End If

Только в данном случае Else и If будут слитно.

Пример кода:

Dim a As Integer   ' Объявляем  переменную

Private Sub Command1_Click() ' При нажатии на кнопку

a = Val(Text1.Text)  ' a равно  численному значению текстового  поля

If a = 0 Then  ' Если а  = 0 то

Me.Caption = "Равно нулю"   ' Меняем название формы

ElseIf a > 0 Then Me.Caption = "Больше нуля" 

' Иначе, если а > 0 то меняем название формы

Else  ' Иначе

Me.Caption = "Другое..."     ' Меняем название формы

End If   ' Конец конструкции

End Sub   ' Конец процедуры

 

 

 

 

 

 

 

 

 

Фото форм

1. Задача:

 

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

Y=|sin3x * cos2x * e^-x / (x² - 1)| * sin

Шагов изменения значений аргумента ≤ 10 задается с клавиатуры. Диапазон изменения аргумента задается паролем с клавиатуры и может  быть произвольным. Результаты вывести на форму обеспечив возможность просмотра всего диапазона значений аргумента и функций.

 

На данном скриншоте  изображена среда программирования Visual Basik, и соответствующая разрабатывающаяся форма.

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

На данном скриншоте  изображен результат действия данной программы.

2. Задача:

В старояпонском календаре  календаре был принят двенадцатилетний цикл. Годы внутри цикла носили название животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, петуха, собаки и свиньи. Разобрать приложение, которое по номеру года определяет его название в старояпонском календаре (1996 г. Был годом крысы и началом очередного цикла) и выводит соответствующее изображение на форму.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

На данном скриншоте  изображена среда программирования Visual Basik, и соответствующая разрабатывающаяся форма.

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

На данном скриншоте  изображен результат действия данной программы.

 

Текст программ

1. Задача:

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

Y=|sin3x * cos2x * e^-x / (x² - 1)| * sin

Шагов изменения значений аргумента ≤ 10 задается с клавиатуры. Диапазон изменения аргумента задается паролем с клавиатуры и может быть произвольным. Результаты вывести на форму обеспечив возможность просмотра всего диапазона значений аргумента и функций.

Программный код:

Private Sub Command1_Click()

Dim N As Integer

Dim a As Integer

Dim b As Integer

N = Val(Text1)

a = Val(Text3)

b = Val(Text4)

For i = 1 To N

x = 4 * b - a

y = sin3x * cos2x * Exp(-x) / (x ^ 2 - 1) * sinx

Text2 = Text2 & "    i=" & i & "   x=" & x & "    y=" & y & Chr(13) & Chr(10)

Next i

End Sub

 

 

2. Задача:

В старояпонском календаре  календаре был принят двенадцатилетний цикл. Годы внутри цикла носили название животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, петуха, собаки и свиньи. Разобрать приложение, которое по номеру года определяет его название в старояпонском календаре (1996 г. Был годом крысы и началом очередного цикла) и выводит соответствующее изображение на форму.

Программный код:

Private Sub Command1_Click()

Dim x As Integer

x = Val(Text1)

If x Mod 12 = 1 Then Text2 = "Крыса"

If x Mod 12 = 2 Then Text2 = "Корова"

If x Mod 12 = 3 Then Text2 = "Тигр"

If x Mod 12 = 4 Then Text2 = "Заяц"

If x Mod 12 = 5 Then Text2 = "Дракон"

If x Mod 12 = 6 Then Text2 = "Змея"

If x Mod 12 = 7 Then Text2 = "Лошадь"

If x Mod 12 = 8 Then Text2 = "Овца"

If x Mod 12 = 9 Then Text2 = "Обезьяна"

If x Mod 12 = 10 Then Text2 = "Петух"

If x Mod 12 = 11 Then Text2 = "Собака"

If x Mod 12 = 12 Then Text2 = "Свинья"

End Sub