Unsere Partner:

DIAdem-Forum.de Partner

DIAdem-Forum.de Partner

DIAdem-Forum.de Partner

DIAdem-Forum.de Partner





Stellenangebote:
Entwicklungsingenieur Messtechnik und Fahrzeugelektronik (m/w)
Planung und Durchführung von Projekten im Bereich NFZ-Messtechnik
MBtech Group GmbH Co. KGaA
Magstadt, Sindelfingen bei Stuttugart, Stuttgart
Versuchsingenieur innovative Chassissysteme (m/w)
Erprobung von Chassissystemen, Koordination des Aufbaus von Aggregateträgern
MBtech Group GmbH Co. KGaA
Magstadt
Laboringenieur / Messtechnikingenieur mit Labview (w/m)
Entwicklung und Auslegung von Versuchsaufbauten
Brunel GmbH
Frankfurt/Offenbach
Versuchsingenieur Chassis Erprobung (m/w)
Grundsatzuntersuchungen, Fahrversuche und Freigabeuntersuchungen im Fahrwerkbereich
MBtech Group GmbH Co. KGaA
Magstadt
Applikationsingenieur Abgasnachbehandlung / SCR Dosiermodul (m/w)
Spezifikation, Applikation, Test und Validierung von Softwarefunktionen der Abgasnachbehandlung
MBtech Group GmbH Co. KGaA
Fellbach
Entwicklungsingenieur Getriebemechatronik (m/w)
Getriebe und Hybrid Aufgabenstellungen
MBtech Group GmbH Co. KGaA
Fellbach, Stuttgart
Entwicklungsingenieur Fahrzeugapplikation Verbrennungsmotor (m/w)
Applikation, Test und Validierung von Motorsteuergerät-Funktionen auf den Gebieten Fahrbarkeit und Regelungssysteme
MBtech Group GmbH Co. KGaA
Fellbach
Applikationsingenieur Abgasnachbehandlung /-OBD Otto (m/w)
Applikation, Test und Validierung von Softwarefunktionen der Abgasnachbehandlung / - OBD
MBtech Group GmbH Co. KGaA
Fellbach
Versuchsingenieure / Produktionsingenieure (m/w)
Prozessentwicklung, Versuchswesen in den Bereichen Messtechnik, Elektronik, Getriebetechnik
über Steinbach Partner Executive Consultants
Region Stuttgart und Unterfranken
Versuchsingenieur Betriebsfestigkeit (m/w)
Auswerten von Messdaten, Erstellung von Autosequenzen
MBtech Group GmbH Co. KGaA
Wörth, Untertürkheim
Versuchsingenieur (m/w) Sonderversuch
Entwicklung neuer Testmethoden im Sonderversuch
Continental AG
Hannover
Test Engineer (m/w)
Durchführung und Analyse von Versuchen an PKW-Innenraumkomponenten
Johnson Controls Automotive Experienc über Scheerer Werbung GmbH
Burscheid

Stand: 10:34:43 06.02.2012


DIAdem-Forum - deutschsprachiges DIAdem Forum / DIAdem / Allgemein v / DIAdem Anfänger hat Fragen

.
 
Antwort schreiben 
 
Themabewertung:
  • 1 Bewertungen - 5 im Durchschnitt
  • 1
  • 2
  • 3
  • 4
  • 5

DIAdem Anfänger hat Fragen
17.02.2010, 18:42
Beitrag #21
Bruno Offline
Team
******
DIAdem-Version: 10.2, 11.1, 2010 und auf alten CD's runter bis 3.0
DIAdem-Sprachversion: DE
DIAdem Erfahrung seit: 1996
Beiträge: 569
Registriert seit: Oct 2008
RE: DIAdem Anfänger hat Fragen

Hallo STG,
hab leider im Momant wenig Zeit, vielleicht komm ich morgen ja dazu mal in Dein Problem reinzuschnuppern...
Gruß
Bruno

Diadem 2010
Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren



18.02.2010, 09:16
Beitrag #22
Bruno Offline
Team
******
DIAdem-Version: 10.2, 11.1, 2010 und auf alten CD's runter bis 3.0
DIAdem-Sprachversion: DE
DIAdem Erfahrung seit: 1996
Beiträge: 569
Registriert seit: Oct 2008
RE: DIAdem Anfänger hat Fragen

Hallo STG,
ich habe erst einmal nur ein paar Tips für Dich:
- arbeite mit Subroutinen!
- Variablen mit Dim an zentralen Stellen deklarieren
- Code übersichtlich einrücken
- Wenn es geht mit Schleifen arbeiten
Ansonsten ist mir das ganze erstmal zu komplex, ich hoffe Du hast nur Fragen zu Teilproblemen Big Grin...
Gruß
Bruno

Diadem 2010
Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
18.02.2010, 10:05
Beitrag #23
STG Offline
Member
***
DIAdem-Version: 11
DIAdem-Sprachversion: DE
DIAdem Erfahrung seit: 2009
Beiträge: 59
Registriert seit: Oct 2009
RE: DIAdem Anfänger hat Fragen

Danke erstmal, ich komm zwar nur langsam, aber für meine DIAdem Verhältnisse gut voran...
Werde versuchen nur Teilprobleme zu Posten und am Ende mal mein gesammten Code.
Ein Teilproblem habe ich schon neu gepostet die Tage, "Kanalauswahl über Variablen" - da bräuchte ich nochmal paar Tipps.
Danke

MfG STG

Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
18.02.2010, 14:19 (Dieser Beitrag wurde zuletzt bearbeitet: 18.02.2010 14:25 von STG.)
Beitrag #24
STG Offline
Member
***
DIAdem-Version: 11
DIAdem-Sprachversion: DE
DIAdem Erfahrung seit: 2009
Beiträge: 59
Registriert seit: Oct 2009
RE: DIAdem Anfänger hat Fragen

Hallo,
ich habe mein Script nun Soweit das es läuft und auch fast funktioniert... Ist aber noch schwer verbesserungswürdig.

Nochmal die Aufgabenstellung:

-Datei laden
-im Index 31 der Daten schauen ob eine 0 oder 1 drin steht
-im Index 32 der Daten schauen ob eine 1, 2 oder 3 Steht
-daraus in 6 Cases entscheiden wohin Klassiert werden soll:

Hier die aktuelle Version:

Code:
'-------------------------------------------------------------------------------
'-- VBS-Script-Datei
'-- Neu erstellt am 15.02.2010 13:02:17
'-- Ersteller: STG
'-- Kommentar: Bedingte Klassierung - Vorlage Bedingte Klassierung muss geöffnet sein!
'--           siehe ForumPost vom 15.02.2010, 13:49
'--            Gruppe 1-6 Klassierungen, Gruppe 7 Messdaten, Gruppe 8-13 Geteilt in Zustände
'--            
'-------------------------------------------------------------------------------
Option Explicit  'Erzwingt die explizite Deklaration aller Variablen in einem Skript.


Dim iChn, iRow, oMyChn, oMyGrp

Dim oMyResultsList, Element
Set oMyResultsList = Navigator.Display.CurrDataProvider.ResultsList
      For Each Element in oMyResultsList.Elements
          If Element.IsKindOf(eSearchFile) Then
            
            Call Navigator.LoadData(Element,"Load") 'Datei laden
        



'###############################################################################​####################################################
'###############################################################################​####################################################
'###############################################################################​####################################################    
'Spitzen mit NoValue ersetzen!

Call ChnCalculate("Ch(""[7]/[1]"")=Ch(""[7]/[1]"")+CTNV(Ch(""[7]/[1]"")<(-70.927) Or    Ch(""[7]/[1]"")>(158.884))",NULL,NULL,"")              'Fxul
Call ChnCalculate("Ch(""[7]/[2]"")=Ch(""[7]/[2]"")+CTNV(Ch(""[7]/[2]"")<(-7.007) Or Ch(""[7]/[2]"")>(37.83))",NULL,NULL,"")                'Fzul
Call ChnCalculate("Ch(""[7]/[3]"")=Ch(""[7]/[3]"")+CTNV(Ch(""[7]/[3]"")<(-47.312) Or Ch(""[7]/[3]"")>(35.23))",NULL,NULL,"")                'Fxur
Call ChnCalculate("Ch(""[7]/[4]"")=Ch(""[7]/[4]"")+CTNV(Ch(""[7]/[4]"")<(5.557) Or Ch(""[7]/[4]"")>(41.777))",NULL,NULL,"")                  'Fzur              

Call ChnCalculate("Ch(""[7]/[5]"")=Ch(""[7]/[5]"")+CTNV(Ch(""[7]/[5]"")<(-10.953) Or Ch(""[7]/[5]"")>(13.234))",NULL,NULL,"")                'Fxrl
Call ChnCalculate("Ch(""[7]/[6]"")=Ch(""[7]/[6]"")+CTNV(Ch(""[7]/[6]"")<(-1.913) Or Ch(""[7]/[6]"")>(81.966))",NULL,NULL,"")                  'Fzrl
Call ChnCalculate("Ch(""[7]/[7]"")=Ch(""[7]/[7]"")+CTNV(Ch(""[7]/[7]"")<(-26.047) Or Ch(""[7]/[7]"")>(22.44))",NULL,NULL,"")                  'Fxrr    
Call ChnCalculate("Ch(""[7]/[8]"")=Ch(""[7]/[8]"")+CTNV(Ch(""[7]/[8]"")<(-24.384) Or Ch(""[7]/[8]"")>(109.027))",NULL,NULL,"")                'Fzrr

Call ChnCalculate("Ch(""[7]/[9]"")=Ch(""[7]/[9]"")+CTNV(Ch(""[7]/[9]"")<(-15.029206) Or Ch(""[7]/[9]"")>(15.834908))",NULL,NULL,"")          'Strl
Call ChnCalculate("Ch(""[7]/[10]"")=Ch(""[7]/[10]"")+CTNV(Ch(""[7]/[10]"")<(-46.295417) Or Ch(""[7]/[10]"")>(42.189006))",NULL,NULL,"")    'Sbrl
Call ChnCalculate("Ch(""[7]/[11]"")=Ch(""[7]/[11]"")+CTNV(Ch(""[7]/[11]"")<(-11.700048) Or Ch(""[7]/[11]"")>(20.802038))",NULL,NULL,"")    'Strr
Call ChnCalculate("Ch(""[7]/[12]"")=Ch(""[7]/[12]"")+CTNV(Ch(""[7]/[12]"")<(-52.824427) Or Ch(""[7]/[12]"")>(52.947037))",NULL,NULL,"")    'Sbrr

Call ChnCalculate("Ch(""[7]/[13]"")=Ch(""[7]/[13]"")+CTNV(Ch(""[7]/[13]"")<(53.265) Or Ch(""[7]/[13]"")>(53.857))",NULL,NULL,"")              'Sztl
Call ChnCalculate("Ch(""[7]/[14]"")=Ch(""[7]/[14]"")+CTNV(Ch(""[7]/[14]"")<(48.078) Or Ch(""[7]/[14]"")>(53.337))",NULL,NULL,"")              'Sztr
Call ChnCalculate("Ch(""[7]/[15]"")=Ch(""[7]/[15]"")+CTNV(Ch(""[7]/[15]"")<(-0.519) Or Ch(""[7]/[15]"")>(0.285))",NULL,NULL,"")              'Fxs1
Call ChnCalculate("Ch(""[7]/[16]"")=Ch(""[7]/[16]"")+CTNV(Ch(""[7]/[16]"")<(-0.179) Or Ch(""[7]/[16]"")>(0.48))",NULL,NULL,"")                'Fzs1    

Call ChnCalculate("Ch(""[7]/[17]"")=Ch(""[7]/[17]"")+CTNV(Ch(""[7]/[17]"")<(-0.391) Or Ch(""[7]/[17]"")>(0.166))",NULL,NULL,"")              'Fxs2
Call ChnCalculate("Ch(""[7]/[18]"")=Ch(""[7]/[18]"")+CTNV(Ch(""[7]/[18]"")<(-0.257) Or Ch(""[7]/[18]"")>(0.232))",NULL,NULL,"")              'Fzs2
Call ChnCalculate("Ch(""[7]/[19]"")=Ch(""[7]/[19]"")+CTNV(Ch(""[7]/[19]"")<(-4.155) Or Ch(""[7]/[19]"")>(1.467))",NULL,NULL,"")              'Fz_Rolle
Call ChnCalculate("Ch(""[7]/[20]"")=Ch(""[7]/[20]"")+CTNV(Ch(""[7]/[20]"")<(-2.006) or Ch(""[7]/[20]"")>(3.676))",NULL,NULL,"")              'Fz_Halter

Call ChnCalculate("Ch(""[7]/[21]"")=Ch(""[7]/[21]"")+CTNV(Ch(""[7]/[21]"")<(-186.138) Or Ch(""[7]/[21]"")>(93.955))",NULL,NULL,"")          'Fzl
Call ChnCalculate("Ch(""[7]/[22]"")=Ch(""[7]/[22]"")+CTNV(Ch(""[7]/[22]"")<(-237.714) Or Ch(""[7]/[22]"")>(89.617))",NULL,NULL,"")          'Fzr
Call ChnCalculate("Ch(""[7]/[23]"")=Ch(""[7]/[23]"")+CTNV(Ch(""[7]/[23]"")<(-8.612537) Or Ch(""[7]/[23]"")>(8.028389))",NULL,NULL,"")      'azZ
Call ChnCalculate("Ch(""[7]/[24]"")=Ch(""[7]/[24]"")+CTNV(Ch(""[7]/[24]"")<(-30.57054) Or Ch(""[7]/[24]"")>(41.540492))",NULL,NULL,"")   'azRl

Call ChnCalculate("Ch(""[7]/[25]"")=Ch(""[7]/[25]"")+CTNV(Ch(""[7]/[25]"")<(-11.538514) Or Ch(""[7]/[25]"")>(12.791077))",NULL,NULL,"")    'azRr
Call ChnCalculate("Ch(""[7]/[26]"")=Ch(""[7]/[26]"")+CTNV(Ch(""[7]/[26]"")<(-10.471194) Or Ch(""[7]/[26]"")>(9.086721))",NULL,NULL,"")      'azT

'###############################################################################​####################################################
'###############################################################################​####################################################
'###############################################################################​####################################################    
'Hier erst teilen und dann Klassieren oder besser bedingte Klassierng!

'Erst Teilen - Dann klassieren

Dim MyChnName

MyChnName = ChnLinGen("[8]/TempCh 1 - Z_0_1",0,0,2)
MyChnName = ChnLinGen("[8]/TempCh 2 - Z_0_1",0,0,2)
MyChnName = ChnLinGen("[8]/TempCh 3 - Z_0_1",0,0,2)
MyChnName = ChnLinGen("[8]/TempCh 4 - Z_0_1",0,0,2)
MyChnName = ChnLinGen("[8]/TempCh 5 - Z_0_1",0,0,2)
MyChnName = ChnLinGen("[8]/TempCh 6 - Z_0_1",0,0,2)
MyChnName = ChnLinGen("[8]/TempCh 7 - Z_0_1",0,0,2)
MyChnName = ChnLinGen("[8]/TempCh 8 - Z_0_1",0,0,2)
MyChnName = ChnLinGen("[8]/TempCh 9 - Z_0_1",0,0,2)
MyChnName = ChnLinGen("[8]/TempCh 10 - Z_0_1",0,0,2)
MyChnName = ChnLinGen("[8]/TempCh 11 - Z_0_1",0,0,2)
MyChnName = ChnLinGen("[8]/TempCh 12 - Z_0_1",0,0,2)
MyChnName = ChnLinGen("[8]/TempCh 13 - Z_0_1",0,0,2)
MyChnName = ChnLinGen("[8]/TempCh 14 - Z_0_1",0,0,2)
MyChnName = ChnLinGen("[8]/TempCh 15 - Z_0_1",0,0,2)
MyChnName = ChnLinGen("[8]/TempCh 16 - Z_0_1",0,0,2)
MyChnName = ChnLinGen("[8]/TempCh 17 - Z_0_1",0,0,2)
MyChnName = ChnLinGen("[8]/TempCh 18 - Z_0_1",0,0,2)
MyChnName = ChnLinGen("[8]/TempCh 19 - Z_0_1",0,0,2)
MyChnName = ChnLinGen("[8]/TempCh 20 - Z_0_1",0,0,2)
MyChnName = ChnLinGen("[8]/TempCh 21 - Z_0_1",0,0,2)
MyChnName = ChnLinGen("[8]/TempCh 22 - Z_0_1",0,0,2)
MyChnName = ChnLinGen("[8]/TempCh 23 - Z_0_1",0,0,2)
MyChnName = ChnLinGen("[8]/TempCh 24 - Z_0_1",0,0,2)
MyChnName = ChnLinGen("[8]/TempCh 25 - Z_0_1",0,0,2)
MyChnName = ChnLinGen("[8]/TempCh 26 - Z_0_1",0,0,2)

MyChnName = ChnLinGen("[9]/TempCh 1 - Z_0_2",0,0,2)
MyChnName = ChnLinGen("[9]/TempCh 2 - Z_0_2",0,0,2)
MyChnName = ChnLinGen("[9]/TempCh 3 - Z_0_2",0,0,2)
MyChnName = ChnLinGen("[9]/TempCh 4 - Z_0_2",0,0,2)
MyChnName = ChnLinGen("[9]/TempCh 5 - Z_0_2",0,0,2)
MyChnName = ChnLinGen("[9]/TempCh 6 - Z_0_2",0,0,2)
MyChnName = ChnLinGen("[9]/TempCh 7 - Z_0_2",0,0,2)
MyChnName = ChnLinGen("[9]/TempCh 8 - Z_0_2",0,0,2)
MyChnName = ChnLinGen("[9]/TempCh 9 - Z_0_2",0,0,2)
MyChnName = ChnLinGen("[9]/TempCh 10 - Z_0_2",0,0,2)
MyChnName = ChnLinGen("[9]/TempCh 11 - Z_0_2",0,0,2)
MyChnName = ChnLinGen("[9]/TempCh 12 - Z_0_2",0,0,2)
MyChnName = ChnLinGen("[9]/TempCh 13 - Z_0_2",0,0,2)
MyChnName = ChnLinGen("[9]/TempCh 14 - Z_0_2",0,0,2)
MyChnName = ChnLinGen("[9]/TempCh 15 - Z_0_2",0,0,2)
MyChnName = ChnLinGen("[9]/TempCh 16 - Z_0_2",0,0,2)
MyChnName = ChnLinGen("[9]/TempCh 17 - Z_0_2",0,0,2)
MyChnName = ChnLinGen("[9]/TempCh 18 - Z_0_2",0,0,2)
MyChnName = ChnLinGen("[9]/TempCh 19 - Z_0_2",0,0,2)
MyChnName = ChnLinGen("[9]/TempCh 20 - Z_0_2",0,0,2)
MyChnName = ChnLinGen("[9]/TempCh 21 - Z_0_2",0,0,2)
MyChnName = ChnLinGen("[9]/TempCh 22 - Z_0_2",0,0,2)
MyChnName = ChnLinGen("[9]/TempCh 23 - Z_0_2",0,0,2)
MyChnName = ChnLinGen("[9]/TempCh 24 - Z_0_2",0,0,2)
MyChnName = ChnLinGen("[9]/TempCh 25 - Z_0_2",0,0,2)
MyChnName = ChnLinGen("[9]/TempCh 26 - Z_0_2",0,0,2)

MyChnName = ChnLinGen("[10]/TempCh 1 - Z_0_3",0,0,2)
MyChnName = ChnLinGen("[10]/TempCh 2 - Z_0_3",0,0,2)
MyChnName = ChnLinGen("[10]/TempCh 3 - Z_0_3",0,0,2)
MyChnName = ChnLinGen("[10]/TempCh 4 - Z_0_3",0,0,2)
MyChnName = ChnLinGen("[10]/TempCh 5 - Z_0_3",0,0,2)
MyChnName = ChnLinGen("[10]/TempCh 6 - Z_0_3",0,0,2)
MyChnName = ChnLinGen("[10]/TempCh 7 - Z_0_3",0,0,2)
MyChnName = ChnLinGen("[10]/TempCh 8 - Z_0_3",0,0,2)
MyChnName = ChnLinGen("[10]/TempCh 9 - Z_0_3",0,0,2)
MyChnName = ChnLinGen("[10]/TempCh 10 - Z_0_3",0,0,2)
MyChnName = ChnLinGen("[10]/TempCh 11 - Z_0_3",0,0,2)
MyChnName = ChnLinGen("[10]/TempCh 12 - Z_0_3",0,0,2)
MyChnName = ChnLinGen("[10]/TempCh 13 - Z_0_3",0,0,2)
MyChnName = ChnLinGen("[10]/TempCh 14 - Z_0_3",0,0,2)
MyChnName = ChnLinGen("[10]/TempCh 15 - Z_0_3",0,0,2)
MyChnName = ChnLinGen("[10]/TempCh 16 - Z_0_3",0,0,2)
MyChnName = ChnLinGen("[10]/TempCh 17 - Z_0_3",0,0,2)
MyChnName = ChnLinGen("[10]/TempCh 18 - Z_0_3",0,0,2)
MyChnName = ChnLinGen("[10]/TempCh 19 - Z_0_3",0,0,2)
MyChnName = ChnLinGen("[10]/TempCh 20 - Z_0_3",0,0,2)
MyChnName = ChnLinGen("[10]/TempCh 21 - Z_0_3",0,0,2)
MyChnName = ChnLinGen("[10]/TempCh 22 - Z_0_3",0,0,2)
MyChnName = ChnLinGen("[10]/TempCh 23 - Z_0_3",0,0,2)
MyChnName = ChnLinGen("[10]/TempCh 24 - Z_0_3",0,0,2)
MyChnName = ChnLinGen("[10]/TempCh 25 - Z_0_3",0,0,2)
MyChnName = ChnLinGen("[10]/TempCh 26 - Z_0_3",0,0,2)

MyChnName = ChnLinGen("[11]/TempCh 1 - Z_1_1",0,0,2)
MyChnName = ChnLinGen("[11]/TempCh 2 - Z_1_1",0,0,2)
MyChnName = ChnLinGen("[11]/TempCh 3 - Z_1_1",0,0,2)
MyChnName = ChnLinGen("[11]/TempCh 4 - Z_1_1",0,0,2)
MyChnName = ChnLinGen("[11]/TempCh 5 - Z_1_1",0,0,2)
MyChnName = ChnLinGen("[11]/TempCh 6 - Z_1_1",0,0,2)
MyChnName = ChnLinGen("[11]/TempCh 7 - Z_1_1",0,0,2)
MyChnName = ChnLinGen("[11]/TempCh 8 - Z_1_1",0,0,2)
MyChnName = ChnLinGen("[11]/TempCh 9 - Z_1_1",0,0,2)
MyChnName = ChnLinGen("[11]/TempCh 10 - Z_1_1",0,0,2)
MyChnName = ChnLinGen("[11]/TempCh 11 - Z_1_1",0,0,2)
MyChnName = ChnLinGen("[11]/TempCh 12 - Z_1_1",0,0,2)
MyChnName = ChnLinGen("[11]/TempCh 13 - Z_1_1",0,0,2)
MyChnName = ChnLinGen("[11]/TempCh 14 - Z_1_1",0,0,2)
MyChnName = ChnLinGen("[11]/TempCh 15 - Z_1_1",0,0,2)
MyChnName = ChnLinGen("[11]/TempCh 16 - Z_1_1",0,0,2)
MyChnName = ChnLinGen("[11]/TempCh 17 - Z_1_1",0,0,2)
MyChnName = ChnLinGen("[11]/TempCh 18 - Z_1_1",0,0,2)
MyChnName = ChnLinGen("[11]/TempCh 19 - Z_1_1",0,0,2)
MyChnName = ChnLinGen("[11]/TempCh 20 - Z_1_1",0,0,2)
MyChnName = ChnLinGen("[11]/TempCh 21 - Z_1_1",0,0,2)
MyChnName = ChnLinGen("[11]/TempCh 22 - Z_1_1",0,0,2)
MyChnName = ChnLinGen("[11]/TempCh 23 - Z_1_1",0,0,2)
MyChnName = ChnLinGen("[11]/TempCh 24 - Z_1_1",0,0,2)
MyChnName = ChnLinGen("[11]/TempCh 25 - Z_1_1",0,0,2)
MyChnName = ChnLinGen("[11]/TempCh 26 - Z_1_1",0,0,2)

MyChnName = ChnLinGen("[12]/TempCh 1 - Z_1_2",0,0,2)
MyChnName = ChnLinGen("[12]/TempCh 2 - Z_1_2",0,0,2)
MyChnName = ChnLinGen("[12]/TempCh 3 - Z_1_2",0,0,2)
MyChnName = ChnLinGen("[12]/TempCh 4 - Z_1_2",0,0,2)
MyChnName = ChnLinGen("[12]/TempCh 5 - Z_1_2",0,0,2)
MyChnName = ChnLinGen("[12]/TempCh 6 - Z_1_2",0,0,2)
MyChnName = ChnLinGen("[12]/TempCh 7 - Z_1_2",0,0,2)
MyChnName = ChnLinGen("[12]/TempCh 8 - Z_1_2",0,0,2)
MyChnName = ChnLinGen("[12]/TempCh 9 - Z_1_2",0,0,2)
MyChnName = ChnLinGen("[12]/TempCh 10 - Z_1_2",0,0,2)
MyChnName = ChnLinGen("[12]/TempCh 11 - Z_1_2",0,0,2)
MyChnName = ChnLinGen("[12]/TempCh 12 - Z_1_2",0,0,2)
MyChnName = ChnLinGen("[12]/TempCh 13 - Z_1_2",0,0,2)
MyChnName = ChnLinGen("[12]/TempCh 14 - Z_1_2",0,0,2)
MyChnName = ChnLinGen("[12]/TempCh 15 - Z_1_2",0,0,2)
MyChnName = ChnLinGen("[12]/TempCh 16 - Z_1_2",0,0,2)
MyChnName = ChnLinGen("[12]/TempCh 17 - Z_1_2",0,0,2)
MyChnName = ChnLinGen("[12]/TempCh 18 - Z_1_2",0,0,2)
MyChnName = ChnLinGen("[12]/TempCh 19 - Z_1_2",0,0,2)
MyChnName = ChnLinGen("[12]/TempCh 20 - Z_1_2",0,0,2)
MyChnName = ChnLinGen("[12]/TempCh 21 - Z_1_2",0,0,2)
MyChnName = ChnLinGen("[12]/TempCh 22 - Z_1_2",0,0,2)
MyChnName = ChnLinGen("[12]/TempCh 23 - Z_1_2",0,0,2)
MyChnName = ChnLinGen("[12]/TempCh 24 - Z_1_2",0,0,2)
MyChnName = ChnLinGen("[12]/TempCh 25 - Z_1_2",0,0,2)
MyChnName = ChnLinGen("[12]/TempCh 26 - Z_1_2",0,0,2)

MyChnName = ChnLinGen("[13]/TempCh 1 - Z_1_3",0,0,2)
MyChnName = ChnLinGen("[13]/TempCh 2 - Z_1_3",0,0,2)
MyChnName = ChnLinGen("[13]/TempCh 3 - Z_1_3",0,0,2)
MyChnName = ChnLinGen("[13]/TempCh 4 - Z_1_3",0,0,2)
MyChnName = ChnLinGen("[13]/TempCh 5 - Z_1_3",0,0,2)
MyChnName = ChnLinGen("[13]/TempCh 6 - Z_1_3",0,0,2)
MyChnName = ChnLinGen("[13]/TempCh 7 - Z_1_3",0,0,2)
MyChnName = ChnLinGen("[13]/TempCh 8 - Z_1_3",0,0,2)
MyChnName = ChnLinGen("[13]/TempCh 9 - Z_1_3",0,0,2)
MyChnName = ChnLinGen("[13]/TempCh 10 - Z_1_3",0,0,2)
MyChnName = ChnLinGen("[13]/TempCh 11 - Z_1_3",0,0,2)
MyChnName = ChnLinGen("[13]/TempCh 12 - Z_1_3",0,0,2)
MyChnName = ChnLinGen("[13]/TempCh 13 - Z_1_3",0,0,2)
MyChnName = ChnLinGen("[13]/TempCh 14 - Z_1_3",0,0,2)
MyChnName = ChnLinGen("[13]/TempCh 15 - Z_1_3",0,0,2)
MyChnName = ChnLinGen("[13]/TempCh 16 - Z_1_3",0,0,2)
MyChnName = ChnLinGen("[13]/TempCh 17 - Z_1_3",0,0,2)
MyChnName = ChnLinGen("[13]/TempCh 18 - Z_1_3",0,0,2)
MyChnName = ChnLinGen("[13]/TempCh 19 - Z_1_3",0,0,2)
MyChnName = ChnLinGen("[13]/TempCh 20 - Z_1_3",0,0,2)
MyChnName = ChnLinGen("[13]/TempCh 21 - Z_1_3",0,0,2)
MyChnName = ChnLinGen("[13]/TempCh 22 - Z_1_3",0,0,2)
MyChnName = ChnLinGen("[13]/TempCh 23 - Z_1_3",0,0,2)
MyChnName = ChnLinGen("[13]/TempCh 24 - Z_1_3",0,0,2)
MyChnName = ChnLinGen("[13]/TempCh 25 - Z_1_3",0,0,2)
MyChnName = ChnLinGen("[13]/TempCh 26 - Z_1_3",0,0,2)

'Kanäle müssen minimallänge von 2 haben...


dim i_0_1 : i_0_1=2
dim i_0_2 : i_0_2=2
dim i_0_3 : i_0_3=2
dim i_1_1 : i_1_1=2
dim i_1_2 : i_1_2=2
dim i_1_3 : i_1_3=2

              
              
              For iRow =1 to ChnLength("[7]/[30]")                              'so lang wie die Quelldatei ist, läuft auch die Schleife
                  'hier nun die Teilung auf TempKanäle 8...13
                  
                  '            
                   Select Case ChDX(iRow, 342)                                  'Index 342 - Quelle Fahrtbit
                      Case 0  Select Case ChDX(iRow, 343)                       'Index 343 - Quelle Zustandsbit
                                Case 1    i_0_1 = i_0_1 + 1
                                          Call AppendRowToChn(8, i_0_1, iRow)
                                Case 2    i_0_2 = i_0_2 + 1
                                          Call AppendRowToChn(9, i_0_2, iRow)
                                Case 3    i_0_3 = i_0_3 + 1
                                          Call AppendRowToChn(10, i_0_3, iRow)
                                Case Else MsgBox ("Fehler Zustandsbit")
                              End Select
                      Case 1  Select Case ChDX(iRow, 343)                       'Index 343 - Quelle Zustandsbit
                                Case 1    i_1_1 = i_1_1 + 1
                                          Call AppendRowToChn(11, i_1_1, iRow)
                                Case 2    i_1_2 = i_1_2 + 1
                                          Call AppendRowToChn(12, i_1_2, iRow)
                                Case 3    i_1_3 = i_1_3 + 1
                                          Call AppendRowToChn(13, i_1_3, iRow)  
                                Case Else MsgBox ("Fehler Zustandsbit")
                              End Select
                      Case Else MsgBox ("Fehler Fahrtbit")
                   End Select      
              next  
              
          End If
      Next
  
  
  
'###############################################################################​##############
'###############################################################################​##############
'###############################################################################​##############
'###############################################################################​##############
'Für Abfrage ob in die Neue Gruppe etwas einsortiert wurde

dim oChn
dim dMin
dim dMax
dim iLength

'###############################################################################​##############
'###############################################################################​##############
'###############################################################################​##############
'###############################################################################​##############
'Zustand 0_1: Stand - Transportzustand

Set oChn = Data.GetChannel("[8]/[1]")
dMin = oChn.Properties("minimum").Value
dMax = oChn.Properties("maximum").Value
iLength = oChn.Size



        If Not((dMin=dMax)AND(iLength=2)) then        'prüft ob etwas in der neuen Gruppe steht
        
                Call Klassierung(1, 8)              'DestGroup, SrcGroup
        
        End If

'###############################################################################​##############
'###############################################################################​##############
'###############################################################################​##############
'###############################################################################​##############
'Zustand 0_2: Stand - Vorgewende

Set oChn = Data.GetChannel("[9]/[1]")
dMin = oChn.Properties("minimum").Value
dMax = oChn.Properties("maximum").Value
iLength = oChn.Size



        If Not((dMin=dMax)AND(iLength=2)) then        'prüft ob etwas in der neuen Gruppe steht
        
                Call Klassierung(2, 9)              'DestGroup, SrcGroup
        
        End If
        
'###############################################################################​##############
'###############################################################################​##############
'###############################################################################​##############
'###############################################################################​##############
'Zustand 0_3: Stand - Arbeitszustand

Set oChn = Data.GetChannel("[10]/[1]")
dMin = oChn.Properties("minimum").Value
dMax = oChn.Properties("maximum").Value
iLength = oChn.Size



        If Not((dMin=dMax)AND(iLength=2)) then        'prüft ob etwas in der neuen Gruppe steht
        
                Call Klassierung(3, 10)              'DestGroup, SrcGroup
        
        End If

'###############################################################################​##############
'###############################################################################​##############
'###############################################################################​##############
'###############################################################################​##############
'Zustand 1_1: Fahrt - Transportzustand

Set oChn = Data.GetChannel("[11]/[1]")
dMin = oChn.Properties("minimum").Value
dMax = oChn.Properties("maximum").Value
iLength = oChn.Size



        If Not((dMin=dMax)AND(iLength=2)) then        'prüft ob etwas in der neuen Gruppe steht
        
                Call Klassierung(4, 11)              'DestGroup, SrcGroup
        
        End If

'###############################################################################​##############
'###############################################################################​##############
'###############################################################################​##############
'###############################################################################​##############
'Zustand 1_2: Fahrt - Vorgewende

Set oChn = Data.GetChannel("[12]/[1]")
dMin = oChn.Properties("minimum").Value
dMax = oChn.Properties("maximum").Value
iLength = oChn.Size



        If Not((dMin=dMax)AND(iLength=2)) then        'prüft ob etwas in der neuen Gruppe steht
        
                Call Klassierung(5, 12)              'DestGroup, SrcGroup
        
        End If
        
'###############################################################################​##############
'###############################################################################​##############
'###############################################################################​##############
'###############################################################################​##############
'Zustand 1_3: Fahrt - Arbeitszustand

Set oChn = Data.GetChannel("[13]/[1]")
dMin = oChn.Properties("minimum").Value
dMax = oChn.Properties("maximum").Value
iLength = oChn.Size



        If Not((dMin=dMax)AND(iLength=2)) then        'prüft ob etwas in der neuen Gruppe steht
        
                Call Klassierung(6, 13)              'DestGroup, SrcGroup
        
        End If
  
'###############################################################################​##############
'###############################################################################​##############
'###############################################################################​##############
'###############################################################################​##############
  
Call GroupDel(13)    'beim Laden neu entstandene, Gruppen löschen  
Call GroupDel(12)    'beim Laden neu entstandene, Gruppen löschen
Call GroupDel(11)    'beim Laden neu entstandene, Gruppen löschen
Call GroupDel(10)    'beim Laden neu entstandene, Gruppen löschen
Call GroupDel(9)    'beim Laden neu entstandene, Gruppen löschen
Call GroupDel(8)    'beim Laden neu entstandene, Gruppen löschen
Call GroupDel(7)    'beim Laden neu entstandene, Gruppen löschen

'###############################################################################​####################################################
'###############################################################################​####################################################
'###############################################################################​####################################################
'###############################################################################​####################################################
'###############################################################################​####################################################
  
  
'---------------------------------------------------------------------------------------------
' Subroutines
'---------------------------------------------------------------------------------------------

Sub AppendRowToChn(iZustand, iRowDest, iRowSrc)

dim iSpalte, iChn

      For iChn = 1 To 26 Step 1
            'Kanalweise eine Zeile hinzufügen und mit dem Wert der Quelle überschreiben.
            iSpalte = (iZustand-8) * 26 + iChn + 345
            Call   ChnPropSet(iSpalte, "length", iRowDest)
            chDX(iRowDest, iSpalte)=chDX(iRowSrc, (312+iChn))
            '              
      Next

End Sub




'###############################################################################​####################################################
'###############################################################################​####################################################
'###############################################################################​####################################################
'###############################################################################​####################################################
'###############################################################################​####################################################
  

Sub Klassierung(DestGroup, srcGroup)

dim myZwSp
dim iMitten
dim iHaeufigk
dim iFaktMitt

iFaktMitt = 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'Fxul
ClassNo          = 128
ClassBegin       = -72.7539444444445
ClassEnd         = 160.710944444444
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'Fzul
ClassNo          = 128
ClassBegin       = -7.36589682539682
ClassEnd         = 38.1888968253968
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'Fxur
ClassNo          = 128
ClassBegin       = -47.9701428571429
ClassEnd         = 35.8881428571429
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'Fzur
ClassNo          = 128
ClassBegin       = 5.26649206349206
ClassEnd         = 42.0675079365079
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'###############################################################################​####################################################
'###############################################################################​####################################################


'Fxrl
ClassNo          = 128
ClassBegin       = -11.1480079365079
ClassEnd         = 13.4290079365079
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'Fzrl
ClassNo          = 128
ClassBegin       = -2.58175396825397
ClassEnd         = 82.634753968254
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'Fxrr
ClassNo          = 128
ClassBegin       = -26.4348650793651
ClassEnd         = 22.8278650793651
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'Fzrr
ClassNo          = 128
ClassBegin       = -25.4458650793651
ClassEnd         = 110.088865079365
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'###############################################################################​####################################################
'###############################################################################​####################################################


'Strl
ClassNo          = 128
ClassBegin       = -15.2772069047619
ClassEnd         = 16.0829089047619
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'Sbrl
ClassNo          = 128
ClassBegin       = -47.0007219444444
ClassEnd         = 42.8943109444444
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'Strr
ClassNo          = 128
ClassBegin       = -11.9610486825397
ClassEnd         = 21.0630386825397
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'Sbrr
ClassNo          = 128
ClassBegin       = -53.6669306825397
ClassEnd         = 53.7895406825397
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'###############################################################################​####################################################
'###############################################################################​####################################################

'Sztl
ClassNo          = 128
ClassBegin       = 53.257253968254
ClassEnd         = 53.864746031746
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'Sztr
ClassNo          = 128
ClassBegin       = 48.0332142857143
ClassEnd         = 53.3817857142857
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'Fxs1
ClassNo          = 128
ClassBegin       = -0.528428571428571
ClassEnd         = 0.294428571428571
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'Fzs1
ClassNo          = 128
ClassBegin       = -0.187277777777778
ClassEnd         = 0.488277777777778
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'###############################################################################​####################################################
'###############################################################################​####################################################

'Fxs2
ClassNo          = 128
ClassBegin       = -0.398468253968254
ClassEnd         = 0.173468253968254
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'Fzs2
ClassNo          = 128
ClassBegin       = -0.263928571428571
ClassEnd         = 0.238928571428571
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'Fz_Rolle
ClassNo          = 128
ClassBegin       = -4.20266666666667
ClassEnd         = 1.51466666666667
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'Fz_Halter
ClassNo          = 128
ClassBegin       = -2.05414285714286
ClassEnd         = 3.72414285714286
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'###############################################################################​####################################################
'###############################################################################​####################################################


'Fzl
ClassNo          = 128
ClassBegin       = -188.364007936508
ClassEnd         = 96.1810079365079
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'Fzr
ClassNo          = 128
ClassBegin       = -240.314912698413
ClassEnd         = 92.2179126984127
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'azZ
ClassNo          = 128
ClassBegin       = -8.74765546031746
ClassEnd         = 8.16350746031746
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'azRl
ClassNo          = 128
ClassBegin       = -31.1458973968254
ClassEnd         = 42.1158493968254
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'###############################################################################​####################################################
'###############################################################################​####################################################

'azRr
ClassNo          = 128
ClassBegin       = -11.7346536111111
ClassEnd         = 12.9872166111111
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'azT
ClassNo          = 128
ClassBegin       = -10.6294631666667
ClassEnd         = 9.24499016666667
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

End Sub

Ein Fehler ist leider das in den TempCh Kanälen die ersten 2 Zeilen komplett 0 haben. Diese müssten beim Klassieren nicht berücksichtigt werden oder vorher entfernt werden. Hat da jemand ein Tipp?`Ich finde nur Befehle mit denen ich Zeilen aus Tabellen löschen kann.

Außerdem is das Makro ziemlich lahm, in Excel läuft es deswegen schneller weil ich die Daten erst Sortiere und dann Blockweise kopiere, hier in DIAdem macht es jetzt noch alles Zeilenweise, was bei 30000 Zeilen schon ein wenig dauert. :-S

Kann man das eventuell mit DIAdem auch besser lösen, bräuchte eigentlich nur ein Ansatz bzw. Befehle zum Sortieren und Blockweise kopieren.

Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
18.02.2010, 14:28
Beitrag #25
STG Offline
Member
***
DIAdem-Version: 11
DIAdem-Sprachversion: DE
DIAdem Erfahrung seit: 2009
Beiträge: 59
Registriert seit: Oct 2009
RE: DIAdem Anfänger hat Fragen

Hier mal mein Excel VBA Code:

Code:
'Mein Excel-VBA Code fürs sortieren der Quelldatei:


                lLastRowQ = ActiveSheet.UsedRange.Rows.Count      'letzte Zeile
                
                For lActRowQ = 2 To lLastRowQ                     'ohne kopfzeile wird begonnen


                    
                    Select Case Cells(lActRowQ, iSpalteFahrt).Value
                    
                        Case 0: 'Maschine steht
                                Select Case Cells(lActRowQ, iSpalteZustand).Value
                                    Case 1:     'Maschine steht im Zustand Transport
                                                lActRowQ2 = lActRowQ + 10000
                                                If lActRowQ2 > lLastRowQ Then
                                                        lActRowQ2 = lLastRowQ
                                                End If
                                                
                                                For lFor_i = lActRowQ2 To lActRowQ Step -1    'Rückwärts geht schneller
                                                        
                                                    If Cells(lFor_i, iSpalteFahrt).Value = 0 Then
                                                        If Cells(lFor_i, iSpalteZustand).Value = 1 Then
                                                            
                                                            Range(Cells(lActRowQ, "A"), Cells(lFor_i, "AG")).Copy _
                                                            Destination:=Workbooks("AmazoneZustand.xls").Sheets("ZS1").Cells(lActRowZS1, "A")
                                                            
                                                            lActRowZS1 = lActRowZS1 + (lFor_i - lActRowQ) + 1       'Prüf Das! --> Geprüft und für gut befunden
                                                            lActRowQ = lActRowQ + (lFor_i - lActRowQ)               'Prüf Das! --> Geprüft und für gut befunden
                                                            
                                                            If lActRowZS1 > lMax Then           'Ist die neue Tabelle voll - mehr als "lMax" Zeilen?
                                                                
                                                                Set Blatt = Workbooks("AmazoneZustand.xls").Sheets("ZS1")
                                                                
                                                                Call OpenClipboard(0&)
                                                                Call EmptyClipboard
                                                                Call CloseClipboard
                                                                
                                                                
                                                                Blatt.Copy
                                                                ActiveWorkbook.SaveAs Filename:= _
                                                                    sPfadStand & "\ZS1\ZS1_" & lZS1i & ".txt", FileFormat:=xlText _
                                                                    , CreateBackup:=False, Local:=True
                                                                ActiveWindow.Close SaveChanges:=False
                                                              
                                                               '##################################
                                                              
                                                                
                                                                Windows("AmazoneZustand.xls").Activate
                                                                Sheets("ZS1").Select
                                                                                                                                                                              
                                                                lZS1i = lZS1i + 1                       'Dateizähler nach Speichern hochzählen
                                                                Range(Cells(2, "A"), Cells(lActRowZS1, "AG")).Select
                                                                Selection.ClearContents                 'Tabellenblatt nach speichern in .txt-Datei leeren (bis auf Kopfzeile)
                                                                
                                                                lActRowZS1 = 2                          'Zeilenzähler wieder auf Startwert = 2 setzen
                                                                
                                                                Workbooks(sFile).Activate
                                                            Else: Workbooks(sFile).Activate
                                                            
                                                            End If
                                                        Exit For
                                                        End If
                                                  
                                                    End If
                                                Next lFor_i
                                                
                                    Case 2:     'Maschine steht im Zustand Vorgewende
                                                lActRowQ2 = lActRowQ + 10000
                                                If lActRowQ2 > lLastRowQ Then
                                                        lActRowQ2 = lLastRowQ
                                                End If
                                                
                                                For lFor_i = lActRowQ2 To lActRowQ Step -1      'Rückwärts geht schneller
                                                        
                                                    If Cells(lFor_i, iSpalteFahrt).Value = 0 Then
                                                        If Cells(lFor_i, iSpalteZustand).Value = 2 Then
                                                            Range(Cells(lActRowQ, "A"), Cells(lFor_i, "AG")).Copy _
                                                            Destination:=Workbooks("AmazoneZustand.xls").Sheets("ZS2").Cells(lActRowZS2, "A")
                                                            
                                                            lActRowZS2 = lActRowZS2 + (lFor_i - lActRowQ) + 1       'Prüf Das! --> Geprüft und für gut befunden
                                                            lActRowQ = lActRowQ + (lFor_i - lActRowQ)               'Prüf Das! --> Geprüft und für gut befunden
                                                            
                                                            If lActRowZS2 > lMax Then           'Ist die neue Tabelle voll - mehr als 50000 Zeilen?
                                                                
                                                                Set Blatt = Workbooks("AmazoneZustand.xls").Sheets("ZS2")
                                                                
                                                                Call OpenClipboard(0&)
                                                                Call EmptyClipboard
                                                                Call CloseClipboard
                                                                

                                                                Blatt.Copy
                                                                ActiveWorkbook.SaveAs Filename:= _
                                                                    sPfadStand & "\ZS2\ZS2_" & lZS2i & ".txt", FileFormat:=xlText _
                                                                    , CreateBackup:=False, Local:=True
                                                                ActiveWindow.Close SaveChanges:=False
                                                              
                                                               '##################################
                                                              
                                                                
                                                                Windows("AmazoneZustand.xls").Activate
                                                                Sheets("ZS2").Select
                                                                                                                                                                              
                                                                lZS2i = lZS2i + 1                       'Dateizähler nach Speichern hochzählen
                                                                Range(Cells(2, "A"), Cells(lActRowZS2, "AG")).Select
                                                                Selection.ClearContents                 'Tabellenblatt nach speichern in .txt-Datei leeren (bis auf Kopfzeile)
                                                                
                                                                lActRowZS2 = 2                          'Zeilenzähler wieder auf Startwert = 2 setzen
                                                                
                                                                Workbooks(sFile).Activate
                                                            Else: Workbooks(sFile).Activate
                                                            
                                                            End If
                                                        Exit For
                                                        End If
                                                  
                                                    End If
                                                Next lFor_i
                                                
                                                    
                                                
                                              
                                    
                                    Case 3:     'Maschine steht im Arbeitszustand
                                                lActRowQ2 = lActRowQ + 10000
                                                If lActRowQ2 > lLastRowQ Then
                                                        lActRowQ2 = lLastRowQ
                                                End If
                                                
                                                For lFor_i = lActRowQ2 To lActRowQ Step -1      'Rückwärts geht schneller
                                                        
                                                    If Cells(lFor_i, iSpalteFahrt).Value = 0 Then
                                                        If Cells(lFor_i, iSpalteZustand).Value = 3 Then
                                                            Range(Cells(lActRowQ, "A"), Cells(lFor_i, "AG")).Copy _
                                                            Destination:=Workbooks("AmazoneZustand.xls").Sheets("ZS3").Cells(lActRowZS3, "A")

                                                            lActRowZS3 = lActRowZS3 + (lFor_i - lActRowQ) + 1       'Prüf Das! --> Geprüft und für gut befunden
                                                            lActRowQ = lActRowQ + (lFor_i - lActRowQ)               'Prüf Das! --> Geprüft und für gut befunden
                                                            
                                                            If lActRowZS3 > lMax Then           'Ist die neue Tabelle voll - mehr als 50000 Zeilen?
                                                                
                                                                Set Blatt = Workbooks("AmazoneZustand.xls").Sheets("ZS3")
                                                                
                                                                Call OpenClipboard(0&)
                                                                Call EmptyClipboard
                                                                Call CloseClipboard

                                                                Blatt.Copy
                                                                ActiveWorkbook.SaveAs Filename:= _
                                                                    sPfadStand & "\ZS3\ZS3_" & lZS3i & ".txt", FileFormat:=xlText _
                                                                    , CreateBackup:=False, Local:=True
                                                                ActiveWindow.Close SaveChanges:=False
                                                              
                                                               '##################################
                                                              
                                                                
                                                                Windows("AmazoneZustand.xls").Activate
                                                                Sheets("ZS3").Select
                                                                                                                                                                              
                                                                lZS3i = lZS3i + 1                       'Dateizähler nach Speichern hochzählen
                                                                Range(Cells(2, "A"), Cells(lActRowZS3, "AG")).Select
                                                                Selection.ClearContents                 'Tabellenblatt nach speichern in .txt-Datei leeren (bis auf Kopfzeile)
                                                                
                                                                lActRowZS3 = 2                          'Zeilenzähler wieder auf Startwert = 2 setzen
                                                                
                                                                Workbooks(sFile).Activate
                                                            Else: Workbooks(sFile).Activate
                                                            End If
                                                        Exit For
                                                        End If
                                                  
                                                    End If
                                                Next lFor_i
                                    
                                End Select
                        
                        Case 1: 'Maschine fährt
                                Select Case Cells(lActRowQ, iSpalteZustand).Value
                                    Case 1:     'Maschine fährt im Transportzustand
                                                 lActRowQ2 = lActRowQ + 10000
                                                If lActRowQ2 > lLastRowQ Then
                                                        lActRowQ2 = lLastRowQ
                                                End If
                                                
                                                For lFor_i = lActRowQ2 To lActRowQ Step -1      'Rückwärts geht schneller
                                                        
                                                    If Cells(lFor_i, iSpalteFahrt).Value = 1 Then
                                                        If Cells(lFor_i, iSpalteZustand).Value = 1 Then
                                                            Range(Cells(lActRowQ, "A"), Cells(lFor_i, "AG")).Copy _
                                                            Destination:=Workbooks("AmazoneZustand.xls").Sheets("ZF1").Cells(lActRowZF1, "A")

                                                            lActRowZF1 = lActRowZF1 + (lFor_i - lActRowQ) + 1       'Prüf Das! --> Geprüft und für gut befunden
                                                            lActRowQ = lActRowQ + (lFor_i - lActRowQ)               'Prüf Das! --> Geprüft und für gut befunden
                                                            
                                                            If lActRowZF1 > lMax Then           'Ist die neue Tabelle voll - mehr als 50000 Zeilen?
                                                                
                                                                Set Blatt = Workbooks("AmazoneZustand.xls").Sheets("ZF1")
                                                                
                                                                Call OpenClipboard(0&)
                                                                Call EmptyClipboard
                                                                Call CloseClipboard

                                                                Blatt.Copy
                                                                ActiveWorkbook.SaveAs Filename:= _
                                                                    sPfadFahrt & "\ZF1\ZF1_" & lZF1i & ".txt", FileFormat:=xlText _
                                                                    , CreateBackup:=False, Local:=True
                                                                ActiveWindow.Close SaveChanges:=False
                                                              
                                                               '##################################
                                                              
                                                                
                                                                Windows("AmazoneZustand.xls").Activate
                                                                Sheets("ZF1").Select
                                                                                                                                                                              
                                                                lZF1i = lZF1i + 1                       'Dateizähler nach Speichern hochzählen
                                                                Range(Cells(2, "A"), Cells(lActRowZF1, "AG")).Select
                                                                Selection.ClearContents                 'Tabellenblatt nach speichern in .txt-Datei leeren (bis auf Kopfzeile)
                                                                
                                                                lActRowZF1 = 2                          'Zeilenzähler wieder auf Startwert = 2 setzen
                                                                
                                                                Workbooks(sFile).Activate
                                                            Else: Workbooks(sFile).Activate
                                                            End If
                                                        Exit For
                                                        End If
                                                  
                                                    End If
                                                Next lFor_i
                                                              
                                    
                                    Case 2:     'Maschine fährt im Zustand Vorgewende
                                                lActRowQ2 = lActRowQ + 10000
                                                If lActRowQ2 > lLastRowQ Then
                                                        lActRowQ2 = lLastRowQ
                                                End If
                                                
                                                For lFor_i = lActRowQ2 To lActRowQ Step -1      'Rückwärts geht schneller
                                                        
                                                    If Cells(lFor_i, iSpalteFahrt).Value = 1 Then
                                                        If Cells(lFor_i, iSpalteZustand).Value = 2 Then
                                                            Range(Cells(lActRowQ, "A"), Cells(lFor_i, "AG")).Copy _
                                                            Destination:=Workbooks("AmazoneZustand.xls").Sheets("ZF2").Cells(lActRowZF2, "A")
                                                          
                                                            lActRowZF2 = lActRowZF2 + (lFor_i - lActRowQ) + 1       'Prüf Das! --> Geprüft und für gut befunden
                                                            lActRowQ = lActRowQ + (lFor_i - lActRowQ)               'Prüf Das! --> Geprüft und für gut befunden
                                                            
                                                            If lActRowZF2 > lMax Then           'Ist die neue Tabelle voll - mehr als 50000 Zeilen?
                                                                
                                                                Set Blatt = Workbooks("AmazoneZustand.xls").Sheets("ZF2")
                                                                
                                                                Call OpenClipboard(0&)
                                                                Call EmptyClipboard
                                                                Call CloseClipboard

                                                                Blatt.Copy
                                                                ActiveWorkbook.SaveAs Filename:= _
                                                                    sPfadFahrt & "\ZF2\ZF2_" & lZF2i & ".txt", FileFormat:=xlText _
                                                                    , CreateBackup:=False, Local:=True
                                                                ActiveWindow.Close SaveChanges:=False
                                                              
                                                               '##################################
                                                              
                                                                
                                                                Windows("AmazoneZustand.xls").Activate
                                                                Sheets("ZF2").Select
                                                                                                                                                                              
                                                                lZF2i = lZF2i + 1                       'Dateizähler nach Speichern hochzählen
                                                                Range(Cells(2, "A"), Cells(lActRowZF2, "AG")).Select
                                                                Selection.ClearContents                 'Tabellenblatt nach speichern in .txt-Datei leeren (bis auf Kopfzeile)
                                                                
                                                                lActRowZF2 = 2                          'Zeilenzähler wieder auf Startwert = 2 setzen
                                                                
                                                                Workbooks(sFile).Activate
                                                            Else: Workbooks(sFile).Activate
                                                            End If
                                                        Exit For
                                                        End If
                                                  
                                                    End If
                                                Next lFor_i
                                              
                                    Case 3:     'Maschine fährt im Arbeitszustand
                                                lActRowQ2 = lActRowQ + 10000
                                                If lActRowQ2 > lLastRowQ Then
                                                        lActRowQ2 = lLastRowQ
                                                End If
                                                
                                                For lFor_i = lActRowQ2 To lActRowQ Step -1      'Rückwärts geht schneller
                                                        
                                                    If Cells(lFor_i, iSpalteFahrt).Value = 1 Then
                                                        If Cells(lFor_i, iSpalteZustand).Value = 3 Then
                                                            Range(Cells(lActRowQ, "A"), Cells(lFor_i, "AG")).Copy _
                                                            Destination:=Workbooks("AmazoneZustand.xls").Sheets("ZF3").Cells(lActRowZF3, "A")
                                                            
                                                            lActRowZF3 = lActRowZF3 + (lFor_i - lActRowQ) + 1       'Prüf Das! --> Geprüft und für gut befunden
                                                            lActRowQ = lActRowQ + (lFor_i - lActRowQ)               'Prüf Das! --> Geprüft und für gut befunden
                                                            
                                                            If lActRowZF3 > lMax Then           'Ist die neue Tabelle voll - mehr als 50000 Zeilen?
                                                                
                                                                Set Blatt = Workbooks("AmazoneZustand.xls").Sheets("ZF3")
                                                                
                                                                Call OpenClipboard(0&)
                                                                Call EmptyClipboard
                                                                Call CloseClipboard

                                                                Blatt.Copy
                                                                ActiveWorkbook.SaveAs Filename:= _
                                                                    sPfadFahrt & "\ZF3\ZF3_" & lZF3i & ".txt", FileFormat:=xlText _
                                                                    , CreateBackup:=False, Local:=True
                                                                ActiveWindow.Close SaveChanges:=False
                                                              
                                                               '##################################
                                                              
                                                                
                                                                Windows("AmazoneZustand.xls").Activate
                                                                Sheets("ZF3").Select
                                                                                                                                                                              
                                                                lZF3i = lZF3i + 1                       'Dateizähler nach Speichern hochzählen
                                                                Range(Cells(2, "A"), Cells(lActRowZF3, "AG")).Select
                                                                Selection.ClearContents                 'Tabellenblatt nach speichern in .txt-Datei leeren (bis auf Kopfzeile)
                                                                
                                                                lActRowZF3 = 2                          'Zeilenzähler wieder auf Startwert = 2 setzen
                                                                
                                                                Workbooks(sFile).Activate
                                                            Else: Workbooks(sFile).Activate
                                                            End If
                                                        Exit For
                                                        End If
                                                  
                                                    End If
                                                Next lFor_i
                                    
                                End Select
                        
        
                    End Select
                Next lActRowQ

Wäre schön wenn jemand trotz der Abschreckenden Größe mal drüber schauen könnte. Hoffe es ist alles verständlich. Für Verbesserungsvorschläge aller Art bin ich offen, ist ja mein erstes Größeres DIAdem Script Makro...
Da sind bestimmt ein paar Schnitzer drin.

MfG STG

Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
18.02.2010, 15:40
Beitrag #26
Bruno Offline
Team
******
DIAdem-Version: 10.2, 11.1, 2010 und auf alten CD's runter bis 3.0
DIAdem-Sprachversion: DE
DIAdem Erfahrung seit: 1996
Beiträge: 569
Registriert seit: Oct 2008
RE: DIAdem Anfänger hat Fragen

(18.02.2010 14:19)STG schrieb:  Kann man das eventuell mit DIAdem auch besser lösen, bräuchte eigentlich nur ein Ansatz bzw. Befehle zum Sortieren und Blockweise kopieren.

Hallo STG,
Sortieren: ChnMultipleSort
Blockweise kopieren (über die Zwischenablage): DataBlClpCopy
oder direkt: DataBlCopy
und einen Block löschen: DataBlDel
Kleiner Tipp: im Script Aufzeichnungsmodus aktivieren, im View (Tabellenansicht mit allen Kanälen) Lösch / Kopieraktioen durchführen, danach Aufzeichnungsmodus stoppen. Quellcode editieren. Funktioniert auch mit den Analysis Funktionen...
Ich hoffe, dass hilft Dir weiter...
Gruß
Bruno

Diadem 2010
Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
18.02.2010, 15:48
Beitrag #27
STG Offline
Member
***
DIAdem-Version: 11
DIAdem-Sprachversion: DE
DIAdem Erfahrung seit: 2009
Beiträge: 59
Registriert seit: Oct 2009
RE: DIAdem Anfänger hat Fragen

Danke, der Tipp hilft mir erstmal sehr...
werde damit das Makro sicherlich noch erheblich verschnellern können. Das ich bisher noch nicht mit dem Aufzeichnungsmodus gearbeitet hab wundert mich selbst gerade, manchmal sieht man einfach den Wald vor lauter Bäumen nicht. :-D

MfG STG

Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
01.03.2010, 14:00 (Dieser Beitrag wurde zuletzt bearbeitet: 01.03.2010 14:23 von STG.)
Beitrag #28
STG Offline
Member
***
DIAdem-Version: 11
DIAdem-Sprachversion: DE
DIAdem Erfahrung seit: 2009
Beiträge: 59
Registriert seit: Oct 2009
RE: DIAdem Anfänger hat Fragen

Hallo an alle,
habe soeben mein Makro fertiggestellt und schonmal getestet. Läuft ganz gut soweit. Es wird zwar nicht direkt Bedingt Klassiert aber das Ergebnis ist dasselbe. Die Performance wäre bei einer bedingten Klassierung sicherlich viel besser aber so wie es jetzt ist kann ich damit Leben, auf jeden Fall schon viel besser als Früher als ich Excel auch noch gebraucht habe.

Hier mal der Code für alle die mal reinschauen möchten, vielleicht hat ja jemand noch Verbesserungsvorschläge oder fragen. Ist wie gesagt mein 1. größeres DIAdem Makro, da bin ich über Feedback immer Dankbar.

Code:
'-------------------------------------------------------------------------------
'-- VBS-Script-Datei
'-- Neu erstellt am 15.02.2010 13:02:17
'-- Ersteller: STG
'-- Kommentar: Bedingte Klassierung - Vorlage Bedingte Klassierung muss geöffnet sein!
'--            Gruppe 1-6 Klassierungen, Gruppe 7-12 Geteilt in Zustände, Gruppe 13 (+ optional Gr.14) Messdaten
'--            Rackith Spitzenwerte und Klassiergrenzen
'-------------------------------------------------------------------------------
Option Explicit  'Erzwingt die explizite Deklaration aller Variablen in einem Skript.

dim iGroupCount
dim oChn
dim dMin
dim dMax
dim iRow
dim iRow2
dim lBlock
dim iLength
dim iLoopCount

Dim oMyResultsList, Element
Set oMyResultsList = Navigator.Display.CurrDataProvider.ResultsList
      For Each Element in oMyResultsList.Elements
          If Element.IsKindOf(eSearchFile) Then
          
            iGroupCount = 7
            
            Call Data.Root.ChannelGroups.Add("Z_0_1_-_Stand-Transport", iGroupCount)                  
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_1",DataTypeFloat64,  1 )  
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_2",DataTypeFloat64,    2    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_3",DataTypeFloat64,    3    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_4",DataTypeFloat64,    4    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_5",DataTypeFloat64,    5    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_6",DataTypeFloat64,    6    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_7",DataTypeFloat64,    7    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_8",DataTypeFloat64,    8    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_9",DataTypeFloat64,    9    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_10",DataTypeFloat64,    10    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_11",DataTypeFloat64,    11    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_12",DataTypeFloat64,    12    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_13",DataTypeFloat64,    13    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_14",DataTypeFloat64,    14    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_15",DataTypeFloat64,    15    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_16",DataTypeFloat64,    16    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_17",DataTypeFloat64,    17    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_18",DataTypeFloat64,    18    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_19",DataTypeFloat64,    19    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_20",DataTypeFloat64,    20    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_21",DataTypeFloat64,    21    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_22",DataTypeFloat64,    22    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_23",DataTypeFloat64,    23    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_24",DataTypeFloat64,    24    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_25",DataTypeFloat64,    25    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_26",DataTypeFloat64,    26    )
            
            iGroupCount = iGroupCount + 1
            
            Call Data.Root.ChannelGroups.Add("Z_0_2_-_Stand-Vorgewende", iGroupCount)                    
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_1",DataTypeFloat64,  1 )  
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_2",DataTypeFloat64,    2    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_3",DataTypeFloat64,    3    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_4",DataTypeFloat64,    4    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_5",DataTypeFloat64,    5    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_6",DataTypeFloat64,    6    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_7",DataTypeFloat64,    7    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_8",DataTypeFloat64,    8    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_9",DataTypeFloat64,    9    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_10",DataTypeFloat64,    10    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_11",DataTypeFloat64,    11    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_12",DataTypeFloat64,    12    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_13",DataTypeFloat64,    13    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_14",DataTypeFloat64,    14    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_15",DataTypeFloat64,    15    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_16",DataTypeFloat64,    16    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_17",DataTypeFloat64,    17    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_18",DataTypeFloat64,    18    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_19",DataTypeFloat64,    19    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_20",DataTypeFloat64,    20    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_21",DataTypeFloat64,    21    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_22",DataTypeFloat64,    22    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_23",DataTypeFloat64,    23    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_24",DataTypeFloat64,    24    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_25",DataTypeFloat64,    25    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_26",DataTypeFloat64,    26    )
            
            iGroupCount = iGroupCount + 1
            
            Call Data.Root.ChannelGroups.Add("Z_0_3_-_Stand-Arbeitszustand", iGroupCount)                    
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_1",DataTypeFloat64,  1 )  
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_2",DataTypeFloat64,    2    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_3",DataTypeFloat64,    3    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_4",DataTypeFloat64,    4    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_5",DataTypeFloat64,    5    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_6",DataTypeFloat64,    6    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_7",DataTypeFloat64,    7    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_8",DataTypeFloat64,    8    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_9",DataTypeFloat64,    9    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_10",DataTypeFloat64,    10    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_11",DataTypeFloat64,    11    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_12",DataTypeFloat64,    12    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_13",DataTypeFloat64,    13    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_14",DataTypeFloat64,    14    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_15",DataTypeFloat64,    15    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_16",DataTypeFloat64,    16    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_17",DataTypeFloat64,    17    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_18",DataTypeFloat64,    18    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_19",DataTypeFloat64,    19    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_20",DataTypeFloat64,    20    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_21",DataTypeFloat64,    21    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_22",DataTypeFloat64,    22    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_23",DataTypeFloat64,    23    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_24",DataTypeFloat64,    24    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_25",DataTypeFloat64,    25    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_26",DataTypeFloat64,    26    )
            
            iGroupCount = iGroupCount + 1
            
            Call Data.Root.ChannelGroups.Add("Z_1_1_-_Fahrt-Transport", iGroupCount)                    
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_1",DataTypeFloat64,  1 )  
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_2",DataTypeFloat64,    2    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_3",DataTypeFloat64,    3    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_4",DataTypeFloat64,    4    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_5",DataTypeFloat64,    5    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_6",DataTypeFloat64,    6    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_7",DataTypeFloat64,    7    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_8",DataTypeFloat64,    8    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_9",DataTypeFloat64,    9    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_10",DataTypeFloat64,    10    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_11",DataTypeFloat64,    11    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_12",DataTypeFloat64,    12    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_13",DataTypeFloat64,    13    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_14",DataTypeFloat64,    14    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_15",DataTypeFloat64,    15    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_16",DataTypeFloat64,    16    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_17",DataTypeFloat64,    17    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_18",DataTypeFloat64,    18    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_19",DataTypeFloat64,    19    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_20",DataTypeFloat64,    20    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_21",DataTypeFloat64,    21    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_22",DataTypeFloat64,    22    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_23",DataTypeFloat64,    23    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_24",DataTypeFloat64,    24    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_25",DataTypeFloat64,    25    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_26",DataTypeFloat64,    26    )
            
            iGroupCount = iGroupCount + 1
            
            Call Data.Root.ChannelGroups.Add("Z_1_2_-_Fahrt-Vorgewende", iGroupCount)                    
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_1",DataTypeFloat64,  1 )  
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_2",DataTypeFloat64,    2    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_3",DataTypeFloat64,    3    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_4",DataTypeFloat64,    4    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_5",DataTypeFloat64,    5    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_6",DataTypeFloat64,    6    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_7",DataTypeFloat64,    7    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_8",DataTypeFloat64,    8    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_9",DataTypeFloat64,    9    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_10",DataTypeFloat64,    10    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_11",DataTypeFloat64,    11    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_12",DataTypeFloat64,    12    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_13",DataTypeFloat64,    13    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_14",DataTypeFloat64,    14    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_15",DataTypeFloat64,    15    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_16",DataTypeFloat64,    16    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_17",DataTypeFloat64,    17    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_18",DataTypeFloat64,    18    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_19",DataTypeFloat64,    19    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_20",DataTypeFloat64,    20    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_21",DataTypeFloat64,    21    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_22",DataTypeFloat64,    22    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_23",DataTypeFloat64,    23    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_24",DataTypeFloat64,    24    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_25",DataTypeFloat64,    25    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_26",DataTypeFloat64,    26    )
            
            iGroupCount = iGroupCount + 1
            
            Call Data.Root.ChannelGroups.Add("Z_1_3_-_Fahrt-Arbeitszustand", iGroupCount)                    
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_1",DataTypeFloat64,  1 )  
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_2",DataTypeFloat64,    2    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_3",DataTypeFloat64,    3    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_4",DataTypeFloat64,    4    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_5",DataTypeFloat64,    5    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_6",DataTypeFloat64,    6    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_7",DataTypeFloat64,    7    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_8",DataTypeFloat64,    8    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_9",DataTypeFloat64,    9    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_10",DataTypeFloat64,    10    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_11",DataTypeFloat64,    11    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_12",DataTypeFloat64,    12    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_13",DataTypeFloat64,    13    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_14",DataTypeFloat64,    14    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_15",DataTypeFloat64,    15    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_16",DataTypeFloat64,    16    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_17",DataTypeFloat64,    17    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_18",DataTypeFloat64,    18    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_19",DataTypeFloat64,    19    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_20",DataTypeFloat64,    20    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_21",DataTypeFloat64,    21    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_22",DataTypeFloat64,    22    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_23",DataTypeFloat64,    23    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_24",DataTypeFloat64,    24    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_25",DataTypeFloat64,    25    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_26",DataTypeFloat64,    26    )

            Call Navigator.LoadData(Element,"Load") 'Datei laden
        

'###############################################################################​####################################################
'###############################################################################​####################################################
'###############################################################################​####################################################    
'Spitzen mit NoValue ersetzen!

Call ChnCalculate("Ch(""[13]/[1]"")=Ch(""[13]/[1]"")+CTNV(Ch(""[13]/[1]"")<(-70.927) Or    Ch(""[13]/[1]"")>(158.884))",NULL,NULL,"")            'Fxul
Call ChnCalculate("Ch(""[13]/[2]"")=Ch(""[13]/[2]"")+CTNV(Ch(""[13]/[2]"")<(-7.007) Or Ch(""[13]/[2]"")>(37.83))",NULL,NULL,"")                'Fzul
Call ChnCalculate("Ch(""[13]/[3]"")=Ch(""[13]/[3]"")+CTNV(Ch(""[13]/[3]"")<(-47.312) Or Ch(""[13]/[3]"")>(35.23))",NULL,NULL,"")              'Fxur
Call ChnCalculate("Ch(""[13]/[4]"")=Ch(""[13]/[4]"")+CTNV(Ch(""[13]/[4]"")<(5.557) Or Ch(""[13]/[4]"")>(41.777))",NULL,NULL,"")                  'Fzur              

Call ChnCalculate("Ch(""[13]/[5]"")=Ch(""[13]/[5]"")+CTNV(Ch(""[13]/[5]"")<(-10.953) Or Ch(""[13]/[5]"")>(13.234))",NULL,NULL,"")                'Fxrl
Call ChnCalculate("Ch(""[13]/[6]"")=Ch(""[13]/[6]"")+CTNV(Ch(""[13]/[6]"")<(-1.913) Or Ch(""[13]/[6]"")>(81.966))",NULL,NULL,"")                'Fzrl
Call ChnCalculate("Ch(""[13]/[7]"")=Ch(""[13]/[7]"")+CTNV(Ch(""[13]/[7]"")<(-26.047) Or Ch(""[13]/[7]"")>(22.44))",NULL,NULL,"")                'Fxrr    
Call ChnCalculate("Ch(""[13]/[8]"")=Ch(""[13]/[8]"")+CTNV(Ch(""[13]/[8]"")<(-24.384) Or Ch(""[13]/[8]"")>(109.027))",NULL,NULL,"")              'Fzrr

Call ChnCalculate("Ch(""[13]/[9]"")=Ch(""[13]/[9]"")+CTNV(Ch(""[13]/[9]"")<(-15.029206) Or Ch(""[13]/[9]"")>(15.834908))",NULL,NULL,"")          'Strl
Call ChnCalculate("Ch(""[13]/[10]"")=Ch(""[13]/[10]"")+CTNV(Ch(""[13]/[10]"")<(-46.295417) Or Ch(""[13]/[10]"")>(42.189006))",NULL,NULL,"")    'Sbrl
Call ChnCalculate("Ch(""[13]/[11]"")=Ch(""[13]/[11]"")+CTNV(Ch(""[13]/[11]"")<(-11.700048) Or Ch(""[13]/[11]"")>(20.802038))",NULL,NULL,"")    'Strr
Call ChnCalculate("Ch(""[13]/[12]"")=Ch(""[13]/[12]"")+CTNV(Ch(""[13]/[12]"")<(-52.824427) Or Ch(""[13]/[12]"")>(52.947037))",NULL,NULL,"")    'Sbrr

Call ChnCalculate("Ch(""[13]/[13]"")=Ch(""[13]/[13]"")+CTNV(Ch(""[13]/[13]"")<(53.265) Or Ch(""[13]/[13]"")>(53.857))",NULL,NULL,"")            'Sztl
Call ChnCalculate("Ch(""[13]/[14]"")=Ch(""[13]/[14]"")+CTNV(Ch(""[13]/[14]"")<(48.078) Or Ch(""[13]/[14]"")>(53.337))",NULL,NULL,"")            'Sztr
Call ChnCalculate("Ch(""[13]/[15]"")=Ch(""[13]/[15]"")+CTNV(Ch(""[13]/[15]"")<(-0.519) Or Ch(""[13]/[15]"")>(0.285))",NULL,NULL,"")              'Fxs1
Call ChnCalculate("Ch(""[13]/[16]"")=Ch(""[13]/[16]"")+CTNV(Ch(""[13]/[16]"")<(-0.179) Or Ch(""[13]/[16]"")>(0.48))",NULL,NULL,"")              'Fzs1    

Call ChnCalculate("Ch(""[13]/[17]"")=Ch(""[13]/[17]"")+CTNV(Ch(""[13]/[17]"")<(-0.391) Or Ch(""[13]/[17]"")>(0.166))",NULL,NULL,"")              'Fxs2
Call ChnCalculate("Ch(""[13]/[18]"")=Ch(""[13]/[18]"")+CTNV(Ch(""[13]/[18]"")<(-0.257) Or Ch(""[13]/[18]"")>(0.232))",NULL,NULL,"")              'Fzs2
Call ChnCalculate("Ch(""[13]/[19]"")=Ch(""[13]/[19]"")+CTNV(Ch(""[13]/[19]"")<(-4.155) Or Ch(""[13]/[19]"")>(1.467))",NULL,NULL,"")              'Fz_Rolle
Call ChnCalculate("Ch(""[13]/[20]"")=Ch(""[13]/[20]"")+CTNV(Ch(""[13]/[20]"")<(-2.006) or Ch(""[13]/[20]"")>(3.676))",NULL,NULL,"")              'Fz_Halter

Call ChnCalculate("Ch(""[13]/[21]"")=Ch(""[13]/[21]"")+CTNV(Ch(""[13]/[21]"")<(-186.138) Or Ch(""[13]/[21]"")>(93.955))",NULL,NULL,"")        'Fzl
Call ChnCalculate("Ch(""[13]/[22]"")=Ch(""[13]/[22]"")+CTNV(Ch(""[13]/[22]"")<(-237.714) Or Ch(""[13]/[22]"")>(89.617))",NULL,NULL,"")        'Fzr
Call ChnCalculate("Ch(""[13]/[23]"")=Ch(""[13]/[23]"")+CTNV(Ch(""[13]/[23]"")<(-8.612537) Or Ch(""[13]/[23]"")>(8.028389))",NULL,NULL,"")      'azZ
Call ChnCalculate("Ch(""[13]/[24]"")=Ch(""[13]/[24]"")+CTNV(Ch(""[13]/[24]"")<(-30.57054) Or Ch(""[13]/[24]"")>(41.540492))",NULL,NULL,"")  'azRl

Call ChnCalculate("Ch(""[13]/[25]"")=Ch(""[13]/[25]"")+CTNV(Ch(""[13]/[25]"")<(-11.538514) Or Ch(""[13]/[25]"")>(12.791077))",NULL,NULL,"")    'azRr
Call ChnCalculate("Ch(""[13]/[26]"")=Ch(""[13]/[26]"")+CTNV(Ch(""[13]/[26]"")<(-10.471194) Or Ch(""[13]/[26]"")>(9.086721))",NULL,NULL,"")    'azT

'###############################################################################​####################################################
'###############################################################################​####################################################
'###############################################################################​####################################################    

Set oChn = Data.GetChannel("[13]/[30]")
dMin = oChn.Properties("minimum").Value
dMax = oChn.Properties("maximum").Value

        'Sind 2 Zustände im aktuellen Datensatz? (Fahrt und Stand)          
        If Not (dMin = dMax) then
                
                'Sortieren nach Fahrt / Stand
                Call ChnMultipleSort("[13]/[30]", _
                "'[13]/[1]' - '[13]/[29]'," & _
                "'[13]/[31]' - '[13]/[33]",0,1) '... CALCXChn,CALCYChn,SortSwitch,ChnMSortIP


                For iRow =1 to ChnLength("[13]/[30]") 'so lang wie die Quelldatei ist, läuft auch die Schleife
                              
                      if ChDX(iRow, (CNo("[13]/[30]"))) = 1 then
                        lBlock = iRow-1
                        Exit For
                      End if
                      
                next  
            
            iGroupCount = 14
            Call Data.Root.ChannelGroups.Add("Stand", iGroupCount)                    
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_1",DataTypeFloat64,  1 )  
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_2",DataTypeFloat64,    2    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_3",DataTypeFloat64,    3    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_4",DataTypeFloat64,    4    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_5",DataTypeFloat64,    5    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_6",DataTypeFloat64,    6    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_7",DataTypeFloat64,    7    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_8",DataTypeFloat64,    8    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_9",DataTypeFloat64,    9    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_10",DataTypeFloat64,    10    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_11",DataTypeFloat64,    11    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_12",DataTypeFloat64,    12    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_13",DataTypeFloat64,    13    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_14",DataTypeFloat64,    14    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_15",DataTypeFloat64,    15    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_16",DataTypeFloat64,    16    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_17",DataTypeFloat64,    17    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_18",DataTypeFloat64,    18    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_19",DataTypeFloat64,    19    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_20",DataTypeFloat64,    20    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_21",DataTypeFloat64,    21    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_22",DataTypeFloat64,    22    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_23",DataTypeFloat64,    23    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_24",DataTypeFloat64,    24    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_25",DataTypeFloat64,    25    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_26",DataTypeFloat64,    26    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_19",DataTypeFloat64,    27    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_20",DataTypeFloat64,    28    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_21",DataTypeFloat64,    29    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_22",DataTypeFloat64,    30    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_23",DataTypeFloat64,    31    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_24",DataTypeFloat64,    32    )
            Call Data.Root.ChannelGroups(iGroupCount).Channels.Add("TempCh_25",DataTypeFloat64,    33    )
            
            
            Call DataBlClpCopy("'[13]/[1]' - '[13]/[33]",1,lBlock) '... ChnNoStr,ChnRow,ValNo
            Call DataBlDel("'[13]/[1]' - '[13]/[33]",1,lBlock,1) '... ChnNoStr,ChnRow,ValNo,ValDelOnly
            Call DataBlClpPaste("'[14]/[1]' - '[14]/[33]'",1,0) '... ChnNoStr,ChnRow,ValNo
            
            lBlock = Round(ChnLength("[13]/[30]")/10)
            iLength = ChnLength("[13]/[30]")
                        
            'Zustände Sortieren:
            Call ChnMultipleSort("[13]/[31]", _
            "'[13]/[1]' - '[13]/[30]'," & _
            "'[13]/[32]' - '[13]/[33]",0,1)  '... CALCXChn,CALCYChn,SortSwitch,ChnMSortIP
            
            For iRow = 1 to iLength
                      Select Case ChDX(iRow, (CNo("[13]/[31]")))         'Fahrtdaten: Zustandsbit
                              Case 1
                                  iRow2 = iRow + lBlock
                                  if iRow2 > iLength then
                                      iRow2 = iLength                         'Last Row
                                  end if
                                  
                                  For iLoopCount = iRow2 to iRow Step -1
                                      
                                      If ChDX(iLoopCount, (CNo("[13]/[31]"))) = 1 then
                                                                      
                                            Call DataBlClpCopy("'[13]/[1]' - '[13]/[26]'", iRow, (iLoopCount-iRow+1)) '... ChnNoStr,ChnRow,ValNo
                                            Call DataBlClpPaste("'[10]/[1]' - '[10]/[26]'",(ChnLength("[10]/[26]")+1),0) '... ChnNoStr,ChnRow,ValNo
                                            iRow = iRow + (iLoopCount - iRow)
                                            Exit For
                                            
                                      end if
                                  
                                  Next

                              Case 2    
                                  iRow2 = iRow + lBlock
                                  if iRow2 > iLength then
                                      iRow2 = iLength                         'Last Row
                                  end if
                                  
                                  For iLoopCount = iRow2 to iRow Step -1
                                      
                                      If ChDX(iLoopCount, (CNo("[13]/[31]"))) = 2 then
                                                                      
                                            Call DataBlClpCopy("'[13]/[1]' - '[13]/[26]'", iRow, (iLoopCount-iRow+1)) '... ChnNoStr,ChnRow,ValNo
                                            Call DataBlClpPaste("'[11]/[1]' - '[11]/[26]'",(ChnLength("[11]/[26]")+1),0) '... ChnNoStr,ChnRow,ValNo
                                            iRow = iRow + (iLoopCount - iRow)
                                            Exit For
                                            
                                      End if
                                  
                                  Next
                                  
                              Case 3    
                                  iRow2 = iRow + lBlock
                                  if iRow2 > iLength then
                                      iRow2 = iLength                         'Last Row
                                  end if
                                  
                                  For iLoopCount = iRow2 to iRow Step -1
                                      
                                      If ChDX(iLoopCount, (CNo("[13]/[31]"))) = 3 then
                                                                      
                                            Call DataBlClpCopy("'[13]/[1]' - '[13]/[26]'", iRow, (iLoopCount-iRow+1)) '... ChnNoStr,ChnRow,ValNo
                                            Call DataBlClpPaste("'[12]/[1]' - '[12]/[26]'",(ChnLength("[12]/[26]")+1),0) '... ChnNoStr,ChnRow,ValNo
                                            iRow = iRow + (iLoopCount - iRow)
                                            Exit For
                                            
                                      End if
                                  
                                  Next
                                  
                              Case Else MsgBox ("Fehler Zustandsbit")
                      End Select
            Next

            lBlock = Round(ChnLength("[14]/[30]")/10)
            iLength = ChnLength("[14]/[30]")
                        
            'Zustände Sortieren:
            Call ChnMultipleSort("[14]/[31]", _
            "'[14]/[1]' - '[14]/[30]'," & _
            "'[14]/[32]' - '[14]/[33]",0,1)  '... CALCXChn,CALCYChn,SortSwitch,ChnMSortIP
            
            For iRow = 1 to iLength
                      Select Case ChDX(iRow, (CNo("[14]/[31]")))         'Fahrtdaten: Zustandsbit
                              Case 1
                                  iRow2 = iRow + lBlock
                                  if iRow2 > iLength then
                                      iRow2 = iLength                         'Last Row
                                  end if
                                  
                                  For iLoopCount = iRow2 to iRow Step -1
                                      
                                      If ChDX(iLoopCount, (CNo("[14]/[31]"))) = 1 then
                                                                      
                                            Call DataBlClpCopy("'[14]/[1]' - '[14]/[33]", iRow, (iLoopCount-iRow+1)) '... ChnNoStr,ChnRow,ValNo
                                            Call DataBlClpPaste("'[7]/[1]' - '[7]/[26]'",(ChnLength("[7]/[26]")+1),0) '... ChnNoStr,ChnRow,ValNo
                                            iRow = iRow + (iLoopCount - iRow)
                                            Exit For
                                            
                                      End if
                                  
                                  Next
                                  
                              Case 2    
                                  iRow2 = iRow + lBlock
                                  if iRow2 > iLength then
                                      iRow2 = iLength                         'Last Row
                                  end if
                                  
                                  For iLoopCount = iRow2 to iRow Step -1
                                      
                                      If ChDX(iLoopCount, (CNo("[14]/[31]"))) = 2 then
                                                                      
                                            Call DataBlClpCopy("'[14]/[1]' - '[14]/[33]", iRow, (iLoopCount-iRow+1)) '... ChnNoStr,ChnRow,ValNo
                                            Call DataBlClpPaste("'[8]/[1]' - '[8]/[26]'",(ChnLength("[8]/[26]")+1),0) '... ChnNoStr,ChnRow,ValNo
                                            iRow = iRow + (iLoopCount - iRow)
                                            Exit For
                                            
                                      End if
                                  
                                  Next
                                  
                              Case 3    
                                  iRow2 = iRow + lBlock
                                  if iRow2 > iLength then
                                      iRow2 = iLength                         'Last Row
                                  end if
                                  
                                  For iLoopCount = iRow2 to iRow Step -1
                                      
                                      If ChDX(iLoopCount, (CNo("[14]/[31]"))) = 3 then
                                                                      
                                            Call DataBlClpCopy("'[14]/[1]' - '[14]/[33]", iRow, (iLoopCount-iRow+1)) '... ChnNoStr,ChnRow,ValNo
                                            Call DataBlClpPaste("'[9]/[1]' - '[9]/[26]'",(ChnLength("[9]/[26]")+1),0) '... ChnNoStr,ChnRow,ValNo
                                            iRow = iRow + (iLoopCount - iRow)
                                            Exit For
                                            
                                      End if
                                  
                                  Next
                                  
                              Case Else MsgBox ("Fehler Zustandsbit")
                      End Select
            Next
            
            If ChnLength("[7]/[1]") > 0 then
              Call Klassierung(1, 7)
            End if
            
            If ChnLength("[8]/[1]") > 0 then
              Call Klassierung(2, 8)
            End if
            
            If ChnLength("[9]/[1]") > 0 then
              Call Klassierung(3, 9)
            End if
            
            If ChnLength("[10]/[1]") > 0 then
              Call Klassierung(4, 10)
            End if
            
            If ChnLength("[11]/[1]") > 0 then
              Call Klassierung(5, 11)
            End if
            
            If ChnLength("[12]/[1]") > 0 then
              Call Klassierung(6, 12)
            End if
            
            Call GroupDel(14)    'beim Laden neu entstandene, Gruppen löschen
            Call GroupDel(13)    'beim Laden neu entstandene, Gruppen löschen
                        
        'Sind keine 2 Zustände im Datenkanal:
        Else
                      If dMin = 0 then  'nur Stand - Gruppen 7..9
                          
                            lBlock = Round(ChnLength("[13]/[30]")/10)
                            iLength = ChnLength("[13]/[30]")
                            
                           'Zustände Sortieren:
                            Call ChnMultipleSort("[13]/[31]", _
                            "'[13]/[1]' - '[13]/[30]'," & _
                            "'[13]/[32]' - '[13]/[33]",0,1)  '... CALCXChn,CALCYChn,SortSwitch,ChnMSortIP
                      
                            For iRow = 1 to iLength
                                      Select Case ChDX(iRow, (CNo("[13]/[31]")))         'Fahrtdaten: Zustandsbit
                                              Case 1
                                                  iRow2 = iRow + lBlock
                                                  if iRow2 > iLength then
                                                      iRow2 = iLength                         'Last Row
                                                  end if
                                                  
                                                  For iLoopCount = iRow2 to iRow Step -1
                                                      
                                                      If ChDX(iLoopCount, (CNo("[13]/[31]"))) = 1 then
                                                                                      
                                                            Call DataBlClpCopy("'[13]/[1]' - '[13]/[33]", iRow, (iLoopCount-iRow+1)) '... ChnNoStr,ChnRow,ValNo
                                                            Call DataBlClpPaste("'[7]/[1]' - '[7]/[26]'",(ChnLength("[7]/[26]")+1),0) '... ChnNoStr,ChnRow,ValNo
                                                            iRow = iRow + (iLoopCount - iRow)
                                                            Exit For
                                                            
                                                      End if
                                                  
                                                  Next
                                                  
                                              Case 2    
                                                  iRow2 = iRow + lBlock
                                                  if iRow2 > iLength then
                                                      iRow2 = iLength                         'Last Row
                                                  end if
                                                  
                                                  For iLoopCount = iRow2 to iRow Step -1
                                                      
                                                      If ChDX(iLoopCount, (CNo("[13]/[31]"))) = 2 then
                                                                                      
                                                            Call DataBlClpCopy("'[13]/[1]' - '[13]/[33]", iRow, (iLoopCount-iRow+1)) '... ChnNoStr,ChnRow,ValNo
                                                            Call DataBlClpPaste("'[8]/[1]' - '[8]/[26]'",(ChnLength("[8]/[26]")+1),0) '... ChnNoStr,ChnRow,ValNo
                                                            iRow = iRow + (iLoopCount - iRow)
                                                            Exit For
                                                            
                                                      End if
                                                  
                                                  Next
                                                  
                                              Case 3    
                                                  iRow2 = iRow + lBlock
                                                  if iRow2 > iLength then
                                                      iRow2 = iLength                         'Last Row
                                                  end if
                                                  
                                                  For iLoopCount = iRow2 to iRow Step -1
                                                      
                                                      If ChDX(iLoopCount, (CNo("[13]/[31]"))) = 3 then
                                                                                      
                                                            Call DataBlClpCopy("'[13]/[1]' - '[13]/[33]", iRow, (iLoopCount-iRow+1)) '... ChnNoStr,ChnRow,ValNo
                                                            Call DataBlClpPaste("'[9]/[1]' - '[9]/[26]'",(ChnLength("[9]/[26]")+1),0) '... ChnNoStr,ChnRow,ValNo
                                                            iRow = iRow + (iLoopCount - iRow)
                                                            Exit For
                                                            
                                                      End if
                                                  
                                                  Next
                                                  
                                              Case Else MsgBox ("Fehler Zustandsbit")
                                      End Select
                            Next
                            
                            If ChnLength("[7]/[1]") > 0 then
                              Call Klassierung(1, 7)
                            End if
                            
                            If ChnLength("[8]/[1]") > 0 then
                              Call Klassierung(2, 8)
                            End if
                            
                            If ChnLength("[9]/[1]") > 0 then
                              Call Klassierung(3, 9)
                            End if
                            
                            If ChnLength("[10]/[1]") > 0 then
                              Call Klassierung(4, 10)
                            End if
                            
                            If ChnLength("[11]/[1]") > 0 then
                              Call Klassierung(5, 11)
                            End if
                            
                            If ChnLength("[12]/[1]") > 0 then
                              Call Klassierung(6, 12)
                            End if
                            
                            Call GroupDel(13)    'beim Laden neu entstandene, Gruppen löschen
                          
                      '##########################################################################​#############################      
                      Else              'nur Fahrt - Gruppen 10..12
                              
                          lBlock = Round(ChnLength("[13]/[30]")/10)
                          iLength = ChnLength("[13]/[30]")
                                      
                          'Zustände Sortieren:
                          Call ChnMultipleSort("[13]/[31]", _
                          "'[13]/[1]' - '[13]/[30]'," & _
                          "'[13]/[32]' - '[13]/[33]",0,1)  '... CALCXChn,CALCYChn,SortSwitch,ChnMSortIP
                          
                          For iRow = 1 to iLength
                                    Select Case ChDX(iRow, (CNo("[13]/[31]")))         'Fahrtdaten: Zustandsbit
                                            Case 1
                                                iRow2 = iRow + lBlock
                                                if iRow2 > iLength then
                                                    iRow2 = iLength                         'Last Row
                                                end if
                                                
                                                For iLoopCount = iRow2 to iRow Step -1
                                                    
                                                    If ChDX(iLoopCount, (CNo("[13]/[31]"))) = 1 then
                                                                                    
                                                          Call DataBlClpCopy("'[13]/[1]' - '[13]/[26]'", iRow, (iLoopCount-iRow+1)) '... ChnNoStr,ChnRow,ValNo
                                                          Call DataBlClpPaste("'[10]/[1]' - '[10]/[26]'",(ChnLength("[10]/[26]")+1),0) '... ChnNoStr,ChnRow,ValNo
                                                          iRow = iRow + (iLoopCount - iRow)
                                                          Exit For
                                                          
                                                    end if
                                                
                                                Next
              
                                            Case 2    
                                                iRow2 = iRow + lBlock
                                                if iRow2 > iLength then
                                                    iRow2 = iLength                         'Last Row
                                                end if
                                                
                                                For iLoopCount = iRow2 to iRow Step -1
                                                    
                                                    If ChDX(iLoopCount, (CNo("[13]/[31]"))) = 2 then
                                                                                    
                                                          Call DataBlClpCopy("'[13]/[1]' - '[13]/[26]'", iRow, (iLoopCount-iRow+1)) '... ChnNoStr,ChnRow,ValNo
                                                          Call DataBlClpPaste("'[11]/[1]' - '[11]/[26]'",(ChnLength("[11]/[26]")+1),0) '... ChnNoStr,ChnRow,ValNo
                                                          iRow = iRow + (iLoopCount - iRow)
                                                          Exit For
                                                          
                                                    End if
                                                
                                                Next
                                                
                                            Case 3    
                                                iRow2 = iRow + lBlock
                                                if iRow2 > iLength then
                                                    iRow2 = iLength                         'Last Row
                                                end if
                                                
                                                For iLoopCount = iRow2 to iRow Step -1
                                                    
                                                    If ChDX(iLoopCount, (CNo("[13]/[31]"))) = 3 then
                                                                                    
                                                          Call DataBlClpCopy("'[13]/[1]' - '[13]/[26]'", iRow, (iLoopCount-iRow+1)) '... ChnNoStr,ChnRow,ValNo
                                                          Call DataBlClpPaste("'[12]/[1]' - '[12]/[26]'",(ChnLength("[12]/[26]")+1),0) '... ChnNoStr,ChnRow,ValNo
                                                          iRow = iRow + (iLoopCount - iRow)
                                                          Exit For
                                                          
                                                    End if
                                                
                                                Next
                                                
                                            Case Else MsgBox ("Fehler Zustandsbit")
                                    End Select
                          Next        
                          
                              If ChnLength("[7]/[1]") > 0 then
                                Call Klassierung(1, 7)
                              End if
                              
                              If ChnLength("[8]/[1]") > 0 then
                                Call Klassierung(2, 8)
                              End if
                              
                              If ChnLength("[9]/[1]") > 0 then
                                Call Klassierung(3, 9)
                              End if
                              
                              If ChnLength("[10]/[1]") > 0 then
                                Call Klassierung(4, 10)
                              End if
                              
                              If ChnLength("[11]/[1]") > 0 then
                                Call Klassierung(5, 11)
                              End if
                              
                              If ChnLength("[12]/[1]") > 0 then
                                Call Klassierung(6, 12)
                              End if
                              
                          Call GroupDel(13)    'beim Laden neu entstandene, Gruppen löschen  
                                                                                  
                      End if 'Nur Fahrt oder nur Stand?
                    
                    
        End if        'Sind 2 Zustände im Datensatz?
          
          Call GroupDel(12)    'beim Laden neu entstandene, Gruppen löschen
          Call GroupDel(11)    'beim Laden neu entstandene, Gruppen löschen
          Call GroupDel(10)    'beim Laden neu entstandene, Gruppen löschen
          Call GroupDel(9)     'beim Laden neu entstandene, Gruppen löschen
          Call GroupDel(8)     'beim Laden neu entstandene, Gruppen löschen
          Call GroupDel(7)     'beim Laden neu entstandene, Gruppen löschen      
          
          End if      'is kind of search-file
      Next            'next file


'---------------------------------------------------------------------------------------------
' Subroutines
'---------------------------------------------------------------------------------------------


Sub Klassierung(DestGroup, srcGroup)

dim myZwSp
dim iMitten
dim iHaeufigk
dim iFaktMitt

iFaktMitt = 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'Fxul
ClassNo          = 128
ClassBegin       = -72.7539444444445
ClassEnd         = 160.710944444444
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'Fzul
ClassNo          = 128
ClassBegin       = -7.36589682539682
ClassEnd         = 38.1888968253968
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'Fxur
ClassNo          = 128
ClassBegin       = -47.9701428571429
ClassEnd         = 35.8881428571429
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'Fzur
ClassNo          = 128
ClassBegin       = 5.26649206349206
ClassEnd         = 42.0675079365079
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'###############################################################################​####################################################
'###############################################################################​####################################################


'Fxrl
ClassNo          = 128
ClassBegin       = -11.1480079365079
ClassEnd         = 13.4290079365079
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'Fzrl
ClassNo          = 128
ClassBegin       = -2.58175396825397
ClassEnd         = 82.634753968254
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'Fxrr
ClassNo          = 128
ClassBegin       = -26.4348650793651
ClassEnd         = 22.8278650793651
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'Fzrr
ClassNo          = 128
ClassBegin       = -25.4458650793651
ClassEnd         = 110.088865079365
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'###############################################################################​####################################################
'###############################################################################​####################################################


'Strl
ClassNo          = 128
ClassBegin       = -15.2772069047619
ClassEnd         = 16.0829089047619
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'Sbrl
ClassNo          = 128
ClassBegin       = -47.0007219444444
ClassEnd         = 42.8943109444444
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'Strr
ClassNo          = 128
ClassBegin       = -11.9610486825397
ClassEnd         = 21.0630386825397
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'Sbrr
ClassNo          = 128
ClassBegin       = -53.6669306825397
ClassEnd         = 53.7895406825397
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'###############################################################################​####################################################
'###############################################################################​####################################################

'Sztl
ClassNo          = 128
ClassBegin       = 53.257253968254
ClassEnd         = 53.864746031746
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'Sztr
ClassNo          = 128
ClassBegin       = 48.0332142857143
ClassEnd         = 53.3817857142857
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'Fxs1
ClassNo          = 128
ClassBegin       = -0.528428571428571
ClassEnd         = 0.294428571428571
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'Fzs1
ClassNo          = 128
ClassBegin       = -0.187277777777778
ClassEnd         = 0.488277777777778
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'###############################################################################​####################################################
'###############################################################################​####################################################

'Fxs2
ClassNo          = 128
ClassBegin       = -0.398468253968254
ClassEnd         = 0.173468253968254
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'Fzs2
ClassNo          = 128
ClassBegin       = -0.263928571428571
ClassEnd         = 0.238928571428571
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'Fz_Rolle
ClassNo          = 128
ClassBegin       = -4.20266666666667
ClassEnd         = 1.51466666666667
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'Fz_Halter
ClassNo          = 128
ClassBegin       = -2.05414285714286
ClassEnd         = 3.72414285714286
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'###############################################################################​####################################################
'###############################################################################​####################################################
Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
01.03.2010, 14:25
Beitrag #29
STG Offline
Member
***
DIAdem-Version: 11
DIAdem-Sprachversion: DE
DIAdem Erfahrung seit: 2009
Beiträge: 59
Registriert seit: Oct 2009
RE: DIAdem Anfänger hat Fragen

Code:
'###############################################################################​####################################################


'Fzl
ClassNo          = 128
ClassBegin       = -188.364007936508
ClassEnd         = 96.1810079365079
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'Fzr
ClassNo          = 128
ClassBegin       = -240.314912698413
ClassEnd         = 92.2179126984127
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'azZ
ClassNo          = 128
ClassBegin       = -8.74765546031746
ClassEnd         = 8.16350746031746
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'azRl
ClassNo          = 128
ClassBegin       = -31.1458973968254
ClassEnd         = 42.1158493968254
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'###############################################################################​####################################################
'###############################################################################​####################################################

'azRr
ClassNo          = 128
ClassBegin       = -11.7346536111111
ClassEnd         = 12.9872166111111
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

iFaktMitt = iFaktMitt + 1
iMitten = iFaktMitt * 2 - 1
iHaeufigk = iFaktMitt * 2

'azT
ClassNo          = 128
ClassBegin       = -10.6294631666667
ClassEnd         = 9.24499016666667
Call ChnHistogram("[" & cstr(srcGroup) & "]/[" & cstr(iFaktMitt) & "]","[" & cstr(DestGroup) & "]/[" & cstr(iMitten) & "]", myZwSp,"NoBeginEnd","absolute") '... Y,E,E,ClassMeth1,FrequencyType

ChnAdd"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]",myZwSp,"[" & cstr(DestGroup) & "]/[" & cstr(iHaeufigk) & "]"
'Kanäle kopieren (Kanal1 + Kanal2 = Kanal3)

End Sub

Musste den Code Teilen weil hier scheinbar nur 1000 Zeilen erlaubt sind.

Also, viele Grüße
STG

Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
Antwort schreiben 


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  DIAdem Tutorials sakul500 1 363 31.10.2011 08:43
Letzter Beitrag: Bruno
  DIAdem als Ablaufsteuerung scepi 2 342 26.10.2011 09:21
Letzter Beitrag: scepi
  Problem mit DIAdem 11.1 / Spider 8 über USB / Windows 7 Diademiker 0 441 06.10.2011 08:25
Letzter Beitrag: Diademiker
  Problem mit DIAdem 11.1 vs. Spider 8 Joe 2 432 05.10.2011 08:51
Letzter Beitrag: Joe
  Wünsche für DIAdem 12 Bruno 46 7.879 15.09.2011 10:01
Letzter Beitrag: Bruno
  DIAdem in LabVIEW einbinden ReneP 1 510 12.08.2011 07:58
Letzter Beitrag: Bruno
  Ist DIAdem 2011 jetzt Multicorefähig? faleX 0 501 07.08.2011 16:37
Letzter Beitrag: faleX
  chnclpcopy in DIAdem 2011? bamboocopter 4 463 03.08.2011 12:45
Letzter Beitrag: bamboocopter
  DIAdem ohne DataFinder installieren dim_ka 1 354 03.08.2011 12:00
Letzter Beitrag: Carpe_DIAdem
  DIAdem zum Auswerten von Versuchen Luki 1 575 04.05.2011 07:05
Letzter Beitrag: Carpe_DIAdem

Gehe zu: