Система электронного хронометража в Excel

Надеюсь что задумка, реализованная с помощью уважаемых форумчан, поможет многим спортивным судьям.

Собственно смысл задумки в том, чтобы фиксировать время велогонщиков по кругам с помощью клавиатурной матрицы номеров гонщиков, с дальнейшим сумирование времени всех кругов.

Далее по конкретней:
Задачи программы:
1. Максимальное количество участников 100.
2. Максимальное количество кругов 10.
3. Возможность выбора или прописывания количества кругов. При этом ячейки в таблице,
с номерами до указанного в окне включительно, окрашиваются в желтый цвет, при нажатии на кнопку "Количество кругов".
4. Старт всех 100 таймеров 1 круга одновременно. При этом в ячейках 1 круга начинается отображение отсчета времени секундомера.
5. При нажатии на клавиатуре номера участника секундомер 1 круга останавливается и включается секундомер 2 круга.
И так до завершения последнего из указанных (выделенных) кругов. При этом в ячейке "Время" каждого гонщика суммируется время каждого секундомера. После перехода к следующему секундомеру, ячейка таблицы предыдущего секундомера окрашивается в зеленый цвет. Тоже при остановке последнего из указанных таймеров кругов.
6. Возможность остановки всех оставшихся таймеров (без изменения цвета ячеек, таймеры которых остановлены кнопкой "Стоп").
7. Обнуление всех результатов.
8. Матрица клавиатуры (1-100), цветные кнопки и окно должны быть все время в видимой для пользователя области экрана.
9. Таблица должна прокручиваться без изменения положения клавиатуры.
10. При нажатии на кнопку "Скрыть", клавиатура должна спрятаться в трей. В поле таблицы должна быть кнопка "Показать".
11. После остановки всех таймеров должна быть возможность сортировки по данным в столбце"Время".12. После сортировки должна быть возможность включения функции подсчета отставания от лучшего результата для столбца "Отставание".
Думаю последние две позиции можно даже не рассматривать, это и так понятно.
А вот сделать все остальное умишка не хватает.
Просмотрел всю тему по VBA но подобное рассматривалось только однажды для "Бани".
Прошу помощи, потому что очень хочется реализовать задумку на практике, во время судейства соревнований в мае.

Миниатюры

   

0

Сообщение от mrgreens в результате не вычитается время старта.

Пожалуйста, прикрепите сам *.xls файл с багом (его (файл) нужно сохранить перед этим и закрыть, наверно. И упаковать - размер что-то зашкаливать начинает).
А по картинке никаких проблем я не увидел..?

0

А как выбирать нужное кол-во кругов? Считает только три. В прежнем варианте кол-во кругов выбиралось,достаточно было прописать что то в названии столбика с "кругом".
Я там понял верхние строчки(20)-шапка,можно писать все что нужно,объединять ячейки и т.д?
А левая часть в протоколе-необходимые данные(ФИО,возраст,город....) их число(19)(столбцов)и можно ЛИ удалить не используемые без нарушения работы?Хотя "лишние" можно просто задвинуть.

Добавлено через 2 минуты
Багов с подсчетом--пока не вижу.

Добавлено через 3 минуты
В выпадающем только 1,2,3 и результат...а где эти "лидер", "время отставания"?
А после "время на круге",в окне,что за данные?

0

Сообщение от Апострофф Пожалуйста, прикрепите сам *.xls файл с багом (его (файл). А по картинке никаких проблем я не увидел..?

Ну по картинке можно просто сложить время по кругам и получится то что в результате. А отнять время старта?
Собственно сохранил файл с ошибкой.

Вложения

StartM1.rar (42.2 Кб, 33 просмотров)

0

Сообщение от Палыч100 А как выбирать нужное кол-во кругов?

Вставить или удалить (и пронумеровать?) нужное к-во стобцов между Старт (20-й столбец) и Результат (столбец переменный-определяется поиском)

Сообщение от Палыч100 а где эти "лидер", "время отставания"

В листбоксе справа внизу. Если отображено неправильно(или непонятно) - давайте свои предположения.

Сообщение от Палыч100 А после "время на круге",в окне,что за данные?

время на круге - не нашёл такого.
Время по кругам
и
Время от старта
Переключатели(связанные) для отражения результатов как в таблице, так и в листбоксе.

0

При первой вноске времени уже учитывается время раздела, а вот время на каждом круге считает как бы обнуляя постоянно секундомер.В графе "результат"-сложения этих времен)).
Место-работает корректно вроде

Добавлено через 10 минут
Я тут нажал на "Х" и закрыл это окошко....и....как потом,может в пылу гонки его вызвать на экран?Может вообще запретить эту опцию "закрыть"?
Ага,значит можно столбцы кругов удалять? А не сдвинутся номера правых и не нарушат работу? 24,25,26....проверим.
А информационные,1..19 можно редактировать\удалять\добавлять?
В лист-боксе №,Время,ОТ...что такое ОТ ?Оно кстати смещено влево...
Нет у меня этих отставаний(((вот три колонки,с номером ,временем и ???(не могу понять)

0

Сообщение от Палыч100 В лист-боксе №,Время,ОТ...что такое ОТ ?Оно кстати смещено влево... Нет у меня этих отставаний(((вот три колонки,с номером ,временем и ???(не могу понять)

Посмотри в последнем скрине от mrgreens
или в исходнике - ведь он не заперт (Alt-F11 и т.д.)
Возможно, проблема в системных настройках, шрифтах и т.п...

0

Удалил,2и 3,оставил только круг 1...работает НЕ корректно,все равно надо 3 раза нажимать(меняется и время итоговое)...удалил ВСЕ круги--ошибка))),щас добавлю 5 кругов,как с добавленными будет вести себя...

0

Сообщение от Палыч100 Ага,значит можно столбцы кругов удалять?

Сначала закрыть форму.
Она вызывается при загрузке и потом не реагирует на изменения к-ва кругов и участников.
После внесенных изменений в состав гонки форму можно вновь вызвать кнопкой в пользовательском меню или повторным запуском самого файла.

0

Ага,нет у меня слов...лидера(сек) как на скрине...только ОТ и пустое место....хотя данные то вводит.Да и смотрел...от лидера,т.е по 1 номеру ж должно быть 00 сек,а иное((...надо более дольше тестить...
Да у меня Эксель 2003...может это тоже важно.Говорят что это самая удачная версия и все новые--фигня)))

Добавлено через 8 минут
Всё получилось.Да,нужно изменить при необходимости кол-во кругов,потом выйти сохранив изменения и уже потом опять запустить.Да и время от лидера-работает правильно,просто 0000-не пишется, а отображается "пустое место".
И ещё...а что это окошко нельзя растягивать,вообщем менять размеры как обычное окно Виндовс? А как его вызвать при закрытии?

0

Сообщение от mrgreens Ну по картинке можно просто сложить время по кругам и получится то что в результате. А отнять время старта?

Правильно! Только считаем мы немножко по другому. В примечании каждой отсечки времени ставится абсолютное(условно) время(в секундах с сотыми!!? от полуночи)
Число секунд в сутках 86400(=24*60*60)
И если начать гонку в 23:55:00, то стандартный Timer кому-то скажет - ты финишировал на 23.ххх часа раньше, чем стартовал
Ф-ия Now здесь не спасает - точность до 2-х секунд никого не устроит, мне кажется.
И Timer (примечание) с переходом на новые сутки я увеличиваю на 86400.
Вопчем, я отвлекся от сути - поправьте в нужное русло, плиз...
Итог: результат можно проверить по отсечкам (в секундах) в примечаниях ячеек!

0

Все вроде правильно считает,НО можно что б при кол-ве кругов менее 2х,не дублировать колонки "круг1" и "результат"? Хотя я могу просто задвинуть одну из них и даже написать\изменить название столбца например на "финиш".
А функцию рестарт(фальшстарт) или "остановить" гонку можно ввести?Типа "пауза")))и "стоп".
А как во время гонки снимать участников при вынужденном сходе?Вот бы и пригодилась.
Ну вот к примеру пройдя "н" круг кто то сошел...как остановить отсчет времени?

0

Сообщение от Палыч100 А как его вызвать при закрытии?

Ищи кнопку (или панель) Гонка!
Не сомневаюсь, багов добавится

0

Вот эта фишка "время отставания от лидера и от предыдущего нужна ведь в таблице,в общей базе,для наглядности,для самих участников полезная и нужная инфа...а чего она в этом окошке?ЕЕ только судья на мониторе увидит и то пока работает прога.
А со средней скоростью-ни как? Хотя б общая,за всю гонку...хотя я уже повторяюсь...)

0

Все правильно Вы сделали. Это я был не внимателен.
На первом круге отнимается время старта. И дальше все как по маслу.

А насчет того как вывести клавиатурную матрицу снова после закрытия, без перезагрузки Книги.
Так у меня в 2007 вверху есть вкладка "Надстройки", а там кнопка "Гонка".
Вот только значения не сохраняются при новом выводе.

0

ААААааааа,нашел...все работает...
кстати нашел как исправить вдруг случайно не ту нажатую кнопку с номером...просто в таблице удалить время...повторное нажатие--поставит новое время.

0

Сообщение от Палыч100 Ну вот к примеру пройдя "н" круг кто то сошел (или дисквалифицирован)...как остановить отсчет времени?

Ну не было его на финише, значит!
При чем (или зачем) тут программа. Возможно, просто хватит кнопки [Конка окончена] или банального крестика в правом верхнем углу?

0

Та просто секундомер считает пока не кликнешь по всем номерам....да и изменить время,как бы отменить ввод можно пока эта кнопка с номером не станет не активной(бледной),т.е при одном круге можно изменить только время старта.(
Наверное вы правы...можно просто остановить отсчет по "Х",правда тогда все эти "отставания ОТ лидера" и время при новом открытии--пропадают.Их вообще то надо в протокол,что б сами гонцы потом делали выводы.

Добавлено через 1 минуту
А напишите значение и функции кнопки "обновить"? Что она делает,когда применять?

Добавлено через 10 минут
Удалил для теста несколько строк,просто вытерел данные...как бы пробую написать свой протокол...НО все эти комментарии(красные треугольнички)остаются...как их убрать?
Я помню в прежних версиях при новой "игре" при вводе первой отметки все очищалось от прежних записей...щас все остается...
Как правильно заполнять новый протокол?

Добавлено через 5 минут
Удалил примечания(выделил все)...пропало...)))

зы: вот такой с меня "программист")))
А можно кнопки типа "новая гонка",или очистить всё"))),т.е рядом с "гонка" добавить некоторые другие.
А на гугл-эксель такая прога будет работать?

0

Одной общей кнопкой остановки гонки не обойтись. (Она конечно необходима)
Но этого не достаточно.
Потому, что места распределяются и среди сошедших гонщиков.
Т.е. по правилам сначала в протоколе идут места по времени, а потом в зависимости от схода.
Им записывается +1круг или +2круга и т.д.
Но среди тех у кого + 1 круг (и т.д.) тоже идет распределение в зависимости от того когда это произошло.
Чем позже он сошел на круге, тем он выше в таблице.
Т.е нужно как то останавливать секндомер кажого гонщика с примечанием, что это сход с указанием времени схода.

1

Сообщение от Палыч100 А напишите значение и функции кнопки "обновить"? Что она делает,когда применять?

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

Сообщение от Палыч100 можно просто остановить отсчет по "Х",правда тогда все эти "отставания ОТ лидера" и время при новом открытии--пропадают

Да вроде не пропадали - выбираешь круг, вариант отсчета по кругам - смотришь(переписываешь) результаты.

0

Пропадают. Ну ведь ты предлагаешь останавливать гонку(если есть сошедшие люди и когда клик по их номеру не корректный) закрывая это окно,так? А открыв--видим уже--чистый лист))),как бы все все все что было нажито непосильным трудом--пропало.))
Ну можно эти данные отображать\переносить в общую таблицу экселя?Чего они должны быть в этом боксе оператора?Зачем ему эти данные?Вот если будут подсчеты отставаний\опережений в главной таблице,то что там останется?Ни чего важного,так что можно тогда и закрывать,нечему "обнулятся" будет.

Добавлено через 10 минут
Я предлагаю такой алгоритм :
1.если после или общего старта или старта 1 участника(при разделке) нажать повторно на его номер(или доп. кнопку)в течении скажем 10 сек. -то произойдет останов отсчета и все обнулится.Т.е фальшстарт.
2.Как то придумать вариант с отметкой в протоколе номеров сошедших с их индивидуальной групповой сортировкой по общему времени.Может отметить другим цветом например,красным.
А такую комбинацию: нажать вверху кнопку"сход" и потом кликнуть по номеру и это время отметится(красным) в таблице и этот участник как бы для системы уже будет считаться-финишировавшим.

Добавлено через 3 минуты
...или нажать комбинацию букв на клаве и нажать удерживая по номеру который нужно отметить как "сход" ? Я не знаю))),второй-исключит случайное нажатие и снятие человека.

Добавлено через 10 минут
И ещё вопрос о формате отображения записей...можно все данные вводить от центровав по вертикале и горизонтали?Хотя б колонку с "место" и было наглядно видно в первой версии когда ячейки с номерами 1,2,3 имели свой цвет.Попробуй в 100 записей найти хотя б лидеров.
Конечно вопрос решит сортировка по занятому МЕСТУ,ее можно после окончания гонки и подтверждения(вылетает такое окошко) потом отсортировать по рейтингу,т.е занятому месту...

Добавлено через 12 минут
Оо...вижу исправлен баг предыдущей версии!!! Теперь при вводе в колонку № любого числа или даже буквы,это и отображается на кнопках в окошке.ООООчень полезно,очень...можно прям на старте расположить гонцов так,как надо(при разделке),вернее написать так как надо.
Я б все же условным форматированием выделил в колонке "место" лидеров,призеров...для читабельности...они ж могут быть где угодно по счету...
А что можно делать с место,время,круг и т.д...???Что б не нарушить работу.

Добавлено через 9 минут
Формат ни какой не работает в ячейках место. Почему?Хотел подкрасить цветом номера призеров))),да и центровка при вводе новых чисел не работает.

1