Ответ
 
Опции темы
Старый 28.09.2011, 05:51    | »»» |  #11
storm
Опытный пользователь
 
Аватар для storm
 
Регистрация: 22.12.2010
Сообщений: 2,121
storm is on a distinguished road
Отправить сообщение для storm с помощью Skype™
По умолчанию

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

г. Челябинск
Ахмедьянов Алексей Адлерович
storm вне форума   Ответить с цитированием
Старый 28.09.2011, 06:08    | »»» |  #12
Smolinc
Начинающий
 
Аватар для Smolinc
 
Регистрация: 04.03.2011
Сообщений: 16
Smolinc is on a distinguished road
По умолчанию

Вот так хочу получить что выдает 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

Последний раз редактировалось Smolinc; 28.09.2011 в 06:22.
Smolinc вне форума   Ответить с цитированием
Старый 28.09.2011, 06:33    | »»» |  #13
storm
Опытный пользователь
 
Аватар для storm
 
Регистрация: 22.12.2010
Сообщений: 2,121
storm is on a distinguished road
Отправить сообщение для storm с помощью Skype™
По умолчанию

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

будет равен 0

г. Челябинск
Ахмедьянов Алексей Адлерович

Последний раз редактировалось storm; 28.09.2011 в 06:54.
storm вне форума   Ответить с цитированием
Старый 28.09.2011, 06:44    | »»» |  #14
Smolinc
Начинающий
 
Аватар для Smolinc
 
Регистрация: 04.03.2011
Сообщений: 16
Smolinc is on a distinguished road
По умолчанию

Сообщение от storm Посмотреть сообщение
скорее всего у вас не успевает отработать функция StartComputing, лучше замените ее на WaitForComputing с теми же параметрами
О теперь считает спасибо. Пошел дальше делать.
Smolinc вне форума   Ответить с цитированием
Старый 09.03.2013, 11:47    | »»» |  #15
TOOP
Начинающий
 
Аватар для TOOP
 
Красноярск
Регистрация: 08.12.2012
Сообщений: 32
TOOP is on a distinguished road
Отправить сообщение для TOOP с помощью ICQ
По умолчанию

Возникла такая же необходимость как в этой ветке. Нужен подсчет количества прибытий в каждую геозону.
Взял этот код.
Сообщение от Smolinc Посмотреть сообщение
Код:
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".
Пробовал делать цикл как написано выше. Программа ошибок не выдает. Но и результата тоже нет.
TOOP вне форума   Ответить с цитированием
Старый 09.03.2013, 13:33    | »»» |  #16
SK
Администратор
 
Аватар для SK
 
Регистрация: 27.05.2010
Сообщений: 29,970
SK has much to be proud ofSK has much to be proud ofSK has much to be proud ofSK has much to be proud ofSK has much to be proud ofSK has much to be proud ofSK has much to be proud ofSK has much to be proud of
Отправить сообщение для SK с помощью Skype™
По умолчанию

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

Код:
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

ООО «ТехноКом», г. Челябинск
Самцов Константин Юрьевич - зам. директора по коммерческой деятельности
SK вне форума   Ответить с цитированием
Ответ


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 
Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход


Текущее время: 19:35. Часовой пояс GMT.


Powered by vBulletin® Version 3.8.5
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot