23826

Процедури та функції

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

Информатика, кибернетика и программирование

Caption = InputBox Введіть значення інформаційного ресурсу країни C End Sub Function nA B C As Integer Picture1.Scale 0 1010 0 Picture1.1 Picture1.Print A Picture1.

Украинкский

2013-08-05

80 KB

3 чел.

ЗВІТ

з лабораторної роботи № 7

" Процедури та функції"

виконав студент IІ курсу відділення МІ група 2  

Киричук Олег Романович 

Дата виконання "17" грудня 2008 р.

Виконання завдань:

  1.  Створив додаток, що повертає значення могутності держави

Вигляд вікна робочого додатка:

Програмний код додатка:

Private Sub Form_Load()

Dim a, b, c As Single

Label1.Caption = InputBox("Введіть назву країни")

Label7.Caption = InputBox("Введіть чисельність населення")

Label8.Caption = InputBox("Введіть об'єм ВНП")

Label9.Caption = InputBox("Введіть суму витрат на військові цілі")

End Sub

Private Sub Command1_Click()

a = Val(Label7.Caption)

b = Val(Label8.Caption)

c = Val(Label9.Caption)

Call Power(a, b, c, P1)

P1 = CInt(P1)

Label3.Caption = Str(P1)

End Sub

Private Function Power(a, b, c, P1) As Long

P1 = 0.37 * a ^ 0.41 * b ^ 0.62 * c ^ 0.28

End Function

  1.  Створив додаток, що перевіряє, чи введений рядок не закінчується на крапку, знак оклику чи знак питання.

Вигляд вікна робочого додатка:

 Програмний код додатка: 

Private Sub Form_Load()

Dim a As String

Label1.Caption = InputBox("Введіть рядок")

End Sub

Private Sub Command1_Click()

a = Right(Label1.Caption, 1)

Call A1(a)

End Sub

Private Function A1(a) As String

If a = "." Or a = "!" Or a = "?" Then

Label3.Caption = "ТАК"

Else

Label3.Caption = "НІ"

End If

End Function

  1.  Створив додаток, який малює граф обміну інформаційними ресурсами між трьома країнами.

Вікно робочого додатка:

Програмний код додатка:

Private Sub Command1_Click()

Call n(A, B, C)

Call Triangle(A, B, C)

End Sub

Private Sub Form_Load()

Label4.Caption = InputBox("Введіть значення інформаційного ресурсу країни А")

Label5.Caption = InputBox("Введіть значення інформаційного ресурсу країни B")

Label6.Caption = InputBox("Введіть значення інформаційного ресурсу країни C")

End Sub

Function n(A, B, C) As Integer

Picture1.Scale (0, 10)-(10, 0)

Picture1.Circle (2, 3), 0.1

Picture1.Print " A"

Picture1.Circle (8, 3), 0.1

Picture1.Print "  B"

Picture1.Circle (5, 8), 0.1

Picture1.Print "   C"

Picture1.Line (2.1, 3.1)-(7.9, 3.1)

Picture1.Line (2.1, 3.1)-(4.9, 7.9)

Picture1.Line (5.1, 7.9)-(7.9, 3.1)

End Function

Function Triangle(A, B, C) As Single

A = Val(Label4.Caption)

B = Val(Label5.Caption)

C = Val(Label6.Caption)

If A > B Then

Picture1.PSet (7.6, 2.9)

Picture1.Print "--"

Picture1.PSet (2.5, 2.9)

Picture1.Print "+"

Else

Picture1.PSet (7.6, 2.9)

Picture1.Print "+"

Picture1.PSet (2.5, 2.9)

Picture1.Print "--"

End If

If A > C Then

Picture1.PSet (4.4, 7.9)

Picture1.Print "--"

Picture1.PSet (2.5, 3.3)

Picture1.Print "+"

Else

Picture1.PSet (4.4, 7.9)

Picture1.Print "+"

Picture1.PSet (2, 3.7)

Picture1.Print "--"

End If

If B > C Then

Picture1.PSet (5.8, 7.9)

Picture1.Print "--"

Picture1.PSet (7.9, 3.7)

Picture1.Print "+"

Else

Picture1.PSet (5.8, 7.9)

Picture1.Print "+"

Picture1.PSet (7.9, 3.7)

Picture1.Print "--"

End If

End Function

  1.  Створив додаток, що повертає ціле випадкове число в заданому інтервалі.

Вікно працюючого додатка:

Програмний код додатка:

Private Sub Form_Load()

Label1.Caption = InputBox("Введіть початок діапазону")

Label2.Caption = InputBox("Введіть кінець діапазону")

End Sub

Private Sub Command1_Click()

Dim a, b As Single

a = Val(Label1.Caption)

b = Val(Label2.Caption)

Call Random(a, b, n)

Label4.Caption = Str(n)

End Sub

Private Function Random(a, b, n) As Integer

n = Int((b - a + 1) * Rnd + a)

End Function


 

А также другие работы, которые могут Вас заинтересовать

74118. Аппаратный состав и основные функции АСКУЭ Энергия+ 20.06 KB
  Основные функции Автоматический учет потерь электроэнергии от точки измерений до точки учета. Санкционированное автоматическое или ручное предоставление информации о результатах измерений и состоянии средств и объектов измерений в интегрированную автоматизированную систему управления коммерческим учетом ИАСУ КУ. Предоставление контрольного доступа к результатам измерений данным о состоянии объектов и средств измерений в СВК УСПД ЭСч по запросу со стороны ИАСУ КУ. Автоматическое формирование учетных показателей: сведение баланса учет...
74119. Порядок и основные элементы обработки информации в АСКУЭ Энергия+ 18.09 KB
  Основными источниками данных являются. Устройства сбора данных УСД могут иметь как счётноимпульсные вход так и аналоговые входы разного вида а также сигналы телесигнализации ТС. Переменные ПВ используются для ввода данных оператором с клавиатуры. Это позволяет учесть в расчётах различные редко изменяемые параметры не имеющие автоматического источника данных.
74120. Порядок хранения и получения информации из базы данных АСКУЭ Энергия+ 17.8 KB
  Для хранения информации в КТС Энергия используется SQLсервер. Хранимая в SQL инф подразделяется на две части: проектные данные содержащие описания состава и названий УСД электр счётчиков ед измерений и др параметры кот пользователь вводит при подготовке проектных Д в программе Редактор проекта . Эти Д формируются программой Ядро и при помощи программы Запись в базу помещаются в SQL. Для хранения и обработки указанной инф исп неск независ баз в SQL: проектная база eng6 используемая программой Редактор проекта для хранения всей...
74121. Структура и состав базового программного обеспечения АСКУЭ Энергия+ 21.72 KB
  Клиентская часть обеспечивает отображение пользователю Д, хранимых в серв части. Содержит разные приложения – потребители инф: разл документы, генераторы отчётов и т.п. С одной серв частью могут работать одна или более кл частей. При доступе к Д только через WEB-сервер на кл компе не требуется установка к-л программ – достаточно наличия WEB-браузера.
74122. SCADA – система TRACE MODE 45.95 KB
  SCD система TRCE MODE. В 2005 г TRCE MODE интегрированная SCD система для разработки АСУ ТП АСКУЭ и систем управления производством получила сертификат соответствия ГОСТ Р выданный ГОССТАНДАРТОМ России. По результатам испытаний в сертификационной лаборатории установлено соответствие интегрированной SCD TRCE MODE требованиям нормативных документов российских и международных стандартов. Это стало важным этапом в процессе повышения качества SCD системы TRCE MODE до уровня лучших мировых аналогов.
74123. Структура системы TRACE MODE 20.57 KB
  Монитор реального времени МРВ. Под управлением МРВ выполняются такие задачи как: запрос данных о состоянии технологического процесса с контроллеров нижнего уровня по любому из встроенных протоколов или через драйвер; передача на нижний уровень команд управления по любому из встроенных протоколов или через драйвер; обмен данными с платами УСО; сохранение данных в архивах; обмен по сети с удаленными МРВ; передача данных по сети на следующий уровень АСУ; обмен с базами данных через ODBC; представление оператору графической информации о...
74124. Автоматизированные информационные системы – общие понятия, структура 17.43 KB
  Автоматизированные информационные системы можно разделить на: Системы информационного обеспечения имеющие самостоятельное целевое назначение и область применения; Автоматизированные системы управления АСУ. Системы информационного обеспечения как правило содержат информационную базу используемую различными потребителями для удовлетворения информационных потребностей при принятии решений. Автоматизированные системы управления человекомашинные системы обеспечивающие автоматический сбор и обработку информации с помощью различных...
74125. Программное обеспечение АСУ ТП. SCADA – системы 18.64 KB
  Программное обеспечение АСУ ТП принято делить на две категории: общее программное обеспечение включающее операционные системы SCDсистемы пакеты программ для программирования контроллеров компиляторы редакторы и т. К этой категории относятся программы для контроллеров реализующие определённые функциональные задачи обработки информации и управления; программы сгенерированные в среде SCDсистемы для визуализации. SCDсистемы супервизорное диспетчерское управление и получение данных это программные продукты которые...
74126. Структура SCADA – систем 18.32 KB
  Специфика каждой конкретной системы управления определяется используемой на каждом уровне программно аппаратной платформой. Датчики поставляют информацию контроллерам которые могут выполнять следующие функции:с бор и обработка информации о параметрах технологического процесса; управление электроприводами и другими исполнительными механизмами; решение задач автоматического логического управления и др...