Bootcamp: Chapter 15 - Code Snippets
(Created page with "Step 465") |
(Added Edited template with July 12, 2025.) |
||
| (9 intermediate revisions by 3 users not shown) | |||
| Line 1: | Line 1: | ||
Step 465 | {{Edited|July|12|2025}} | ||
<message>Write the content here to display this box</message> | |||
=== Step 465 === | |||
-- ABC123 | |||
let sing=SysSingleton.oclSingleton in ( | |||
let letter1=sing.RegNumberLetter1Current+1 in | |||
( | |||
sing.RegNumberLetter1Current:=(letter1>Char.ConvertToUtf32('Z',0))->casetruefalse(sing.RegNumberLetter2Current:=sing.RegNumberLetter2Current+1; Char.ConvertToUtf32('A',0),letter1) | |||
); | |||
let letter2=sing.RegNumberLetter2Current in | |||
( | |||
sing.RegNumberLetter2Current:=(letter2>Char.ConvertToUtf32('Z',0))->casetruefalse(sing.RegNumberLetter3Current:=sing.RegNumberLetter3Current+1; Char.ConvertToUtf32('A',0),letter2) | |||
); | |||
let letter3=sing.RegNumberLetter3Current in | |||
( | |||
sing.RegNumberLetter3Current:=(letter3>Char.ConvertToUtf32('Z',0))->casetruefalse(Char.ConvertToUtf32('A',0),letter3) | |||
); | |||
let numberpart=sing.RegNumberNumberPartCurrent+1 in | |||
( | |||
sing.RegNumberNumberPartCurrent:=(numberpart>999)->casetruefalse(0,numberpart) | |||
); | |||
Char.ConvertFromUtf32(sing.RegNumberLetter1Current)+Char.ConvertFromUtf32(sing.RegNumberLetter2Current)+Char.ConvertFromUtf32(sing.RegNumberLetter3Current)+sing.RegNumberNumberPartCurrent.ToString('000') | |||
) | |||
[[Category:Bootcamp]] | |||
Latest revision as of 06:28, 20 January 2025
This page was created by Stephanie@mdriven.net on 2024-03-21. Last edited by Edgar on 2025-01-20.
Step 465
-- ABC123
let sing=SysSingleton.oclSingleton in (
let letter1=sing.RegNumberLetter1Current+1 in
(
sing.RegNumberLetter1Current:=(letter1>Char.ConvertToUtf32('Z',0))->casetruefalse(sing.RegNumberLetter2Current:=sing.RegNumberLetter2Current+1; Char.ConvertToUtf32('A',0),letter1)
);
let letter2=sing.RegNumberLetter2Current in
(
sing.RegNumberLetter2Current:=(letter2>Char.ConvertToUtf32('Z',0))->casetruefalse(sing.RegNumberLetter3Current:=sing.RegNumberLetter3Current+1; Char.ConvertToUtf32('A',0),letter2)
);
let letter3=sing.RegNumberLetter3Current in
(
sing.RegNumberLetter3Current:=(letter3>Char.ConvertToUtf32('Z',0))->casetruefalse(Char.ConvertToUtf32('A',0),letter3)
);
let numberpart=sing.RegNumberNumberPartCurrent+1 in
(
sing.RegNumberNumberPartCurrent:=(numberpart>999)->casetruefalse(0,numberpart)
);
Char.ConvertFromUtf32(sing.RegNumberLetter1Current)+Char.ConvertFromUtf32(sing.RegNumberLetter2Current)+Char.ConvertFromUtf32(sing.RegNumberLetter3Current)+sing.RegNumberNumberPartCurrent.ToString('000')
)