form1
caption
iat測驗
startuppositon
2command1
caption
開始label1
caption
十font
粗體72
visible
false
label2
caption
font
粗體72
visible
false
label3
caption
√font
粗體72
forecolor
&h0000ff00&
visible
false
label4
caption
×font
粗體72
forecolor
&h000000ff&
visible
false
text1
locked
true
multiline
true
text
timer1
enabled
false
timer2
enabled
false
interval
10timer3
enabled
false
interval
500
option explicit
dim f%, x%, y%, z%, temp%, r%
dim a$(15)
private sub command1_click()
open "資料.txt" for output as 1
f = 1
r = 1
randomize
a(0) = "美好的"
a(1) = "可愛的"
a(2) = "幸福的"
a(3) = "輕鬆的"
a(4) = "快樂的"
a(8) = "醜陋的"
a(9) = "厭惡的"
a(10) = "痛苦的"
a(11) = "沉重的"
a(12) = "悲傷的"
text1.visible = false
command1.visible = false
label1.visible = true
timer1.interval = int(rnd * 2500 + 500)
timer1.enabled = true
end sub
private sub form_keydown(keycode as integer, shift as integer)
if keycode = 70 or keycode = 74 then
timer2.enabled = false
label2.visible = false
if f = 1 then
if r = 0 then goto a
temp = 3
a: r = 0
if keycode = 70 and x <= 7 then
label3.visible = true
elseif keycode = 70 and x >= 8 then
label4.visible = true
elseif keycode = 74 and x <= 7 then
label4.visible = true
elseif keycode = 74 and x >= 8 then
label3.visible = true
end if
elseif f = 2 then
if r = 0 then goto b
temp = 20
b: r = 0
if keycode = 70 and x <= 7 then
label3.visible = true
print #1, 1, x, y * 10
elseif keycode = 70 and x >= 8 then
label4.visible = true
print #1, 0, x, y * 10
elseif keycode = 74 and x <= 7 then
label4.visible = true
print #1, 0, x, y * 10
elseif keycode = 74 and x >= 8 then
label3.visible = true
print #1, 1, x, y * 10
end if
elseif f = 3 then
if r = 0 then goto c
temp = 3
c: r = 0
if (x <= 4 or x >= 13) and keycode = 70 then
label3.visible = true
elseif x <= 12 and x >= 5 and keycode = 70 then
label4.visible = true
elseif (x <= 4 or x >= 13) and keycode = 74 then
label4.visible = true
elseif x <= 12 and x >= 5 and keycode = 74 then
label3.visible = true
end if
elseif f = 4 then
if r = 0 then goto d
temp = 20
d: r = 0
if (x <= 4 or x >= 13) and keycode = 70 then
label3.visible = true
print #1, 1, x, y * 10
elseif x <= 12 and x >= 5 and keycode = 70 then
label4.visible = true
print #1, 0, x, y * 10
elseif (x <= 4 or x >= 13) and keycode = 74 then
label4.visible = true
print #1, 0, x, y * 10
elseif x <= 12 and x >= 5 and keycode = 74 then
label3.visible = true
print #1, 1, x, y * 10
end if
end if
timer3.enabled = true
end if
end sub
private sub timer1_timer()
timer1.enabled = false
if f < 5 then
x = int(rnd * 15)
y = 0
timer2.enabled = true
label1.visible = false
label2.caption = a(x)
label2.visible = true
form1.setfocus
else
close #1
msgbox "謝謝你的參與！請通知主試收拾資料", vbokonly, "謝謝"
end if
end sub
private sub timer2_timer()
y = y + 1
end sub
private sub timer3_timer()
timer3.enabled = false
label3.visible = false
label4.visible = false
temp = temp - 1
if temp > 0 then
label1.visible = true
timer1.interval = int(rnd * 2500 + 500)
timer1.enabled = true
else
r = 1
z = msgbox("進入第" + str(f + 1) + "階段？", vbokcancel, "繼續")
if z = vbok then
f = f + 1
end if
label1.visible = true
timer1.interval = int(rnd * 2500 + 500)
timer1.enabled = true
end if
end sub
設計心理學 日常操作心理學
大師解釋了產品設計的幾個原則後，接著其實就是解釋日常生活中使用者操作的心理，從深層次的角度，解釋為什麼產品設計需要依據這些原則。首先書中提出了乙個顯而易見的概念 使用者習慣自行判斷產品的功能和使用模式。這個可能是根據經驗，使用者對產品的理解不同，操作模式就會不同，設計師要做的是，盡量匹配共性的操作理...
vr心理學實驗建設方案
vr心理學實驗室建設方案 一 建設背景情緒與記憶的關係一直是現在心理學研究中的重要課題。情緒對記憶的影響的研究越來越多，情感狀態的異常表現被認為與臨床的抑鬱情緒甚至是抑鬱症有極大的關係。在認知心理學和社會認知心理這些領域中,許多心理學家研究了心境對記憶和判斷的影響,認為在編碼或提取時,與心境相一致的...
密碼心理學
黑客破解不可避免要破解密碼，本文不從破解技術入手，而從黑客技巧入手分析密碼心理學。本文完全不涉及到具體的技術，完全是心理學 資訊學內容。本來也懶得寫，因為這是乙個很大的內容，自己想到只是一點而已，我的見解簡直是井底蛙看到的天空。不過幾個月前心血來潮寫了提綱，也就對著提綱詳細寫下來，沒有再花太多心思思...