• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

alla11

اعضاء جدد
  • عدد المشاركات

    21
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

2 عادي

1 متابع

عن alla11

  • الرتبة
    عضو جديد

طرق الإتصال

معلومات الملف الشخصي

  • الجنس ذكر
  1. بسم الله الرحمن الرحيم الصلاة والسلام على رسول الله وعلى آلـــــــــــــه صحبه أجمعين الحمد لله رب العالمين الرحمن الرحيم برنامج حساب الغاز والكهربة برنامج حساب الغاز والكهربة هو محاولة بسيطة ليستطيع أي مستهلك للغاز والكهربة معرفة ماذا أستهلك من الغاز والكهربة حتي يأخذ الاحتياطات الازمة من أجل الاقتصاد في الاستهلاك والاستغناء على بعض الاجهزة الغير ضرورية واطفاء بعض المصابيح طريقة الاستعمال من أجل المستعمل للبرنامج أولا: يأخذ الرقم  الموجود في عداد الكهربة وعداد الغاز كذلك ويأخذ الرقم  الموجود في آخر فاتورة للغاز والكهربة وهو Index nouveau يكتبهما في الأماكن المخصصة لهم في البرنامج ---------- طريقة البرمجة ثانيا: البرنامج موجه الى مبتدئ البرمجة دلفي ضع فوق الفورم 2 TGroupBox داخل ال GroupBox1 ضع 4 TEdit وهم d1 و d2 و d5 و d6 وضع 2 TLabel وهم Label18 و Label19 Label18 --> Caption = Index Nouveau Label19 --> Caption = Index Ancien داخل ال GroupBox2 ضع 6 TEdit وهم d3 و d4 و d7 و d8 و ed1 و ed4 وضع 4 TLabel وهم Label20 و Label21 و Label22 و Label23 Label20 --> Caption = Différance Label21 --> Caption = COEF Label22 --> Caption = (kwh/THERMIE) Label23 --> Caption = CONSOMMATION   ضع على الفورم 3 TBitBtn وهم btnCalc و BitBtn2 و EffacerClick رتب الباقية حسب الفاتورة حولت قدر المستطاع من خلاله توضيح فكرة البرمجة الموجهة بالكائنات oop عملت البرنامج  delphi xe   Winapi.Windows System.SysUtils Vcl.Forms احذف ما قبل الفاصلة شغله في delphi 5 , 7 Windows SysUtils Forms ---------------------   هو تقريبا حسب نظام الحساب المعمول به في الشركة الجزائرية للكهرباء و الغاز وذلك حسب الفاطرورة مستلمة الى المستهلكي الكهرباء والغاز     elec.rar
  2. بسم الله الرحمن الرحيم الصلاة السلام على رسول الله كيف أجعل برنامجي يضيف اللغة العربية تلقائيا كيف أجعل برنامجي يضيف اللغة العربية تلقائيا عند تثبيته في أجهزة ذات نظام تشغيل أجنبي فرنسية أو غيره هل هناك أستطيع أن أضيفها أم ماذا وكيف ذلك وأكون مضطر الى اضافة  اللغة العربية يدويا فهل من حل شكرا هذا مثال بسيط وهناك مرفق من يطلع عليه يعطينا رأيه شكرا procedure TForm3.FormCreate(Sender: TObject); begin     BiDiMode := bdRightToLeft;     Font.Charset := ARABIC_CHARSET;     Position := poScreenCenter;     button1.BiDiMode := bdRightToLeft;     button1.Font.Charset := ARABIC_CHARSET;     Panel1.BiDiMode := bdRightToLeft;     Panel1.Font.Charset := ARABIC_CHARSET;     GroupBox1.BiDiMode := bdRightToLeft;     GroupBox1.Font.Charset := ARABIC_CHARSET;     RadioGroup1.BiDiMode := bdRightToLeft;     RadioGroup1.Font.Charset := ARABIC_CHARSET;     RadioButton1.BiDiMode := bdRightToLeft;     RadioButton1.Font.Charset := ARABIC_CHARSET;     RadioButton2.BiDiMode := bdRightToLeft;     RadioButton2.Font.Charset := ARABIC_CHARSET;     CheckBox1.BiDiMode := bdRightToLeft;     CheckBox1.Font.Charset := ARABIC_CHARSET;     CheckBox2.BiDiMode := bdRightToLeft;     CheckBox2.Font.Charset := ARABIC_CHARSET;     Memo1.BiDiMode := bdRightToLeft;     Memo1.Font.Charset := ARABIC_CHARSET;     edit1.BiDiMode := bdRightToLeft;     edit1.Font.Charset := ARABIC_CHARSET;     label1.BiDiMode := bdRightToLeft;     label1.Font.Charset := ARABIC_CHARSET;     BitBtn1.BiDiMode := bdRightToLeft;     BitBtn1.Font.Charset := ARABIC_CHARSET;     caption := 'النافذة الثانية';     button1.Caption := 'رجوع الى النافذة الرئيسية';     Panel1.Caption := 'هذا بانال';     GroupBox1.Caption := 'هذا قروب بوكس';     RadioGroup1.Caption := 'هذا راديو قروب';     RadioButton1.Caption := 'هذا راديو بوتو';     RadioButton2.Caption := 'هذا راديو بوتو2';     CheckBox1.Caption := 'هذا شاك بوكس1';     CheckBox2.Caption := 'هذا شاك بوكس2';     Memo1.Lines.Add('هذه سطور ميمو');     Memo1.Text := 'هذا ميمو';     edit1.Text := 'هذا اديت';     label1.Caption := 'هذه لابل';     RadioGroup1.Items.Strings[0] := 'هذا أول اتام';     RadioGroup1.Items.Strings[1] := 'هذا ثاني اتام';     RadioGroup1.Items.Strings[2] := 'هذا ثالث اتام';     BitBtn1.Caption := 'هذا بيت تيتن'; end;   p1.rar
  3. السلام عليكم  هل يمكن عدم انشاء الملف التنفيذي في الحقيقة لم أعرف أين أضع سؤالي هذا هل يمكن عدم انشاء الملف التنفيذي هل يمكن اثناء الاشتغال على البرنامج منجز بدلفي عدم انشاء الملف التنفيذي لهو من نوع exe والملفات الاخرى التي تنشأ مع الملف التنفيذي ك dcu , cfg . كما يحدث في فيزيال بيسك5 التي لاتنشأ الملف التنفيذي تلقائيا أليس عملية الانشاء المتكررة اثناء الاشتغال على البرنامج قد تسبب تلف للقرص الصلب وهذا اذا كانت فكرة البرنامج غير مستقرة في راسك وأنت تجرب فكرة أو تعليمة ما أو شرط وأنت حائركيف تسيغهم وكل مرة تجرب وهذه تنجح واخرى لاتنجح وتنيجة لهذه العملية المتكررة لا أريد أنشاء الملف التنفيذي ماذا أفعل و هل من طريقة وأنا لكم من الشاكرين أ
  4.   بسم الله الرحمن الرحيم الصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين كيف يمكن جعل الكتلبة من أعلى الى أسفل فوق الفورم Form أو لابل أو اماج أو مثلا وهي الأهم كرلابل  أو في كر اماج أو غيرهم من العناصر ال مثلا : TForm TLabel TQRLabel TQRImage هذه العناصر أو المركبات أو الكائنات لأني أريد أن تكون الجملة الكتابية من أعلى الى أسفل أو العكس لأن كتابة أي جملة تكون في الأصل من اليمين الى اليسار أو العكس في لغة كانت كما نفعل في الورد   في دلفي ولكم مني جزيل الشكر    
  5. بسم الله الرحمن الرحيم والصلاة والسلام على أشرف المرسلين سيدنا محمد ابن عبد الله صلى الله عليه وسلم وعلى آله وصحبه أجمعين عملية البحث في قواعد البيانات -دلفي- مثال بسيط وبحث بطرق مختلفة المثال عبارة عن مرفق مضغوط : Rechercher   Rechercher.zip
  6. مشروع لصنع Keygen لبرنامج

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

    بارك الله فيك
  8. مشروع تسيير الصيداليات

    بارك الله فيك
  9. مشروع من أول خطوة في قواعد البيانات

    بارك الله فيك
  10. مشروع محاسبة مقسم هاتف دلفي

    بـــــــــــارك الله فيــك
  11. عرض تلميح ورسالة بجانب الساعة بسم الله الرحمن الرحيم الصلاة والسلام على أشرف المرسلين وعلى آله وصحبه أجمعين   من أجل رد على الأج mohamed27 وأتمنى أن أكون قد يفقت وشكرا Show Balloon.rar
  12. بسم الله الرحمن الرحيم الصلاة والسلام على أشرف المرسلين وعلى آله وصحبه أجمعين برنامج تنبيه لانتهاء عقد عمل وتلميح بجانب الساعة unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ComCtrls, shellapi, Menus, Grids, DBGrids, ExtCtrls,   DBCtrls, DB, DBTables; type   TForm1 = class(TForm)     Button1: TButton;     Label1: TLabel;     Table1: TTable;     DataSource1: TDataSource;     DBNavigator1: TDBNavigator;     DBGrid1: TDBGrid;     Table1Num: TFloatField;     Table1Nom: TStringField;     Table1Nom2: TStringField;     Table1Date_ent: TDateField;     Table1Date_sor: TDateField;     procedure FormCreate(Sender: TObject);     procedure FormDestroy(Sender: TObject);     procedure Button1Click(Sender: TObject);   end; var     Form1: TForm1;     MyTNA: NOTIFYICONDATA;     s: string;      implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); var   Present:TDate;   Year,Month,Day :Word;   Year1,Month1,Day1 :Word;   Year2,Month2,Day2 :Word;   j : longint; begin   Table1.Open;  // Table1   s := '';   day2 := 0;   Day1 :=  0;   day := 0;   Present:=Now;   DecodeDate(Present,Year,Month,Day);     Table1.DisableControls;   Table1.First;   while not Table1.Eof do   begin   Present := Table1Date_sor.Value;   DecodeDate(Present,Year1,Month1,Day1);   Year2 := Year1 - Year;   Month2 := Month1 - Month;   Day2 := Day1 - Day;     if (Year2 <= 0)and(Month2 <= 0)and(Day2 <= 0)then    s :=s+'|'+ 'انتهاء عقد '+Table1Nom.Text   else   if (Year2 = 0)and(Month2 = 0)and(Day2 = 1) then     s :=s+'|'+' بقي يوم '+ IntToStr(Day2) +   ' وينتهي عقد '+   Table1Nom.Text;   Table1.Next;   end;   Table1.EnableControls;  // if(s <> '')and(Day2 <= 1)then  ShowMessage(s);      with MyTNA do     begin       cbSize := SizeOf(TNotifyIconData);       uID := 1;       uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;       Wnd := Handle;       uCallbackMessage := WM_APP + 1;       hIcon := Application.Icon.Handle;       with MyTNA do       begin         for j:=0 to length(s)-1 do MyTNA.szTip[j] := s[j+1];         szTip[length(s)]:=#0;       end;     end;     Shell_NotifyIcon(NIM_ADD, @MyTNA); end; procedure TForm1.FormDestroy(Sender: TObject); begin  Shell_NotifyIcon(NIM_DELETE, @MyTNA); end; procedure TForm1.Button1Click(Sender: TObject); begin   Application.Terminate; end; end.   dateto3.rar
  13. بسم الله الرحمن الرحيم الصلاة والسلام على أشرف المرسلين وعلى آله وصحبه أجمعين هذه مجرد محاولة delphi7 procedure TForm1.Button1Click(Sender: TObject); var   Present:TDate;   Year,Month,Day :Word;   Year1,Month1,Day1 :Word;   Year2,Month2,Day2 :Word;    s: String; begin   // مثلا من قاعدة البيانات  Edit2.Text := 'محمد';   // الوقت الحالي   Present:=Now;   DecodeDate(Present,Year,Month,Day);   // مثلا من قاعدة البيانات   Present:=DateTimePicker1.Date;   DecodeDate(Present,Year1,Month1,Day1);   Year2 := Year1 - Year;   Month2 := Month1 - Month;   Day2 := Day1 - Day;   s := '';   if (Year2 = 0)and(Month2 = 0)and(Day2 = 0)then    s := 'انتهاء عقد '+Edit2.Text   else   if (Year2 = 0)and(Month2 = 0) then     s :=' بقي يوم '+IntToStr(Day2)+   ' وينتهي عقد '+   Edit2.Text;   if(s <> '')and(Day2 <= 1)then ShowMessage(s); end; procedure TForm1.FormShow(Sender: TObject); begin  Button1Click(Sender);  close; end; بجانب الساعة  لم أجد الحل وشكرا -------------------------------------- هاتان دالتان من أجل اضافته الى بدأ تشغيل هذه الدالة تقوم  بكتابة القيمة في المفتاح run procedure WriteFileInRegistry(rName,aName: String); var   Reg: TRegistry; begin   Reg := TRegistry.Create;   Reg.RootKey := HKEY_LOCAL_MACHINE;   Reg.OpenKey(sk, True);   if not Reg.ValueExists(rName) then     Reg.WriteString(rName, aName);   Reg.CloseKey;   Reg.Free; end; هذه الدالة تقوم  بحذف القيمة من المفتاح run procedure DeleteFileInRegistry(rName: String); var   Reg: TRegistry; begin   Reg := TRegistry.Create;   Reg.RootKey := HKEY_LOCAL_MACHINE;   Reg.OpenKey(sk, True);   if Reg.ValueExists(rName) then Reg.DeleteValue(rName);   Reg.CloseKey;   Reg.Free; end;
  14. برنامج بدلفي لتسيير محل تجاري نسخة 2 بسم الله الرحمن الرحيم الصلاة والسلام على رسول الله أي اخطاء ترونها اعلموني بها أو اقترحات تحبون اضافتها  وشكرا ملاحظة لقد أضفت اليه بعض الاضافات أذكر منها انه أصبح يقبل الاعداد الحقيقية العملة كذلك الرمز السري delph arabteam2000.zip