Формування паузи ультразвуковим сигналом

4600 SOUND 20000, 0: SOUND 20000, 35: SOUND 20000, 35(пауза 70 одиниць)

Вимірювання проміжку часу виконання завдання (час реакції)

10 CLS

20 (Підпограма пред’явлення стимулу (напису, геометричних фігур, звукового сигналу тощо))

25 START! = TIMER(включити таймер)

30 KEY OFF

40 L$ = INKEY$ (початок підпрограми перевірки на натискання клавіші)

70 IF L$ = CHR$(13) THEN 100 (якщо нажата клавіша ENTER фіксується час реакції)

80 IF L$ = CHR$(27) THEN 120 (якщо нажата клавіша ESC кінець програми)

90 IF LEN(L$) < > 2 GOTO 40 (кінець підпрограми перевірки на натискання клавіші)

100 FINISH! = TIMER(виключити таймер)

110 PRINT FINISH! – START! : 10 (вивести на екран час між стартом і фінішем – час реакції; перейти до наступного виміру)

120 END

Формування проміжку часу (Тепінг-тест)

1000 PRINT " Т Е П И Н Г - Т Е С Т"

1018 PRINT :PRINT " в.о.доц. ВIЛЕНСЬКИЙ Г.Л.

1100 PRINT: PRINT

1200 PRINT " IНСТРУКЦIЯ !!!"

1300 PRINT: PRINT "Введiть свiй порядковий номер по списку групи i натиснiть клавiшу ENTER"

1400 PRINT "Через 3 - 4 сек. на екранi висвiтиться команда С Т А Р Т"

1500 PRINT "По цiй командi Вам треба якомога швидше на протязi 50 сек. натискати на клавiшу ENTER до появи напису Ф I Н I Ш"

1600 PRINT "ЗРОЗУМIЛО ?"

1700 INPUT "Введiть свiй порядковий номер по списку "; X

1800 CLS

1900 SOUND 1200, 10

2200 PRINT " С Т А Р Т !!!"

ON TIMER (5) GOSUB 3700

TIMER ON

2800 M=0

2900 N=0

3000 KEY OFF

3100 L$=INKEY$

3200 IF L$=CHR$(27) THEN 4400

3300 IF L$=CHR$(13) THEN N=N+1

3400 IF LEN(L$)<>2 GOTO 3100

3500 PRINT " С Т А Р Т !!!"

3600 IF M>10 THEN 4200 ELSE 2900

3700 N(M)=N

3800 PRINT M, N

3900 M=M+1

4000 RETURN 3600

4100 PRINT: PRINT

4200 PRINT: PRINT: PRINT X;: PRINT " ";

4300 PRINT N(0); N(1); N(2); N(3); N(4); N(5); N(6); N(7); N(8); N(9); N(10)

4400 PRINT: PRINT

4500 PRINT " Ф I Н I Ш !!!"

4600 END

Колоквіум-тренажер

1010 CLS: PRINT :PRINT

1018 PRINT :PRINT " в.о.доц. ВIЛЕНСЬКИЙ Г.Л.

1020 PRINT :PRINT :PRINT " Т Е С Т - Т Р Е Н А Ж Е Р

1022 PRINT " З КОМП’ЮТЕРНОЇ ПСИХОДІАГНОСТИКИ

1024 PRINT :PRINT " Тема 1. Психодіагностика.

1026 PRINT " Комп’ютерна психодіагностика

1028 PRINT :PRINT " I Н С Т Р У К Ц I Я :

1030 PRINT :PRINT " Уважно прочитайте завдання i варiанти вiдповiдей на нього. Виберiть правильний варiант i наберiть його номер, пiдтвердивши клавiшею ENTER. Якщо вiдповiдь правильна, програма допустить Вас до наступного завдання, якщо нi, то

1031 PRINT "програма запропонує повторити спробу. В кiнцi роботи будуть виданi статистичнi данi тестування.

1040 PRINT : PRINT " Для продовження натиснути клавiшу ENTER

1045 KEY OFF

1046 L$=INKEY$

1047 IF L$ = CHR$(13) THEN GOTO 1110

1048 IF LEN(L$) < > 2 THEN GOTO 1046

1110 CLS: PRINT :PRINT

1120 PRINT " 1. Стимул в ПД:

1125 PRINT

1130 PRINT " 1) це засіб закріплення навичок;

1140 PRINT " 2) вплив на обстежуваного в ході експерименту;

1150 PRINT " 3) больовий засіб прискорення швидкості виконання завдання;

1160 PRINT " 4) платня за психодіагностичне обстеження.

1165 PRINT

1170 INPUT " Введiть номер правильної вiдповiдi i пiдтвердьте клавiшею ENTER " , A

1180 CLS: PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT : M1=M1+1

1181 IF A = 2 THEN PRINT " ПРАВИЛЬНО !!! " : SOUND 1200, 10

:GOTO 1190 : ELSE PRINT " НЕ ПРАВИЛЬНО, СПРОБУЙТЕ ЩЕ РАЗ !!!":N1=N1+1

1182 SOUND 600 ,20 : SOUND 400 , 15 : GOTO 1110

1190 PRINT: PRINT :PRINT " Стимул в ПДС - це вплив на обстежуваного в ході експерименту.

1192 PRINT :PRINT :PRINT " Для продовження натиснути клавішу ENTER,

для виходу з програми натиснути клавішу ESC.

1193 KEY OFF

1194 L$=INKEY$

1195 IF L$ = CHR$(27) THEN GOTO 31000

1196 IF L$ = CHR$(13) THEN GOTO 1210

1197 IF LEN(L$) < > 2 THEN GOTO 1194

1210 CLS: PRINT :PRINT (друге питання і т.д.)

В останньому питанні:

3393 KEY OFF

3394 L$=INKEY$

3396 IF L$ = CHR$(13) THEN GOTO 31020

3397 IF LEN(L$) < > 2 THEN GOTO 3394

31000 CLS : PRINT :PRINT

31010 PRINT " Тестування не закiнчено ": PRINT : PRINT " Результати тестування по виконанiй частинi тесту: " : GOTO 31050

31020 CLS : PRINT :PRINT :PRINT " Кiнець тесту ": PRINT :PRINT " Результати тестування: "

31050 PRINT : K= N1/(M1-N1) : L= M1-N1

31100 IF K < .2 THEN PRINT " Задано питань - ", L : PRINT " Правильних вiдповiдей - ", L : PRINT " Неправильних вiдповiдей - ", N1 : PRINT : PRINT " Загальна оцiнка - 5": GOTO 31550

31200 IF K < .4 THEN PRINT " Задано питань - ", L : PRINT " Правильних вiдповiдей - ", L : PRINT " Неправильних вiдповiдей - ", N1 : PRINT : PRINT " Загальна оцiнка - 4": GOTO 31550

31300 IF K < .6 THEN PRINT " Задано питань - ", L : PRINT " Правильних вiдповiдей - ", L : PRINT " Неправильних вiдповiдей - ", N1 : PRINT : PRINT " Загальна оцiнка - 3": GOTO 31550

31400 IF K < .8 THEN PRINT " Задано питань - ", L : PRINT " Правильних вiдповiдей - ", L : PRINT " Неправильних вiдповiдей - ", N1 : PRINT : PRINT " Загальна оцiнка - 2": GOTO 31550

31500 PRINT " Задано питань - ", L : PRINT " Правильних вiдповiдей - ", L : PRINT " Неправильних вiдповiдей - ", N1 : PRINT : PRINT " Загальна оцiнка - 1" : GOTO 31550

31550 PRINT : PRINT : PRINT " Для виходу з програми натиснути клавiшу ESC "

31600 KEY OFF

31610 L$=INKEY$

31620 IF L$ = CHR$(27) THEN GOTO 31900

31630 IF LEN(L$) < > 2 THEN GOTO 31610

31900 SYSTEM