Navigation: Beispiele (Pro und Premium) > Beispiele Premium-Lizenz >

Beispiel: Objekte

Diese Seite drucken
Vorherige Seite Nächste Seite
Zurück zur Kapitelübersicht

Skriptbeispiel für eigene Objekte:

Dieses Skript demonstriert den Aufbau und die Verwendung eigener Objekte, wobei auch der Umgang mit Parametern gezeigt wird..

 

Setze  in [TextGroß.Text]:  'Hallo!'

Meldung  "Ergebnistext: [TextGroß.Text]¶LinkesZeichen: [TextGroß.LinkesZeichen]¶LinkesZeichen von "Test": [TextGroß.LinkesZeichen(Test)]¶" (Titel: 'TextGroß-Objekt', Info, OK, Abbrechen)

 

Setze  in [ParameterListe]:  '2;4;9'

Meldung  "Parameter [ParameterListe]¶Summe: [Liste.Summe([ParameterListe])]¶Mittelwert: [Liste.Mittelwert([ParameterListe])]" (Titel: 'Liste-Objekt', Info, OK)

 

Beende  Skript

 

   

***  Objekt "TextGroß" definieren ******************************************************************************************

::  Objekt(TextGroß)_Start

***  Testobjekt für die Umsetzung der Groß-/Kleinschreibung

   

***  Eigenschaften:

::  TextGroß_Text_Schreiben

***  Basistext

    Setze  in [TGText]:  '[Text_Wert]'

Zurück

::  TextGroß_Text_Lesen

    Setze  in [Ergebnis]:  '[TGText]' (Großbuchstaben)

Zurück   (Ergebnis: '[Ergebnis]')

   

::  TextGroß_LinkesZeichen_Lesen

***  linkes Zeichen vom Basistext oder dem Parameter liefern

    Wenn  Wahr:  Text leer '[LinkesZeichen.Parameter]'

         Bearbeite  '[TGText]' in [Ergebnis] (Position 1, Linker Teil)

    Sonst

         Bearbeite  '[LinkesZeichen.Parameter]' in [Ergebnis] (Position 1, Linker Teil)

    Ende Wenn

Zurück   (Ergebnis: '[Ergebnis]')

   

::  Objekt(TextGroß)_Ende

   

   

***  Funktions-Deklarationen, Objekt "Liste" ******************************************************************************************

::  Objekt(Liste)_Start

***  Objekt für verschiedene Listenfunktionen

   

::  Liste_Summe_Lesen

***  [Liste.Summe x,y,z] liefert Summe der Werte

***  Ergebnis wird in [Liste.Summe.Wert] erwartet

    Setze  in [Summe_Wert]:  '0'

***  Anzahl Parameter in [Liste.Summe.ParameterAnzahl]

***  Einzelne Parameter (kommasepariert) in [Liste.Summe.Parameter1..n]

***  In diesem Beispiel werden die Parameter aufaddiert

    Schleife Ab   ([ParameterIndex]  von 1  bis [Parameter(Summe).Anzahl])

         Setze  in [Summe_Wert]:  '[Summe_Wert] + [Parameter(Summe).[ParameterIndex]]' (berechnen)

    Schleife Bis

Zurück

   

::  Liste_Mittelwert_Lesen

***  [Liste.Mittelwert x,y,z] liefert Duchschnitt der Werte

    Setze  in [ParameterSumme]:  '0'

    Schleife Ab   ([ParameterIndex]  von 1  bis [Parameter(Mittelwert).Anzahl])

         Setze  in [ParameterSumme]:  '[Parameter(Mittelwert).[ParameterIndex]]' (Addieren, berechnen)

    Schleife Bis

Zurück   (Ergebnis: '[ParameterSumme] / [Parameter(Mittelwert).Anzahl]', berechnen)

   

::  Objekt(Liste)_Ende

 

Beispiel als cX2Web-Code:

**cX403B6A C8A9A7S1F4 2CMjIJMAkJ PVRleHRHcm /fLlRleHQJ IEhhbGxvIQ 0KMw

kwCQlN NjQJQjEJVF RleHRHcm/f LU9iamVrdA kgRXJnZWJu aXN0ZXh0Oi BbVGV4dE

dy b98uVGV4dF 22TGlua2Vz WmVpY2hlbj ogW1RleHRH cm/fLkxpbm tlc1plaWNo Z

W5dtkxpbm tlc1plaWNo ZW4gdm9uIC JUZXN0Ijog W1RleHRHcm /fLkxpbmtl c1pla

WNoZW 4oVGVzdCld tg0KMAkwCQ 0KMjIJMAkJ PVBhcmFtZX Rlckxpc3Rl CSAyOzQ7O

Q 0KMwkwCQlN NjQJQjAJVE xpc3RlLU9i amVrdAkgUG FyYW1ldGVy IFtQYXJhbW V0

ZXJMaXN0 ZV22U3VtbW U6IFtMaXN0 ZS5TdW1tZS hbUGFyYW1l dGVyTGlzdG VdKV22

TWl0 dGVsd2VydD ogW0xpc3Rl Lk1pdHRlbH dlcnQoW1Bh cmFtZXRlck xpc3RlXSld

DQowCTAJDQ o1CTAJCUMN CjAJMAkNCj AJMAkNCjEJ MAkJIE9iam VrdCAiVGV4 dEd

yb98iIG RlZmluaWVy ZW4gCUYqDQ oxOQkwCQkg T2JqZWt0KF RleHRHcm/f KV9TdGF

ydA 0KMQkwCQkg VGVzdG9iam VrdCBm/HIg ZGllIFVtc2 V0enVuZyBk ZXIgR3Jv3y

0vS2xlaW5z Y2hyZWlidW 5nDQowCTAJ DQoxCTAJCS BFaWdlbnNj aGFmdGVuOg 0KMT

kJMAkJ IFRleHRHcm /fX1RleHRf U2NocmVpYm VuDQoxCTAJ CSBCYXNpc3 RleHQNCj

Iy CTAJCSBbVG V4dF9XZXJ0 XQk9VEdUZX h0DQo0NQkw CQ0KMTkJMA kJIFRleHRH c

m/fX1RleH RfTGVzZW4N CjIyCTAJCS BbVEdUZXh0 XQk9RXJnZW JuaXMJVQ0K NDUJM

AkJIA lBW0VyZ2Vi bmlzXQ0KMA kwCQ0KMTkJ MAkJIFRleH RHcm/fX0xp bmtlc1pla

W NoZW5fTGVz ZW4NCjEJMA kJIGxpbmtl cyBaZWljaG VuIHZvbSBC YXNpc3RleH Qg

b2RlciBk ZW0gUGFyYW 1ldGVyIGxp ZWZlcm4NCj I5CTAJCSBb TGlua2VzWm VpY2hl

bi5Q YXJhbWV0ZX JdCVQNCjcJ MAkJIFtUR1 RleHRdCT1F cmdlYm5pcw lQMQlMDQox

NwkwCQ0KNw kwCQkgW0xp bmtlc1plaW NoZW4uUGFy YW1ldGVyXQ k9RXJnZWJu aXM

JUDEJTA 0KMTgJMAkN CjQ1CTAJCS AJQVtFcmdl Ym5pc10NCj AJMAkNCjE5 CTAJCSB

PYm pla3QoVGV4 dEdyb98pX0 VuZGUNCjAJ MAkNCjAJMA kNCjEJMAkJ IEZ1bmt0aW

9ucy1EZWts YXJhdGlvbm VuLCBPYmpl a3QgIkxpc3 RlIiAJRioN CjE5CTAJCS BPYm

pla3Qo TGlzdGUpX1 N0YXJ0DQox CTAJCSBPYm pla3QgZvxy IHZlcnNjaG llZGVuZS

BM aXN0ZW5mdW 5rdGlvbmVu DQowCTAJDQ oxOQkwCQkg TGlzdGVfU3 VtbWVfTGVz Z

W4NCjEJMA kJIFtMaXN0 ZS5TdW1tZS B4LHksel0g bGllZmVydC BTdW1tZSBk ZXIgV

2VydG UNCjEJMAkJ IEVyZ2Vibm lzIHdpcmQg aW4gW0xpc3 RlLlN1bW1l LldlcnRdI

G Vyd2FydGV0 DQoyMgkwCQ kgMAk9U3Vt bWVfV2VydA 0KMQkwCQkg QW56YWhsIF Bh

cmFtZXRl ciBpbiBbTG lzdGUuU3Vt bWUuUGFyYW 1ldGVyQW56 YWhsXQ0KMQ kwCQkg

RWlu emVsbmUgUG FyYW1ldGVy IChrb21tYX NlcGFyaWVy dCkgaW4gW0 xpc3RlLlN1

bW1lLlBhcm FtZXRlcjEu Lm5dDQoxCT AJCSBJbiBk aWVzZW0gQm Vpc3BpZWwg d2V

yZGVuIG RpZSBQYXJh bWV0ZXIgYX VmYWRkaWVy dA0KMzMJMA kJWlBhcmFt ZXRlckl

uZG V4CVMxCUVb UGFyYW1ldG VyKFN1bW1l KS5BbnphaG xdDQoyMgkw CQkgW1N1bW

1lX1dlcnRd ICsgW1Bhcm FtZXRlcihT dW1tZSkuW1 BhcmFtZXRl ckluZGV4XV 0JPV

N1bW1l X1dlcnQJQw 0KMzQJMAkN CjQ1CTAJDQ owCTAJDQox OQkwCQkgTG lzdGVfTW

l0 dGVsd2VydF 9MZXNlbg0K MQkwCQkgW0 xpc3RlLk1p dHRlbHdlcn QgeCx5LHpd I

GxpZWZlcn QgRHVjaHNj aG5pdHQgZG VyIFdlcnRl DQoyMgkwCQ kgMAk9UGFy YW1ld

GVyU3 VtbWUNCjMz CTAJCVpQYX JhbWV0ZXJJ bmRleAlTMQ lFW1BhcmFt ZXRlcihNa

X R0ZWx3ZXJ0 KS5BbnphaG xdDQoyMgkw CQkgW1Bhcm FtZXRlcihN aXR0ZWx3ZX J0

KS5bUGFy YW1ldGVySW 5kZXhdXQk9 UGFyYW1ldG VyU3VtbWUJ QwlEDQozNA kwCQ0K

NDUJ MAkJIAlBW1 BhcmFtZXRl clN1bW1lXS AvIFtQYXJh bWV0ZXIoTW l0dGVsd2Vy

dCkuQW56YW hsXQlCDQow CTAJDQoxOQ kwCQkgT2Jq ZWt0KExpc3 RlKV9FbmRl DQo

==*

 

 

 


cX-Webseite: http://www.clickexe.de