FlexPro
HistoryBase
Ingénierie
Formation
Téléchargements
Support FlexPro
Connaissance
Communauté
À propos de nous
Références
Emplois
Contact général
Liste des revendeurs
Support FlexPro
FR
DE
EN
Porte-plaquette
Produits et solutions
Support et téléchargements
Entreprise
Magazine
Contact
Langue
MyWeisang

Paramètres du compte.

Topic

Get start time of a signal

Page d'accueil ' Communauté ' Automation et VBA ' Get start time of a signal

Voir les messages de 3 - 1 à 3 (sur un total de 3)
  • Auteur
    Messages
  • #35041

    I am trying to write a macro that changes the scaling of the x-axis of a worksheet or 2-d diagram to display the first 30 seconds of a time signal. The problem is I cannot get the value of the start time:

    Sub Macro()

    ‘ Macro recorded on 2004-11-18 9:21:43 PM by (unknown)

    Dim StartTime as Long
    StartTime = ??????????? ‘Help
    ActiveDatabase.ActiveObject.CursorActive = False
    ActiveDatabase.ActiveObject.Grid.Interior.Select
    ActiveDatabase.ActiveObject.XAxes(1).Scaling.AutoScaleStartValue = False
    ActiveDatabase.ActiveObject.XAxes(1).Scaling.AutoScaleEndValue = False
    ActiveDatabase.ActiveObject.XAxes(1).Scaling.StartValue = StartTime
    ActiveDatabase.ActiveObject.XAxes(1).Scaling.EndValue = StartTime + 30
    End Sub

    Also, is there some reference for the object model for flexpro VBA? I’m using the object browser, but this provides very limited information.

    Thanks,

    Paul

    #35039

    I am trying to write a macro that changes the scaling of the x-axis of a worksheet or 2-d diagram to display the first 30 seconds of a time signal. The problem is I cannot get the value of the start time:

    Sub Macro()

    ‘ Macro recorded on 2004-11-18 9:21:43 PM by (unknown)

    Dim StartTime as Long
    StartTime = ??????????? ‘Help
    ActiveDatabase.ActiveObject.CursorActive = False
    ActiveDatabase.ActiveObject.Grid.Interior.Select
    ActiveDatabase.ActiveObject.XAxes(1).Scaling.AutoScaleStartValue = False
    ActiveDatabase.ActiveObject.XAxes(1).Scaling.AutoScaleEndValue = False
    ActiveDatabase.ActiveObject.XAxes(1).Scaling.StartValue = StartTime
    ActiveDatabase.ActiveObject.XAxes(1).Scaling.EndValue = StartTime + 30
    End Sub

    Also, is there some reference for the object model for flexpro VBA? I’m using the object browser, but this provides very limited information.

    Thanks,

    Paul

    #35040
    serin thomas
    Participant

    try this

    dim factor = 30
    signal(data.y,data.x*factor)

Voir les messages de 3 - 1 à 3 (sur un total de 3)
  • Vous devez être connecté pour répondre à ce sujet.