delphi4arab منتديات دلفي للعرب
كيف أبرمج برنامج للتحقق من رقم ip - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أبرمج برنامج للتحقق من رقم ip (/showthread.php?tid=6981)



كيف أبرمج برنامج للتحقق من رقم ip - فارس المطر - 08-05-2015

[FONT="Arial"]السلام عليكم أعضاء ومشرفي دلفي

أنا بصدد برمجة برنامج الهدف منه التحقق من رقم IP
بعد ادخال أقسام IP الاربعة في Edit1.2.3.4 واخيار صنف الشبكة a او b او c
كما في الصورة 1
كود :
http://www.mobdi3ine.net/uploads/1431078288862.jpg
نتيجة التحقق تظهر في label
كود :
http://www.mobdi3ine.net/uploads/1431077365621.jpg



كيف أبرمج برنامج للتحقق من رقم ip - onexite - 08-05-2015

PHP كود :
try
if 
StrToInt(Edit1.Text) >255 then Edit1.Font.Color:=clRed else Edit1.Font.Color:=clGreen;
if 
StrToInt(Edit1.Text) in [0..127] then
Caption
:= 'Classe A';
if 
StrToInt(Edit1.Text) in [128..191] then
Caption
:= 'Classe B';
if 
StrToInt(Edit1.Text) in [192..223] then
Caption
:= 'Classe C';
if 
StrToInt(Edit1.Text) in [224..239] then
Caption
:= 'Classe D';
if 
StrToInt(Edit1.Text) in [240..255] then
Caption
:= 'Classe E';
except
end
; 



كيف أبرمج برنامج للتحقق من رقم ip - فارس المطر - 08-05-2015

[B]
شكرا للمشرف الغالي بدأت تتضح الرؤية
لكن أخي يجب تحديد صنف الشبكة أولا فيradio button A او B او C
ثم إدخال رقم الايبي أجزاء 196.255.1.5
الجزء الاول في edit 1 مثلا 196
الجزء الاول في edit 2 مثلا 255
الجزء الاول في edit3 مثلا 1

الجزء الاول في edit4 مثلا 5
ثم التحقق[/B]



كيف أبرمج برنامج للتحقق من رقم ip - فارس المطر - 08-05-2015

نوع الشبكة A 255.0.0.0
نوع الشبكة B 255.255.0.0
نوع الشبكة C 255.255.255.0

عند كتابة رقم ايبي في Edit4 Edit3 Edit2 Edit1
نتحقق من نوع الشبكة
كود :
http://www.mobdi3ine.net/uploads/1431106123453.jpg



كيف أبرمج برنامج للتحقق من رقم ip - bassem_43 - 09-05-2015

السلام عليكم
اظن الموضوع تم التطرق اليه هنا
http://www.delphi4arab.net/forum/showthread.php?tid=11916
بالتوفيق