Электронный учебник "Программа Erwin"
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
d0messagedlg(?, mtConfirmation, mbOKCancel, 0)=1 then begin; registr. Close; glavnaya. Close;;;Tregistr.sButton2Click (Sender: TObject);\\регистрация нового пользователя(sedit1. Text=) or (sedit2. Text=) then begin(Некорректный ввод!); exit; end;:=sedit1.text;.writestring (nick, login, nick);.writestring (nick, pass, sedit2. Text);">{reg:=sedit1. Text;:=sedit1. Text;(f, registr.txt);(f);not eof(f) do begin}:=ini. ReadString (sedit1. Text, login, error123);nick=error123 then begin(Ошибка входа!); exit; end:=ini. ReadString (sedit1. Text, pass, error123);pass<>sedit2. Text then begin(Ошибка входа!); exit; end:=sedit1. Text;. Hide;.show;. Timer2. Enabled:=true;;Tregistr.sButton3Click (Sender: TObject);\\выход из программыmessagedlg (Вы действительно хотите выйти?, mtConfirmation, mbOKCancel, 0)=1 then begin; registr. Close; glavnaya. Close;;;Tregistr.sButton2Click (Sender: TObject);\\регистрация нового пользователя(sedit1. Text=) or (sedit2. Text=) then begin(Некорректный ввод!); exit; end;:=sedit1.text;.writestring (nick, login, nick);.writestring (nick, pass, sedit2. Text);
showmessage (Вы зарегестрированны);
end;
procedure Tregistr. FormCreate (Sender: TObject);:=Tinifile. Create (getcurrentdir+\users.ini);
end;
var: Tglavnaya;, jg:integer;practic, Unit3, Unit4, Unit5, Unit6, Unit15, Unit14;
{$R *.dfm}Tglavnaya.N7Click (Sender: TObject);\\выход из программыmessagedlg (Вы действительно хотите выйти?, mtConfirmation, mbOKCancel, 0)=1 then;;Tglavnaya.sButton2Click (Sender: TObject);\\вход в разделы теория, эмуляция, практикаimage3. Visible=false then begin. Visible:=true;. Visible:=false;. Visible:=false;:=2;;;Tglavnaya.sButton4Click (Sender: TObject);\\ переход к теорииimage2. Visible=true then begin. Enabled:=true;image3. Visible=true then begin. Enabled:=true;image4. Visible=true then begin. Enabled:=true;;;Tglavnaya.sButton1Click (Sender: TObject); \\ показ картинки теория
image2. Visible=false then begin. Visible:=true;. Visible:=false;. Visible:=false;:=1;;;Tglavnaya.sButton3Click (Sender: TObject); \\ переход к эмуляции
image4. Visible=false then begin. Visible:=true;. Visible:=false;. Visible:=false;:=3;;;Tglavnaya. FormCreate (Sender: TObject);
. Visible:=false;. Visible:=false;. Visible:=false;:=0;;Tglavnaya.sButton1MouseMove (Sender: TObject; Shift: TShiftState; X, \\ увеличение текста кнопки
: Integer);.font. Size:=14;;Tglavnaya.sButton2MouseMove (Sender: TObject; Shift: TShiftState; X, \\ увеличение текста кнопки: Integer);.font. Size:=14;;Tglavnaya.sButton3MouseMove (Sender: TObject; Shift: TShiftState; X, \\ увеличение текста кнопки: Integer);.font. Size:=14;;Tglavnaya.sButton4MouseMove (Sender: TObject; Shift: TShiftState; X, \\ увеличение текста кнопки: Integer);.font. Size:=14;;Tglavnaya.sButton1MouseLeave (Sender: TObject); \\ уменьшение текста кнопки.font. Size:=10;;Tglavnaya.sButton2MouseLeave (Sender: TObject); \\ уменьшение текста кнопки.font. Size:=10;;Tglavnaya.sButton3MouseLeave (Sender: TObject); \\ уменьшение текста кнопки.font. Size:=10;;
250thenTimer2.Enabled:=false;;Tglavnaya.FormActivate(Sender:TObject);\\">Tglavnaya.sButton4MouseLeave (Sender: TObject); \\ уменьшение текста кнопки.font. Size:=10;;Tglavnaya. FormClose (Sender: TObject; var Action: TCloseAction); \\ закрытие формы. Close;;Tglavnaya. Timer2Timer (Sender: TObject); \\ появление формы. Enabled:=false;:=AlphaBlendValue+5;AlphaBlendValue>250 then Timer2. Enabled:=false;;Tglavnaya. FormActivate (Sender: TObject); \\ исчезновение формы
{timer2. Enabled:=true;}:=0;;Tglavnaya.N2Click (Sender: TObject); \\ переход к форме теория. Show;. Hide;;Tglavnaya.N3Click (Sender: TObject); \\ переход к форме практика. Show;. Hide;;Tglavnaya.N4Click (Sender: TObject); \\ переход к форме эмуляция. Show;. Hide;;Tglavnaya.N6Click (Sender: TObject); \\ открытие формы справка_program.show;;Tglavnaya. Timer1Timer (Sender: TObject); \\ переход к форме практика. Hide;. Show;.timer1. Enabled:=true;. Enabled:=false;:=AlphaBlendValue-5;AlphaBlendValue<5 then. Enabled:=false;;Tglavnaya. Timer3Timer (Sender: TObject); \\ появление формы теория. Hide;. Show;.timer1. Enabled:=true;. Enabled:=false;:=AlphaBlendValue-5;AlphaBlendValue<5 then. Enabled:=false;;Tglavnaya. Timer4Timer (Sender: TObject); \\ переход к форме эмуляция
begin. Enabled:=false;
AlphaBlendValue:=AlphaBlendValue-5;AlphaBlendValue<5 then. Hide;. AlphaBlendValue:=0;.timer1. Enabled:=true;. Show;. Enabled:=false;;;Tglavnaya.N8Click (Sender: TObject); \\ переход к форме справка
begin.show;;
var: Tteoria;:byte;
ychebnik, practic, Unit6;
250 then Timer1. Enabled:=false;;Tteoria. Timer2Timer (Sender: TObject); \\ исчезновение формы. Enabled:=false;:=AlphaBlendValue-5;AlphaBlendValue250 then Timer1. Enabled:=false;;Tteoria. Timer2Timer (Sender: TObject); \\ исчезновение формы. Enabled:=false;:=AlphaBlendValue-5;AlphaBlendValue<5 thent=1 then. Hide;. AlphaBlendValue:=0;. Enabled:=false;. Timer2. Enabled:=true;. Show;;;;Tteoria. FormCreate (Sender: TObject);:=0;;Tteoria. Timer3Timer (Sender: TObject); \\ переход к форме практика. Hide;. Show;.timer1. Enabled:=true;. Enabled:=false;:=AlphaBlendValue-5;AlphaBlendValue<5 then. Enabled:=false;;Tteoria. Timer4Timer (Sender: TObject); \\ переход к форме эмуляция. Enabled:=false;:=AlphaBlendValue-5;AlphaBlendValue<5 then. Hide;.timer1. Enabled:=true;. AlphaBlendValue:=0;. Show;.timer1. Enabled:=true;. Enabled:=false;;;
end.
var: Tpractika;:integer; k, p, n, t: Integer;ychebnik, Unit3, test1, test2, test3, test4, test5, Unit4, Unit6,, Unit13, Unit15;
{$R *.dfm}Tpractika.N8Click (Sender: TObject); \\ выход из программыmessagedlg (Вы действительно хотите выйти?, mtConfirmation, mbOKCancel, 0)=1 then;. Close;;Tpractika. Timer1Timer (Sender: TObject); \\ переход к форме теория. Enabled:=false;:=AlphaBlendValue+5;AlphaBlendValue>250 then Timer1. Enabled:=false;;Tpractika. FormCreate (Sender: TObject);. Left:=-160;:=1;:=1;:=1;. Enabled:=false;. Enabled:=false;. AlphaBlendValue:=0;;Tpractika. FormActivate (Sender: TObject);
0)then.Enabled:=True;.Enabled:=False;;tmr1.Enabled=truethenbeginimage1.Visible:=true;image2.Visible:=false;endbeginimage2.visible:=true;image1.Visible:=false;end;end;;Tpractika.Image2Click(Sender:TObject);\\:=n+1;(nmod2=