Автор работы: Пользователь скрыл имя, 12 Июня 2013 в 12:49, дипломная работа
Оқытушының бақылау-бағалау қызметін тиімді жүргізілуі көп жағдайда, оның оқыту нәтижелерін бақылау жұмыстарын қаншалықты ұтымды етіп ұйымдастыратындығына және ол үшін пайдаланылатын бақылау құралдарының сол құралдардың әдістемелік және психика-педагогикалық талаптарына қаншалықты сәйкестілігіне байланысты болып келеді
Қазіргі заманғы компьютерлік диагностика мен тест өткізудің әдістемелерін қолға алуға көбінесе информатика пәні оқытушылары жақын тұрады, бірақ, өкінішке орай, біздің кабинеттерімізде комьютерлік тестілер тіпті аз.
Зерттеліп отырған тақырып, Delphi програмамалау тілінде компьютерде тест жасауға арналған бағдарлама жасауға итермеледі.
Кіріспе
I. Жалпы бөлім
1.1. Тест және оның қолданылуы
1.2. Delphi ортасымен танысу…………………………………
1.3. Құрал саймандар батырмалары…………………………
Программалар код терезесі…………………………...…
ІІ. Арнайы бөлім:
2.1. Есептің алгоритмі…………………………………………
2.2. III. Өндірісті ұйымдастыру
ІV. Қорытынды
Есепті қорытындылау…………………………………....
Қосымша
Пайдаланылған әдебиеттер………………………………
Программа листингісі…………
finally
slAll.Free;
slSelected.Free;
Release;
end;
end;
procedure TPrepareDlg.btnCancelClick(
begin
Close;
end;
procedure TPrepareDlg.cbShowImagesClick(
begin
cbBGInterval.Enabled := cbShowImages.Checked;
end;
procedure TPrepareDlg.cbTimeTestClick(
begin
cbTimeLimit.Enabled := cbTimeTest.Checked;
end;
procedure TPrepareDlg.FormCreate(Sender: TObject);
begin
DM.TableSubjects.First;
while not DM.TableSubjects.Eof do
begin
cbSubjects.AddItem(DM.
Pointer(DM.TableSubjects.
DM.TableSubjects.Next;
end;
end;
end.
unit unInstructions;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Spin;
type
TInstructionsDlg = class(TForm)
Label1: TLabel;
seStudentNumber: TSpinEdit;
btnOk: TBitBtn;
Label2: TLabel;
Memo1: TMemo;
private
{ Private declarations }
public
{ Public declarations }
end;
var
InstructionsDlg: TInstructionsDlg;
implementation
{$R *.dfm}
end.
object frmTest: TfrmTest
Left = 370
Top = 296
BorderIcons = []
BorderStyle = bsSingle
Caption =
ClientHeight = 566
ClientWidth = 792
Color = clBtnFace
Constraints.MaxHeight = 600
Constraints.MaxWidth = 800
Constraints.MinHeight = 600
Constraints.MinWidth = 800
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnActivate = FormActivate
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object BackGround: TImage
Left = 0
Top = 0
Width = 792
Height = 566
Align = alClient
end
object Bevel1: TBevel
Left = 16
Top = 447
Width = 233
Height = 106
end
object Bevel2: TBevel
Left = 608
Top = 448
Width = 169
Height = 105
end
object lbQuestion: TLabel
Left = 0
Top = 0
Width = 769
Height = 137
Alignment = taCenter
AutoSize = False
Font.Charset = RUSSIAN_CHARSET
Font.Color = clBlack
Font.Height = -27
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
WordWrap = True
end
object lbAction: TLabel
Left = 16
Top = 144
Width = 761
Height = 26
Alignment = taCenter
AutoSize = False
Font.Color = clBlack
Font.Height = -19
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object SpeedButton1: TSpeedButton
Left = 16
Top = 192
Width = 761
Height = 33
Caption = '1. '#1046#1072#1091#1072#1087' '
Flat = True
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWhite
Font.Height = -16
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Left = 16
Top = 240
Width = 761
Height = 33
Caption = '2. '#1046#1072#1091#1072#1087' '
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
OnClick = SpeedButton1Click
end
object SpeedButton3: TSpeedButton
Left = 16
Top = 288
Width = 761
Height = 33
Caption = '3. '#1046#1072#1091#1072#1087' '
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
OnClick = SpeedButton1Click
end
object SpeedButton4: TSpeedButton
Left = 16
Top = 336
Width = 761
Height = 33
Caption = '4. '#1046#1072#1091#1072#1087' '
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
OnClick = SpeedButton1Click
end
object SpeedButton5: TSpeedButton
Left = 16
Top = 384
Width = 761
Height = 33
Caption = '5. '#1046#1072#1091#1072#1087' '
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
OnClick = SpeedButton1Click
end
object Label3: TLabel
Left = 24
Top = 508
Width = 185
Height = 15
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWhite
Font.Height = -12
Font.Name = 'Microsoft Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Label4: TLabel
Left = 24
Top = 484
Width = 94
Height = 15
Caption = #1041#1072#1088#1083#1099#
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWhite
Font.Height = -12
Font.Name = 'Microsoft Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Label5: TLabel
Left = 24
Top = 532
Width = 155
Height = 15
Caption = #1178#1072#1083#1171#1072#1085
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWhite
Font.Height = -12
Font.Name = 'Microsoft Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object btnBack: TSpeedButton
Left = 616
Top = 456
Width = 153
Height = 25
Caption = #1040#1083#1076#1099#1187#
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Glyph.Data = {
OnClick = btnEndClick
end
object QuestionsCount: TLabel
Left = 200
Top = 484
Width = 41
Height = 21
Alignment = taRightJustify
AutoSize = False
Caption = '0'
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWhite
Font.Height = -12
Font.Name = 'Microsoft Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object QuestionsAnswered: TLabel
Left = 208
Top = 508
Width = 33
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = '0'
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'Microsoft Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object TimeRemaining: TLabel
Left = 192
Top = 532
Width = 49
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = '0'
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'Microsoft Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Label2: TLabel
Left = 24
Top = 460
Width = 92
Height = 15
Caption = #1057#1201#1088#1072#1179'
'#1085#1086#1084#1077#1088#
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWhite
Font.Height = -12
Font.Name = 'Microsoft Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object QuestionNumber: TLabel
Left = 200
Top = 460
Width = 41
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = '1'
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWhite
Font.Height = -12
Font.Name = 'Microsoft Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object BGFiles: TFileListBox
Left = 40
Top = 8
Width = 145
Height = 97
ItemHeight = 13
Mask = '*.jpg'
TabOrder = 0
Visible = False
end
object TimerChangeBg: TTimer
Interval = 5000
OnTimer = TimerChangeBgTimer
Left = 8
Top = 8
end
object TimerLimit: TTimer
Interval = 60000
OnTimer = TimerLimitTimer
Left = 8
Top = 48
End
object EndDlg: TEndDlg
Left = 414
Top = 200
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = #1058#1077#1089#1090#1110#
ClientHeight = 337
ClientWidth = 337
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poOwnerFormCenter
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 16
Top = 8
Width = 305
Height = 25
Alignment = taCenter
AutoSize = False
Caption = #1058#1077#1089#1090#1110#
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label2: TLabel
Left = 16
Top = 80
Width = 135
Height = 13
Caption = #1058#1077#1089#1090#1077#
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Label3: TLabel
Left = 16
Top = 112
Width = 161
Height = 13