ОФИЦИАЛЬНЫЙ ФОРУМ ГРУППЫ КОМПАНИЙ «ТЕХНОКОМ» - Проблема: Выгрузка в Excell числа прибытий в КТ

- - Проблема: Выгрузка в Excell числа прибытий в КТ (https://forum.tk-chel.ru/showthread.php?t=1047)

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

Вот так хочу получить что выдает TripEntriesNum.

Код:

Private Sub Button_Click()



Set AG = CreateObject("AutoGRAPH.AutoGRAPHAutomation")



AG.StartComputing "Участок технологического транспорта.ini", "75769", Cells(1, 2), Cells(2, 2), "GSM", 1

AG.TripEntriesListTypeName = "checkpoints"

AG.TripEntriesListKindName = "Points"

Cells(3, 2) = AG.TripEntriesNum



End Sub

скорее всего у вас не успевает отработать функция StartComputing, лучше замените ее на WaitForComputing с теми же параметрами или дождитесь когда флаг
ComputingBusy
Признак выполнения расчётов: 0 – готов, 1 – занят

будет равен 0

Цитата:

Сообщение от storm (Сообщение 16067)

скорее всего у вас не успевает отработать функция StartComputing, лучше замените ее на WaitForComputing с теми же параметрами

О теперь считает спасибо. Пошел дальше делать.

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

Цитата:

Сообщение от Smolinc (Сообщение 16064)

Код:
Private Sub Button_Click()

Set AG = CreateObject("AutoGRAPH.AutoGRAPHAutomation")

AG.StartComputing "Участок технологического транспорта.ini", "75769", Cells(1, 2), Cells(2, 2), "GSM", 1
AG.TripEntriesListTypeName = "checkpoints"
AG.TripEntriesListKindName = "Points"
Cells(3, 2) = AG.TripEntriesNum

End Sub

Заменил StartComputing на WaitForComputing.
Указал временной интервал в “Cells(1, 2)”, “Cells(2, 2)”, формата 01.02.2014 19:30:00.
Выдает ошибку в этой строке "Cells(3, 2) = AG.TripEntriesNum".
Пробовал делать цикл как написано выше. Программа ошибок не выдает. Но и результата тоже нет.

Не спешите...

Код:

Sub Кнопка1_Щелчок()

    Set AG = CreateObject("AutoGRAPH.AutoGRAPHAutomation")

    

    Range("A8:Z65536").Clear

  

    AG.SetGroupIndexByFileName Cells(1, 2)

    AG.SetCarIndexByDevice Cells(2, 2)

    

    AG.ComputingTimeout = 15 'таймаут на расчет

    AG.WaitForComputing Cells(1, 2), Cells(2, 2), Cells(3, 2), Cells(4, 2), "GSM", 1

    

    Tripsnum = AG.Tripsnum

    Cells(8, 1) = "Кол-во рейсов:"

    Cells(8, 2) = Tripsnum

    Cells(9, 1) = "Файл КТ:"

    Cells(9, 2) = AG.CarCheckPointsFile

    

    

    SR = 11 ' начальная строка для вывода информации о рейсах и КТ

    

    If Tripsnum > 0 Then

        For x = 1 To Tripsnum

            AG.TripIndex = x

            AG.TripEntriesListTypeName = "checkpoints"

            AG.TripEntriesListKindName = "points"

            KTNum = AG.TripEntriesNum

            Cells(SR, 1) = "РЕЙС №"

            Cells(SR, 2) = x

            SR = SR + 1

            Cells(SR, 1) = "Кол-во КТ:"

            Cells(SR, 2) = KTNum

            SR = SR + 1

             

            If KTNum > 0 Then

                Cells(SR, 1) = "№ КТ"

                Cells(SR, 2) = "Имя КТ"

                Cells(SR, 3) = "Начало"

                Cells(SR, 4) = "Конец"

                SR = SR + 1

                For xx = 1 To KTNum

                    AG.EntryIndex = xx

                    Cells(SR, 1) = xx

                    Cells(SR, 2) = AG.EntryStartName

                    Cells(SR, 3) = AG.EntryStartRealTime

                    Cells(SR, 4) = AG.EntryEndRealTime

                    SR = SR + 1

                Next xx

                SR = SR + 1

            End If

        Next x

    End If

    

End Sub