28.09.2011, 05:51
|
| »»» |
#11
|
Опытный пользователь
Регистрация: 22.12.2010
Сообщений: 2,121
|
чтобы не играть в телепатов, весь код в студию
г. Челябинск
Ахмедьянов Алексей Адлерович
|
|
|
|
28.09.2011, 06:08
|
| »»» |
#12
|
Начинающий
Регистрация: 04.03.2011
Сообщений: 16
|
Вот так хочу получить что выдает 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.
|
|
|
|
28.09.2011, 06:33
|
| »»» |
#13
|
Опытный пользователь
Регистрация: 22.12.2010
Сообщений: 2,121
|
скорее всего у вас не успевает отработать функция StartComputing, лучше замените ее на WaitForComputing с теми же параметрами или дождитесь когда флаг
ComputingBusy
Признак выполнения расчётов: 0 – готов, 1 – занят
будет равен 0
г. Челябинск
Ахмедьянов Алексей Адлерович
Последний раз редактировалось storm; 28.09.2011 в 06:54.
|
|
|
|
28.09.2011, 06:44
|
| »»» |
#14
|
Начинающий
Регистрация: 04.03.2011
Сообщений: 16
|
Сообщение от storm
|
скорее всего у вас не успевает отработать функция StartComputing, лучше замените ее на WaitForComputing с теми же параметрами
|
О теперь считает спасибо. Пошел дальше делать.
|
|
|
|
09.03.2013, 11:47
|
| »»» |
#15
|
Начинающий
Красноярск
Регистрация: 08.12.2012
Сообщений: 32
|
Возникла такая же необходимость как в этой ветке. Нужен подсчет количества прибытий в каждую геозону.
Взял этот код.
Сообщение от 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".
Пробовал делать цикл как написано выше. Программа ошибок не выдает. Но и результата тоже нет.
|
|
|
|
09.03.2013, 13:33
|
| »»» |
#16
|
Администратор
Регистрация: 27.05.2010
Сообщений: 29,983
|
Не спешите...
Код:
|
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 |
ООО «ТехноКом», г. Челябинск
Самцов Константин Юрьевич - зам. директора по коммерческой деятельности
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Текущее время: 00:27. Часовой пояс GMT.
|
|