23821

Спроектував програмний додаток, за допомогою якого можна проводити тестування знань в області міжнародних відносин

Практическая работа

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

По завершенню ви можете переглянути остаточний результат Правила Label1. У якому році було засновано ООН Label2. у 1945 Label3. у 1946 Label4.

Украинкский

2013-08-05

112 KB

0 чел.

ЗВІТ

з комп’ютерного практикуму

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

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

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

Виконання роботи:

  1.  Спроектував програмний додаток, за допомогою якого можна проводити тестування знань в області міжнародних відносин. Тест складається з 10 питань. До кожного питання пропонується три варіанти відповіді. В результаті тестування користувач отримує оцінку своїх знань.

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

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

Dim k1, k2, k3, k4, k5, k6, k7, k8, k9, k10 As Integer

Private Sub Form_Load()

Dim k As Integer, f As String

MsgBox "Вітаємо на тестуванні", , "Привіт!"

MsgBox "Прочитайте питання і натисніть на відповідну кнопку, щоб дати на нього відповідь. У вікні, що з'явилося впишіть 1,2 або 3 та натисніть ОК. По завершенню ви можете переглянути остаточний результат", , "Правила"

Label1.Caption = "Питання №1. У якому році було засновано ООН?"

Label2.Caption = "1. у 1945"

Label3.Caption = "2. у 1946"

Label4.Caption = "3. у 1950"

End Sub

Private Sub Command4_Click()

k = 0

f = InputBox("Ваш варіант відповіді", "")

e = Val(f)

If e = "1" Then k1 = k + 1 Else: k1 = k

If e = "1" Then Label5.Caption = "Правильно" Else: Label5.Caption = "Неправильно"

Label1.Caption = "Питання №2. У якому місті розташовується штаб-квартира ЮНЕСКО?"

Label2.Caption = "1. Брюссель"

Label3.Caption = "2. Женева"

Label4.Caption = "3. Париж"

End Sub

Private Sub Command1_Click()

f = InputBox("Ваш варіант відповіді", "")

e = Val(f)

If e = "3" Then k2 = k1 + 1 Else: k2 = k1

If e = "3" Then Label5.Caption = "Правильно" Else: Label5.Caption = "Неправильно"

Label1.Caption = "Питання №3. Яка з цих країн не вступила до Євросоюзу у 2004 році"

Label2.Caption = "1.Мальта"

Label3.Caption = "2. Ліхтенштейн"

Label4.Caption = "3. Кіпр"

End Sub

Private Sub Command2_Click()

f = InputBox("Ваш варіант відповіді", "")

e = Val(f)

If f = "2" Then k3 = k2 + 1 Else: k3 = k2

If e = "2" Then Label5.Caption = "Правильно" Else: Label5.Caption = "Неправильно"

Label1.Caption = "Питання №4. Скільки країн є членами об'єднання НАФТА?"

Label2.Caption = "1.3"

Label3.Caption = "2.6"

Label4.Caption = "3.27"

End Sub

Private Sub Command3_Click()

f = InputBox("Ваш варіант відповіді", "")

e = Val(f)

If f = "1" Then k4 = k3 + 1 Else: k4 = k3

If e = "1" Then Label5.Caption = "Правильно" Else: Label5.Caption = "Неправильно"

Label1.Caption = "Питання №5. В якому році відбувся Віденський конгрес? "

Label2.Caption = "1. 1918"

Label3.Caption = "2. 1815"

Label4.Caption = "3. 1648"

End Sub

Private Sub Command5_Click()

f = InputBox("Ваш варіант відповіді", "")

e = Val(f)

If e = "2" Then k5 = k4 + 1 Else: k5 = k4

If e = "2" Then Label5.Caption = "Правильно" Else: Label5.Caption = "Неправильно"

Label1.Caption = "Питання №6. Хто зараз є генеральним секретарем ООН?"

Label2.Caption = "1. Хуань Шикай"

Label3.Caption = "2. Кофі Анан"

Label4.Caption = "3. Пан Гі Мун"

End Sub

Private Sub Command6_Click()

f = InputBox("Ваш варіант відповіді", "")

e = Val(f)

If e = "3" Then k6 = k5 + 1 Else: k6 = k5

If e = "3" Then Label5.Caption = "Правильно" Else: Label5.Caption = "Неправильно"

Label1.Caption = "Питання №7. У якому році було створено НАТО?"

Label2.Caption = "1. 1949"

Label3.Caption = "2. 1957"

Label4.Caption = "3. 1991"

End Sub

Private Sub Command7_Click()

f = InputBox("Ваш варіант відповіді", "")

e = Val(f)

If e = "1" Then k7 = k6 + 1 Else: k7 = k6

If e = "1" Then Label5.Caption = "Правильно" Else: Label5.Caption = "Неправильно"

Label1.Caption = "Питання №8. Яка з цих країн не є постійним членом Ради Безпеки ООН?"

Label2.Caption = "1.Китай"

Label3.Caption = "2. Індія"

Label4.Caption = "3. Франція"

End Sub

Private Sub Command8_Click()

f = InputBox("Ваш варіант відповіді", "")

e = Val(f)

If e = "2" Then k8 = k7 + 1 Else: k8 = k7

If e = "2" Then Label5.Caption = "Правильно" Else: Label5.Caption = "Неправильно"

Label1.Caption = "Питання №9. Де розміщена штаб-квартира ГУАМ?"

Label2.Caption = "1.Київ"

Label3.Caption = "2. Лондон"

Label4.Caption = "3. Тбілісі"

End Sub

Private Sub Command9_Click()

f = InputBox("Ваш варіант відповіді", "")

e = Val(f)

If e = "1" Then k9 = k8 + 1 Else: k9 = k8

If e = "1" Then Label5.Caption = "Правильно" Else: Label5.Caption = "Неправильно"

Label1.Caption = "Питання №10. Скільки зірочок на прапорі Євросоюзу"

Label2.Caption = "1.7"

Label3.Caption = "2.12"

Label4.Caption = "3.27"

End Sub

Private Sub Command10_Click()

f = InputBox("Ваш варіант відповіді", "")

e = Val(f)

If e = "2" Then k10 = k9 + 1 Else: k10 = k9

If e = "2" Then Label5.Caption = "Правильно" Else: Label5.Caption = "Неправильно"

End Sub

Private Sub Command11_Click()

Text2.Text = Str(k10)

Text1.Text = Str(k10 * 10)

End Sub

  1.  Спроектував програмний додаток для побудови когнітивної моделі системи та аналізу причинно-наслідкових зв’язків.

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

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

Private Sub FORM_LOAD()

MsgBox "ВІТАЄМО У ПРОГРАМІ ДЛЯ ПОБУДОВИ КОГНІТИВНОЇ МОДЕЛІ", , "ЛАСКАВО ПРОСИМО!"

Label5.Caption = InputBox("ВВЕДІТЬ ОПИС ПІДСИСТЕМИ №1")

Label6.Caption = InputBox("ВВЕДІТЬ ОПИС ПІДСИСТЕМИ №2")

Label7.Caption = InputBox("ВВЕДІТЬ ОПИС ПІДСИСТЕМИ №3")

Label8.Caption = InputBox("ВВЕДІТЬ ОПИС ПІДСИСТЕМИ №4")

MsgBox "ВВЕДІТЬ ІСНУЮЧІ ЗВЯЗКИ МІЖ ПІДСИСТЕМАМИ І ЗАЗНАЧТЕ ЇХ ТИП"

End Sub

Private Sub Command1_Click()

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

Picture1.Circle (2, 2), 0.1

Picture1.Print " A"

Picture1.Circle (8, 2), 0.1

Picture1.Print "  D"

Picture1.Circle (2, 8), 0.1

Picture1.Print "   B"

Picture1.Circle (8, 8), 0.1

Picture1.Print "  C"

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

End Sub

Private Sub Command2_Click()

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

Picture1.Circle (2, 2), 0.1

Picture1.Print " A"

Picture1.Circle (8, 2), 0.1

Picture1.Print "  D"

Picture1.Circle (2, 8), 0.1

Picture1.Print "   B"

Picture1.Circle (8, 8), 0.1

Picture1.Print "  C"

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

End Sub

Private Sub Command3_Click()

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

End Sub

Private Sub Command4_Click()

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

End Sub

Private Sub Command5_Click()

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

End Sub

Private Sub Command6_Click()

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

End Sub

Private Sub Command7_Click(Index As Integer)

Picture1.PSet (1.7, 5)

Picture1.Print "+"

End Sub

Private Sub Command8_Click(Index As Integer)

Picture1.PSet (1.7, 5)

Picture1.Print "-"

End Sub

Private Sub Command9_Click()

Picture1.PSet (4.7, 4.5)

Picture1.Print "+"

End Sub

Private Sub Command10_Click()

Picture1.PSet (4.7, 4.5)

Picture1.Print "-"

End Sub

Private Sub Command11_Click()

Picture1.PSet (5.2, 2.4)

Picture1.Print "+"

End Sub

Private Sub Command12_Click()

Picture1.PSet (5.2, 2.4)

Picture1.Print "-"

End Sub

Private Sub Command13_Click()

Picture1.PSet (5, 8.4)

Picture1.Print "+"

End Sub

Private Sub Command14_Click()

Picture1.PSet (5, 8.4)

Picture1.Print "-"

End Sub

Private Sub Command15_Click()

Picture1.PSet (5.8, 4.5)

Picture1.Print "+"

End Sub

Private Sub Command16_Click()

Picture1.PSet (5.8, 4.5)

Picture1.Print "-"

End Sub

Private Sub Command17_Click()

Picture1.PSet (8.2, 5)

Picture1.Print "+"

End Sub

Private Sub Command18_Click()

Picture1.PSet (8.2, 5)

Picture1.Print "-"

End Sub

  1.  Спроектував програмний додаток для проведення та обробки результатів експертного опитування.

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

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

Private Sub Form_Load()

MsgBox "Вас вітає програма для обробки результатів експертного опитування", , "Ласкаво просимо!"

Label2.Caption = InputBox("Введіть опис першого фактору")

Label3.Caption = InputBox("Введіть опис другого фактору")

Label4.Caption = InputBox("Введіть опис третього фактору")

Label5.Caption = InputBox("Введіть опис четвертого фактору")

Label6.Caption = InputBox("Введіть опис п'ятого фактору")

Label7.Caption = InputBox("Введіть опис шостого фактору")

MsgBox "Виставте відповідні оцінки у таблицю і натисніть ОБЧИСЛИТИ", , "Результати опитування експертів"

End Sub

Private Sub Command1_Click()

a = Val(Text1(0).Text)

b = Val(Text1(1).Text)

c = Val(Text1(2).Text)

d = Val(Text1(3).Text)

R = a + b + c + d

Label11.Caption = R

a1 = Val(Text2(0).Text)

b1 = Val(Text2(1).Text)

c1 = Val(Text2(2).Text)

d1 = Val(Text2(3).Text)

R1 = a1 + b1 + c1 + d1

Label12.Caption = R1

a2 = Val(Text3(0).Text)

b2 = Val(Text3(1).Text)

c2 = Val(Text3(2).Text)

d2 = Val(Text3(3).Text)

R2 = a2 + b2 + c2 + d2

Label13.Caption = R2

a3 = Val(Text4(0).Text)

b3 = Val(Text4(1).Text)

c3 = Val(Text4(2).Text)

d3 = Val(Text4(3).Text)

R3 = a3 + b3 + c3 + d3

Label14.Caption = R3

a4 = Val(Text5(0).Text)

b4 = Val(Text5(1).Text)

c4 = Val(Text5(2).Text)

d4 = Val(Text5(3).Text)

R4 = a4 + b4 + c4 + d4

Label15.Caption = R4

a5 = Val(Text6(0).Text)

b5 = Val(Text6(1).Text)

c5 = Val(Text6(2).Text)

d5 = Val(Text6(3).Text)

R5 = a5 + b5 + c5 + d5

Label16.Caption = R5

q = 14

R_ = q - R

Label21.Caption = R_

Label27.Caption = R_ ^ 2

A0 = R_ ^ 2

R11 = q - R1

Label22.Caption = R11

Label28.Caption = R11 ^ 2

B0 = R11 ^ 2

R12 = q - R2

Label23.Caption = R12

Label29.Caption = R12 ^ 2

C0 = R12 ^ 2

R13 = q - R3

Label24.Caption = R13

Label30.Caption = R13 ^ 2

D0 = R13 ^ 2

R14 = q - R4

Label25.Caption = R14

Label31.Caption = R14 ^ 2

E0 = R14 ^ 2

R15 = q - R5

Label26.Caption = R15

Label32.Caption = R15 ^ 2

F0 = R15 ^ 2

K = A0 + B0 + C0 + D0 + E0 + F0

Label34.Caption = K

W = K / 280

Label37.Caption = W

If W > 0.5 Then MsgBox "Думки експертів узгоджені" Else MsgBox "Думки експертів не погоджені"

If W > 0.5 Then Label20.Caption = "Думки експертів узгоджені" Else Label20.Caption = "Думки експертів не погоджені"

End Sub


 

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

33368. Система прерываний ОМК AT90S8515 63 KB
  При возникновении прерывания микроконтроллер сохраняет в стеке содержимое счетчика команд PC и загружает в него адрес соответствующего вектора прерывания. По этому адресу должна находиться команда относительного перехода к подпрограмме обработки прерывания. Кроме того последней командой подпрограммы обработки прерывания должна быть команда RETI которая обеспечивает возврат в основную программу и восстановление предварительно сохранённого счетчика команд. Младшие адреса памяти программ начиная с адреса 001 отведены под таблицу векторов...
33369. Канал SPI (синхронный последовательный порт) 38.5 KB
  Выводы используемые модулем SPI Название сигнала T90S8515 Описание SCK РВ7 Выход mster вход slve тактового сигнала MISO РВ6 Вход mster выход slve данных MOSI РВ5 Выход mster вход slve данных РВ4 Выбор ведомого устройства Спецификация интерфейса SPI предусматривает 4 режима передачи данных. Эти режимы различаются соответствием между фазой момент считывания сигнала тактового сигнала SCK его полярностью и передаваемыми данными. Задание режима передачи данных Разряд Описание CPOL Полярность тактового сигнала 0 генерируются...
33370. Система команд и способы адресации памяти данных 76.5 KB
  При прямой адресации адреса операндов содержатся непосредственно в слове команды.4 5 бит слова команды рис. Прямая адресация одного регистра общего назначения Примером команд использующих этот способ адресации являются команды работы со стеком PUSH Rr POP Rd команды инкремента INC Rd декремента DEC Rd а также некоторые команды арифметических операций.d4 5 бит слова команды рис.
33371. Схема СУ на базе ОМК АТ90S8515. 28.5 KB
  Порт РА микроконтроллером используется как мультиплексированная шина адреса данных. Поэтому для сохранения младшего байта адреса необходимо использовать регистр адреса РА. Запись в регистр осуществляется по спаду сигнала LE формируемого автоматически микроконтроллером при обращении по адресам внешнего ОЗУ.
33372. Выводы ЖКИ. Схема подключения ЖКИ к ОМК, как внешнего устройства 33 KB
  Схема подключения ЖКИ к ОМК как внешнего устройства Соединение ЖКМ например с МК осуществляется через разъём назначение и номера контактов которого приведены в табл. Описание выводов стандартного разъема ЖКМ на базе HD44780 № конт. Схема подключения ЖКМ LCD к микроконтроллеру MCS.
33373. Схема подключения клавиатуры к ОКМ с аппаратным исключением дребезга 29 KB
  Иключение дребезга контактов выполняется на основе RS триггеров. Схема клавиатуры с аппаратным исключением дребезга контактов.
33374. Схема подключения матричной клавиатуры к ОКМ 28 KB
  В подпрограмме обслуживания данного прерывания необходимо предусмотреть программное исключение дребезга контактов которое осуществляется с помощью временных задержек формирование и считывание кода нажатой клавиши Схема подключения матричной клавиатуры к МК.
33375. Состав модульного микроконтроллера SLC500 фирмы Allen Bradley 29.5 KB
  Шасси на 471013 слотов для установки модулей; Блок питания монтируется слева на шасси; Процессорный модуль SLS 5 01SLC 5 04; Входные дискретные модули переменного тока 1746I4816 1746IM4816; Входные дискретные модули постоянного тока 1746IB816 ITB16 IС16 IV816 IG16; Входной дискретный модуль c dc 1746IN16; Выходные дискретные модули переменного тока 1746O816 OP12; Выходные дискретные модули постоянного тока 1746OB816 OBP816 OV816 OVP16 OG16; Выходные релейные модули 1746OW4816 OX8;...
33376. Классификация СУ по степени совершенства 30.5 KB
  По степени совершенства и функциональным возможностям устройства ЧПУ делятся на следующие типы: NC Numericl Control УЧПУ для обработки изделий на станке по программе. все задачи в данных УЧПУ терминальная геометрическая логическая технологическая и диагностическая решаются на аппаратном уровне. В контурных УЧПУ типа NC основным элементом является интерполятор который обеспечивает обработку криволинейных поверхностей. Отличается от УЧПУ типа NC наличием электронного блока памяти.