Образ Антивируса(Меню) - Помощь студентам

DarkRomka · 26.02.2010, 00:14

Нужно закрыть лабораторную работу, я прошу вашей помощи...
Нужно создать образ антивируса, тоесть с виду антивирус, но не работает, вобщем нужно меню антивируса, зарание спасибо!

Alex Cones · 26.02.2010, 08:03

А что сложного? Простейший антивирус выглядит так:
Наверху 2 кнопки (Button) - "Быстрое сканирование" и "Полное сканирование".
Ниже Надпись (Label) - "Сканирование пока не производилось.
Ниже Прогресс (ProgresBar) - пока незаполненный.
Но нажатии на первый батон:

Код:

ProgressBar1.MaxValue := 100;
Label1.caption:='Производится сканирование';
Label1.refresh;
For X:=0 to 100 do
 Begin
  ProgressBar1.Position := X;
  Sleep(100); 
 End;
 Label1.Caption:='Сканирование закончено - вирусов не обнаружено';

Аналогично на второй батон, только 100 замените везде на 200-500.

Вот и весь Ваш антивирус.

Stilet · 26.02.2010, 08:48

Цитата:

но не работает

Что не работает?

Цитата:

нужно меню антивируса

Тоесть?

Alex Cones · 26.02.2010, 08:50

Цитата:

Сообщение от Stilet

Что не работает?

Тоесть?

Похоже имеется в виду что-то вроде этого: http://programmersforum.ru/showthrea...E8%F0%F3%F1%FB

DarkRomka · 26.02.2010, 11:58

Stilet - Нужен макет, это чтото по типу дизайнерской работы.

и еще, нак создавать дополнительные окна и делать переходы между ними?

26.02.2010, 00:14	#1
DarkRomka Новичок Джуниор Регистрация: 26.02.2010 Сообщений: 2	Образ Антивируса(Меню) Нужно закрыть лабораторную работу, я прошу вашей помощи... Нужно создать образ антивируса, тоесть с виду антивирус, но не работает, вобщем нужно меню антивируса, зарание спасибо!

26.02.2010, 08:03	#2
Alex Cones Trust no one. Старожил Регистрация: 07.04.2009 Сообщений: 6,526	А что сложного? Простейший антивирус выглядит так: Наверху 2 кнопки (Button) - "Быстрое сканирование" и "Полное сканирование". Ниже Надпись (Label) - "Сканирование пока не производилось. Ниже Прогресс (ProgresBar) - пока незаполненный. Но нажатии на первый батон: Код: `ProgressBar1.MaxValue := 100; Label1.caption:='Производится сканирование'; Label1.refresh; For X:=0 to 100 do Begin ProgressBar1.Position := X; Sleep(100); End; Label1.Caption:='Сканирование закончено - вирусов не обнаружено';` Аналогично на второй батон, только 100 замените везде на 200-500. Вот и весь Ваш антивирус. SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА. МОЙ БЛОГ GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Выбор антивируса	AlterProger	Безопасность, Шифрование	1	02.02.2010 22:28
Конфликт операционки и антивируса	firelove77	Операционные системы общие вопросы	22	15.10.2009 09:36
Вес баз антивируса Касперского	Терминатор	Безопасность, Шифрование	11	04.08.2009 23:03
Без антивируса	Slavik	Безопасность, Шифрование	54	25.05.2009 01:46
Завершение процесса антивируса	Terran	Win Api	7	07.12.2007 22:28

26.02.2010, 11:58	#5
DarkRomka Новичок Джуниор Регистрация: 26.02.2010 Сообщений: 2	Stilet - Нужен макет, это чтото по типу дизайнерской работы. и еще, нак создавать дополнительные окна и делать переходы между ними?