Электронный учебник "Программа Erwin"
Вычислительная система: программные и технические средства. Алгоритм задачи: вызов и загрузка, интерфейс пользователя, система помощи, логическая и физическая структуры. Описание программы и ее элементов, сферы ее применения, тестирование и отладка.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | русский |
| Дата добавления | 24.07.2012 |
| Размер файла | 5,4 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
begin
if radiobutton2. Checked=true then begin
messagedlg ('Правильный ответ', mtconfirmation, [mbOk], 0);
k:=k+1; end
else
begin
messagedlg ('Неправильный ответ', mtconfirmation, [mbOk], 0);
l:=l+1;
end;
label12. Caption:=inttostr(k);
label14. Caption:=inttostr(l);
spanel2. Visible:=false;
spanel3. Visible:=true;
spanel3. Align:=alclient;
end;
procedure Ttest_2.sButton3Click (Sender: TObject); \\ тестирование
begin
if checkbox1. Checked=true then begin
messagedlg ('Правильный ответ', mtconfirmation, [mbOk], 0);
k:=k+1; end
else
begin
messagedlg ('Неправильный ответ', mtconfirmation, [mbOk], 0);
l:=l+1;
end;
label17. Caption:=inttostr(k);
label19. Caption:=inttostr(l);
spanel3. Visible:=false;
spanel4. Visible:=true;
spanel4. Align:=alclient;
end;
procedure Ttest_2.sButton4Click (Sender: TObject); \\ тестирование
begin
if radiogroup2. ItemIndex=1 then begin
messagedlg ('Правильный ответ', mtconfirmation, [mbOk], 0);
k:=k+1; end
else
begin
messagedlg ('Неправильный ответ', mtconfirmation, [mbOk], 0);
l:=l+1;
end;
label22. Caption:=inttostr(k);
label24. Caption:=inttostr(l);
spanel4. Visible:=false;
spanel5. Visible:=true;
spanel5. Align:=alclient;
end;
procedure Ttest_2.sButton5Click (Sender: TObject); \\ тестирование
var la:string;
begin
if radiobutton5. Checked=true then begin
messagedlg ('Правильный ответ', mtconfirmation, [mbOk], 0);
k:=k+1; end
else
begin
messagedlg ('Неправильный ответ', mtconfirmation, [mbOk], 0);
l:=l+1;
end;
label27. Caption:=reg;
label29. Caption:=inttostr(k);
label31. Caption:=inttostr(l);
if k<=2 then label33. Caption:='Неудовлетворительно';
if k=3 then label33. Caption:='Удовлетворительно';
if k=4 then label33. Caption:='Хорошо';
if k=5 then label33. Caption:='Отлично';
label35. Caption:=inttostr(s);
la:=nick;
label27.caption:=la;
spanel5. Visible:=false;
spanel6. Visible:=true;
spanel6. Align:=alclient;
end;
procedure Ttest_2.sButton6Click (Sender: TObject); \\ тестирование
begin
spanel6. Visible:=false;
spanel1. Visible:=true;
spanel1. Align:=alclient;
s:=s+1;
end;
procedure Ttest_2.sButton9Click (Sender: TObject); \\ переход на форму практика
begin
test_2. Hide;
practika.show;
practika. Timer1. Enabled:=true;
end;
procedure Ttest_2.sButton10Click (Sender: TObject); \\ переход на главную форму
begin
test_2. Hide;
glavnaya.show;
glavnaya. Timer2. Enabled:=true;
end;
procedure Ttest_2.sButton8Click (Sender: TObject);
begin
test_2. Hide;
practika.show;
practika. Timer1. Enabled:=true;
end;
var
test_3: Ttest_3;
var k, l, s:integer;
implementation
uses test3, practic, ychebnik, Unit5;
{$R *.dfm}
procedure Ttest_3. FormCreate (Sender: TObject);
begin
spanel1. Visible:=false;
spanel2. Visible:=false;
spanel3. Visible:=false;
spanel4. Visible:=false;
spanel5. Visible:=false;
spanel6. Visible:=false;
test_2. Height:=209;
test_2. Width:=358;
k:=0;
l:=0;
s:=1;
end;
procedure Ttest_3.sButton1Click (Sender: TObject); \\ тестирование
begin
spanel1. Visible:=true;
sbutton1. Visible:=false;
sbutton2. Visible:=false;
label1. Visible:=true;
spanel1. Align:=alclient;
test_3. Width:=700;
test_3. Height:=389;
end;
procedure Ttest_3.sButton3Click (Sender: TObject); \\ тестирование
begin
if radiogroup1. ItemIndex=0 then begin
messagedlg ('Правильный ответ', mtconfirmation, [mbOk], 0);
k:=k+1; end
else
begin
messagedlg ('Неправильный ответ', mtconfirmation, [mbOk], 0);
l:=l+1;
end;
label6. Caption:=inttostr(k);
label8. Caption:=inttostr(l);
spanel1. Visible:=false;
spanel2. Visible:=true;
spanel2. Align:=alclient;
end;
procedure Ttest_3.sButton4Click (Sender: TObject); \\ тестирование
begin
if radiobutton2. Checked=true then begin
messagedlg ('Правильный ответ', mtconfirmation, [mbOk], 0);
k:=k+1; end
else
begin
messagedlg ('Неправильный ответ', mtconfirmation, [mbOk], 0);
l:=l+1;
end;
label12. Caption:=inttostr(k);
label14. Caption:=inttostr(l);
spanel2. Visible:=false;
spanel3. Visible:=true;
spanel3. Align:=alclient;
end;
procedure Ttest_3.sButton5Click (Sender: TObject); \\ тестирование
begin
if checkbox1. Checked=true then begin
messagedlg ('Правильный ответ', mtconfirmation, [mbOk], 0);
k:=k+1; end
else
begin
messagedlg ('Неправильный ответ', mtconfirmation, [mbOk], 0);
l:=l+1;
end;
label18. Caption:=inttostr(k);
label20. Caption:=inttostr(l);
spanel3. Visible:=false;
spanel4. Visible:=true;
spanel4. Align:=alclient;
end;
procedure Ttest_3.sButton6Click (Sender: TObject); \\ тестирование
begin
if radiobutton7. Checked=true then begin
messagedlg ('Правильный ответ', mtconfirmation, [mbOk], 0);
k:=k+1; end
else
begin
messagedlg ('Неправильный ответ', mtconfirmation, [mbOk], 0);
l:=l+1;
end;
label24. Caption:=inttostr(k);
label26. Caption:=inttostr(l);
spanel4. Visible:=false;
spanel5. Visible:=true;
spanel5. Align:=alclient;
end;
procedure Ttest_3.sButton7Click (Sender: TObject); \\ тестирование
var la:string;
begin
if radiobutton12. Checked=true then begin
messagedlg ('Правильный ответ', mtconfirmation, [mbOk], 0);
k:=k+1; end
else
begin
messagedlg ('Неправильный ответ', mtconfirmation, [mbOk], 0);
l:=l+1;
end;
label33. Caption:=inttostr(k);
label34. Caption:=inttostr(l);
if k<=2 then label36. Caption:='Неудовлетворительно';
if k=3 then label36. Caption:='Удовлетворительно';
if k=4 then label36. Caption:='Хорошо';
if k=5 then label36. Caption:='Отлично';
label35. Caption:=inttostr(s);
spanel5. Visible:=false;
spanel6. Visible:=true;
spanel6. Align:=alclient;
la:=nick;
label28. Caption:='Здравствуйте' +la;
end;
procedure Ttest_3.sButton8Click (Sender: TObject); \\ тестирование
begin
spanel6. Visible:=false;
spanel1. Visible:=true;
spanel1. Align:=alclient;
s:=s+1;
end;
procedure Ttest_3.sButton9Click (Sender: TObject); \\ переход на практику
begin
test_3. Hide;
practika.show;
practika. Timer1. Enabled:=true;
end;
procedure Ttest_3.sButton10Click (Sender: TObject); \\ переход на главную
begin
test_3. Hide;
glavnaya.show;
glavnaya. Timer2. Enabled:=true;
end;
procedure Ttest_3.sButton2Click (Sender: TObject);
begin
test_3. Hide;
practika.show;
practika. Timer1. Enabled:=true;
end;
var
test_4: Ttest_4;
var k, l, s:integer;
implementation
uses test3, practic, ychebnik, Unit5;
{$R *.dfm}
procedure Ttest_4. FormCreate (Sender: TObject); \\ тестирование
begin
spanel1. Visible:=false;
spanel2. Visible:=false;
spanel3. Visible:=false;
spanel4. Visible:=false;
spanel5. Visible:=false;
spanel6. Visible:=false;
test_2. Height:=209;
test_2. Width:=358;
k:=0;
l:=0;
s:=1;
end;
procedure Ttest_4.sButton1Click (Sender: TObject); \\ тестирование
begin
spanel1. Visible:=true;
sbutton1. Visible:=false;
sbutton2. Visible:=false;
label1. Visible:=true;
spanel1. Align:=alclient;
test_4. Width:=700;
test_4. Height:=389;
end;
procedure Ttest_4.sButton3Click (Sender: TObject); \\ тестирование
begin
if radiogroup1. ItemIndex=0 then begin
messagedlg ('Правильный ответ', mtconfirmation, [mbOk], 0);
k:=k+1; end
else
begin
messagedlg ('Неправильный ответ', mtconfirmation, [mbOk], 0);
l:=l+1;
end;
label6. Caption:=inttostr(k);
label8. Caption:=inttostr(l);
spanel1. Visible:=false;
spanel2. Visible:=true;
spanel2. Align:=alclient;
end;
procedure Ttest_4.sButton4Click (Sender: TObject); \\ тестирование
begin
if radiobutton2. Checked=true then begin
messagedlg ('Правильный ответ', mtconfirmation, [mbOk], 0);
k:=k+1; end
else
begin
messagedlg ('Неправильный ответ', mtconfirmation, [mbOk], 0);
l:=l+1;
end;
label12. Caption:=inttostr(k);
label14. Caption:=inttostr(l);
spanel2. Visible:=false;
spanel3. Visible:=true;
spanel3. Align:=alclient;
end;
procedure Ttest_4.sButton5Click (Sender: TObject); \\ тестирование
begin
if checkbox2. Checked=true then begin
messagedlg ('Правильный ответ', mtconfirmation, [mbOk], 0);
k:=k+1; end
else
begin
messagedlg ('Неправильный ответ', mtconfirmation, [mbOk], 0);
l:=l+1;
end;
label18. Caption:=inttostr(k);
label20. Caption:=inttostr(l);
spanel3. Visible:=false;
spanel4. Visible:=true;
spanel4. Align:=alclient;
end;
procedure Ttest_4.sButton6Click (Sender: TObject); \\ тестирование
begin
if radiogroup2. ItemIndex=1 then begin
messagedlg ('Правильный ответ', mtconfirmation, [mbOk], 0);
k:=k+1; end
else
begin
messagedlg ('Неправильный ответ', mtconfirmation, [mbOk], 0);
l:=l+1;
end;
label23. Caption:=inttostr(k);
label25. Caption:=inttostr(l);
spanel4. Visible:=false;
spanel5. Visible:=true;
spanel5. Align:=alclient;
end;
procedure Ttest_4.sButton7Click (Sender: TObject); \\ тестирование
var la:string;
begin
if radiobutton4. Checked=true then begin
messagedlg ('Правильный ответ', mtconfirmation, [mbOk], 0);
k:=k+1; end
else
begin
messagedlg ('Неправильный ответ', mtconfirmation, [mbOk], 0);
l:=l+1;
end;
label32. Caption:=inttostr(k);
label33. Caption:=inttostr(l);
if k<=2 then label35. Caption:='Неудовлетворительно';
if k=3 then label35. Caption:='Удовлетворительно';
if k=4 then label35. Caption:='Хорошо';
if k=5 then label35. Caption:='Отлично';
label34. Caption:=inttostr(s);
la:=nick;
label27. Caption:='Здравствуйте' + la;
spanel5. Visible:=false;
spanel6. Visible:=true;
spanel6. Align:=alclient;
end;
procedure Ttest_4.sButton8Click (Sender: TObject); \\ тестирование
begin
spanel6. Visible:=false;
spanel1. Visible:=true;
spanel1. Align:=alclient;
s:=s+1;
end;
procedure Ttest_4.sButton9Click (Sender: TObject); \\ переход на практику
begin
test_4. Hide;
practika.show;
practika. Timer1. Enabled:=true;
end;
procedure Ttest_4.sButton10Click (Sender: TObject); \\ переход на главную
begin
test_4. Hide;
glavnaya.show; glavnaya. Timer2. Enabled:=true;
end;
procedure Ttest_4.sButton2Click (Sender: TObject);
begin
test_4. Hide;
practika.show;
practika. Timer1. Enabled:=true;
end;
end.
Размещено на Allbest.ru
Подобные документы
Функциональное назначение и область применения программы "Локальный сетевой чат"; логическая структура, технические и программные средства. Требования к программе; характеристика, вызов и загрузка, входные и выходные данные, настройка, интерфейс.
дипломная работа [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Анализ и описание алгоритма. Основные характеристики выбранного компьютера, программных сред (операционная система и среда программирования). Описание компонентов и интерфейса программы, а также модулей, процедур и функций. Вызов и загрузка программы.
курсовая работа [1,3 M], добавлен 26.04.2015Содержательная и формальная (математическая) постановка задачи. Разработка алгоритма решения задачи. Структуры программы и алгоритмы программных модулей, их описание. Решение задачи на конкретном примере. Разработка системы тестов и отладка программы.
курсовая работа [882,1 K], добавлен 24.11.2014Определение необходимых модулей программы, структуры файла базы данных. Описание разработки программы, отладка и тестирование. Разработка приложения Organizer.exe, меню и руководство пользователя. Алгоритм обработки событий главного меню (расписания).
курсовая работа [901,8 K], добавлен 11.02.2014
