تويت
nn1= String.ToNumber(Input.GetText("Input1"));
nn2= String.ToNumber(Input.GetText("Input2"));
Label.SetText("Label2", nn1-nn2);
if nn1<1000 or nn2<1000 then
Dialog.Message("","ÇßÊÈ ÚÏÏ ÇßÈÑ ãä 1000");
else
if nn1 < nn2 then
Input.SetText("Input1", nn2);
Input.SetText("Input2", nn1);
else
n1= String.ToNumber(Input.GetText("Input1"));
n2= String.ToNumber(Input.GetText("Input2"));
n11 = String.Mid(n1, 1, 1);
n22 = String.Mid(n2, 1, 1);
v1=String.Mid(n1, 1, 1)*1000
v2=String.Mid(n2, 1, 1)*1000
if v2<v1 then
Label.SetText("D1", v2);
else
Label.SetText("D1", v1);
end
Label.SetText("L1", n1-String.ToNumber(Label.GetText("D1")));
Label.SetText("P1", n2-String.ToNumber(Label.GetText("D1")));
for i=1,4 do
if String.ToNumber(Label.GetText("P"..i))>1000 then
Label.SetText("D"..i+1, 1000);
elseif String.ToNumber(Label.GetText("P"..i))<1000 and String.ToNumber(Label.GetText("P"..i))>100 then
Label.SetText("D"..i+1, String.Mid(Label.GetText("P"..i), 1, 1)*100);
elseif String.ToNumber(Label.GetText("P"..i))<100 and String.ToNumber(Label.GetText("P"..i))>10 then
Label.SetText("D"..i+1, String.Mid(Label.GetText("P"..i), 1, 1)*10);
elseif String.ToNumber(Label.GetText("P"..i))<10 then
Label.SetText("D"..i+1, Label.GetText("P"..i));
end
Label.SetText("L"..i+1, String.ToNumber(Label.GetText("L"..i))-String.ToNumber(Label.GetText("D"..i+1)));
Label.SetText("P"..i+1, String.ToNumber(Label.GetText("P"..i))-String.ToNumber(Label.GetText("D"..i+1)));
end
end
end
for ii=1,4 do
if String.ToNumber(Label.GetText("P"..ii))<0 then
Label.SetVisible("P"..ii,false);
elseif String.ToNumber(Label.GetText("L"..ii))<0 then
Label.SetVisible("L"..ii,false);
elseif String.ToNumber(Label.GetText("D"..ii)) <0 then
Label.SetVisible("D"..ii,false);
end
end
x =3863
y =1779
v = ""
repeat
d1=x-1000;d2=y-1000
x=d1;y=d2
v=v..x.."-"..y.."\r\n"
until String.Length(x)-String.Length(y) ==1;
k=String.ToNumber(String.Mid(x, String.Length(x)-1, String.Length(x)))
if k ~=0 then
repeat
d3=x-k;d4=y-k
x=d3;y=d4
v=v..x.."-"..y.."\r\n"
until k ~=0;
end
d3=x-String.ToNumber((String.Mid(y, 1, 1)*100))
d4=y-String.ToNumber((String.Mid(y, 1, 1)*100))
x=d3;y=d4
v=v..x.."-"..y.."\r\n"
d3=x-y;d4=y-y
x=d3;y=d4
v=v..x.."-"..y.."\r\n"
------------
Dialog.Message("Notice",v );
x =3863
y =1779
v = ""
repeat
d1=x-1000;d2=y-1000
x=d1;y=d2
v=v..x.."-"..y.."\r\n"
until String.Length(x)-String.Length(y) ==1;
k=String.ToNumber(String.Mid(x, String.Length(x)-1, String.Length(x)))
if k ~=0 then
repeat
d3=x-k;d4=y-k
x=d3;y=d4
v=v..x.."-"..y.."\r\n"
until k ~=0;
end
d3=x-String.ToNumber((String.Mid(y, 1, 1)*100))
d4=y-String.ToNumber((String.Mid(y, 1, 1)*100))
x=d3;y=d4
v=v..x.."-"..y.."\r\n"
d3=x-y;d4=y-y
x=d3;y=d4
v=v..x.."-"..y.."\r\n"
------------
Dialog.Message("Notice",v );
......... يحقق المطلوب
تعليق