TechnicalWriter: TechnicalWriter переименовал страницу Справка:TMManager в Справка:TMManager (Архив)

2021-02-08T06:12:06Z

TechnicalWriter переименовал страницу Справка:TMManager в Справка:TMManager (Архив)

TechnicalWriter в 06:11, 8 февраля 2021

2021-02-08T06:11:47Z

RishatMuhametshin в 07:24, 30 июля 2009

2009-07-30T07:24:08Z

RishatMuhametshin: Новая: '''{{PAGENAME}}''', пример сценария на языке Basic (VBS):

 ' Пример работы с объектом "Передача координат". ' Коорд...

2009-07-30T07:23:45Z

Новая: '''{{PAGENAME}}''', пример сценария на языке Basic (VBS): <pre> ' Пример работы с объектом "Передача координат". ' Коорд...

Новая страница

'''{{PAGENAME}}''', пример сценария на языке Basic (VBS):

<pre>
' Пример работы с объектом "Передача координат".
' Координаты в программе можно менять только в следующем диапазоне:
' Широта - от 55.76194441 до 55.79749994
' Долгота - от 37.54083331 до 37.60694440
' Это связано с демонстрационной картой от компании "Ингит". В ней координаты заданы жестко.
' Экипаж может не отображаться на карте по следующим причинам:
' - передаваемое значение "Identifier" не совпадает ни с одним значением поля "Идентификатор" у экипажей;
' - передаваемые значения координат выходят из допустимого диапазона данной карты;
' - с последнего момента передачи прошло много времени (экипажи через определенный промежуток
' времени автоматически стираются с карты). Время задается в настройках программы в закладке "Отображение экипажей".

' При открытии сессии запускается таймер, который каждые 10 секунд передает список
' принятых координат в базу данных.
' После закрытия сессии таймер прекращает работу. Координаты, переданные в COM-объект без открытия сессии,
' никак не обрабатываются и не сохраняются.

Dim mgr

' Создать COM-объект.
set mgr = WScript.CreateObject("TMMgr.TMManager")

' Установить подключение.
' DBConnect(string ServerName, string FilePath, string Login, string Password)
mgr.DBConnect "localhost", "C:\Program Files\TMEnterprise\tme_db.fdb", "SYSDBA", "masterkey"

' Открыть сессию на прием координат.
mgr.BeginCoordsSending

' Отправить координаты.
' SendCoords(int Identifier, float Latitude, float Longitude)
' Identifier - это может быть любое число, главное, чтобы оно совпадало с полем "Идентификатор"
' в справочнике "Экипажи". Для удобства можно использовать ИД водителя, его можно посмотреть в справочнике "Водители".
mgr.SendCoords 11, 55.77, 37.55
mgr.SendCoords 12, 55.78, 37.56
mgr.SendCoords 13, 55.77, 37.58

WScript.Sleep 17000

' Отправить координаты.
mgr.SendCoords 11, 55.78, 37.56
mgr.SendCoords 12, 55.77, 37.58
mgr.SendCoords 13, 55.77, 37.55

WScript.Sleep 17000

' Отправить координаты.
mgr.SendCoords 11, 55.77, 37.55
mgr.SendCoords 12, 55.78, 37.55
mgr.SendCoords 13, 55.78, 37.56

' Закрыть сессию приема координат.
mgr.EndCoordsSending

' Разъединить подключение.
mgr.DBDisconnect

' Удалить COM-объект.
Set mgr = Nothing
</pre>

[[Категория:COM-приложения]]

← Предыдущая		Версия 06:11, 8 февраля 2021
Строка 63:		Строка 63:

	[[Категория:COM-приложения]]		[[Категория:COM-приложения]]
		+	[[Категория:Архив]]

← Предыдущая		Версия 07:24, 30 июля 2009
Строка 1:		Строка 1:
−	'''{{PAGENAME}}''', пример сценария на языке Basic (VBS):	+	'''{{PAGENAME}}''', пример сценария для работы с [[TMManager]] на языке Basic (VBS):

	<pre>		<pre>

Справка:TMManager (Архив) - История изменений

TechnicalWriter: TechnicalWriter переименовал страницу Справка:TMManager в Справка:TMManager (Архив)

TechnicalWriter в 06:11, 8 февраля 2021

RishatMuhametshin в 07:24, 30 июля 2009

RishatMuhametshin: Новая: '''{{PAGENAME}}''', пример сценария на языке Basic (VBS):
' Пример работы с объектом "Передача координат". ' Коорд...

← Предыдущая	Версия 06:12, 8 февраля 2021
(нет различий)