Сообщений в теме: 103

[Seregatlt]

Огромное спасибо!!!!

[kadet]

по беспроводной сигнализации
подключаем в свободные УСБ порты 3 беспроводных мыши по очереди
запускаем из папки GP
PIEFree.exe
выбираем профиль
Tablo.pie
и жмем стрелочку запуска
ВАЖНО!!! - не закрываем и не уменьшаем окно этой проги (она в ступор впадает собака) а просто переключаемся на Ексель и работаем
закончили - кнопку СТОП и закрываем эту прогу

Принцип - пока все 3 судьи не нажмут свою оценку - мы не видим итоговую (дабы не было сговора) - как нажали все 3 - выводится кто что нажал
И в протокол автоматом идет оценка - и подсказывается кто идет следующий - жмем "Следующий" и он выходит на табло
Если нет сигнализации с мышей - то как в старой версии есть кнопки "Удачно" "Неудачно" "Отказ"
Вызов следующего спортсмена - сбросит сигнализацию

ВАЖНО!!! (переделал) операции идут только с тем атлетом и подходом - что на табло
т.е. вы спокойно можете вбивать вес заявки другому спортсмену, осуществили подход и курсор сам прыгнет на того кто на помосте

Сообщение отредактировал kadet: 19 Сентябрь 2012 - 18:05

[Seregatlt]

Столкнулся с такой проблемой, при редактировании строки или при добавлении нового разделителя, категории итд возникает ошибка компилятора скрипта.

Private Sub AddCat_Click()
    Dim tmpRow As Long
    SelCat = ""
    If SelectManCat.Value <> "" Then
	    SelCat = SelectManCat.Value
    ElseIf SelectWomCat.Value <> "" Then
	    SelCat = SelectWomCat.Value
    End If
    If SelCat <> "" Then
	    StartBigCalc
	    stRow = ActiveCell.Row
	    stcol = ActiveCell.Column
	    If UpStr Then ShiftStr = 1: ShiftRow = 0 Else ShiftStr = 0: ShiftRow = 1
	    Cells(ActiveCell.Row + ShiftRow, ActiveCell.Column).Select
	    Selection.EntireRow.Insert
	    tmpRow = ActiveCell.Row
	    Call CopyBigRange(GetProto(4, 6), tmpRow)
	    Cells(stRow + ShiftRow, GetProto(4, 5)).Value = SelCat
	    Cells(stRow + ShiftRow, 1).Value = "C"
	    Cells(stRow + ShiftStr, stcol).Select
	    StopBigCalc
    End If
    Worksheets("PL").Calculate
    Unload Me
End Sub

в строке Call CopyBigRange(GetProto(4, 6), tmpRow) не совпадает тип переменной (argument type mismatch). Либо я что-то делаю не так. Как внести новых участников и удалить всех тех что там сейчас есть?

[kadet]

поправь

Dim tmpRow As Long
на
Dim tmpRow As Integer
-------------------
2 способа:
1 способ
- создать номинацию на закладке NOM
- загрузить ее в протокол - кнопка "Обработка" - кнопка "Загрузить номинацию"

2 способ
- очистить протокол - кнопка "Обработка" - кнопка "Очистить протокол"
- Кнопка "Редактировать строку" и добавляем или спортсмена или разделить по смыслу
------------------
в архиве поправил

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

Сообщение отредактировал kadet: 20 Сентябрь 2012 - 13:43

[Seregatlt]

Все спасибо, работает

[Seregatlt]

Обнаружил еще одну ошибку, при создании объявления до начала соревнования осталось столько-то, нажимаешь кнопку отправить и возникает ошибка VBA. Блоку if не хватает конца цикла end if.

Private Sub Yes_Click()
    ' timerstart = Format(TimerMessage.Value, "nn:ss")
    Dim Mess As String
    Mess = ""
    timerstart = TimerMessage.Value
    Worksheets("PL").Range(GetTablo(9, 5)).Value = "ÑÎÎÁÙÅÍÈÅ"
    If StandartText1.Value Then Mess = StandartText1.Caption
    If StandartText2.Value Then Mess = StandartText2.Caption
    If StandartText3.Value Then Mess = StandartText3.Caption
    Worksheets("PL").Range(GetTablo(10, 5)).Value = Mess
    Worksheets("PL").Range(GetTablo(1, 5)).Value = MessagesText.Value
    Worksheets("PL").Range(GetTablo(13, 5)).Value = Format(TimerMessage.Value, "hh:nn:ss")
    Call WriteTabloMessages(Mess & vbCr & MessagesText.Value, TimerMessage)
    If TimerMessage.Value <> "00:00:00" Then
	    SetTimerAction (TimerMessage.Value)
	    GoTimer = True
	    ActionTimer = True
	    TimerAction
    End
    ActiveCell.Select
    Unload Me
End Sub

[kadet]

ок - сейчас сбацаем, переделывал и видать забыл :)
перезалил
там всего поправка

If TimerMessage.Value <> "00:00:00" Then
SetTimerAction (TimerMessage.Value)
GoTimer = True
ActionTimer = True
TimerAction
End If

Сообщение отредактировал kadet: 25 Сентябрь 2012 - 16:27

[Seregatlt]

Александр, столкнулся еще с проблемой при добавлении весовой, разделителей и прочего возникает ошибка в скрипте. Там везде надо править
Dim tmpRow As Long
на
Dim tmpRow As Integer
У себя я исправил, как будет время поправте в исходнике ;)

Сообщение отредактировал Seregatlt: 01 Октябрь 2012 - 17:55

[kadet]

спасибо - я перешел от лонга к интегеру в нумерации столбцов и строк что-бы поменьше памяти ела - и не везде видать поправил

[Seregatlt]

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

[kadet]

да - просто основную мышь включай перед тем как комп загрузится а потом уже по очереди после загрузки остальные - им свое ID винда назначит

[Seregatlt]

Скажите, как в номинации указать что соревнования по лифтингу, а не только по жиму. Там что-то вместо BP надо написать? PL пробовал - не вышло ;)

PS кажется получилось, разобрался)))

Сообщение отредактировал Seregatlt: 11 Октябрь 2012 - 21:16

[kadet]

Тип соревнований указан в окне "Установить правила соревнований"
Закладка CONFIG - Тип соревнований (13 переменная)
Не учитывается тип соревнований у каждого участника:
PL - троеборье,
SQ, BP, DL - отдельные упражнения
И есть смешанный тип:
UN - смешанные в одном соревновании, и вот здесь учитывается тогда тип соревнований у каждого участника

на закладке CONFIG - кнопка "Установить правила соревнований" - можно изменить настройки.

а в номинации вверху где названия соревнований.

Сообщение отредактировал kadet: 12 Октябрь 2012 - 06:29

[Seregatlt]

От лица федерации пауэрлифтинга г. Тольятти, хочу выразить благодарность Колчанову Александру (aka kadet) за предоставление разработанного им программного обеспечения для информационного табло. Данное ПО использовалось на чемпионате города. Ошибок и недочетов в ходе соревнований в программе не обнаруженно. Большое спасибо за то, что облегчили труд организаторов ;) В прикрепленных изображениях благодарность, отправленная Александру, а так же пара фото с наших соревнований.

Прикрепленные изображения

• 
• 
• 

Сообщение отредактировал Seregatlt: 29 Октябрь 2012 - 22:14

[kadet]

% - пипец RAW и Экип в одном потоке.... жесть
4 абсолютки считать

[VeDi]

% - пипец RAW и Экип в одном потоке.... жесть
4 абсолютки считать

АСП в помощь

[kadet]

нету официальной 1С увы
а Офис 2003 для студента есть :)

[kadet]

летом попробую перевести систему на полностью open source на основе технологии клиент-сервер и обычного браузера

[kadet]

Откатали новый подход с новой версией
99 человек экип и безэкип за 1.5 дня
С расчетом абсолютки смешанного выступления
С автоматическим формированием порядка выхода на помост и автоматической жеребьевкой

в результате секретарь практически только говорит в микрофон и вбивает заказанные веса, соревнованиями управляет полностью комп

на компе сидела девочка 12 лет :))) так что с простотой интерфейса вроде получилось
и успевала даже в игрушки играть на телефоне :)))

[kadet]

Excel версия закончила развитие (но исправление косяков и поддержка остается)
 
Переходим на инет-технологии.
Отличия:

• Весь вспомогательный софт бесплатен.
• Открытый код
• Работа с БД
• Понятие он-лайн встроено по умолчанию ибо технология клиент-сервер
• База выступлений и спортсменов - не надо вводить повторно

Для работы необходимо Apache, PHP5
СУБД еще не выбрал - но склоняюсь в пользу SQLite - локально и PostgreSQL глобально
 
Для разворачивания локально используется Denwer
Глобально можно будет работать с основной базой через инет - постараюсь сделать с минимальными требованиями
Исходя даже из инета с GPRS по сотовому телефону :)))

 

На клиентском компе надо всего браузер со включенной JavaScript.

Скорее всего поддержка IE отметается из-за кучи костылей и нарушений в реализации css. (т.е. работать будет но не так красиво)

 

Если Мурз отомрет - свяжем ее с allpowerlifting.
 
Аминь.
 
Принимаются пожелания, пинки и прочие фи.

Сообщение отредактировал kadet: 11 Октябрь 2013 - 09:54