Современные технологии автоматизации» («СТА») —  журнал для квалифицированных специалистов по промышленной автоматизации Форум СТА — современные технологии автоматизации Домашняя страница
Домашняя страница форума CTA Домашняя страница форума CTA > II. АСУТП и SCADA > Программное обеспечение
  Активные темы Активные темы
  FAQ FAQ  Искать в форуме   Зарегистрироваться Зарегистрироваться  Вход в систему Вход в систему

Genesis, псевдонимы

 Ответить Ответить Страница  <12
Автор
Сообщение
poison Смотреть выпадающим
Участник
Участник
Аватар

Присоединился: 02 Декабрь 2010
Online Status: Offline
Публикации: 68
Свойства публикации Свойства публикации   Ответить, цитируя автора - poison Ответить, цитируя автора -  ОтветитьОтвет Прямая ссылка на эту публикацию Тема сообщения: Genesis, псевдонимы
    Опубликовано: 01 Сентябрь 2011 09:11

Доброе утро!

Я думаю что вашу задачу возможно реализовать двумя способами:

1. попробуйте сделать это на внутреннем скрипте genesis, примерно это выглядит так подключится через ODBC к вашей базе данных и затем в цикле в какую-нибудь переменную (которая привязана к тренду) поочередна читать ваши данные из базы данных (SQL запросами).

2.написать на С++ программу конвертор которая подключается к обеим базам данных, т.е. читала из вашей базы и записывала в базу genesis.

Наверх
nikename Смотреть выпадающим
Новичок
Новичок


Присоединился: 21 Июль 2011
Online Status: Offline
Публикации: 11
Свойства публикации Свойства публикации   Ответить, цитируя автора - nikename Ответить, цитируя автора -  ОтветитьОтвет Прямая ссылка на эту публикацию Опубликовано: 02 Сентябрь 2011 16:05
есть  скрипт для создания любого пера:

Option Explicit


Dim Values(1 To 480)
Dim TDates(1 To 480)
Dim MSecs(1 To 480)
Dim Qual(1 To 480)
Dim I As Long
Dim bmyTrend As Boolean
Dim strOneName As String
Dim PenValues As Variant
Dim PenTDates As Variant
Dim PenMSecs As Variant
Dim PenQuality As Variant
Public Sub qwe()

Randomize

strOneName = "NewPen"
TWXViewer1.AddCustomPen (strOneName)
Dim mypen As Object
Set mypen = TWXViewer1.GetPen(strOneName, "custom")

mypen.PenVisible = True
mypen.PenColor = 5
mypen.PenWidth = 1
Set mypen = Nothing
End Sub

Public Sub asd()

For I = UBound(Values) To LBound(Values) + 1 Step -1
Values(I) = Values(I - 1)
TDates(I) = TDates(I - 1)
MSecs(I) = MSecs(I - 1)
Qual(I) = Qual(I - 1)
Next I
Values(LBound(Values)) = 100.5 * Rnd
TDates(LBound(Values)) = Now
MSecs(LBound(Values)) = 0 
Qual(LBound(Values)) = 192
PenValues = Values
PenTDates = TDates
PenMSecs = MSecs
PenQuality = Qual
bmyTrend = TWXViewer1.SetPenValues(strOneName, PenValues, PenTDates, _
PenMSecs, PenQuality)         
End Sub

в ней как бы ключевыми являются
 Values(LBound(Values)) = 100.5 * Rnd
TDates(LBound(Values)) = Now 
 
    А как можно таблицу добавить???






Наверх
 Ответить Ответить Страница  <12

Переход на форум Права доступа на форуме Смотреть выпадающим

Bulletin Board Software by Web Wiz Forums® version 9.64
Powered by Web Wiz Forums Free Express Edition
Copyright ©2001-2009 Web Wiz