4 часа назад, The Iron Wizard сказал:

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

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

в том же куске кода, заблокируй код, который отвечает за обновление, на работу не должно сильно повлиять, но мигание, должно уйти.

19 часов назад, Shurik91 сказал:

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

в том же куске кода, заблокируй код, который отвечает за обновление, на работу не должно сильно повлиять, но мигание, должно уйти.

К сожалению не помогло.

2 часа назад, The Iron Wizard сказал:

К сожалению не помогло.

в твоём видео я заметил, что когда обновление было, таблица моргала при нажатии ПУСК, а когда ты его пропустил с помощью nextpoint, моргание пропало.

заблокируй обновление, ещё здесь m04_MatchesSheet, чтобы при загрузке линии, тоже его не было. Аналогично, как в модуле Автомат.

Изменено 16 августа, 20251 г. пользователем Shurik91

В 25.06.2025 в 22:05, Shurik91 сказал:

дополнительные скрины

например я выбрал в настройках, интересные мне рынки, нажал ОК

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

Добавьте сюда пожалуйста HALF TIME/FULL TIME . По моему опыту это очень хорошее дополнение.

4 часа назад, Shurik91 сказал:

в твоём видео я заметил, что когда обновление было, таблица моргала при нажатии ПУСК, а когда ты его пропустил с помощью nextpoint, моргание пропало.

заблокируй обновление, ещё здесь m04_MatchesSheet, чтобы при загрузке линии, тоже его не было. Аналогично, как в модуле Автомат.

Спасибо. Помогло. Даже загружаться линия стала намного быстрее👍.

А есть архив по Альтрадару ? 

Маленькое обновление от меня. Настраивал под себя, если что, не пинайте. Добавил возможность BACK TEST на 1 и 4 алгоритм и еще пару плюшек. На валуи берутся кэфы открытия. 

KALKULATOR_OZ_FIX(TIW)_16.08.25.xlsb

В 11.08.2025 в 21:58, The Iron Wizard сказал:

Сори. Поторопился.

KALKULATOR_OZ_FIX_11.08.25.xlsb 928.64 kB · 51 загрузка

по поводу этой проги, возможно нашел плюсовой отбор, в области где рассчитываются очки бттс команд и выделяется бттс рейтинг, выбираете матчи где рейтинг матча равен 20 и ниже и ставите на обе забьют - нет. как вариант еще отсортировать лиги и возможно не брать девушек.

1 час назад, darkest secret сказал:

по поводу этой проги, возможно нашел плюсовой отбор, в области где рассчитываются очки бттс команд и выделяется бттс рейтинг, выбираете матчи где рейтинг матча равен 20 и ниже и ставите на обе забьют - нет. как вариант еще отсортировать лиги и возможно не брать девушек.

И в  какой именно

45 минут назад, zxxxa сказал:

И в  какой именно

колонка BZ

52 минуты назад, zxxxa сказал:

И в  какой именно

правее, фиолетовая вкладка both teams to score calculator, btts rating, но пока не уверен, кому интересно, можете попробовать глянуть

 

10 минут назад, darkest secret сказал:

правее, фиолетовая вкладка both teams to score calculator, btts rating, но пока не уверен, кому интересно, можете попробовать глянуть

 

12.08.2025 на обе не забьют 23 сыграло - не забило, а 9 забило.

4 минуты назад, zxxxa сказал:

12.08.2025 на обе не забьют 23 сыграло - не забило, а 9 забило.

стата то хорошая, но может быть такое, что в старых датах статы обновились и числа поменялись, например 12 числа у этих команд был рейтинг 35, а сегодня после обновления предыдущих игр упал до 15. владелец таблицы, это так работает?

Только что, darkest secret сказал:

стата то хорошая, но может быть такое, что в старых датах статы обновились и числа поменялись, например 12 числа у этих команд был рейтинг 35, а сегодня после обновления предыдущих игр упал до 15. владелец таблицы, это так работает?

Я ЭТИ ДАННЫЕ ЗАГРУЗИЛ 11

2 минуты назад, zxxxa сказал:

Я ЭТИ ДАННЫЕ ЗАГРУЗИЛ 11

понял

3 минуты назад, darkest secret сказал:

стата то хорошая, но может быть такое, что в старых датах статы обновились и числа поменялись, например 12 числа у этих команд был рейтинг 35, а сегодня после обновления предыдущих игр упал до 15. владелец таблицы, это так работает?

Эти данные берутся за последние 5 матчей(не важно где играли) одной и второй команды. 

4 минуты назад, zxxxa сказал:

Я ЭТИ ДАННЫЕ ЗАГРУЗИЛ 11

Можете хоть сегодня, они не изменятся.

4 минуты назад, The Iron Wizard сказал:

Можете хоть сегодня, они не изменятся.

а вот за эту функцию респект! так работает со всеми показателями в таблице? в некоторых таблицах просто нет смысла проверять резы задним числом, потому что все значения меняются. я когда впервые попробовал скачать таблицу, помню по каким то критериям у меня выходило +160 флетов вроде за выходные, а потом я сидел и думал че не так то.

Только что, darkest secret сказал:

а вот за эту функцию респект! так работает со всеми показателями в таблице? в некоторых таблицах просто нет смысла проверять резы задним числом, потому что все значения меняются. я когда впервые попробовал скачать таблицу, помню по каким то критериям у меня выходило +160 флетов вроде за выходные, а потом я сидел и думал че не так то.

Если в алгоритме не участвует турнирная таблица. 

Только что, The Iron Wizard сказал:

Если в алгоритме не участвует турнирная таблица. 

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

 

3 часа назад, The Iron Wizard сказал:

Маленькое обновление от меня. Настраивал под себя, если что, не пинайте. Добавил возможность BACK TEST на 1 и 4 алгоритм и еще пару плюшек. На валуи берутся кэфы открытия. 

KALKULATOR_OZ_FIX(TIW)_16.08.25.xlsb 1.45 MB · 13 загрузок

По BACK TEST на 1 и 4 алгоритм будьте внимательны, нужно брать максимум за 4 дня.

5 часов назад, Druskoking777 сказал:

Ну, я не знаю, верны ли загруженные мной данные.

Но с помощью файла Betalone, опубликованного на этом форуме, я провел тест по загрузке данных с 11 января этого года.

Я остановил загрузку, поскольку она была очень медленной, но, хотя были загружены данные только о 5 матчах, я думаю, что данные о загрузке верны.

Я подтвердил, что на сегодняшний день команды сыграли столько матчей, сколько указано в столбце I оранжевым цветом и в красной рамке.

Я также проверил, что коэффициенты на матчи в эту дату в январе соответствуют указанным на изображении.

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

 

Betalone (2024)_mod_RedStar_public (1).xlsb 4.3 MB · 2 загрузки

Не сравнивайте Беталоне и Калькулятор, они парсят совсем разные сайты. Даже Беталоны парсят разные сайты. 

2 минуты назад, Druskoking777 сказал:

Я ничего не сравниваю.

Они сказали мне, что не было файлов, которые могли бы анализировать более 7 дней до текущей даты.

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

 

В этой теме осуждаются таблицы, исправленные Shurik91. Думаю и за этого и был дан такой ответ. 

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

Arbworld(CS).xlsx

Изменено 17 августа, 20251 г. пользователем Farel

При анализе встречи между командами, перешедшими из одной лиги в другую.  
Например: ИСПАНИЯ: Сегунда    2025.08.16 00:30    матч Вальядолид – Сеута. 

Данные второй команды не записывались на листы "Гости", "ГостиГости", "ГостиДома" — выводились пустые значения.  В код были внесены небольшие изменения. Так будет правильно?  Уважаемые знатоки требуется ваша помощь. 

Sub getHome(ts1 As Long, tour1_name As String, home_id1 As String, away_id1 As String, country_id As String)
    On Error Resume Next
    Dim shGameAll As Worksheet, shGameHome As Worksheet, shGameAway As Worksheet
    Dim wsLiga As Worksheet
    Dim arrLigs As Variant
    Dim r As Long
    Dim matchLeagueFound As Boolean
    Set shGameAll = ThisWorkbook.Sheets("Дома")
    Set shGameHome = ThisWorkbook.Sheets("ДомаДома")
    Set shGameAway = ThisWorkbook.Sheets("ДомаГости")
    Set wsLiga = ThisWorkbook.Sheets("Лига")
    arrLigs = wsLiga.Range("A2", wsLiga.Cells(wsLiga.Rows.Count, "A").End(xlUp)).Value
    b1 = 2
    Set objRegExp = CreateObject("VBScript.RegExp"): objRegExp.Pattern = "\s\(...\)"
    fs_input = getHttp("https://d." & sourcer & "x/feed/pr_1_" & country_id & "_" & home_id1 & "_0_0" & sufx)
    fs_rows = Split(fs_input, "¬~")
    fs_rows_length = UBound(fs_rows) - LBound(fs_rows)
    For i = 0 To fs_rows_length
    fs_row = Split(fs_rows(i), "¬")
    fs_row_length = UBound(fs_row) - LBound(fs_row)
    If fs_row_length < 0 Then GoTo nextpoint
        fs_index = Split(fs_row(0), ChrW(&HF7))
        If IsArray(fs_index) Then
            fs_index_name = fs_index(0)
            fs_index_value = fs_index(1)
        End If
       # --- Проверка названия лиги ---
        If fs_index_name = "ZA" Then
            tour2_name = fs_index_value
            matchLeagueFound = False
            For r = LBound(arrLigs, 1) To UBound(arrLigs, 1)
                If StrComp(Trim(tour2_name), Trim(CStr(arrLigs(r, 1))), vbTextCompare) = 0 Then
                    matchLeagueFound = True
                    Exit For
                End If
            Next r
        End If
        # --- Если есть данные об игре или лига не совпадает, пропускаем---
        If fs_index_name = "AA" Then
            If ligues_mod = 2 And Not matchLeagueFound Then GoTo nextpoint
         #--- Данные об игре ---
            homeFTOT = "": awayFTOT = "": homeFT = "": awayFT = ""
            home1T = "": away1T = "": home2T = "": away2T = ""
            For j = 0 To fs_row_length
                fs_row_parts = Split(fs_row(j), ChrW(&HF7))
                Select Case fs_row_parts(0)
                    Case "AA": match_id = fs_row_parts(1)
                    Case "AD":
                        ts2 = Val(fs_row_parts(1))
                        date_match = DateAdd("s", fs_row_parts(1), "01/01/1970")
                        date_match = DateAdd("h", timezone, date_match)
                        date_match = Format(date_match, "yyyy.mm.dd hh:mm")
                    Case "AB": status_game = fs_row_parts(1)
                    Case "AC": status_game_code = fs_row_parts(1)
                    Case "AE": home_name = fs_row_parts(1)
                    Case "AF": away_name = fs_row_parts(1)
                    Case "AG": homeFTOT = fs_row_parts(1)
                    Case "AH": awayFTOT = fs_row_parts(1)
                    Case "AT": homeFT = fs_row_parts(1)
                    Case "AU": awayFT = fs_row_parts(1)
                    Case "BC": home2T = fs_row_parts(1)
                    Case "BD": away2T = fs_row_parts(1)
                    Case "PX": home_id2 = fs_row_parts(1)
                    Case "PY": away_id2 = fs_row_parts(1)
                End Select
            Next j
            If status_game = "3" And _
               (status_game_code = "3" Or status_game_code = "10" Or status_game_code = "11") And _
               (ts2 < ts1) Then
               If homeFTOT <> "" And home2T <> "" And awayFTOT <> "" And away2T <> "" Then
                    home1T = Val(homeFTOT) - Val(home2T)
                    away1T = Val(awayFTOT) - Val(away2T)
                End If
                home_name = objRegExp.Replace(home_name, "")
                away_name = objRegExp.Replace(away_name, "")
                With shGameAll
                    .Range("A" & b1).Value = tour2_name
                    .Range("B" & b1).Value = date_match
                    .Range("C" & b1).Value = home_name
                    .Range("D" & b1).Value = away_name
                    .Range("E" & b1).Value = home1T
                    .Range("F" & b1).Value = away1T
                    .Range("G" & b1).Value = home2T
                    .Range("H" & b1).Value = away2T
                    If homeFT = "" Or awayFT = "" Then
                        .Range("J" & b1).Value = homeFTOT
                        .Range("K" & b1).Value = awayFTOT
                    Else
                        .Range("J" & b1).Value = homeFT
                        .Range("K" & b1).Value = awayFT
                    End If
                End With
                If home_id2 = home_id1 Then
                    shGameAll.Range("I" & b1).Value = "Дома"
                    shGameHome.Rows(b1 & ":" & b1).Value = shGameAll.Rows(b1 & ":" & b1).Value
                Else
                    shGameAll.Range("I" & b1).Value = "Гости"
                    shGameAway.Rows(b1 & ":" & b1).Value = shGameAll.Rows(b1 & ":" & b1).Value
                End If
                b1 = b1 + 1
                If b1 = 60 Then Exit For
            End If
        End If
nextpoint:
        DoEvents
    Next i
    shGameAll.Range("A:K").Sort Key1:=shGameAll.Columns("B"), Header:=xlYes, Order1:=xlDescending
    shGameHome.Range("A:K").Sort Key1:=shGameHome.Columns("B"), Header:=xlYes, Order1:=xlDescending
    shGameAway.Range("A:K").Sort Key1:=shGameAway.Columns("B"), Header:=xlYes, Order1:=xlDescending
End Sub

 

Изменено 17 августа, 20251 г. пользователем Jahongir Gayiberdiyev