Управление мотивацией персонала (на материалах ООО 'Нижпласт')

  • Вид работы:
    Тип работы
  • Предмет:
    Финансы, деньги, кредит
  • Язык:
    Русский
    ,
    Формат файла:
    MS Word
    267,05 kb
  • Опубликовано:
    2008-12-09
Вы можете узнать стоимость помощи в написании студенческой работы.
Помощь в написании работы, которую точно примут!

Управление мотивацией персонала (на материалах ООО 'Нижпласт')

Федеральное агентство по образованию

Государственное образовательное учреждение высшего профессионального образования

«Вятский Государственный Университет» социально-экономический факультет

Лабораторная работа №1

Курс информатика

Тема: работа в среде Visual Basic

Киров 2009

Задание 1

 

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

Эскиз формы

Вычисление функции


Введите х и нажмите Enter

Вычисление

Результат




 

Таблица свойств объекта

Объект

Name

Caption

1

Form

Form 1

Вычисление функции

2

Lable 1

Lable 1

Введите х и нажмите Enter

3

Text 1

txtx


4

Command 1

btn Вычисление

Вычисление

5

Command 2

btn Результат

Результат

6

Picture 1

Pic 1


Список идентификаторов

 

Переменная

Тип

Идентификатор

х

Single

х

y

Single

y

Непосредственные коды процедур

Private Sub Form_Click()

Rem Вычисление функции для заданного значения x

Print

Print " y=x+sin(x+4*atn(1)/3)-log(abs(x)"

x = Val(Textx.Text)

y = x + Sin(x + 4 * Atn(1) / 3) - Log(Abs(x))

Print "для x= "; x

Print "получено значение функции y= "; y

End Sub

Результаты вычислений и выводы

 

Вычисление функции

Введите х и нажмите Enter

2

Задание 2

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

 

Эскиз формы

 

Form 1

Пуск

 

 

S=

 

 


Завершение


 

Таблица свойств объекта

Объект

Name

Caption

1

Form

Form 1

Form 1

2

Text 1

txtx


3

Command 1

Command 1

Пуск

4

Command 2

Command 2

Завершение

5

OLE 1

OLE 2


6

Picturebox

Picture 1


Список идентификаторов

Переменная

Тип

Идентификатор

х

Single

х


Непосредственные коды процедур

Private Sub Command1_Click()

Sum = 0 'начальное значение суммы

sump = 0 'начальная сумма положительных значений функции

sumo = 0 'начальная сумма отрицательных значений функции

X = Val(Textx.Text) 'преобразование функцией Val свойства Текст в числовое значение

For k = 1 To 10

y = Sin(X * k) + Cos(k / X)

If y > 0 Then

sump = sump + y

Else

sumo = sumo + y

End If

Next k

Sum = sump + sumo

Picture1.Print "сумма положительных значений функции"; sump

Picture1.Print "сумма отрицательных значений функции"; sumo

Picture1.Print "сумма значений функции"; Sum

Private Sub Command2_Click()

End

End Sub

Результаты вычислений и выводы

Form 1

2,3

S=

 

Сумма положительных значений функции 2,87637274384731

Сумма отрицательных значений функции -5,74964601205689

Сумма отрицательных значений функции  -2,87327326820958


Завершение



Похожие работы на - Управление мотивацией персонала (на материалах ООО 'Нижпласт')

 

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