Электронный учебник "Программа Erwin" - Программирование, компьютеры и кибернетика курсовая работа
Главная
Программирование, компьютеры и кибернетика
Электронный учебник "Программа Erwin"
Вычислительная система: программные и технические средства. Алгоритм задачи: вызов и загрузка, интерфейс пользователя, система помощи, логическая и физическая структуры. Описание программы и ее элементов, сферы ее применения, тестирование и отладка.
посмотреть текст работы
скачать работу можно здесь
полная информация о работе
весь список подобных работ
Нужна помощь с учёбой? Наши эксперты готовы помочь!
Нажимая на кнопку, вы соглашаетесь с
политикой обработки персональных данных
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
При разработке программы было выявлено и исправлено большое количество ошибок. В основном ошибки были в подгонке программы под разрешение экрана. Так же были синтаксические ошибки и ошибки при подсчете результата тестирования.
На тестирование и отладку ушло 40% времени от общего времени разработки программного продукта.
Основные ошибки при тестирование программы представлены в Таблице 2
Неправильно отображалась последовательность шагов в эмуляции
Были исправлены последовательности открытия и скрытия панелей с изображениями
Не отображались html-файлы в Webbrouser
Неправильно отображались действия компонентов TreeView
была исправлена ошибка в указании индекса строки компонента TreeView
1. Фаронов В.В. «Программирование баз данных в Delphi 6». - СПб.:, 2003. - 520 с.
2. Культин Н.Б. «Основы программирования в Delphi 7». - СПб.: БХВ-Петербург, 2004. - 597 с.
3. С.В. Маклаков «BPwin и ERwin. CASE - средства разработки информационных систем» Диалог-МИФИ 2000 г. - 256 стр.
procedure Tzastavka.sButton2Click (Sender: TObject);\\Закрытие программы
procedure Tzastavka.sButton1Click (Sender: TObject);\\Переход к регистрации
procedure Tregistr.sButton1Click (Sender: TObject);\\проверка имени и пароля при входе
if (sedit1. Text='') or (sedit2. Text='') then begin
showmessage ('Введите нормальные данные'); exit; end;
nick:=ini. ReadString (sedit1. Text, 'login', 'error123');
showmessage ('Ошибка входа!'); exit; end
pass:=ini. ReadString (sedit1. Text, 'pass', 'error123');
showmessage ('Ошибка входа!'); exit; end
procedure Tregistr.sButton3Click (Sender: TObject);\\выход из программы
if messagedlg ('Вы действительно хотите выйти?', mtConfirmation, mbOKCancel, 0)=1 then begin
close; registr. Close; glavnaya. Close;
procedure Tregistr.sButton2Click (Sender: TObject);\\регистрация нового пользователя
if (sedit1. Text='') or (sedit2. Text='') then begin
showmessage ('Некорректный ввод!'); exit; end;
ini.writestring (nick, 'login', nick);
ini.writestring (nick, 'pass', sedit2. Text);
showmessage ('Вы зарегестрированны');
procedure Tregistr. FormCreate (Sender: TObject);
INI:=Tinifile. Create (getcurrentdir+'\users.ini');
uses practic, Unit3, Unit4, Unit5, Unit6, Unit15, Unit14;
procedure Tglavnaya.N7Click (Sender: TObject);\\выход из программы
if messagedlg ('Вы действительно хотите выйти?', mtConfirmation, mbOKCancel, 0)=1 then
procedure Tglavnaya.sButton2Click (Sender: TObject);\\вход в разделы теория, эмуляция, практика
if image3. Visible=false then begin
procedure Tglavnaya.sButton4Click (Sender: TObject);\\ переход к теории
procedure Tglavnaya.sButton1Click (Sender: TObject); \\ показ картинки теория
if image2. Visible=false then begin
procedure Tglavnaya.sButton3Click (Sender: TObject); \\ переход к эмуляции
if image4. Visible=false then begin
procedure Tglavnaya. FormCreate (Sender: TObject);
procedure Tglavnaya.sButton1MouseMove (Sender: TObject; Shift: TShiftState; X, \\ увеличение текста кнопки
procedure Tglavnaya.sButton2MouseMove (Sender: TObject; Shift: TShiftState; X, \\ увеличение текста кнопки
procedure Tglavnaya.sButton3MouseMove (Sender: TObject; Shift: TShiftState; X, \\ увеличение текста кнопки
procedure Tglavnaya.sButton4MouseMove (Sender: TObject; Shift: TShiftState; X, \\ увеличение текста кнопки
procedure Tglavnaya.sButton1MouseLeave (Sender: TObject); \\ уменьшение текста кнопки
procedure Tglavnaya.sButton2MouseLeave (Sender: TObject); \\ уменьшение текста кнопки
procedure Tglavnaya.sButton3MouseLeave (Sender: TObject); \\ уменьшение текста кнопки
procedure Tglavnaya.sButton4MouseLeave (Sender: TObject); \\ уменьшение текста кнопки
procedure Tglavnaya. FormClose (Sender: TObject; var Action: TCloseAction); \\ закрытие формы
procedure Tglavnaya. Timer2Timer (Sender: TObject); \\ появление формы
AlphaBlendValue:=AlphaBlendValue+5;
if AlphaBlendValue>250 then Timer2. Enabled:=false;
procedure Tglavnaya. FormActivate (Sender: TObject); \\ исчезновение формы
procedure Tglavnaya.N2Click (Sender: TObject); \\ переход к форме теория
procedure Tglavnaya.N3Click (Sender: TObject); \\ переход к форме практика
procedure Tglavnaya.N4Click (Sender: TObject); \\ переход к форме эмуляция
procedure Tglavnaya.N6Click (Sender: TObject); \\ открытие формы справка
procedure Tglavnaya. Timer1Timer (Sender: TObject); \\ переход к форме практика
AlphaBlendValue:=AlphaBlendValue-5;
procedure Tglavnaya. Timer3Timer (Sender: TObject); \\ появление формы теория
AlphaBlendValue:=AlphaBlendValue-5;
procedure Tglavnaya. Timer4Timer (Sender: TObject); \\ переход к форме эмуляция
AlphaBlendValue:=AlphaBlendValue-5;
procedure Tglavnaya.N8Click (Sender: TObject); \\ переход к форме справка
procedure Tteoria.N6Click (Sender: TObject); \\ закрытие программы
if messagedlg ('Вы действительно хотите выйти?', mtConfirmation, mbOKCancel, 0)=1 then
procedure Tteoria.N5Click (Sender: TObject); \\ переход на главную
procedure Tteoria.sTreeView1Click (Sender: TObject); \\ выбор действия
if streeview1. Items. Item[0].Selected then webbrowser1. Navigate (GetCurrentDir+'\stranici\teoria\indbd.htm');
if streeview1. Items. Item[1].Selected then webbrowser1. Navigate (GetCurrentDir+'\stranici\teoria\izobr.htm');
if streeview1. Items. Item[2].Selected then webbrowser1. Navigate (GetCurrentDir+'\stranici\teoria\nachrab.htm');
if streeview1. Items. Item[3].Selected then webbrowser1. Navigate (GetCurrentDir+'\stranici\teoria\param.htm');
if streeview1. Items. Item[4].Selected then webbrowser1. Navigate (GetCurrentDir+'\stranici\teoria\preodraz.htm');
if streeview1. Items. Item[5].Selected then webbrowser1. Navigate (GetCurrentDir+'\stranici\teoria\punktmenu.htm');
procedure Tteoria.N2Click (Sender: TObject); \\ переход к форме эмуляция
procedure Tteoria.N3Click (Sender: TObject); \\ переход к форме практика
procedure Tteoria. Timer1Timer (Sender: TObject); \\ появление формы
AlphaBlendValue:=AlphaBlendValue+5;
if AlphaBlendValue>250 then Timer1. Enabled:=false;
procedure Tteoria. Timer2Timer (Sender: TObject); \\ исчезновение формы
AlphaBlendValue:=AlphaBlendValue-5;
procedure Tteoria. FormCreate (Sender: TObject);
procedure Tteoria. Timer3Timer (Sender: TObject); \\ переход к форме практика
AlphaBlendValue:=AlphaBlendValue-5;
procedure Tteoria. Timer4Timer (Sender: TObject); \\ переход к форме эмуляция
AlphaBlendValue:=AlphaBlendValue-5;
uses ychebnik, Unit3, test1, test2, test3, test4, test5, Unit4, Unit6,
procedure Tpractika.N8Click (Sender: TObject); \\ выход из программы
if messagedlg ('Вы действительно хотите выйти?', mtConfirmation, mbOKCancel, 0)=1 then
procedure Tpractika. Timer1Timer (Sender: TObject); \\ переход к форме теория
AlphaBlendValue:=AlphaBlendValue+5;
if AlphaBlendValue>250 then Timer1. Enabled:=false;
procedure Tpractika. FormCreate (Sender: TObject);
procedure Tpractika. FormActivate (Sender: TObject);
procedure Tpractika.N7Click (Sender: TObject); \\ переход к форме теория
procedure Tpractika. FormClose (Sender: TObject; var Action: TCloseAction);
procedure Tpractika. Tmr1Timer (Sender: TObject); \\ выезд панели
procedure Tpractika.timer2Timer (Sender: TObject); \\ исчезновение панели
procedure Tpractika. Image1Click (Sender: TObject); \\ действие панели
if tmr1. Enabled=true then begin image1. Visible:=true; image2. Visible:=false; end
else begin image2.visible:=true; image1. Visible:=false; end; end;
procedure Tpractika. Image2Click (Sender: TObject); \\ действие панели
if tmr1. Enabled=true then begin image1. Visible:=true; image2. Visible:=false; end
else begin image2.visible:=true; image1. Visible:=false; end; end;
procedure Tpractika. Timer3Timer (Sender: TObject); \\ исчезновение формы
AlphaBlendValue:=AlphaBlendValue-5;
procedure Tpractika.sTreeView1Click (Sender: TObject); \\ выбор действия
if streeview1. Items. Item[1].Selected then begin practika. Hide; imyl1.show; end;
if streeview1. Items. Item[2].Selected then begin practika. Hide; test.show; end;
if streeview1. Items. Item[3].Selected then webbrowser1. Navigate (GetCurrentDir+'\stranici\practic\lab1.htm');
if streeview1. Items. Item[5].Selected then begin practika. Hide; imyl2.show; end;
if streeview1. Items. Item[6].Selected then begin practika. Hide; test_1.show; end;
if streeview1. Items. Item[7].Selected then webbrowser1. Navigate (GetCurrentDir+'\stranici\practic\lab2.htm');
if streeview1. Items. Item[9].Selected then begin practika. Hide; test_2.show; end;
if streeview1. Items. Item[10].Selected then webbrowser1. Navigate (GetCurrentDir+'\stranici\practic\lab3.htm');
if streeview1. Items. Item[12].Selected then begin practika. Hide; test_3.show; end;
if streeview1. Items. Item[13].Selected then webbrowser1. Navigate (GetCurrentDir+'\stranici\practic\lab4.htm');
if streeview1. Items. Item[15].Selected then begin practika. Hide; test_4.show; end;
if streeview1. Items. Item[16].Selected then webbrowser1. Navigate (GetCurrentDir+'\stranici\practic\lab5.htm');
procedure Tpractika.N2Click (Sender: TObject); \\ переход к форме теория
procedure Tpractika.N3Click (Sender: TObject); \\ переход к форме эмуляция
procedure Tpractika.N4Click (Sender: TObject); \\ переход к форме на главную
procedure Tpractika. Timer4Timer (Sender: TObject); \\ переход к форме эмуляция
AlphaBlendValue:=AlphaBlendValue-5;
procedure Tpractika. Timer5Timer (Sender: TObject); \\ переход к форме теория
AlphaBlendValue:=AlphaBlendValue-5;
uses ychebnik, Unit7, Unit13, Unit4, practic, Unit14, Unit15;
procedure Timyl.N3Click (Sender: TObject); \\ переход на форму практика
procedure Timyl.sButton1Click (Sender: TObject); \\ появление формы
procedure Timyl.N4Click (Sender: TObject); \\ выход
if messagedlg ('Вы действительно хотите выйти?', mtConfirmation, mbOKCancel, 0)=1 then
procedure Timyl.sButton2Click (Sender: TObject); \\ переход к эмуляции
procedure Timyl.N5Click (Sender: TObject); \\ переход на форму главная
procedure Timyl.N6Click (Sender: TObject);
procedure Timyl. Timer1Timer (Sender: TObject); \\ скрытие формы
AlphaBlendValue:=AlphaBlendValue+5;
if AlphaBlendValue>250 then Timer1. Enabled:=false;
procedure Timyl. Timer2Timer (Sender: TObject);
AlphaBlendValue:=AlphaBlendValue-5;
procedure Timyl.N7Click (Sender: TObject); \\ переход на форму теория
procedure Timyl. Timer3Timer (Sender: TObject); \\ переход на форму практика
AlphaBlendValue:=AlphaBlendValue-5;
procedure Timyl. Timer4Timer (Sender: TObject); \\ переход на форму теория
AlphaBlendValue:=AlphaBlendValue-5;
procedure Timyl.N1Click (Sender: TObject);
procedure Timyl.sButton1MouseMove (Sender: TObject; Shift: TShiftState; X, \\ увеличение текста
procedure Timyl.sButton1MouseLeave (Sender: TObject); \\ уменьшение текста
procedure Timyl.sButton2MouseLeave (Sender: TObject);\ \ уменьшение текста
procedure Timyl.sButton2MouseMove (Sender: TObject; Shift: TShiftState; X, \\ увеличение текста
uses ychebnik, practic, Unit6, Unit4;
procedure Timyl1.N10Click (Sender: TObject); \\выход
if messagedlg ('Вы действительно хотите выйти?', mtConfirmation, mbOKCancel, 0)=1 then
procedure Timyl1.N9Click (Sender: TObject); \\ переход на форму практика
procedure Timyl1. Button1Click (Sender: TObject); \\ эмуляция
if radiobutton2. Checked=true then begin
procedure Timyl1. RadioButton2Click (Sender: TObject); \\ эмуляция
label1. Caption:='Создание новой модели';
procedure Timyl1. RadioButton1Click (Sender: TObject); \\ эмуляция
label1. Caption:='открытие модели';
procedure Timyl1. RadioButton3Click (Sender: TObject); \\ эмуляция
procedure Timyl1. RadioButton4Click (Sender: TObject); \\ эмуляция
procedure Timyl1. RadioButton5Click (Sender: TObject); \\ эмуляция
procedure Timyl1. Button3Click (Sender: TObject); \\ эмуляция
if radiobutton5. Checked=true then begin
procedure Timyl1. FormCreate (Sender: TObject); \\ эмуляция
procedure Timyl1. Timer1Timer (Sender: TObject); \\переход на форму эмуляция
AlphaBlendValue:=AlphaBlendValue-5;
procedure Timyl1.N6Click (Sender: TObject); \\ переход на главную форму
procedure Timyl1. Timer2Timer (Sender: TObject);
AlphaBlendValue:=AlphaBlendValue-5;
procedure Timyl1.N5Click (Sender: TObject); \\ переход на практику
procedure Timyl1.N4Click (Sender: TObject); \\ переход на теорию
procedure Timyl1.N3Click (Sender: TObject);
procedure Timyl1. Timer3Timer (Sender: TObject);
AlphaBlendValue:=AlphaBlendValue-5;
procedure Timyl1. Image9Click (Sender: TObject); \\ эмуляция
memo1. Lines. Add ('создание новой модели');
procedure Timyl1. Image10Click (Sender: TObject); \\ эмуляция
memo1. Lines. Add ('открытие модели');
procedure Timyl1. Image11Click (Sender: TObject); \\ эмуляция
memo1. Lines. Add ('отправка на печать');
procedure Timyl1. Image17Click (Sender: TObject); \\ эмуляция
memo1. Lines. Add ('уменьшение масштаба');
procedure Timyl1. Image18Click (Sender: TObject); \\ эмуляция
memo1. Lines. Add ('увеличение масштаба');
procedure Timyl1. Image43Click (Sender: TObject); \\ эмуляция
memo1. Lines. Add ('выбор шрифта');
procedure Timyl1. Image42Click (Sender: TObject); \\ эмуляция
memo1. Lines. Add ('выбор размера шрифта');
procedure Timyl1. Image23Click (Sender: TObject); \\ эмуляция
memo1. Lines. Add ('жирный текст');
procedure Timyl1. Image24Click (Sender: TObject); \\ эмуляция
procedure Timyl1. Image25Click (Sender: TObject); \\ эмуляция
label4. Visible:=false; memo1. Visible:=true;
memo1. Lines. Add ('подчеркнутый текст');
procedure Timyl1. Image30Click (Sender: TObject); \\ эмуляция
procedure Timyl1. Image35Click (Sender: TObject); \\ эмуляция
memo1. Lines. Add ('объект рисования прямоугольник');
procedure Timyl1. Image36Click (Sender: TObject); \\ эмуляция
memo1. Lines. Add ('позволяет рисовать прямоугольник со скругленными углами');
procedure Timyl1. Image37Click (Sender: TObject); \\ эмуляция
procedure Timyl1. Image38Click (Sender: TObject); \\ эмуляция
procedure Timyl1. Image39Click (Sender: TObject); \\ эмуляция
procedure Timyl1. Image40Click (Sender: TObject); \\ эмуляция
memo1. Lines. Add('многоугольник');
procedure Timyl1. Image41Click (Sender: TObject); \\ эмуляция
memo1. Lines. Add ('написание текста');
procedure Timyl1. Image12Click (Sender: TObject); \\ эмуляция
memo1. Lines. Add (' диалога Report Browser для генерации отчетов');
procedure Timyl1. Image14Click (Sender: TObject); \\ эмуляция
memo1. Lines. Add ('Изменение уровня просмотра модели: уровень сущностей');
procedure Timyl1. Image15Click (Sender: TObject); \\ эмуляция
memo1. Lines. Add ('Изменение уровня просмотра модели: уровень атрибутов');
procedure Timyl1. Image16Click (Sender: TObject); \\ эмуляция
memo1. Lines. Add ('Изменение уровня просмотра модели: уровень определений');
procedure Timyl1. Image19Click (Sender: TObject); \\ эмуляция
memo1. Lines. Add ('изменение масштаба просмотра модели');
procedure Timyl1. Image20Click (Sender: TObject); \\ эмуляция
memo1. Lines. Add ('изменение масштаба просмотра модели');
procedure Timyl1. Image21Click (Sender: TObject); \\ эмуляция
memo1. Lines. Add ('Создание и переключение между подмножествами модели - Subject Area');
procedure Timyl1. Image22Click (Sender: TObject); \\ эмуляция
memo1. Lines. Add ('выбор типа модели');
procedure Timyl1. Image26Click (Sender: TObject); \\ эмуляция
memo1. Lines. Add ('позволяет изменять цвет текста');
procedure Timyl1. Image28Click (Sender: TObject); \\ эмуляция
memo1. Lines. Add ('позволяет заливать фигуры цветом');
procedure Timyl1. Image27Click (Sender: TObject); \\ эмуляция
memo1. Lines. Add ('позволяет задавать цвет линий');
procedure Timyl1. Image29Click (Sender: TObject); \\ эмуляция
procedure Timyl1. Image31Click (Sender: TObject); \\ эмуляция
memo1. Lines. Add ('создает категорию между сущностями. для ее использования нужно щелкнуть сначало по одной затем по второй сущности');
procedure Timyl1. Image32Click (Sender: TObject); \\ эмуляция
memo1. Lines. Add ('идентифицирующая связь');
procedure Timyl1. Image33Click (Sender: TObject); \\ эмуляция
memo1. Lines. Add ('связь многие ко многим');
procedure Timyl1. Image34Click (Sender: TObject); \\ эмуляция
memo1. Lines. Add ('неидентифицирующая связь');
procedure Timyl1. Button5Click (Sender: TObject); \\ эмуляция
procedure Timyl2. Button1Click (Sender: TObject); \\ эмуляция
label1. Caption:=('Нажмите Create');
procedure Timyl2. FormCreate (Sender: TObject); \\ эмуляция
procedure Timyl2. RadioButton3Click (Sender: TObject); \\ эмуляция
procedure Timyl2. RadioButton4Click (Sender: TObject); \\ эмуляция
procedure Timyl2. RadioButton5Click (Sender: TObject); \\ эмуляция
procedure Timyl2. Button2Click (Sender: TObject); \\ эмуляция
procedure Timyl2. Image10Click (Sender: TObject); \\ эмуляция
procedure Timyl2. Edit1Enter (Sender: TObject); \\ эмуляция
procedure Timyl2. Edit1MouseMove (Sender: TObject; Shift: TShiftState; X, \\ эмуляция
if edit1. Text='сущность1' then begin
label6. Caption:='щелкните по самой';
procedure Timyl2.sPanel4Click (Sender: TObject); \\ эмуляция
procedure Timyl2. Image14DblClick (Sender: TObject); \\ эмуляция
procedure Timyl2. Button3Click (Sender: TObject); \\ эмуляция
label8. Caption:='в поле Atribute name';
label9. Caption:='введите имя атрибута';
procedure Timyl2. Button4Click (Sender: TObject); \\ эмуляция
procedure Timyl2. Button5Click (Sender: TObject); \\ эмуляция
procedure Timyl2. Button6Click (Sender: TObject); \\ эмуляция
procedure Ttest.sButton1Click (Sender: TObject); \\ тестирование
procedure Ttest. FormCreate (Sender: TObject); \\ тестирование
procedure Ttest.sButton3Click (Sender: TObject); \\ тестирование
if radiogroup1. ItemIndex=0 then begin
messagedlg ('Правильный ответ', mtconfirmation, [mbOk], 0); end
messagedlg ('Неправильный ответ', mtconfirmation, [mbOk], 0); end;
procedure Ttest.sButton4Click (Sender: TObject); \\ тестирование
if scheckbox2. Checked=true then begin
messagedlg ('Правильный ответ', mtconfirmation, [mbOk], 0); end
messagedlg ('Неправильный ответ', mtconfirmation, [mbOk], 0); end;
procedure Ttest.sButton5Click (Sender: TObject); \\ тестирование
if scheckbox5. Checked=true then begin
messagedlg ('Правильный ответ', mtconfirmation, [mbOk], 0); end
messagedlg ('Неправильный ответ', mtconfirmation, [mbOk], 0); end;
procedure Ttest.sButton6Click (Sender: TObject); \\ тестирование
if sradiobutton3. Checked=true then begin
messagedlg ('Правильный ответ', mtconfirmation, [mbOk], 0); end
messagedlg ('Неправильный ответ', mtconfirmation, [mbOk], 0); end;
procedure Ttest.sButton7Click (Sender: TObject); \\ тестирование
if scheckbox10. Checked=true then begin
messagedlg ('Правильный ответ', mtconfirmation, [mbOk], 0); end
messagedlg ('Неправильный ответ', mtconfirmation, [mbOk], 0); end;
slabel41. Caption:='Здравствуйте '+la;
procedure Ttest.sButton9Click (Sender: TObject); \\ тестирование
procedure Ttest.sButton8Click (Sender: TObject); \\ тестирование
procedure Ttest.sButton10Click (Sender: TObject); \\ тестирование
procedure Ttest.sButton2Click (Sender: TObject); \\ тестирование
procedure Ttest_1.sButton1Click (Sender: TObject); \\ тестирование
procedure Ttest_1. FormCreate (Sender: TObject); \\ тестирование
procedure Ttest_1.sButton3Click (Sender: TObject); \\ тестирование
if radiogroup1. ItemIndex=0 then begin
messagedlg ('Правильный ответ', mtconfirmation, [mbOk], 0);
messagedlg ('Неправильный ответ', mtconfirmation, [mbOk], 0);
procedure Ttest_1.sButton4Click (Sender: TObject); \\ тестирование
if radiobutton3. Checked=true then begin
messagedlg ('Правильный ответ', mtconfirmation, [mbOk], 0);
messagedlg ('Неправильный ответ', mtconfirmation, [mbOk], 0);
procedure Ttest_1.sButton5Click (Sender: TObject); \\ тестирование
if checkbox2. Checked=true then begin
messagedlg ('Правильный ответ', mtconfirmation, [mbOk], 0);
messagedlg ('Неправильный ответ', mtconfirmation, [mbOk], 0);
procedure Ttest_1.sButton6Click (Sender: TObject); \\ тестирование
if radiogroup2. ItemIndex=0 then begin
messagedlg ('Правильный ответ', mtconfirmation, [mbOk], 0);
messagedlg ('Неправильный ответ', mtconfirmation, [mbOk], 0);
procedure Ttest_1.sButton8Click (Sender: TObject); \\ тестирование
if radiobutton4. Checked=true then begin
messagedlg ('Правильный ответ', mtconfirmation, [mbOk], 0);
messagedlg ('Неправильный ответ', mtconfirmation, [mbOk], 0);
if k<=2 then label35. Caption:='Неудовлетворительно';
if k=3 then label35. Caption:='Удовлетворительно';
if k=4 then label35. Caption:='Хорошо';
if k=5 then label35. Caption:='Отлично';
procedure Ttest_1.sButton9Click (Sender: TObject); \\ тестирование
procedure Ttest_1.sButton10Click (Sender: TObject); \\ тестирование
procedure Ttest_1.sButton7Click (Sender: TObject); \\ тестирование
procedure Ttest_1.sButton2Click (Sender: TObject); \\ тестирование
uses practic, ychebnik, Unit3, Unit5;
procedure Ttest_2. FormCreate (Sender: TObject);
procedure Ttest_2.sButton7Click (Sender: TObject); \\ тестирование
procedure Ttest_2.sButton1Click (Sender: TObject); \\ тестирование
if radiogroup1. ItemIndex=0 then begin
messagedlg ('Правильный ответ', mtconfirmation, [mbOk], 0);
messagedlg ('Неправильный ответ', mtconfirmation, [mbOk], 0);
procedure Ttest_2.sButton2Click (Sender: TObject); \\ тестирование
Функциональное назначение и область применения программы "Локальный сетевой чат"; логическая структура, технические и программные средства. Требования к программе; характеристика, вызов и загрузка, входные и выходные данные, настройка, интерфейс. дипломная работа [1,3 M], добавлен 18.10.2013
Описание электронного учебника, требования к его внутренней структуре и элементам. Технические характеристики и основные программные средства, используемые в процессе разработки. Формирование руководства пользователя, информационный интерфейс учебника. курсовая работа [1,5 M], добавлен 17.08.2015
Средства программирования, описание языка С++. Назначение программы, требования к документации. Стадии разработки, виды испытаний. Используемые технические, программные средства. Вызов и загрузка, входные и выходные данные. Программа и методика испытаний. контрольная работа [205,3 K], добавлен 23.07.2013
Создание электронного учебника "Визуальные и не визуальные компоненты Delphi". Основные требования к организации интерфейса. Логическая структура и технические средства. Аппаратно–программный комплекс. Применение программы, тестирование и отладка. курсовая работа [39,5 K], добавлен 03.12.2012
Описание логической и модульной структуры разрабатываемой программы, используемые в данном процессе основные технические средства. Организация хранения данных в программе, проектирование интерфейса. Тестирование и отладка, листинг готовой программы. курсовая работа [494,5 K], добавлен 20.06.2012
Методологическая основа моделирования – диалектико-математический метод познания и научного исследования. Назначение и условия применения программы. Описание задачи и логической структуры программы. Используемые технические средства, вызов и загрузка. курсовая работа [311,8 K], добавлен 06.01.2009
Описание и функциональное назначение программы по оптимизации функции, ее логическая структура и используемые технические средства. Практическое применение программы, вызов и загрузка, входные и выходные данные, выполнение контрольного примера и листинг. курсовая работа [337,4 K], добавлен 26.02.2012
Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д. PPT, PPTX и PDF-файлы представлены только в архивах. Рекомендуем скачать работу .
© 2000 — 2021
Электронный учебник "Программа Erwin" курсовая работа. Программирование, компьютеры и кибернетика.
Дипломные работы: Математика.
Реферат по теме Принятие христианства на Руси: проблемы периодизации
Сочинение На Тему Семейная Реликвия 6 Класс
Реферат: Особенности аналитических задач и построение рядов в правовой статистике
Реферат: Плебисцитарная теория демократии Макса Вебера и современный политический процесс. Скачать бесплатно и без регистрации
Сочинение Рассуждение Темы 8 Класс
Реферат: Финансовые инструменты понятие, виды
Курсовая Работа На Тему Мышление И Его Экспериментальное Исследование
Эссе Молодость Это Время
Гражданско Правовая Ответственность Генерального Директора Магистерская Диссертация
На Лезгинском Языке Сочинение Осень Наступила
Учебное пособие: Методические указания по выполнению курсовых работ для студентов 5 курса заочной формы обучения и отделения специальной подготовки (ускоренной и сокращенной форм обучения) специальности «Юриспруденция» Хабаровск 2005
Курсовая работа по теме Словообразование в американском варианте английского языка в неформальной речи и на примере фильма 'Форест Гамп'
Сочинение На Тему Детство Егэ
Реферат На Тему Товарознавча Характеристика Плодових Вин: Сировина, Класифікація, Виробництво, Вимоги До Якості Та Умови Зберігання
Реферат: Смысл и цель жизни 2
Нужны Ли Абзацы В Эссе
Реферат: Секрет возникновения арабских чисел
Реферат: Лечение и профилактика чумы плотоядных в Архаринском районе Амурской области
Стратегия Синергизма Реферат
Особенная часть Уголовного кодекса Японии - Государство и право реферат
Аудит расчетов с персоналом по оплате труда - Бухгалтерский учет и аудит курсовая работа
Государство и право от Древней Руси до конца ХХ века - Государство и право курсовая работа