Приложение Б. Листинг основного модуля программы

Приложение Б. Листинг основного модуля программы. unit MainMenu interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Gauges, Menus, ComCtrls, User1, Report, NewScen, ImgList,Report1 type TForm1 classTForm TaskList TListBox RunBtn TButton ExtBtn TButton MainMenu1 TMainMenu Menu1 TMenuItem Menu4 TMenuItem Menu41 TMenuItem Menu5 TMenuItem Bevel1 TBevel StatusBar1 TStatusBar Image1 TImage ODT2 TImage ODT1 TImage BB50 TImage ODT3 TImage PBB2 TImage MBB2 TImage CMB1 TImage MBB1 TImage ABR1 TImage TRZ2 TImage TRZ1 TImage TRZ4 TImage TRZ3 TImage MBB4 TImage CMB2 TImage MBB3 TImage SRZ2 TImage SRZ9 TImage SR10 TImage SRZ1 TImage SRZ4 TImage SR37 TImage SR20 TImage SRZ3 TImage ABR2 TImage ResultBtn TButton Label1 TLabel HelpBtn TButton New TMenuItem N2 TMenuItem Exit TMenuItem Image2 TImage StaticText1 TStaticText Menu52 TMenuItem Label2 TLabel Menu2 TMenuItem Menu21 TMenuItem Menu22 TMenuItem procedure ExtBtnClickSender TObject procedure TaskListMouseUpSender TObject Button TMouseButton Shift TShiftState X, Y Integer procedure FormActivateSender TObject procedure RunBtnClickSender TObject procedure Menu41ClickSender TObject procedure MBB1ClickSender TObject procedure MBB2ClickSender TObject procedure MBB3ClickSender TObject procedure MBB4ClickSender TObject procedure CMB1ClickSender TObject procedure CMB2ClickSender TObject procedure BB50ClickSender TObject procedure PBB2ClickSender TObject procedure TRZ1ClickSender TObject procedure TRZ2ClickSender TObject procedure TRZ3ClickSender TObject procedure TRZ4ClickSender TObject procedure SRZ1ClickSender TObject procedure SRZ2ClickSender TObject procedure SRZ3ClickSender TObject procedure SRZ4ClickSender TObject procedure SRZ9ClickSender TObject procedure SR10ClickSender TObject procedure SR20ClickSender TObject procedure SR37ClickSender TObject procedure ODT1ClickSender TObject procedure ODT2ClickSender TObject procedure ODT3ClickSender TObject procedure ABR1ClickSender TObject procedure ABR2ClickSender TObject procedure ResultBtnClickSender TObject procedure HelpBtnClickSender TObject procedure NewClickSender TObject procedure Menu52ClickSender TObject procedure Menu21ClickSender TObject procedure Menu22ClickSender TObject private Private declarations public Public declarations end TStringList1 class TStringList TMyZapclassTObject FNoInteger FImageShortString FStateInteger FCommentShortString constructor CreateNoIntegerImageShortStringStateInte gerCommentShortString end var Form1 TForm1 TaskNumberInteger WorkModeInteger List1TStringList1 ActListTList ProtTStringList ZapTMyZap SwitchTImage TaskNamestring Errorinteger Helpinteger CountInteger F array 0 24 of boolean E array 0 24 of boolean implementation uses Results R .DFM constructor TMyZap. CreateNoIntegerImageShortStringSt ateIntegerCommentShortString begin inherited Create FNoNo FImageImage FStateState FCommentComment end procedure SWStateAOwnerTImageiinteger begin if Fifalse then begin with AOwner. Canvas do begin Pen. ColorclWhite MoveTo6,1 LineTo6,17 Pen. Width2 Pen. ColorclBlack Rectangle1,1,17,17 MoveTo6,17 LineTo15,1 end Fitrue end else begin with AOwner. Canvas do begin Pen. ColorclWhite MoveTo6,17 LineTo15,1 Pen. Width2 Pen. ColorclBlack Rectangle1,1,17,17 MoveTo6,1 LineTo6,17 end Fifalse end end procedure ABRStateAOwnerTImageiinteger begin if FiFalse then begin with AOwner. Canvas do begin Brush. ColorclWhite FloodFill8,8,clBlack, fsSurface Pen. Width2 Pen. ColorclBlack MoveTo1,15 LineTo8,1 MoveTo8,1 LineTo17,15 MoveTo17,15 LineTo1,15 end FiTrue end else begin with AOwner. Canvas do begin FloodFill8,8,clWhite, fsSurface Pen. Width2 Pen. ColorclBlack MoveTo1,15 LineTo8,1 MoveTo8,1 LineTo17,15 MoveTo17,15 LineTo1,15 Brush. ColorclBlack FloodFill8,8,clBlack, fsBorder end FiFalse end end procedure MVStateAOwnerTImageiinteger begin if Fifalse then begin with AOwner. Canvas do begin Pen. ColorclWhite MoveTo9,6 LineTo9,11 Pen. Width2 Pen. ColorclBlack Rectangle1,1,17,17 MoveTo6,8 LineTo11,8 end Fitrue end else begin with AOwner. Canvas do begin Pen. ColorclWhite MoveTo6,8 LineTo11,8 Pen. Width2 Pen. ColorclBlack Rectangle1,1,17,17 MoveTo9,6 LineTo9,11 end Fifalse end end function AnalyzeAOwnerTComponentboolean begin ZapActList. First if WorkMode0 then if Zap. FImageAOwner. Name then begin if Zap. FImage 0 then ActList. DeleteActList. IndexOfActList. Fir st Resulttrue Form1.Label1.Caption Prot. AppendZap. FComment end else begin Form1.Label1.Caption Ошибка Prot. AppendОшибка, Zap. FComment ErrorError1 Resultfalse end else CountCount1 Form1.ResultBtn. VisibleTrue end Считывание информации дла решения задач procedure Read var Filtextfile sstring jinteger begin for j1 to 10 do begin sInfoIntToStrj.str assignfil, s resetfil readlnfil, s Form1.TaskList. Items. Insertj-1,s end end procedure ReadInfoNuminteger var Filtextfile s, s1string i, jinteger begin ActListTList. Create sInfoIntToStrNum.str assignfil, s resetfil readlnfil, s readlnfil, s for i0 to 24 do if si11 then Fitrue else Fifalse readlnfil, s for i0 to 24 do if si11 then Eitrue else Eifalse for i1 to 15 do begin readlnfil, s s1s for j1 to 7 do s1j ActList. AddTMyZap. CreateStrToInts1s2,s3s 4s5s6,StrToInts7,s1 end closefilefil end procedure TForm1.FormActivateSender TObject begin Form1.ResultBtn. VisibleFalse Form1.HelpBtn. VisibleFalse Form1.Label2.Visiblefalse Image1.VisibleFalse Image2.VisibleFalse StaticText1.VisibleFalse Label2.VisibleFalse StatusBar1.Panels2.TextВыберите режим работы и задачу.

StatusBar1.Panels3.TextРежим работы TaskList. ItemIndex0 TaskNumber0 Read User1.User. ShowModal end procedure TForm1.ExtBtnClickSender TObject begin if Prot nil then Prot. Clear if ActList nil then ActList. Clear if Prot nil then Prot. Clear Application. Terminate end procedure TForm1.TaskListMouseUpSender TObject Button TMouseButton Shift TShiftState X, Y Integer var PointTPoint begin Point. XYPoint. YY TaskNumberTaskList. ItemAtPosPoint, true StatusBar1.Panels2.TextForm1.TaskList. It ems. StringsTaskNumber StatusBar1.Panels1.TextIntToStr1TaskList. ItemAtPosPoint, true end procedure TForm1.RunBtnClickSender TObject var sstring begin TaskList. VisibleFalse if WorkMode0 then begin StatusBar1.Panels3.TextРежим работы Тренировка Form1.HelpBtn. Visibletrue Form1.Label1.Visibletrue Form1.Label2.Visibletrue ResultBtn. CaptionРезультаты end Image1.Visibletrue Image2.Visibletrue StaticText1.Visibletrue ReadInfoTaskNumber1 Error0 Help0 Form1.CaptionTaskList. ItemsTaskNumber Начальные условия SWStateODT2,0 SWStateODT1,1 SWStateODT3,3 MVStateMBB1,10 MVStateMBB2,7 MVStateMBB3,19 MVStateMBB4,17 MVStateCMB1,8 MVStateCMB2,18 MVStatePBB2,4 MVStateBB50,2 SWStateTRZ1,6 SWStateTRZ2,5 SWStateTRZ3,16 SWStateTRZ4,15 SWStateSRZ1,14 SWStateSRZ2,11 SWStateSRZ3,24 SWStateSRZ4,20 SWStateSRZ9,12 SWStateSR10,13 SWStateSR20,23 SWStateSR37,21 ABRStateABR1,9 ABRStateABR2,22 ProtTStringList. Create if WorkMode0 then s тренировки else s экзамена Prot. Append Протоколs Prot. Append Prot. AppendФамилия User1.N1 Prot. AppendИмя User1.N2 Prot. AppendОтчество User1.N3 Prot. Append ЗАДАЧА TaskList. ItemsTaskNumber Prot. Append if WorkMode0 then s прохождения тренировки else s сдачи экзамена Prot. AppendДата sDateToStrDate end procedure TForm1.Menu41ClickSender TObject begin User. ShowModal end procedure TForm1.MBB1ClickSender TObject begin if AnalyzeMBB1True then MVStateMBB1,10 else MVStateMBB1,10 if F10true then end procedure TForm1.MBB2ClickSender TObject begin if AnalyzeMBB2True then MVStateMBB2,7 else MVStateMBB2,7 end procedure TForm1.MBB3ClickSender TObject begin if AnalyzeMBB3True then MVStateMBB3,19 else MVStateMBB3,19 end procedure TForm1.MBB4ClickSender TObject begin if AnalyzeMBB4True then MVStateMBB4,17 else MVStateMBB4,17 end procedure TForm1.CMB1ClickSender TObject begin if AnalyzeCMB1True then MVStateCMB1,8 else MVStateCMB1,8 end procedure TForm1.CMB2ClickSender TObject begin if AnalyzeCMB2True then MVStateCMB2,18 else MVStateCMB2,18 end procedure TForm1.BB50ClickSender TObject begin if AnalyzeBB50True then MVStateBB50,2 else MVStateBB50,2 end procedure TForm1.PBB2ClickSender TObject begin if AnalyzePBB2True then MVStatePBB2,4 else MVStatePBB2,4 end procedure TForm1.TRZ1ClickSender TObject begin if AnalyzeTRZ1True then SWStateTRZ1,6 else SWStateTRZ1,6 end procedure TForm1.TRZ2ClickSender TObject begin if AnalyzeTRZ2True then SWStateTRZ2,5 else SWStateTRZ2,5 end procedure TForm1.TRZ3ClickSender TObject begin if AnalyzeTRZ3True then SWStateTRZ3,16 else SWStateTRZ3,16 end procedure TForm1.TRZ4ClickSender TObject begin if AnalyzeTRZ4True then SWStateTRZ4,15 else SWStateTRZ4,15 end procedure TForm1.SRZ1ClickSender TObject begin if AnalyzeSRZ1True then SWStateSRZ1,14 else SWStateSRZ1,14 end procedure TForm1.SRZ2ClickSender TObject begin if AnalyzeSRZ2True then SWStateSRZ2,11 else SWStateSRZ2,11 end procedure TForm1.SRZ3ClickSender TObject begin if AnalyzeSRZ3True then SWStateSRZ3,24 else SWStateSRZ3,24 end procedure TForm1.SRZ4ClickSender TObject begin if AnalyzeSRZ4True then SWStateSRZ4,20 else SWStateSRZ4,20 end procedure TForm1.SRZ9ClickSender TObject begin if AnalyzeSRZ9True then SWStateSRZ9,12 else SWStateSRZ9,12 end procedure TForm1.SR10ClickSender TObject begin if AnalyzeSR10True then SWStateSR10,13 else SWStateSR10,13 end procedure TForm1.SR20ClickSender TObject begin if AnalyzeSR20True then SWStateSR20,23 else SWStateSR20,23 end procedure TForm1.SR37ClickSender TObject begin if AnalyzeSR37True then SWStateSR37,21 else SWStateSR37,21 end procedure TForm1.ODT1ClickSender TObject begin if AnalyzeODT1True then SWStateODT1,1 else SWStateODT1,1 end procedure TForm1.ODT2ClickSender TObject begin if AnalyzeODT2True then SWStateODT2,0 else SWStateODT2,0 end procedure TForm1.ODT3ClickSender TObject begin if AnalyzeODT3True then SWStateODT3,3 else SWStateODT3,3 end procedure TForm1.ABR1ClickSender TObject begin if AnalyzeABR1True then ABRStateABR1,9 else ABRStateABR1,9 end procedure TForm1.ABR2ClickSender TObject begin if AnalyzeABR2True then ABRStateABR2,22 else ABRStateABR2,22 end procedure TForm1.ResultBtnClickSender TObject var iinteger sstring begin Error0 Count0 if WorkMode1 then begin for i0 to 24 do if EiFi then ErrorError1 if Error0 then sХорошо if Error1 then sУдовлетворительно if Error 2 then sНеудовлетворительно Results. Result. Label1.CaptionОценка s Prot. AppendОценка s Results. Result. ShowModal TaskList. VisibleTrue end if WorkMode0andZap. FNo0andZap. FImage0000and Zap. FState0 then begin Prot. AppendКоличество ошибок IntToStrError Prot. AppendКоличество обращений к подсказке IntToStrHelp Results. Result. Label1.CaptionКоличество ошибок IntToStrError Results. Result. Label2.CaptionКоличество обращений к подсказке IntToStrHelp Results. Result. ShowModal Actlist. Clear TaskList. VisibleTrue end end procedure TForm1.HelpBtnClickSender TObject begin if StatusBar1.Panels1.Text then Label1.Caption Выберите задачу else begin ZapActList. First Label1.CaptionZap. FComment HelpHelp1 end end procedure TForm1.NewClickSender TObject begin FormScene. PositionpoScreenCenter FormScene. ShowModal end procedure TForm1.Menu52ClickSender TObject var sstring iinteger begin Report. ReportForm. ProtList. Clear if Prot nil then begin for i0 to Prot. Count-1 do Report. ReportForm. ProtList. Items. AppendP rot. Stringsi sTimeToStrNow if FileExistsInfoReport.txt then Prot. SaveToFileInfoReports7.txt else Prot. SaveToFileInfoReport.txt ReportForm. ShowModal end end procedure TForm1.Menu21ClickSender TObject begin WorkMode0 StatusBar1.Panels3.TextРежим работы Тренировка Form1.HelpBtn. Visibletrue Form1.Label1.Visibletrue Form1.Label2.Visibletrue ResultBtn. CaptionРезультаты end procedure TForm1.Menu22ClickSender TObject begin WorkMode1 StatusBar1.Panels3.TextРежим работы Экзамен Form1.HelpBtn. Visiblefalse Form1.Label1.Visiblefalse Form1.Label2.Visiblefalse ResultBtn. CaptionГотово end end.