مجموعة دوال وأفكار بسييطة جدا للمبتدئين

[Dr.MOT]

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته

لاحظت فترة ركود في المنتدىآ فحاولت أن أضع هذا الموضوع كنوع من التنشيط لعل الله أن يفيده به الإسلام والمسلمين

أولا : // دآلة الأسس ( الرفع إلى قوة ) :
UpPower Function
Function UpPower(Num ,Numup : integer ): integer ;

var i : integer ;
begin
Result := 1 ;
for i := 0 To NumUp-1 do begin
Result:= Result*Num ;
end;
Application.MainForm.Caption := 'Ans = ' + IntToStr(Result);
end;


وقد كتبت مثال صغير عليها :
http://www.drmot.webs.com/Delphi/1.png
يمكنكم تحميل المثال من المرفقات

*ملاحظة : الدالة موجودة في الدلفي ظمن الوحدة math باسم Power
ولكن كمحاولة للتعلم والمتعة قمنا بكتابة هذه بدلاً عنها
ثانيا : // دالة التحويل من نص إلى ست عشري (String To Hex ) :
Function StrToHex(Str:String) : String;

var i,b:integer; m :String;
begin
for i := 1 To Length(Str) do
begin
b := (Ord (Str[i]) ); //Ord >> String To ASCCI
m := IntToHex(b,2) ;
Result := Result + m;
end;
end;


وهذا مثال عليها :
http://www.drmot.webs.com/Delphi/2.png
يمكنك تحميل المثال من المرفقات

ثالثا : // دالة جلب حالة الإنترنت ( Get Net State ) :
uses : WinInet

begin
If ( InternetGetConnectedState(nil,0) ) = True Then
ShowMessage('Computer Online')
else
ShowMessage('Computer Offline');
end;

مثال بسيط عليها :
http://www.drmot.webs.com/Delphi/3.png
من المرفقات

رابعا : // دالة إستخراج اسم المعالج ( Get Prosser Name ) :

function ProcName : String ;
var Reg : TRegistry ;
begin
Reg := TRegistry.Create ;
Try
With Reg Do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('Hardware\Description\system\CentralProces sor\0',False);
end;
ShowMessage(Reg.ReadString('ProcessorNameString')) ;
Finally
Reg.Free;
end;
end;


مثال بسيط :
http://www.drmot.webs.com/Delphi/4.png
من المرفقات

خامسا : // دالة إحظار حجم الملف ( Get size of file ) :
Function SizeOfFile(FilePath : String ) : Integer ;

uses Registry;

var F : File of Byte ;
begin
AssignFile(F,FilePath);
Try
Reset(F);
Result := System.FileSize(F);
Result := Result div 1024 ;
Finally
CloseFile(F);
end;
end;

// This Function doesn't work
// with files bigger than 2GB


مثال بسيط :
http://drmot.webs.com/Delphi/5.png
من المرفقات
*ملاحظة : هذه الدالة لا تعمل مع الملفات أكبر من 2 قيقا بايت !
* ملاحظة : لم أكتب كل هذه الدوال ! بل بعضها وجدتها وعدلت عليها !

أتمنى أن أكون قد أفدت ولو قليلا ,,
الإظافات مرحب بها
أي اقتراحات , نصائح , أخطاء , أفكار , انتقادات . . . مرحب بها
أي أسئلة مرحب بها
والسلام عليكم ورحمة الله وبركاته

[nabilkeb]

مشاركة جميلة أخي :
أردت فقط أن ألفت انتباهك أن أي مشاركة سوف تنفع بها غيرك ، فمستويات الناس تختلف ، هذا أولا ، ثانيا ، حتى و إن أخطأ الواحد منــا في مشاركته فإنه سينفع غيره ، على الأقل سوف نكلف القارئ بايجاد الخطأ و الرد ، و يدخل هذا أيضا في التعلم و رفع المستوى .....
مشكووووور

[AL-MOB4RM3G]

شكرا لك اخي دوكتر موت,, هكذا نريدك ;)

اخي الكريم,, UpPower Function ماذا تفعل,, حآولت فهمها ولكن لم افلح,,

شكرا لك

[nabilkeb]

, UpPower Function ماذا تفعل,

دالة الأس أو الرفع إلى قوة معينة : 2 أس 3 يعني : 2x2x2 يعني 2 ضرب 2 ، 3 مرات . أو نقول 2 قوة3 هي نفسها ، استغل المثال و املأ الخانات بأعداد معينة و انظر ماذا يحصل.
بالتوفيق

[AL-MOB4RM3G]

دالة الأس أو الرفع إلى قوة معينة

نعم, شكرا لك اخي,, قهمت الآن ماذا تعني,,

[Dr.MOT]

السلام عليكم

عذرا اخي المبرمج ببتأخر في الرد ,,
افادك اخي نبيل ,,
ولا تنسى أنه يوجد دآلة للأسس ( الرفع إلى قوة ) في الدلفي ضمن الوحدة math باسم ( Power ) - كما ذكر في الموضوع
شكرا