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

[Dr.MOT]

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

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

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

PHP كود :

Function UpPower(Num ,Numup : integer ): integer ; 


PHP كود :

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; 


وقد كتبت مثال صغير عليها :

يمكنكم تحميل المثال من المرفقات

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

PHP كود :

Function StrToHex(Str:String) : String; 


PHP كود :

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; 


وهذا مثال عليها :

يمكنك تحميل المثال من المرفقات

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

PHP كود :

uses : WinInet 


PHP كود :

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


مثال بسيط عليها :

من المرفقات

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

PHP كود :

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


مثال بسيط :

من المرفقات

خامسا : // دالة إحظار حجم الملف ( Get size of file ) :

PHP كود :

Function SizeOfFile(FilePath : String )  : Integer ; 


PHP كود :

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 


مثال بسيط :

من المرفقات
*ملاحظة : هذه الدالة لا تعمل مع الملفات أكبر من 2 قيقا بايت !
* ملاحظة : لم أكتب كل هذه الدوال ! بل بعضها وجدتها وعدلت عليها !

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

[nabilkeb]

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

[AL-MOB4RM3G]

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

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

شكرا لك

[nabilkeb]

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

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

[AL-MOB4RM3G]

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

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

[Dr.MOT]

السلام عليكم

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

[علي ادرار]

استمتع بما اقرا من ردود واستوعب الدروس بشكل جيد والحمد لله
ولكن لم اصل الى مستوى المشاركة ولو البسيطة وبالله التوفيق.

[format82]

جزاك الله خيرا

رمضان كريم تصومو وتفطرو علي خير

اعطيت لنا مثال دالة التحويل من نص إلى ست عشري
وكيف يكون العكس (التحويل من ست عشر الي نص )

[bassem_43]

بارك الله فيك دوال رائعة ومفيدة
شكرا لك

[sparda]

لم أجد math او Power
استخدم دلفي 7