تويت
السلام عليكم ورحمة الله وبركاته
لتحويل القيمة الرقمية إلى ايبي
اعتمدت في هذه المحاولة على نظام بينير
حيث نفترض أن القيمة الرقمية هي المعبرة بالمتغير p
وهو رقم نريد استخراج ما يقابله كرقم للايبي
كود بعد الاعلان القيمة العددية للمتغير في بداية الكود p
[hide]
أعلن عن p بالرقم
[html]p =
g ='';x=1;ip ={}
repeat
p,n =Math.Floor(p/2),Math.Mod(p,2)
x=x+1;g=g..n;until p <=0;h =String.Repeat("0",6)..string.reverse(g)
j = String.Length(h);for i = 1 , j,8 do
v = String.Mid(h, i, 8);
Table.Insert(ip, 1, tonumber(v,2));
end;y = Table.Concat(ip, ".", 1, TABLE_ALL);
Dialog.Message("Notice",y);[/html]
[/hide]
لتحويل القيمة الرقمية إلى ايبي
اعتمدت في هذه المحاولة على نظام بينير
حيث نفترض أن القيمة الرقمية هي المعبرة بالمتغير p
وهو رقم نريد استخراج ما يقابله كرقم للايبي
كود بعد الاعلان القيمة العددية للمتغير في بداية الكود p
[hide]
أعلن عن p بالرقم
[html]p =
g ='';x=1;ip ={}
repeat
p,n =Math.Floor(p/2),Math.Mod(p,2)
x=x+1;g=g..n;until p <=0;h =String.Repeat("0",6)..string.reverse(g)
j = String.Length(h);for i = 1 , j,8 do
v = String.Mid(h, i, 8);
Table.Insert(ip, 1, tonumber(v,2));
end;y = Table.Concat(ip, ".", 1, TABLE_ALL);
Dialog.Message("Notice",y);[/html]
[/hide]
لك مني أجمل تحية .
تعليق