1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:
365:
366:
367:
368:
369:
370:
371:
372:
373:
374:
375:
376:
377:
378:
379:
380:
381:
382:
383:
384:
385:
386:
387:
388:
389:
390:
391:
392:
393:
394:
395:
396:
397:
398:
399:
400:
401:
402:
403:
404:
405:
406:
407:
408:
409:
410:
411:
412:
413:
414:
415:
416:
417:
418:
419:
420:
421:
422:
423:
424:
425:
426:
427:
428:
429:
430:
431:
432:
433:
434:
435:
436:
437:
438:
439:
440:
441:
442:
443:
444:
445:
446:
447:
448:
449:
450:
451:
452:
453:
454:
455:
456:
457:
458:
459:
460:
461:
462:
463:
464:
465:
466:
467:
468:
469:
470:
471:
472:
473:
474:
475:
476:
477:
478:
479:
480:
481:
482:
483:
484:
485:
486:
487:
488:
489:
490:
491:
492:
493:
494:
495:
496:
497:
498:
499:
500:
501:
502:
503:
504:
505:
506:
507:
508:
509:
510:
511:
512:
513:
514:
515:
516:
517:
518:
519:
520:
521:
522:
523:
524:
525:
526:
527:
528:
529:
530:
531:
532:
533:
534:
535:
536:
537:
538:
539:
540:
541:
542:
543:
544:
545:
546:
547:
548:
549:
550:
551:
552:
553:
554:
555:
556:
557:
558:
559:
560:
561:
562:
563:
564:
565:
566:
567:
568:
569:
570:
571:
572:
573:
574:
575:
576:
577:
578:
579:
580:
581:
582:
583:
584:
585:
586:
587:
588:
589:
590:
591:
592:
593:
594:
595:
596:
597:
598:
599:
600:
601:
602:
603:
604:
605:
606:
607:
608:
609:
610:
611:
612:
613:
614:
615:
616:
617:
618:
619:
620:
621:
622:
623:
624:
625:
626:
627:
628:
629:
630:
631:
632:
633:
634:
635:
636:
637:
638:
639:
640:
641:
642:
643:
644:
645:
646:
647:
648:
649:
650:
651:
652:
653:
654:
655:
656:
657:
658:
659:
660:
661:
662:
663:
664:
665:
666:
667:
668:
669:
670:
671:
672:
673:
674:
675:
676:
677:
678:
679:
680:
681:
682:
683:
684:
685:
686:
687:
688:
689:
690:
691:
692:
693:
694:
695:
696:
697:
698:
699:
700:
701:
702:
703:
704:
705:
706:
707:
708:
709:
710:
711:
712:
713:
714:
715:
716:
717:
718:
719:
720:
721:
722:
723:
724:
725:
726:
727:
728:
729:
730:
731:
732:
733:
734:
735:
736:
737:
738:
739:
740:
741:
742:
743:
744:
745:
746:
747:
748:
749:
750:
751:
752:
753:
754:
755:
756:
757:
758:
759:
760:
761:
762:
763:
764:
765:
766:
767:
768:
769:
770:
771:
772:
|
" codeBody "
van Public Functie CreateTestClass (zo Verschillende ClientValueIn, CWValueIn zoals Variant, Test als Koord) als Geheel
Schemerige Veh als Voertuig
Verduister Resultaat als Geheel
'
Plaats Veh = Nieuw Voertuig
Selecteer de Test van het Geval
Geval „BHP“
Resultaat = Veh.BhpRank (ClientValueIn, CWValueIn)
Geval „kW“
Resultaat = Veh.KWRank (ClientValueIn, CWValueIn)
Geval „Karakter“
Resultaat = Veh.CharacterRank (ClientValueIn, CWValueIn)
Geval „KWStr“
Resultaat = Veh.KWStrRank (ClientValueIn, CWValueIn)
Geval „BPStrRank“
Resultaat = Veh.BhpStrRank (ClientValueIn, CWValueIn)
Geval „Motor“
Resultaat = Veh.EngineRank (ClientValueIn, CWValueIn)
Geval „CC“
Resultaat = Veh.CCRank (ClientValueIn, CWValueIn)
Geval „Brandstof“
Resultaat = Veh.FuelRank (ClientValueIn, CWValueIn)
Geval „NomCC“
Resultaat = Veh.NomRank (ClientValueIn, CWValueIn)
Geval „Deuren“
Resultaat = Veh.DoorRank (ClientValueIn, CWValueIn)
Geval „Kleppen“
Resultaat = Veh.ValveRank (ClientValueIn, CWValueIn)
Uitgezocht eind
CreateTestClass = Resultaat
De Functie van het eind
voertuig klasse
De optie vergelijkt Gegevensbestand
Privé pBhp zoals lang
Privé pCWCode als Koord
Privé pKw zoals lang
Privé pNomCC zoals Dubbel
Het openbare Bezit krijgt Bhp () zoals lang
Bhp = pBhp
Het Bezit van het eind
Het openbare Bezit krijgt KW () zoals lang
KW = pKw
Het Bezit van het eind
Het openbare Bezit krijgt NOMCC () zoals Dubbel
NOMCC = pNomCC
Het Bezit van het eind
Het openbare Bezit liet Bhp (Waarde zoals lang)
pBhp = Waarde
Het Bezit van het eind
Het openbare Bezit liet KW (Waarde zoals lang)
pKw = Waarde
Het Bezit van het eind
Het openbare Bezit liet NOMCC (Waarde zoals Dubbel)
pNomCC = Waarde
Het Bezit van het eind
Overheidsfunctie EngineRank (zo Verschillende Strclientengine, strcwengine zoals Variant) zoals lang
Schemerige StrClientEngineIn als Koord
Schemerige StrCWEngineIn als Koord
Schemerige BInstrFWD zoals Van Boole
Schemerige BInstrRev zoals Van Boole
Schemerige BCompareEng zoals Van Boole
Schemerige teller zoals lang
Schemerige foutput zoals lang
Schemerige StrTypo als Koord
Schemerige intcount als Geheel
Schemerige BHPin zoals lang
Als IsNull (Strclientengine) = Waar of IsNull (strcwengine) toen
'geen gegevens
Anders
'krijg overgegaane waarden
StrClientEngineIn = Strclientengine
StrCWEngineIn = strcwengine
'belangrijkheid
de 'rang vergelijkt
'rang op instr
'rang op typo
'rang op gedeeltelijk
'*****************************************************************************
de 'controle vergelijkt
de 'rang vergelijkt
Als StrComp (StrCWEngineIn, StrClientEngineIn, 1) = Vals of StrComp (StrCWEngineIn, RegExpReplace (StrClientEngineIn, „„), 1) = Vals toen
teller = 10000
Anders
teller = 0
'controleer het instring
'****************************************************************************
Als InStr (StrClientEngineIn, StrCWEngineIn) > 0 toen
teller = tegen + 1000
Anders
Eind als
Als InStr (StrCWEngineIn, StrClientEngineIn) > 0 toen
teller = tegen + 1000
Anders
Eind als
'***************************************************************************
'controleer familie
'' voorwaartse instring cw aan cliënt
Als FamilyInstr (StrCWEngineIn, StrClientEngineIn) = "" toen
Anders
teller = tegen + 100
Eind als
'***************************************************************************
'controleer typos
StrTypo = DecodeEngine (StrCWEngineIn, StrClientEngineIn)
Als StrTypo = „typo“ toen
teller = tegen + 10
Anders
'doe niets
Beëindig als
'****************************************************************************
'krijg karakter rangschikkend score
intcount = CharacterRank (StrCWEngineIn, StrClientEngineIn)
teller = tegen + intcount
'***************************************************************************
'' ***************************************************************************
'' Technische test bhp
'Als CurrentProject.AllForms („belangrijkst“) .IsLoaded toen
'
'BHPIn = [Vormen]! [Leiding]! [CALC BHP]
'
'
'Anders
'
'
'Beëindig als
het 'eind van vergelijkt
Beëindig als
Beëindig als
GetEngineRank = tegen * 100
De Functie van het eind
Overheidsfunctie CharacterRank (StrEng1 als Koord, strEng2 als Koord) zoals lang
Schemerige sw als Chronometer
Schemerige lIndex zoals lang
Schemerige lLoopPosition zoals lang
Schemerige lCharacterPosition zoals lang
Schemerige iCounter zoals lang
Schemerige StrWantedCharacter als Koord
Schemerige StrTemp als Koord
'Plaats sw = Nieuwe Chronometer
'sw.StartTimer
'heb op het kortere koord betrekking aangezien deze lengte lijnen en instr richting controleert
Als Len (strEng2) < Len (StrEng1) toen
'ruil hen
strEng2 = strEng2 + StrEng1
StrEng1 = Weggegaan (strEng2, Len (strEng2) - Len (StrEng1))
strEng2 = Juist (strEng2, Len (strEng2) - Len (StrEng1))
Eind als
'krijg kortste len
lIndex = Len (StrEng1)
'strtemp wordt gelijk aan het langste koord aangezien dit is wij voor elke lijn willen verkorten
StrTemp = strEng2
'lijn rond koord
Voor lLoopPosition = 1 aan lIndex
'krijg individueel karakter beginnend aan het begin van het koord
StrWantedCharacter = Medio (StrEng1, lLoopPosition, 1)
'krijg de positie van ons karakter van het langste koord
lCharacterPosition = InStr (strEng2, StrWantedCharacter)
'karakter in langste koord wordt gevonden dat
Als InStr (StrTemp, StrWantedCharacter) <> 0 toen
'verwijder het karakter uit het temperaturenkoord
StrTemp = vervangt (StrTemp, Medio (strEng2, lCharacterPosition, 1), "", 1)
'toename de teller
iCounter = iCounter + 1
Eind als
Volgende lLoopPosition
'processtime = sw.EndTimer & „milliseconden“
'Debug.Print sw.EndTimer
'Debug.Print iCounter
CharacterRank = iCounter
De Functie van het eind
Overheidsfunctie NomRank (StrClient als Koord, CWNomIn als Dubbel) als Geheel
Schemerige ValueIn zoals Dubbel
Schemerige StrReturnedFromClientString als Koord
Als IsNull (CWNomIn) toen
ValueIn = 0
Anders
ValueIn = CWNomIn
Eind als
StrReturnedFromClientString = GetCC (StrClient)
Als StrComp (CStr (ValueIn), StrReturnedFromClientString, 1) = Vals toen
NomRank = 1
De Functie van de uitgang
Eind als
NomRank = 0
De Functie van het eind
Overheidsfunctie KWRank (zo Verschillende ClientIn, CWKWIn zoals Lange, Facultatieve varianceIn als Geheel) als Geheel
Schemerige ValueMin zoals lang
Schemerige ValueMax zoals lang
Schemerige ValueIn zoals lang
Schemerige ValueCWIn zoals lang
Verduister A zoals lang
ValueCWIn = CWKWIn
Als (varianceIn) = 0 toen
ValueMin = ValueCWIn - 5
ValueMax = ValueCWIn + 5
Anders
ValueMin = ValueCWIn - varianceIn
ValueMax = ValueCWIn + varianceIn
Eind als
Als ValueCWIn = ClientIn toen
KWRank = 2
De Functie van de uitgang
Anders
Voor A = ValueMin aan ValueMax
Als ClientIn = A toen
KWRank = 1
De Functie van de uitgang
Eind als
Daarna A
Eind als
KWRank = 0
De Functie van het eind
Overheidsfunctie BhpRank (zo Verschillende ClientIn, CalcBHP zoals Lange, Facultatieve varianceIn als Geheel) als Geheel
Schemerige ValueMin zoals lang
Schemerige ValueMax zoals lang
Schemerige ValueIn zoals lang
Schemerige ValueCWIn zoals lang
Verduister A zoals lang
ValueCWIn = CalcBHP
Als (varianceIn) = 0 toen
ValueMin = ValueCWIn - 5
ValueMax = ValueCWIn + 5
Anders
ValueMin = ValueCWIn - varianceIn
ValueMax = ValueCWIn + varianceIn
Eind als
Als ValueCWIn = ClientIn toen
BhpRank = 2
De Functie van de uitgang
Anders
Voor A = ValueMin aan ValueMax
Als ClientIn = A toen
BhpRank = 1
De Functie van de uitgang
Eind als
Daarna A
Eind als
BhpRank = 0
De Functie van het eind
Overheidsfunctie ValveRank (zo Verschillende ClientStr, CWCylindersIn zoals Geheel)
Schemerige ValueIn als Geheel
Schemerige ClientValveCount zoals lang
Schemerige CylinderCountIn zoals lang
Als IsNull (CWCylindersIn) toen
ValueIn = 0
Anders
CylinderCountIn = CWCylindersIn
Eind als
Als IsNull ([Vormen]! [leiding]! [KLEPPEN PER CILINDER]. Waarde) toen
ValueIn = 0
Anders
ValueIn = [Vormen]! [leiding]! [KLEPPEN PER CILINDER]. Waarde * CylinderCountIn
ClientValveCount = GetNumValves (ClientStr)
Eind als
Als ValueIn = ClientValveCount en ValueIn > 0 toen
ValveRank = 1
De Functie van de uitgang
Eind als
ValveRank = 0
De Functie van het eind
Functie GetNumValves (tekst)
Schemerige pos als Geheel
pos = InStr (pos + 1, tekst, „V“)
Als pos > 2 toen
Als Medio (tekst, pos - 2, 2) Als „##“ toen
GetNumValves = Medio Val ((tekst, pos - 2, 2))
De Functie van de uitgang
Eind als
Eind als
Als pos > 1 toen
Als Medio (tekst, pos - 1, 1) Als „#“ toen
GetNumValves = Medio Val ((tekst, pos - 1, 1))
De Functie van de uitgang
Eind als
Eind als
Lijn terwijl pos
GetNumValves = 0
De Functie van het eind
Overheidsfunctie FuelRank (StrClient, CWFuelIn als Koord) zoals lang
Schemerige ValueIn als Koord
Als IsNull (CWFuelIn) toen
ValueIn = ""
Anders
ValueIn = CWFuelIn
Eind als
Als Verlaten StrComp ((ValueIn, 1), StrClient, 1) = Vals toen
FuelRank = 1
De Functie van de uitgang
Eind als
FuelRank = 0
De Functie van het eind
Overheidsfunctie DoorRank (ClientStr als Koord, CWDoorsIn als Geheel) als Geheel
Schemerige ValueIn als Geheel
Schemerige ClientDoorCount zoals lang
Als IsNull (CWDoorsIn) toen
ValueIn = 0
Anders
ValueIn = CWDoorsIn
ClientDoorCount = GetDoors (ClientStr)
Eind als
Als ValueIn = ClientDoorCount en ValueIn > 0 toen
DoorRank = 1
De Functie van de uitgang
Eind als
DoorRank = 0
De Functie van het eind
Overheidsfunctie TransmissionRank (ClientStr als Koord, CWTransmissionIn als Koord)
Schemerige ValueIn als Koord
Als IsNull (CWTransmissionIn) toen
ValueIn = ""
Anders
ValueIn = CWTransmissionIn
Eind als
Als StrComp (ValueIn, ClientStr, 1) = Vals toen
TransmissionRank = 1
De Functie van de uitgang
Eind als
TransmissionRank = 0
De Functie van het eind
Functie GetDoors (ClientStr als Koord) als Geheel
Schemerige regex als Voorwerp
Verduister gelijke als Voorwerp
Plaats regex = CreateObject („vbscript.regexp“)
'filter voor cijfers en „D door ruimte wordt gescheiden die“
regex. Patroon = „[0-9] + D“
'draai van geval
regex.IgnoreCase = Waar
'cre�ër voorwerp
Plaats gelijke = regex. Voer uit (ClientStr)
'plaats of krijg waarde
Als gelijke. Telling > 0 toen GetDoors = Versiering (Val (gelijke (0)))
'dodenvoorwerp
Reeks regex = niets
De Functie van het eind
Overheidsfunctie CCRank (zo Verschillende ClientIn, CWCCIn zoals Lange, Facultatieve varianceIn als Geheel) als Geheel
Schemerige ValueMin zoals lang
Schemerige ValueMax zoals lang
Schemerige ValueIn zoals lang
Schemerige ValueCWIn zoals lang
Verduister A zoals lang
ValueCWIn = CWCCIn
Als (varianceIn) = 0 toen
ValueMin = ValueCWIn - 5
ValueMax = ValueCWIn + 5
Anders
ValueMin = ValueCWIn - varianceIn
ValueMax = ValueCWIn + varianceIn
Eind als
Als ValueCWIn = ClientIn toen
CCRank = 2
De Functie van de uitgang
Anders
Voor A = ValueMin aan ValueMax
Als ClientIn = A toen
CCRank = 1
De Functie van de uitgang
Eind als
Daarna A
Eind als
CCRank = 0
De Functie van het eind
Overheidsfunctie BhpStrRank (StrClient als Koord, CWBhp zoals Lang, Facultatief verschil als Geheel)
Schemerige StrCientln als Koord
Schemerige ValueMin zoals lang
Schemerige ValueMax zoals lang
Schemerige ValueCWIn zoals lang
Verduister A zoals lang
Verduister B zoals lang
Verduister StrTemp als Koord
Verduister StrTemp2 als Koord
Verduister StrArray () als Koord
Verduister in tegenovergestelde richting als Geheel
Verduister teststr als Koord
Als IsNull (ValueCWIn) toen
ValueCWIn = 0
Anders
ValueCWIn = CWBhp
Eind als
Als (varianceIn) = 0 toen
ValueMin = ValueCWIn - 5
ValueMax = ValueCWIn + 5
Anders
ValueMin = ValueCWIn - varianceIn
ValueMax = ValueCWIn + varianceIn
Eind als
Als IsNull (ValueCWIn) = Waar of ValueCWIn = 0 toen
Anders
Als Len (StrClient) <= 0 of IsNull (StrClient) toen
KWStrRank = 0
De Functie van de uitgang
Anders
Als ValueCWIn = StrClient toen
BhpStrRank = 2
De Functie van de uitgang
Anders
StrTemp = SplitNumeralandText (StrClient)
StrTemp2 = RegExpReplace (StrTemp, „[^0-9]“, „„)
StrArray = verdeelde (StrTemp2)
Voor A = LBound (StrArray ()) Aan UBound (StrArray ())
Voor B = ValueMin aan ValueMax
Als (StrComp (StrArray (A), CStr (B), 1) = Vals) toen
BhpStrRank = 1
De Functie van de uitgang
Eind als
Volgende B
Daarna A
Eind als
Eind als
Eind als
BhpStrRank = 0
De Functie van het eind
Overheidsfunctie KWStrRank (StrClient als Koord, CWKw zoals Lang, Facultatief verschil als Geheel)
Schemerige StrCientln als Koord
Schemerige ValueMin zoals lang
Schemerige ValueMax zoals lang
Schemerige ValueCWIn zoals lang
Verduister A zoals lang
Verduister B zoals lang
Verduister StrTemp als Koord
Verduister StrTemp2 als Koord
Verduister StrArray () als Koord
Verduister in tegenovergestelde richting als Geheel
Verduister teststr als Koord
Als IsNull (ValueCWIn) toen
ValueCWIn = 0
Anders
ValueCWIn = CWKw
Eind als
Als (varianceIn) = 0 toen
ValueMin = ValueCWIn - 5
ValueMax = ValueCWIn + 5
Anders
ValueMin = ValueCWIn - varianceIn
ValueMax = ValueCWIn + varianceIn
Eind als
Als IsNull (ValueCWIn) = Waar of ValueCWIn = 0 toen
Anders
Als Len (StrClient) <= 0 of IsNull (StrClient) toen
KWStrRank = 0
De Functie van de uitgang
Anders
Als ValueCWIn = StrClient toen
KWStrRank = 2
De Functie van de uitgang
Anders
StrTemp = SplitNumeralandText (StrClient)
StrTemp2 = RegExpReplace (StrTemp, „[^0-9]“, „„)
StrArray = verdeelde (StrTemp2)
Voor A = LBound (StrArray ()) Aan UBound (StrArray ())
Voor B = ValueMin aan ValueMax
Als (StrComp (StrArray (A), CStr (B), 1) = Vals) toen
KWStrRank = 1
De Functie van de uitgang
Eind als
Volgende B
Daarna A
Eind als
Eind als
Eind als
KWStrRank = 0
De Functie van het eind
Overheidsfunctie getTechDetail (StrClient als Koord, TechSpec als Koord, Facultatief verschil als Geheel) als Geheel
'Schemerige StrCientln als Koord
'Schemerige ValueMin zoals lang
'Schemerige ValueMax zoals lang
'Schemerige ValueIn zoals lang
'Verduister A zoals lang
'Verduister B zoals lang
'Verduister StrTemp als Koord
'Verduister StrTemp2 als Koord
'Verduister StrArray () als Koord
'Verduister in tegenovergestelde richting als Geheel
'Verduister teststr als Koord
Als StrClient = "" of „0“ toen
Anders
Als (verschil) = toen verschil 0 = 5
Als IsNull (ValueIn) = Waar of ValueIn = 0 toen
Anders
Als Len (StrClient) <= 0 of IsNull (StrClient) toen
getTechDetail = 0
De Functie van de uitgang
Anders
Als ValueIn = StrClient toen
getTechDetail = 2
De Functie van de uitgang
Anders
StrTemp = SplitNumeralandText (StrClient)
StrTemp2 = RegExpReplace (StrTemp, „[^0-9]“, „„)
StrArray = verdeelde (StrTemp2)
ValueMin = ValueIn - verschil
ValueMax = ValueIn + verschil
Voor A = LBound (StrArray ()) Aan UBound (StrArray ())
Voor B = ValueMin aan ValueMax
Als (StrComp (StrArray (A), CStr (B), 1) = Vals) toen
getTechDetail = 1
De Functie van de uitgang
Eind als
Volgende B
Daarna A
Eind als
Eind als
Eind als
Eind als
getTechDetail = 0
De Functie van het eind
Overheidsfunctie BodyRank (ClientStr als Koord)
Schemerige ValueIn als Koord
Als IsNull ([Vormen]! [leiding]! [Gemeenschappelijk Lichaam alias CW]. Waarde) toen
ValueIn = ""
Anders
ValueIn = [Vormen]! [leiding]! [Gemeenschappelijk Lichaam alias CW]. Waarde
Eind als
Als StrComp (ValueIn, ClientStr, 1) = Vals toen
BodyRank = 1
De Functie van de uitgang
Eind als
BodyRank = 0
De Functie van het eind
|
