$\text{Überprüfen}$

$\text{\vphantom{Äg}Neuer Versuch}$

$\text{Neue Aufgabe}$

No selection allowed for all input boxes

Selection allowed for all input boxes

\text{Question text}

Fix position and allow selection for all text objects

Empty all input boxes

#EDEDED

\underline\text{Helper scripts for template}

\underline\text{Helper scripts for authors}

\text{Die Anzahl der Nullen sagt dir, mit welcher Zahl multipliziert wird.}

\textsf{Hilf Alex herauszufinden, welche Zahl sich unter dem Klecks verbirgt.}

\textsf{\cdot}

questionCount = 10
LeftRight = Shuffle(Sequence[Random[0, 1], i, 1, 100])
showLeft: LeftRight(questionCount) ≟ 1
bInput = NaN
aInput = NaN
l = Shuffle({10000, 10, 100, 1000, 10, 100, 1000, 10, 100, 1000, 10000})
RightMult: l(Mod[questionCount, 11] + 1)
correctRight: bInput ≟ RightMult
Multiplikator = Shuffle(Sequence[Random[1, 99], i, 1, 100])
LeftMult: Multiplikator(questionCount)
correctLeft: aInput ≟ LeftMult
A = (-1.7709593953404514, 4.773131694432773)
a = 1.2 (slider from -5 to 5, step 0.1)
B = (-0.3510272916387751, 4.784370031633673)
Blue = (-5.32, 4.5)
Green = (-5.28, 3.68)
Orange = (-5.2, 2.86)
Red = (-5.32, 2.04)
Purple = (-5.34, 1.12)
Gray = (-5.34, 0.32)
GrayDark = (-5.36, -0.7)
validate = false
showanswer = false
showsolution = false
attemptCount = 1
correctCount = 0
showButtonNew = false
showButtonTryAgain = false
showButtonValidate = true
showhint = false
Inputa = Textfield(aInput)
correct = If(¬showLeft, correctRight, correctLeft)
showcorrecttext = false
PtopLeftCornerFeedback = (1.0319667069159835, 5.829535391317369)
PbottomRightCornerFeedback = (1.9984637061933652, 5.256380194071471)
PtopRightCornerFeedback: (x(PbottomRightCornerFeedback), y(PtopLeftCornerFeedback))
PbottomLeftCornerFeedback: (x(PtopLeftCornerFeedback), y(PbottomRightCornerFeedback))
rectangleCorrect, ptopleftcornerfeedback, ptoprightcornerfeedback, pbottomrightcornerfeedback, pbottomleftcornerfeedback = Polygon(PtopLeftCornerFeedback, PtopRightCornerFeedback, PbottomRightCornerFeedback, PbottomLeftCornerFeedback)
showhinttypicalerror = false
isTypicalError: bInput ≟ aInput + 1
ans: (RightMult * LeftMult)
nr = 18 (slider from 0 to 1000)
text6 = NumberSeperation(ans)
questionCount1 = 27
Inputb = Textfield(bInput)
A_{2}: (x(B) + a, y(A))
B_{2}: (x(A_{2}) + Length[Segment[A, B]], y(A))
correctText: "\textsf{" + (LaTeX[If[correct, "✓ Richtig", "✘ Falsch"]]) + "}"
txtQuestion4: "\textsf{=  " + (LaTeX[NumberSeperation[ans]]) + "}"
PtopLeftCornerFeedback_{1} = (-1.586565860893667, 5.784582042513769)
PbottomRightCornerFeedback_{1} = (-0.5751155128126861, 5.155235159263372)
PtopRightCornerFeedback_{1}: (x(PbottomRightCornerFeedback_{1}), y(PtopLeftCornerFeedback_{1}))
PbottomLeftCornerFeedback_{1}: (x(PtopLeftCornerFeedback_{1}), y(PbottomRightCornerFeedback_{1}))
rectangleCorrect_{1}, ptopleftcornerfeedback_{1}, ptoprightcornerfeedback_{1}, pbottomrightcornerfeedback_{1}, pbottomleftcornerfeedback_{1} = Polygon(PtopLeftCornerFeedback_{1}, PtopRightCornerFeedback_{1}, PbottomRightCornerFeedback_{1}, PbottomLeftCornerFeedback_{1})
PtopLeftCornerFeedback_{2} = (3.9539343791499393, 1.9523090570068857)
PbottomRightCornerFeedback_{2} = (5.111483110842617, 1.2555321505510872)
PtopRightCornerFeedback_{2}: (x(PbottomRightCornerFeedback_{2}), y(PtopLeftCornerFeedback_{2}))
PbottomLeftCornerFeedback_{2}: (x(PtopLeftCornerFeedback_{2}), y(PbottomRightCornerFeedback_{2}))
txtQuestion3: "\textsf{" + (LaTeX[NumberSeperation[RightMult]]) + "}"
txtQuestion2: "\textsf{" + (LaTeX[NumberSeperation[LeftMult]]) + "}"
C = (3.276199042671649, 3.6268212999409783)
textCountCorrect: "\text{Richtig gelöste Aufgaben: " + (LaTeX[correctCount]) + "}"
answerText: "\text{Lösung: " + (LaTeX[LeftMult]) + " \cdot " + (LaTeX[NumberSeperation[RightMult]]) + "~=~" + (LaTeX[NumberSeperation[ans]]) + "}"
tabOrder: {txtQuestion1, Inputa, txtQuestion2, Inputb, txtQuestion3, txtQuestion4, correctText, answerText, textCountCorrect, btnNew, btnTryAgain, btnValidate}

Tool: NumberSeperation
NumberSeperation[ <Number> ]
Input: num1
Output: text1

l1 = Reverse(TextToUnicode[("" * num1)])
m1 = Sequence(Take[l1, i, Min[i + 2, Length[l1]]], i, 1, Length[l1], 3)
l3 = Zip(Append[l, 32], l, m1)
l2 = Take(Reverse[Flatten[l3]], 2)
text1 = UnicodeToText(l2)