المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : Long2ip


ثامر أبو بلقيس
23-10-2017, 11:42 PM
السلام عليكم ورحمة الله وبركاته

لتحويل القيمة الرقمية إلى ايبي
اعتمدت في هذه المحاولة على نظام بينير

حيث نفترض أن القيمة الرقمية هي المعبرة بالمتغير p

وهو رقم نريد استخراج ما يقابله كرقم للايبي

كود بعد الاعلان القيمة العددية للمتغير في بداية الكود p



أعلن عن p بالرقم

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);

فرح صالحي
24-10-2017, 03:56 PM
شـكــ وبارك الله فيك ـــرا لك ...:abc_152: لك مني أجمل تحية .

عبد الهادي بهاب
24-10-2017, 10:16 PM
السلام عليكم ورحمة الله وبركاته
متابع

مارجوم،
15-11-2017, 11:49 AM
tnks m8................:abc_051:

جمال سات
16-05-2020, 01:26 AM
شـكــ وبارك الله فيك ـــرا لك

معاذ الشويحى
14-08-2020, 10:14 AM
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .