Суббота, 18.11.2017, 07:29 
Приветствую Вас Гость | RSS



[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Соревнования " ЗОЛОТОЙ ОРЕЛ" » Написание судейской программы для соревнований "Золотой Орел" » Программа судейства соревнований на Дельфи 7 (Судейская программа для соревнований "Золотой Орел")
Программа судейства соревнований на Дельфи 7
RK3EWWДата: Среда, 30.03.2011, 20:27 | Сообщение # 1
Рядовой
Группа: Администраторы
Сообщений: 6
Репутация: 0
Статус: Оффлайн
Приглашаем к обсуждению алгоритма программы
 
ra3edДата: Четверг, 31.03.2011, 09:16 | Сообщение # 2
Лейтенант
Группа: Модераторы
Сообщений: 54
Репутация: 4
Статус: Оффлайн
function Analiz(l:String):String;
var
f,f1 :textfile;
i,j,j1 :integer;
s,g,g0,s0,s1,s2,s3,a,k,m,s4,s5,s6,s7 : String;

begin
AssignFile(f,'f:\sample\'+l);
// открывает каждый файл для анализа
Reset (f);

while not Eof (f) do
begin
readln(f,s);
s0:='';
if length (s) >=3 then
for i:=1 to 3 do s0:=s0+s[i];

if s0 = 'QSO' then
begin
s1:= '';
s1:= s[55]+s[56]+s[57]+s[58]+s[59]+s[60]+s[61]; //позывной корреспондента
a:= Trim(s1); // Функция удаления пробелов
s3:= '';
s3:= s[30]+s[31]+s[32]+s[33]+s[34]+s[35]+s[36]; //свой позывной
k:= 'f:\sample\'+a+'.cbr';
m:= 'f:\sample\'+ Trim(s3)+'.cbr';
s4:= Trim(s[44]+s[45]+s[46]+s[47]+s[48]+s[49]+s[50]+s[51]+s[55]); // номер переданный
s5:= Trim(s[69]+s[70]+s[71]+s[72]+s[73]+s[74]+s[75]+s[76]+s[77]+s[78]+s[79]+s[80]); // номер принятый
s6:= s[26]+s[27]+':'+s[28]+s[29]; // Время
s7:= Trim(s[6]+s[7]+s[8]+s[9]+s[10]);

form1.ListBox1.Items.Add (s1);
form2.Label2.Caption := IntToStr(i1);

form1.stringgrid1.Cells[2,i1]:= k;

form1.stringgrid1.Cells[1,i1]:= s1;

form1.stringgrid1.Cells[3,i1]:= s3;

form1.stringgrid1.Cells[4,i1]:= m;

form1.stringgrid1.Cells[5,i1]:= s4;

form1.stringgrid1.Cells[6,i1]:= s5;

form1.stringgrid1.Cells[7,i1]:= s6;
i1:=i1+1;
form1.StringGrid1.RowCount:= i1;
Result:= 'String';
end;
end;
CloseFile (f);
end;

--------------------------------------------------------------------------------------------------------
Эта функция заносит значения в таблицу значения из отчета.

Сообщение отредактировал ra3ed - Четверг, 31.03.2011, 14:58
 
UA3EIDДата: Четверг, 31.03.2011, 14:14 | Сообщение # 3
Модератор
Группа: Модераторы
Сообщений: 35
Репутация: 5
Статус: Оффлайн
ra3ed, Саша привет! Функцию просмотрел, в принципе все ровно =)
Надо будет на досуге посидеть проанализировать. Как часто бываешь в аське? Поскольку я не в Орле, то может спишемся через инет? Возможно буду полезен))
Удачи в программировании! 73! smile


Время идет, не видать пока на траверсе нашей эры
Лучше занятия для мужика, чем ждать и крутить верньеры ... (с) Олег Медведев

Во сне я вижу город в огнях. На яву - город в огне...

 
ra3edДата: Четверг, 31.03.2011, 14:52 | Сообщение # 4
Лейтенант
Группа: Модераторы
Сообщений: 54
Репутация: 4
Статус: Оффлайн
procedure TForm1.Button1Click(Sender: TObject);

begin
SetCurrentDir('f:\sample');
i1:=1;

// Найти в папке первый файл
if FindFirst('*.cbr', faAnyFile, searchResult) = 0 then
begin
repeat
ListBox2.Items.Add (searchResult.Name);
//-------------------------------------------------------------------------
Analiz(searchResult.Name);

//--------------------------------------------------------

until FindNext(searchResult) <> 0;

// Поиск файлов закончен
FindClose(searchResult);
end;
end;
---------------------------------------------------------------------------------------------------------
Этот код находит все файлы в директории и обрабатывает каждый функцией Analiz.

 
ra3edДата: Четверг, 31.03.2011, 14:53 | Сообщение # 5
Лейтенант
Группа: Модераторы
Сообщений: 54
Репутация: 4
Статус: Оффлайн
Дима если какие предложения будут пиши здесь, заодно поэкспериментируем cool
 
RK3EWWДата: Воскресенье, 10.04.2011, 09:16 | Сообщение # 6
Рядовой
Группа: Администраторы
Сообщений: 6
Репутация: 0
Статус: Оффлайн
Планируется выложить программу для Beta-тестирования,

Подскажите, кто готов оказать помощь в тестировании программы судейства соревнований Золотой Орел.
cool

 
ra3edДата: Среда, 20.04.2011, 15:07 | Сообщение # 7
Лейтенант
Группа: Модераторы
Сообщений: 54
Репутация: 4
Статус: Оффлайн
В ходе тестирования программы обнаружены ошибки при начислении очком за проведенные связи орловским радиолюбителям и иногородним радиолюбителям.
В алгоритме программы были сделаны соответствующие корректировки связанные с начислением очков за связи.
В ближайшее время обновится дистрибутив с программой.
Для того чтобы не путаться в версиях, думаю правильнее будет нумеровать версии программы.
 
ra3edДата: Пятница, 29.04.2011, 13:55 | Сообщение # 8
Лейтенант
Группа: Модераторы
Сообщений: 54
Репутация: 4
Статус: Оффлайн
Обновлена программа судейства соревнований Золотой Орел до Версии 1.3
Добавлена функция определяющая повторы и функция сброса повторов в разных мини-турах.
В итоговой таблице добавлен столбец в котором рассчитывается процент подтверждаемости.
Добавлено поле с позывными участников не приславших отчеты.
Исправлены другие найденные ошибки.
 
RX3QFYДата: Пятница, 20.05.2011, 08:59 | Сообщение # 9
Рядовой
Группа: Проверенные
Сообщений: 3
Репутация: 0
Статус: Оффлайн
Коллеги! Для написания программы нужно для начала сделать нормальное положение.
RA3ED анонсировал ваш контест у нас на сайте. Я ответил ему и показал ряд моментов, которые могут быть оспорены участниками.
На мой взгляд Положение требует кардинального пересмотра в плане наградных мероприятий, расположения подгрупп и , если уж вы делаете отдельные подгруппы для юных радиолюбителей - сделайте их в отдельную линейку и учредите отдельные призы по этим подгруппам.
 
AlbertДата: Пятница, 20.05.2011, 14:30 | Сообщение # 10
Рядовой
Группа: Модераторы
Сообщений: 8
Репутация: 0
Статус: Оффлайн
Уважаемый Юрий !
Очевидно Вы невнимательно прочитали положение.
Для юных участников учреждены отдельные призы ,в
командном и личном зачетах.
Мы прекрасно понимаем, что нельзя создать положение которое устраивало бы всех
спортсменов. Но при разработке данного положения нами были учтены замечания и пожелания многих радиолюбителей как нашей области так и иногородних.
Поднимать вопрос "кардинального пересмотра в плане наградных мероприятий "и обращаться к организаторам с просьбой -" учредите отдельные призы по этим подгруппам",на мой взгляд не очень этично, т.к в данных соревнованиях, в отличии от других, весьма солидный призовой фонд.
Нужно провести соревнования, по итогам сделать анализ , и с учетом пожеланий участников , если потребуется откорректировано положение.
73! желаем успехов!
Альберт RA3EA

 
rv3efДата: Пятница, 20.05.2011, 14:57 | Сообщение # 11
Майор
Группа: Модераторы
Сообщений: 99
Репутация: 22
Статус: Оффлайн
С призовым фондом у нас проблем нет, мы можем его расширить. Можем предоставить поощрительные призы в случае наших недоработок.
Не совсем понятна формулировка координального пересмотра.

Относительно программы, мы приняли решение откатать свою, тем более что алгоритмизация и программная реализация данного процесса
не показаласьнам заоблачно сложной (для тех кто этим занимался ранее)

 
Форум » Соревнования " ЗОЛОТОЙ ОРЕЛ" » Написание судейской программы для соревнований "Золотой Орел" » Программа судейства соревнований на Дельфи 7 (Судейская программа для соревнований "Золотой Орел")
Страница 1 из 11
Поиск:

Радиоклуб Орловский Эфир © 2017Сайт управляется системой uCoz