From Friday, April 19th (11:00 PM CDT) through Saturday, April 20th (2:00 PM CDT), 2024, ni.com will undergo system upgrades that may result in temporary service interruption.

We appreciate your patience as we improve our online experience.

DIAdem

cancel
Showing results for 
Search instead for 
Did you mean: 

Arbeiten mit Objekten - Verständnisschwierigkeiten

Hallo Miteinander,

 

es gibt Momente, das scheint mir das Arbeiten mit Objekten im Skript logisch oder aber auch nicht und es gibt grosses Kopfzerbrechen. Gibt es seitens NI eine Literatur (ausser die Hilfe) die einem speziell zu dem Thema weiter helfen kann?

 

 

Bsp 1:

Dim oMyChn
Dim oMyChannels
Set oMyChannels = Data.GetChannels("Example/D*")
For Each oMyChn in oMyChannels
  Call MsgBoxDisp(oMyChn.Name)
Next

 

Bsp 2:

Dim oMyElementList, oMyChannelgroups, Channelgroup, oMyChannels, Channel
Set oMyElementList = Data.CreateElementList
Set oMyChannelgroups = Data.Root.ChannelGroups
For Each Channelgroup in oMyChannelgroups
  Call oMyElementList.Add(Channelgroup)
  Set oMyChannels = Channelgroup.Channels
  For Each Channel in oMyChannels
    Call oMyElementList.Add(Channel)
  Next
Next
Call MsgBoxDisp(oMyElementList.Count)

 

Wie kann ich im Beispiel mir die Namen der Element anzeigen lassen? Im Beipsiel 1 schaut das plausibel und verständlich aus.

 

Danke für Literaturtipps

Gruß

R.Keller

0 Kudos
Message 1 of 2
(4,072 Views)

Hallo,

 

damit du im zweiten Beispiel dir die Namen der einzelnen Elemente der ElementList ausgeben lassen kannst, brauchst du beispielsweise diesen Code:

 

Dim oMyElementList, oMyChannelgroups, Channelgroup, oMyChannels, Channel
Set oMyElementList = Data.CreateElementList
Set oMyChannelgroups = Data.Root.ChannelGroups
For Each Channelgroup in oMyChannelgroups
  Call oMyElementList.Add(Channelgroup)
  Set oMyChannels = Channelgroup.Channels
  For Each Channel in oMyChannels
    Call oMyElementList.Add(Channel)
  Next
Next


DIM iLoopCount

FOR iLoopCount=1 TO oMyElementList.Count
  Call MsgBoxDisp(oMyElementList.Item(iLoopCount).Name)
NEXT

 

 

Es wir dann jedes Element der ElementList durchgearbeitet und der jeweilige Namen ausgegeben.

 

Bezüglich Literatur: Speziell auf DIAdem zugeschnitte Literatur gibt es in Form der Schulungshandbücher aus dem DIAdem Advanced Kurs:

 

DIAdem Advanced - National Instruments
http://sine.ni.com/tacs/app/overview/p/ap/of/lang/de/pg/1/ps/30/sn/n24:4127,n8:27/id/1579/

 

Wenn ich richtig weiß, dann kann man die Unterlagen des Kurses seperat erwerben, auch wenn ich gerade nicht das Bestellformular finde.

Weitere DIAdem-spezifische Unterlagen würde ich immoment nicht kennen. Zu allen nicht DIAdem-spezifischen VBS Geschichten findet man im Internet genug infos.

 

Grüße, Stephan

 

 

 

0 Kudos
Message 2 of 2
(3,884 Views)