Рефераты. Информационная система обучения по курсу "Компьютерные сети"

begin

readln(fil1,s2);

s:=s+s2;

end;

for j:=1 to length(s) do begin

if s[j]='*' then begin

if s1=zagl.Edit1.Text then begin

i:=j+1;

while s[i]<>'*' do begin

if s[i]='!' then begin

StringGrid1.Cells[0,1]:=s3;

s3:='';

i:=i+1;

continue;

end;

if s[i]='$' then begin

StringGrid1.Cells[1,1]:=s3;

s3:='';

i:=i+1;

continue;

end;

if s[i]='#' then begin

StringGrid1.Cells[2,1]:=s3;

s3:='';

i:=i+1;

continue;

end;

if s[i]='%' then begin

StringGrid1.Cells[3,1]:=s3;

s3:='';

i:=i+1;

continue;

end;

if s[i]='^' then begin

StringGrid1.Cells[4,1]:=s3;

s3:='';

i:=i+1;

continue;

end;

if s[i]='@' then begin

StringGrid1.Cells[5,1]:=s3;

s3:='';

i:=i+1;

continue;

end;

if s[i]='~' then begin

StringGrid1.Cells[6,1]:=s3;

s3:='';

i:=i+1;

continue;

end;

s3:=s3+s[i];

i:=i+1;

end;

end;

s1:='';

end;

s1:=s1+s[j];

if s[j]='~' then s1:='';

end;

closefile(fil1);

end;

end.

4. Модуль обучения по курсу

unit Unit44;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

OleCtrls, SHDocVw, ToolWin, ComCtrls, StdCtrls, ExtDlgs, ExtCtrls, Menus;

const

HTMLID_FIND = 1;

HTMLID_VIEWSOURCE = 2;

HTMLID_OPTIONS = 3;

type

TForm37 = class(TForm)

WebBrowser1: TWebBrowser;

StatusBar1: TStatusBar;

ProgressBar1: TProgressBar;

OpenDialog1: TOpenDialog;

CoolBar1: TCoolBar;

ToolBar1: TToolBar;

ToolButton2: TToolButton;

ToolButton3: TToolButton;

ToolButton6: TToolButton;

ComboBox1: TComboBox;

ToolButton8: TToolButton;

ToolButton1: TToolButton;

Timer1: TTimer;

PopupMenu1: TPopupMenu;

N1: TMenuItem;

procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure ToolButton1Click(Sender: TObject);

procedure ToolButton2Click(Sender: TObject);

procedure ToolButton3Click(Sender: TObject);

procedure ToolButton4Click(Sender: TObject);

procedure ToolButton5Click(Sender: TObject);

procedure ToolButton6Click(Sender: TObject);

procedure WebBrowser1StatusTextChange(Sender: TObject;

const Text: WideString);

procedure WebBrowser1ProgressChange(Sender: TObject; Progress,

ProgressMax: Integer);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure ToolButton7Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure WebBrowser1BeforeNavigate2(Sender: TObject;

const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,

Headers: OleVariant; var Cancel: WordBool);

procedure WebBrowser1NavigateComplete2(Sender: TObject;

const pDisp: IDispatch; var URL: OleVariant);

procedure ToolButton8Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure N1Click(Sender: TObject);

private

{ Private declarations }

public

{procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT); overload;}

{ Public declarations }

end;

var

Form37: TForm37;

z,time1:integer;m:string;

implementation

uses Unit19, kontr;

{$R *.DFM}

procedure TForm37.ComboBox1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

{if Key = VK_RETURN then

WebBrowser1.Navigate(ComboBox1.Text);}

end;

procedure TForm37.ToolButton1Click(Sender: TObject);

begin

{ if OpenDialog1.Execute then

begin

WebBrowser1.Navigate(OpenDialog1.FileName);

ComboBox1.Text := OpenDialog1.FileName;

end;}

timer1.Enabled:=false;

close;

end;

procedure TForm37.ToolButton2Click(Sender: TObject);

begin

z:=z+1;

WebBrowser1.GoBack;

ToolButton3.Enabled:=true;

end;

procedure TForm37.ToolButton3Click(Sender: TObject);

begin

z:=z-1;

if z>-1 then WebBrowser1.GoForward else ToolButton3.Enabled:=false;

end;

procedure TForm37.ToolButton4Click(Sender: TObject);

begin

WebBrowser1.Stop;

end;

procedure TForm37.ToolButton5Click(Sender: TObject);

begin

WebBrowser1.Refresh;

end;

procedure TForm37.ToolButton6Click(Sender: TObject);

var

PostData, Headers: OLEvariant;

begin

WebBrowser1.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT, PostData, Headers);

end;

procedure TForm37.WebBrowser1StatusTextChange(Sender: TObject; const Text: WideString);

begin

StatusBar1.SimpleText := Text;

end;

procedure TForm37.WebBrowser1ProgressChange(Sender: TObject; Progress, ProgressMax: Integer);

begin

ProgressBar1.Max := ProgressMax;

ProgressBar1.Position := Progress;

end;

procedure TForm37.FormClose(Sender: TObject; var Action: TCloseAction);

begin

timer1.Enabled:=false;

Form37.Hide;

ElektKursInf.Show;

ElektKursInf.Button1.Enabled:=true;

end;

procedure TForm37.ToolButton7Click(Sender: TObject);

const CGID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';

{var

CmdTarget : IOleCommandTarget;

vaIn, vaOut: OleVariant;

PtrGUID: PGUID;}

begin

{New(PtrGUID);

PtrGUID^ := CGID_WebBrowser;

if WebBrowser1.Document <> nil then

try

WebBrowser1.Document.QueryInterface(IOleCommandTarget, CmdTarget);

if CmdTarget <> nil then

try

CmdTarget.Exec( PtrGUID, HTMLID_FIND, 0, vaIn, vaOut);

finally

CmdTarget._Release;

end;

except

// nothing

end;

Dispose(PtrGUID);}

end;

procedure TForm37.FormShow(Sender: TObject);

begin

time1:=0;

timer1.Enabled:=true;

Form37.Caption:=ElektKursInf.ListBox2.Items.Strings[ElektKursInf.ListBox2.ItemIndex];

end;

procedure TForm37.WebBrowser1BeforeNavigate2(Sender: TObject;

const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,

Headers: OleVariant; var Cancel: WordBool);

var l:integer;

begin

end;

procedure TForm37.WebBrowser1NavigateComplete2(Sender: TObject;

const pDisp: IDispatch; var URL: OleVariant);

begin

Combobox1.Text:=WebBrowser1.LocationURL;

if (ElektKursInf.ListBox1.Items.Strings[ElektKursInf.ListBox1.ItemIndex]<>WebBrowser1.LocationURL)then ToolButton2.Enabled:=true else ToolButton2.Enabled:=false;

end;

procedure TForm37.ToolButton8Click(Sender: TObject);

begin

Form2.Show;

Form37.Hide;

end;

procedure TForm37.Timer1Timer(Sender: TObject);

begin

time1:=time1+timer1.interval;

end;

procedure TForm37.N1Click(Sender: TObject);

begin

close;

end;

end.

5. Модуль контрольного тестирования

unit tester_;

interface

uses

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,

Forms, Dialogs, StdCtrls, ExtCtrls,

jpeg, Gauges;

type

TForm1 = class(TForm)

// вопрос

Label5: TLabel;

// альтернативные ответы

Label1: TLabel;

Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12



2012 © Все права защищены
При использовании материалов активная ссылка на источник обязательна.