API tools faq
paste
Advertisement
Guest User

Test

a guest
Jul 3rd, 2015
200
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 12.70 KB | None | 0 0
raw download clone embed print report
  1. define Start(par)
  2. {
  3.  
  4. # Hinter- und Vordergrundfarbe, Schrift usw. definieren
  5. bg <- MakeColor("white")
  6. fg <- MakeColor("black")
  7. font <- MakeFont("Vera.ttf",0,18,fg,bg,0)
  8.  
  9. gVideoWidth <- 800
  10. gVideoHeight <- 600
  11.  
  12. # Positionen definieren
  13. x_pos <- gVideoWidth/2
  14. y_pos <- gVideoHeight/2
  15.  
  16. # Hauptfenster
  17. gWin <- MakeWindow("grey73")
  18.  
  19. gLabel1 <- MakeLabel("In diesem Text geht es um die Reaktionsfähigkeit beim Lesen und erkennen von Farben",font)
  20. Move(gLabel1,x_pos,200)
  21. gLabel2 <- MakeLabel("Es werden Wörter dargestellt bei welchen man entweder auf die Bedeutung des Wortes",font)
  22. Move(gLabel2,x_pos,220)
  23. gLabel3 <- MakeLabel("oder die Farbe des Wortes den unteren Farbkreisen zuordnen muss.",font)
  24. Move(gLabel3,x_pos,240)
  25. gLabel4 <- MakeLabel("Ziel ist es so schnell wie möglich die richtige Farbe zu klicken",font)
  26. Move(gLabel4,x_pos,260)
  27. gLabel5 <- MakeLabel("Starten wir erstmal mit einem Test",font)
  28. Move(gLabel5,x_pos,280)
  29. AddObject(gLabel1,gWin)
  30. AddObject(gLabel2,gWin)
  31. AddObject(gLabel3,gWin)
  32. AddObject(gLabel4,gWin)
  33. AddObject(gLabel5,gWin)
  34. Draw()
  35.  
  36. # Eingabe VP Nummer
  37. gSubNum <- GetSubNum(gWin)
  38. while(gSubNum == "")
  39. {
  40. gLabel11 <- MakeLabel("Bitte gegen Sie Ihre Matrikel-Nr. ein!",font)
  41. Move(gLabel11,x_pos,400)
  42. AddObject(gLabel11,gWin)
  43. Draw()
  44. Wait(1500)
  45. Hide(gLabel11)
  46.  
  47. gSubNum <- GetSubNum(gWin)
  48. }
  49. Hide(gLabel1)
  50. Hide(gLabel2)
  51. Hide(gLabel3)
  52. Hide(gLabel4)
  53. Hide(gLabel5)
  54. Draw()
  55. if(not FileExists("data"))
  56. {
  57. MakeDirectory("data")
  58. }
  59.  
  60. gFile <- FileOpenWrite("stroop-" + gSubNum + ".txt")
  61.  
  62. # Text positionieren
  63. gLabel9 <- MakeLabel("Ordne die Farbe der Wortbedeutung zu und drücke die entsprechende Taste",font)
  64. Move(gLabel9,x_pos,100)
  65.  
  66. # Zum Hauptfenster hinzuf�gen
  67. AddObject(gLabel9,gWin)
  68. Draw()
  69. Testen(gWin,font,x_pos)
  70. Hide(gLabel9)
  71. Draw()
  72.  
  73. ErsterDurchlauf(gWin, font, x_pos)
  74. ZweiterDurchlauf(gWin, font, x_pos, bg)
  75. # EndTxt(gWin,font,x_pos)
  76. # WaitForAnyKeyPress()
  77. # FileClose(gFile)
  78. }
  79.  
  80. define ErsterDurchlauf(gWin,font,x_pos)
  81. {
  82. # Positionen für Kreise definieren
  83. x_pos_c1 <- 100
  84. x_pos_c2 <- 220
  85. x_pos_c3 <- 340
  86. x_pos_c4 <- 460
  87. x_pos_c5 <- 580
  88. x_pos_c6 <- 700
  89.  
  90. # Kreise
  91. circleGreen <- Circle(60,60,30, MakeColor("GREEN"),1)
  92. circleRed <- Circle(60,60,30, MakeColor("RED"),1)
  93. circleYellow <- Circle(60,60,30, MakeColor("YELLOW"),1)
  94. circleBlue <- Circle(60,60,30, MakeColor("BLUE"),1)
  95. circleViolet <- Circle(60,60,30, MakeColor("DARK VIOLET"),1)
  96. circleOrange <- Circle(60,60,30, MakeColor("DARK ORANGE"),1)
  97.  
  98. gPosList <- [x_pos_c1, x_pos_c2, x_pos_c3, x_pos_c4, x_pos_c5 ,x_pos_c6 ]
  99. gPosListRandom <- Shuffle(gPosList)
  100.  
  101.  
  102. Move(circleGreen,x_pos_c1,450)
  103. Move(circleRed,x_pos_c2,450)
  104. Move(circleBlue,x_pos_c3,450)
  105. Move(circleYellow,x_pos_c4,450)
  106. Move(circleViolet,x_pos_c5,450)
  107. Move(circleOrange,x_pos_c6,450)
  108.  
  109. gCircleList <- [circleGreen, circleRed, circleBlue, circleYellow, circleViolet ,circleOrange]
  110.  
  111. loop(circle,gCircleList)
  112. {
  113. AddObject(circle, gWin)
  114.  
  115. }
  116.  
  117. # Liste, die Antworten speichert
  118. gListResponse <- []
  119. gListText <- []
  120. gListTime <- []
  121.  
  122. # Jeder Durchlauf 20 Versuche
  123. numTrails_1 <- 6
  124. trails_1 <- 1
  125. while(trails_1 < numTrails_1)
  126. {
  127. starttime <- GetTime()
  128. gWordList <- ["blau", "gelb", "lila", "grün", "rot", "orange"]
  129. gWordRandom <- Shuffle(gWordList)
  130.  
  131. gLabel1 <- MakeLabel(Nth(gWordRandom,1),font)
  132. Move(gLabel1,x_pos,200)
  133.  
  134. AddObject(gLabel1,gWin)
  135. Draw()
  136. trails_1 <- trails_1 + 1
  137.  
  138. resp <- WaitForListKeyPress([1,2,3,4,5,6])
  139. rtime <- GetTime()
  140.  
  141. gListTime <- Append(gListTime, (rtime-starttime) * 0.001)
  142. gListText <- Append(gListText, Nth(gWordRandom,1))
  143. gListResponse <- Append(gListResponse, resp)
  144.  
  145. Hide(gLabel1)
  146. Draw()
  147. }
  148.  
  149. Hide(circleGreen)
  150. Hide(circleRed)
  151. Hide(circleBlue)
  152. Hide(circleYellow)
  153. Hide(circleViolet)
  154. Hide(circleOrange)
  155.  
  156. Print(gListResponse)
  157. Print(gListText)
  158. WriteInFile("Durchlauf Nr 1: ")
  159. DurchlaufErgebnisAuswerten(gListText, gListResponse, gListTime)
  160.  
  161. }
  162.  
  163. define ZweiterDurchlauf(gWin,font,x_pos, bg)
  164. {
  165. # Positionen für Kreise definieren
  166. x_pos_c1 <- 100
  167. x_pos_c2 <- 220
  168. x_pos_c3 <- 340
  169. x_pos_c4 <- 460
  170. x_pos_c5 <- 580
  171. x_pos_c6 <- 700
  172.  
  173. #FontColor
  174. fontRed <- MakeFont("Vera.ttf",0,18,MakeColor("red"),bg,0)
  175. fontGreen <- MakeFont("Vera.ttf",0,18,MakeColor("green"),bg,0)
  176. fontYellow <- MakeFont("Vera.ttf",0,18,MakeColor("yellow"),bg,0)
  177. fontBlue <- MakeFont("Vera.ttf",0,18,MakeColor("blue"),bg,0)
  178. fontViolet <- MakeFont("Vera.ttf",0,18,MakeColor("dark violet"),bg,0)
  179. fontOrange <- MakeFont("Vera.ttf",0,18,MakeColor("dark orange"),bg,0)
  180. gFontList <- [fontRed, fontGreen, fontYellow, fontBlue, fontViolet, fontOrange]
  181.  
  182. # Kreise
  183. circleGreen <- Circle(60,60,30, MakeColor("GREEN"),1)
  184. circleRed <- Circle(60,60,30, MakeColor("RED"),1)
  185. circleYellow <- Circle(60,60,30, MakeColor("YELLOW"),1)
  186. circleBlue <- Circle(60,60,30, MakeColor("BLUE"),1)
  187. circleViolet <- Circle(60,60,30, MakeColor("DARK VIOLET"),1)
  188. circleOrange <- Circle(60,60,30, MakeColor("DARK ORANGE"),1)
  189.  
  190. gPosList <- [x_pos_c1, x_pos_c2, x_pos_c3, x_pos_c4, x_pos_c5 ,x_pos_c6 ]
  191. gPosListRandom <- Shuffle(gPosList)
  192.  
  193.  
  194. Move(circleGreen,x_pos_c1,450)
  195. Move(circleRed,x_pos_c2,450)
  196. Move(circleBlue,x_pos_c3,450)
  197. Move(circleYellow,x_pos_c4,450)
  198. Move(circleViolet,x_pos_c5,450)
  199. Move(circleOrange,x_pos_c6,450)
  200.  
  201. gCircleList <- [circleGreen, circleRed, circleBlue, circleYellow, circleViolet ,circleOrange]
  202.  
  203. loop(circle,gCircleList)
  204. {
  205. AddObject(circle, gWin)
  206.  
  207. }
  208.  
  209. # Liste, die Antworten speichert
  210. gListResponse <- []
  211. gListText <- []
  212. gListTime <- []
  213.  
  214. # Jeder Durchlauf 20 Versuche
  215. numTrails_1 <- 6
  216. trails_1 <- 1
  217. while(trails_1 < numTrails_1)
  218. {
  219. starttime <- GetTime()
  220. gWordList <- ["blau", "gelb", "lila", "grün", "rot", "orange"]
  221. gWordRandom <- Shuffle(gWordList)
  222. gFontListRandom <- Shuffle(gFontList)
  223.  
  224. gLabel1 <- MakeLabel(Nth(gWordRandom,1),Nth(gFontListRandom,1))
  225. Move(gLabel1,x_pos,200)
  226.  
  227. AddObject(gLabel1,gWin)
  228. Draw()
  229. trails_1 <- trails_1 + 1
  230.  
  231. resp <- WaitForListKeyPress([1,2,3,4,5,6])
  232. rtime <- GetTime()
  233.  
  234. gListTime <- Append(gListTime, (rtime-starttime) * 0.001)
  235. gListText <- Append(gListText, Nth(gWordRandom,1))
  236. gListResponse <- Append(gListResponse, resp)
  237.  
  238. Hide(gLabel1)
  239. Draw()
  240. }
  241.  
  242. Hide(circleGreen)
  243. Hide(circleRed)
  244. Hide(circleBlue)
  245. Hide(circleYellow)
  246. Hide(circleViolet)
  247. Hide(circleOrange)
  248.  
  249. Print(gListResponse)
  250. Print(gListText)
  251. WriteInFile("Durchlauf Nr 2: ")
  252. DurchlaufErgebnisAuswerten(gListText, gListResponse, gListTime)
  253.  
  254. }
  255.  
  256. define GenerateNumbersFromText(list, list2)
  257. {
  258. # grün, rot, blau, gelb, lila, orange
  259. newList <- []
  260. loop(item, list){
  261. if(item == "grün"){
  262. newList <- Append(newList, "1")
  263. }
  264. if(item == "rot"){
  265. newList <- Append(newList, "2")
  266. }
  267. if(item == "blau"){
  268. newList <- Append(newList, "3")
  269. }
  270. if(item == "gelb"){
  271. newList <- Append(newList, "4")
  272. }
  273. if(item == "lila"){
  274. newList <- Append(newList, "5")
  275. }
  276. if(item == "orange"){
  277. newList <- Append(newList, "6")
  278. }
  279. }
  280. Print(newList)
  281.  
  282. Print(Nth(newList,1))
  283. }
  284.  
  285. define Testen(gWin,font,x_pos){
  286.  
  287. circleGreen <- Circle(60,60,30, MakeColor("GREEN"),1)
  288. circleRed <- Circle(60,60,30, MakeColor("RED"),1)
  289. circleYellow <- Circle(60,60,30, MakeColor("YELLOW"),1)
  290. circleBlue <- Circle(60,60,30, MakeColor("BLUE"),1)
  291. circleViolet <- Circle(60,60,30, MakeColor("DARK VIOLET"),1)
  292. circleOrange <- Circle(60,60,30, MakeColor("DARK ORANGE"),1)
  293.  
  294. gLabel2 <- MakeLabel("1", font)
  295. gLabel3 <- MakeLabel("2", font)
  296. gLabel4 <- MakeLabel("3", font)
  297. gLabel5 <- MakeLabel("4", font)
  298. gLabel6 <- MakeLabel("5", font)
  299. gLabel7 <- MakeLabel("6", font)
  300.  
  301. Move(gLabel1,x_pos,250)
  302. Move(circleGreen,100,450)
  303. Move(gLabel2,100,450)
  304. Move(circleRed,220,450)
  305. Move(gLabel3,220,450)
  306. Move(circleBlue,340,450)
  307. Move(gLabel4,340,450)
  308. Move(circleYellow,460,450)
  309. Move(gLabel5,460,450)
  310. Move(circleViolet,580,450)
  311. Move(gLabel6,580,450)
  312. Move(circleOrange,700,450)
  313. Move(gLabel7,700,450)
  314.  
  315. AddObject(gLabel1, gWin)
  316. AddObject(circleGreen, gWin)
  317. AddObject(gLabel2, gWin)
  318. AddObject(circleRed, gWin)
  319. AddObject(gLabel3, gWin)
  320. AddObject(circleYellow, gWin)
  321. AddObject(gLabel4, gWin)
  322. AddObject(circleBlue, gWin)
  323. AddObject(gLabel5, gWin)
  324. AddObject(circleViolet, gWin)
  325. AddObject(gLabel6, gWin)
  326. AddObject(circleOrange, gWin)
  327. AddObject(gLabel7, gWin)
  328.  
  329. gListResponse <- []
  330. gListText <- []
  331.  
  332. gWordList <- ["blau", "gelb", "lila", "grün", "rot", "orange"]
  333.  
  334. fontRichtig <- MakeFont("Vera.ttf",0,24,MakeColor("GREEN"),MakeColor("white"),0)
  335. fontFalsch <- MakeFont("Vera.ttf",0,24,MakeColor("red"),MakeColor("white"),0)
  336.  
  337. # Jeder Durchlauf 20 Versuche
  338. numTrails_1 <- 6
  339. trails_1 <- 1
  340. while(trails_1 < numTrails_1)
  341. {
  342. gWordRandom <- Shuffle(gWordList)
  343. gWord <- Nth(gWordRandom,1)
  344.  
  345. gLabel1 <- MakeLabel(Nth(gWordRandom,1),font)
  346. Move(gLabel1,x_pos,200)
  347.  
  348. gLabel12 <- MakeLabel("", fontRichtig)
  349. Move(gLabel12,x_pos,300)
  350.  
  351. AddObject(gLabel1,gWin)
  352. Draw()
  353.  
  354. resp <- WaitForListKeyPress([1,2,3,4,5,6])
  355.  
  356. if(gWord == "grün"){
  357. if(resp == "1"){
  358. gLabel12 <- MakeLabel("RICHTIG", fontRichtig)
  359. } else {
  360. gLabel12 <- MakeLabel("FALSCH", fontFalsch)
  361. }
  362. }
  363. if(gWord == "rot"){
  364. if(resp == "2"){
  365. gLabel12 <- MakeLabel("RICHTIG", fontRichtig)
  366. } else {
  367. gLabel12 <- MakeLabel("FALSCH", fontFalsch)
  368. }
  369. }
  370. if(gWord == "blau"){
  371. if(resp == "3"){
  372. gLabel12 <- MakeLabel("RICHTIG", fontRichtig)
  373. } else {
  374. gLabel12 <- MakeLabel("FALSCH", fontFalsch)
  375. }
  376. }
  377. if(gWord == "gelb"){
  378. if(resp == "4"){
  379. gLabel12 <- MakeLabel("RICHTIG", fontRichtig)
  380. } else {
  381. gLabel12 <- MakeLabel("FALSCH", fontFalsch)
  382. }
  383. }
  384. if(gWord == "lila"){
  385. if(resp == "5"){
  386. gLabel12 <- MakeLabel("RICHTIG", fontRichtig)
  387. } else {
  388. gLabel12 <- MakeLabel("FALSCH", fontFalsch)
  389. }
  390. }
  391. if(gWord == "orange"){
  392. if(resp == "6"){
  393. gLabel12 <- MakeLabel("RICHTIG", fontRichtig)
  394. } else {
  395. gLabel12 <- MakeLabel("FALSCH", fontFalsch)
  396. }
  397. }
  398. Move(gLabel12,x_pos,300)
  399. AddObject(gLabel12,gWin)
  400. Draw()
  401. Wait(500)
  402. Hide(gLabel12)
  403. Hide(gLabel1)
  404. trails_1 <- trails_1 + 1
  405. Draw()
  406. }
  407.  
  408. }
  409.  
  410. define EndTxt(gWin,font,x_pos)
  411. {
  412.  
  413. gLabel1 <- MakeLabel("Danke für die Teilnahme! Zum Beenden drücken Sie eine beliebige Taste!",font)
  414. Move(gLabel1,x_pos,300)
  415. AddObject(gLabel1,gWin)
  416. Draw()
  417. }
  418.  
  419. define WriteInFile(text){
  420. gFile <- FileOpenAppend("stroop-" + gSubNum + ".txt")
  421. FilePrint(gFile,text)
  422. FileClose(gFile)
  423. }
  424.  
  425. define DurchlaufErgebnisAuswerten(list, respList, timeList)
  426. {
  427. # grün, rot, blau, gelb, lila, orange
  428. newList <- []
  429. loop(item, list){
  430. if(item == "grün"){
  431. newList <- Append(newList, "1")
  432. }
  433. if(item == "rot"){
  434. newList <- Append(newList, "2")
  435. }
  436. if(item == "blau"){
  437. newList <- Append(newList, "3")
  438. }
  439. if(item == "gelb"){
  440. newList <- Append(newList, "4")
  441. }
  442. if(item == "lila"){
  443. newList <- Append(newList, "5")
  444. }
  445. if(item == "orange"){
  446. newList <- Append(newList, "6")
  447. }
  448. }
  449. Print(newList)
  450.  
  451.  
  452. i <- 1
  453. while(i < Length(newList)+1){
  454. if(Nth(newList,i) == Nth(respList,i))
  455. {
  456. WriteInFile("Richtig: " + Nth(newList,i))
  457.  
  458. } else
  459. {
  460. WriteInFile("Falsch: " + Nth(newList,i) + " (richtige Antwort) , "+ Nth(respList,i) + " (Antwort der VP)")
  461. }
  462.  
  463. # WriteInFile("Zeit: " + Nth(timeList(i)) + "Sekunden")
  464.  
  465. i <- i + 1
  466. }
  467. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!