HotXoai
18-01-2004, 21:06
Khong biet muc nay nen dat vao dau danh cho tam vao day mong moi nguoi giup do!
Minh co chuong trinh no co duoi dang *.TST (no lien ket voi mot folder khac de hien thi chuong trinh cua no thi phai). Da thu bang nhieu loai chuong trinh khac nhau nhung khong chay duoc. Co ai biet thi xin chi gium voi, cam on nhieu!!!
Co mot doan code cua no nhu sau:
%TestID=Gilford
Text(ShortInfo)
Hello
Answer(A1,1)
@$PIC1-1.BMP|@$PIC1-2.BMP|@$PIC1-3.BMP
EndA
Answer(A2,1)
@$PIC2-1.BMP|@$PIC2-2.BMP|@$PIC2-3.BMP
EndA
Question(Q1):A1
Вопрос 1
&Empty
$PIC1.BMP
EndQ
Question(Q2):A2
Вопрос 2
&Empty
$PIC2.BMP
EndQ
Main
Define NumAnsw:Number = 14
Define TrueAnsw:Array[1:NumAnsw] = {2,2,2,3,1,3,3,3,3,3,3,1,1,2}
Define Norm:Array[2:5] = {3,6,10,13}
Size(obWindow,800,600)
Title(''Тест Гилфорда ( Субтест "Истории с завершением" )'')
Size(obQuestionPanel,2,75,650,235)
Font(obQuestionPanel,''Times New Roman Cyr'',14,clNavy,1,1,1)
Color(obQuestionPanel,RGB(176,208,176))
Size(obAnswerPanel,2,315,650,255)
Font(obAnswerPanel,''Arial Cyr'',10,clNavy,0,0,0)
Color(obAnswerPanel,RGB(208,208,160))
Size(obHandlePanel,655,75,141,495)
Color(obHandlePanel,clBtnFace)
HandlePanel(hbInstruction,hbBack,hbForward)
Open
If Loading=0
ShowInstruction
EndIf
ShowPrompt(Prompt)
StartTimer(6,0)
Ask(Default)
SaveResults
StopTimer
Define Val:Number = 0
Define Count:Number = 1
While (Count<=NumAnsw)
Val := Val+(&Questions[Count][1]=TrueAnsw[Count])
Count:=Count+1
EndW
Define NotFound:Number = 1
Define N:Number = 5
While (N>1 And NotFound)
If (Val>=Norm[N])
NotFound:=0
Else
N:=N-1
EndIf
EndW
ClearPut
PutTitle(''Результаты по субтесту "Истории с завершением"'')
PutText(ShortInfo)
PutLine('''')
PutCenterLine(''Оценка = '',N,'' (по 5-бальной шкале)'')
PutLine('''')
SaveValue(''SumGilford1'',Val)
SaveValue(''MarkGilford1'',N)
Define Texts:Array[1:5] = {#LowVals,#MidLowVals,#MidVals,#MidHighVals,#HighV als}
PutText(GetTextByPtr(Texts[N]))
ShowPut
Exit
EndM
Mot lan nua cam on ai da doc va tra loi giup.
Đề nghị gửi bài bằng tiếng Việt có dấu - vikhoa
Minh co chuong trinh no co duoi dang *.TST (no lien ket voi mot folder khac de hien thi chuong trinh cua no thi phai). Da thu bang nhieu loai chuong trinh khac nhau nhung khong chay duoc. Co ai biet thi xin chi gium voi, cam on nhieu!!!
Co mot doan code cua no nhu sau:
%TestID=Gilford
Text(ShortInfo)
Hello
Answer(A1,1)
@$PIC1-1.BMP|@$PIC1-2.BMP|@$PIC1-3.BMP
EndA
Answer(A2,1)
@$PIC2-1.BMP|@$PIC2-2.BMP|@$PIC2-3.BMP
EndA
Question(Q1):A1
Вопрос 1
&Empty
$PIC1.BMP
EndQ
Question(Q2):A2
Вопрос 2
&Empty
$PIC2.BMP
EndQ
Main
Define NumAnsw:Number = 14
Define TrueAnsw:Array[1:NumAnsw] = {2,2,2,3,1,3,3,3,3,3,3,1,1,2}
Define Norm:Array[2:5] = {3,6,10,13}
Size(obWindow,800,600)
Title(''Тест Гилфорда ( Субтест "Истории с завершением" )'')
Size(obQuestionPanel,2,75,650,235)
Font(obQuestionPanel,''Times New Roman Cyr'',14,clNavy,1,1,1)
Color(obQuestionPanel,RGB(176,208,176))
Size(obAnswerPanel,2,315,650,255)
Font(obAnswerPanel,''Arial Cyr'',10,clNavy,0,0,0)
Color(obAnswerPanel,RGB(208,208,160))
Size(obHandlePanel,655,75,141,495)
Color(obHandlePanel,clBtnFace)
HandlePanel(hbInstruction,hbBack,hbForward)
Open
If Loading=0
ShowInstruction
EndIf
ShowPrompt(Prompt)
StartTimer(6,0)
Ask(Default)
SaveResults
StopTimer
Define Val:Number = 0
Define Count:Number = 1
While (Count<=NumAnsw)
Val := Val+(&Questions[Count][1]=TrueAnsw[Count])
Count:=Count+1
EndW
Define NotFound:Number = 1
Define N:Number = 5
While (N>1 And NotFound)
If (Val>=Norm[N])
NotFound:=0
Else
N:=N-1
EndIf
EndW
ClearPut
PutTitle(''Результаты по субтесту "Истории с завершением"'')
PutText(ShortInfo)
PutLine('''')
PutCenterLine(''Оценка = '',N,'' (по 5-бальной шкале)'')
PutLine('''')
SaveValue(''SumGilford1'',Val)
SaveValue(''MarkGilford1'',N)
Define Texts:Array[1:5] = {#LowVals,#MidLowVals,#MidVals,#MidHighVals,#HighV als}
PutText(GetTextByPtr(Texts[N]))
ShowPut
Exit
EndM
Mot lan nua cam on ai da doc va tra loi giup.
Đề nghị gửi bài bằng tiếng Việt có dấu - vikhoa