مشاهدة النسخة كاملة : عود ميمونة لي لكل من يريد صنع برنامج ب delphi -يتفضل وطلبه مقبول
LATAOUI MABROUK
2013-03-31, 19:12
بسم الله الرحمان الرحيم
http://www.mdidiesel.com/Logos/DelphiLogo.jpg
LATAOUI MABROUK
2013-03-31, 19:14
رقم الهاتف الخاص بي
mokkhtar
2013-03-31, 19:21
اريد التعديل على برنامج مصغر module يشتغل مع برنامج العرض الخاص بكروت الساتيليت dvbdream
هذا الموديل يسمى simosd خاص بعرض البيانات على الشاشة لكن لا يستجيب لريمو ت كنترول
اريد ه ان يشتغل على remote control
http://www.mediafire.com/?g3uexs0d5vixh23
LATAOUI MABROUK
2013-03-31, 19:43
أخي مختار غتصل بي لبعض المعلومات .....
mokkhtar
2013-04-01, 13:17
لا احبب الهاتف
وان كنت تريد المعلومات يمكنك طلب الاستفسارات عبر صفحة المنتدى و اوافيك بها انشاء الله
nadoush.1984
2013-04-07, 17:58
أرجو المساعدة في مشروعي الصغير
4 table BDE
1/ citoyen : n°cit,nom,prénom,adresse
2/année : année
3/inscription :N°cit,année,taxes1,taxes2,taxes3
4/paiement: n°cit,année,taxes1.taxes2.taxes,3,date payer
nadoush.1984
2013-04-07, 18:04
mon prject est comme suit:
table BDE citoyen =N°cit ,nom,prénom,adresse
table année =année
table inscription=N°cit,année,taxe1,taxe2,taxe3
table paiement =N°cit,année,montant payer,date payer
المهندس هلال
2013-05-11, 14:15
ما يميز استعمال اسكيال عن غيره وهل استعمالها فيه بطء ، وما الطريقة الاسرع في البحث والفلترة اسكيال ام غيره
و ما قواعد البيانات السريعة و القوية ابسوليت ام الفاير بيرد
وكيف اتصل بالفاير بيرد من خلال أدو و صديقاتها
بارك الله فيكم وجزاك الله الجنة والحور
elec_idriss
2013-05-19, 16:02
السلام عليكم ورحمة الله وبركاته
اريد برنامج يتلقى نبضات القلب من جهاز يوضع على شكل خاتم في الاصبع ثم يقوم برسم هذه القيم.
تفضل خويا هنا
http://www.tiktimes.com/
اريد مساعدة لتعلم لغة دلفي ...........................؟
علما اني اشارك لاول مرة
elec_idriss
2013-05-21, 10:36
انا انتظر المساعدة بخصوص
برنامج يتلقى نبضات القلب من جهاز يوضع على شكل خاتم في الاصبع ثم يقوم برسم هذه القيم.
kimo 20222
2013-09-17, 16:50
انا في حاجة لمساعتدك ارجو ان ترسل لي رقم الهاتف مع المشرف بارك الله فيك
nadoush.1984
2013-10-05, 11:19
يا درا نسيت طلبي
الله اليخليك رد علي
ffatimato
2013-10-14, 15:29
السلام عليكم
أخي اريد منك طريقة تجعل البرنامج المصنوع بدلفي ينفذ في اي جهاز حاسوب
شكرا مسبقا
SOFYANART
2013-10-25, 21:58
السلام عليكم
أخي اريد منك طريقة تجعل البرنامج المصنوع بدلفي ينفذ في اي جهاز حاسوب
شكرا مسبقا
استعمل برنامج تحزيم البرامج بواسطة Install Creator Pro
من هنا (http://alibda3.allgoo.net/t267-topic)
talebamara
2013-10-31, 22:28
انا هاوي برمجة بالدلفي مبتدي و اريد كيفية انشاء تقرير بواسطة rave من خلال ما يعرض بجدول الاب و الابن اي ماستر و سو ماستر
ffatimato
2013-11-13, 15:00
السلام عليكم
شكرا جزيلا للأخ sofyanart على المساعد جزاك الله خيرا
farid34000
2013-12-30, 14:48
السلام عليكم أخي.
والله استحيت كثيرا وترددت كثيرا لكي أتقدم بطلبي هذا.
الطلب هو برنامج بلغة دلفي إن أمكن مفتوح المصدر، البرنامج خاص لمصلحة تصليح الأجهزة sav يتكون من:
01-
لقب الزبون
اسمه ،
عنوانه،
الهاتف،
تاريخ ورقم وصل دخول المنتوج للمصلحة، " ادخال المعلومات اجباري"
الرقم التسلسلي،
هل هو في الضمان أم خارج الضمان
ملاحظات حول الجهاز:
02- تاريخ التصليح ورقم وصل التصليح "اجباري بعد التصليح"
معلومات عن العطب والتصليح "اجباري"
إمكانية تحرير فاتورة في حالة أن الجهاز خارج الضمان
03- تاريخ الخروج مع رقم وصل الخروج، "اجباري بعد الانتهاء"
اضافة بار كود لقراءة الرقم التسلسلي سريعا وفي حالة عدم وجود بارك كود في الأجهزة يتم إدخالها يدويا كما هو موضح أعلاه.
إمكانية البحث : عن تجهيزات زبون معين "قد يتم استلام عدة أجهزة مختلفة لزبون واحد مع معرفة الأجهزة المصلحة والغير مصلحة وتاريخ الدخول وتاريخ الخروج "
إمكانية البحث عن تجهيزات لعدة زبائن
إمكانية البحث بالتاريخ "دخول أو خروج أو الاثنين معا"
إمكانية الطباعة للفاتورة ،التقارير اليومية أوالشهرية أو السنوية، البحث.
وإن كانت لدي ملاحظات أخرى سأفيدك بها إن شاء الله.
أتمنى منكم قبول طلبي راجيا منكم الإجابة والاستجابة.
مع قبول احتراماتي لسيادتكم.
عدنان100
2014-01-03, 13:01
شـكرا لـك أخي
bellamina21
2014-01-08, 20:29
aidez moi pour realiser les autres boutons è o6 m2
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
EditChiffres: TEdit;
ButtonEfface: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
ButtonVirgule: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
ButtonResultat: TButton;
ButtonDiv: TButton;
ButtonMulti: TButton;
ButtonMoins: TButton;
ButtonPlus: TButton;
Button1: TButton;
Button9: TButton;
Button13: TButton;
Button14: TButton;
Button15: TButton;
Button16: TButton;
Button17: TButton;
procedure ButtonEffaceClick(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure ButtonVirguleClick(Sender: TObject);
procedure ButtonPlusClick(Sender: TObject);
procedure ButtonMoinsClick(Sender: TObject);
procedure ButtonMultiClick(Sender: TObject);
procedure ButtonDivClick(Sender: TObject);
procedure ButtonResultatClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
Operande1: Real;
Operation:string;
m1:real;
m2:real;
implementation
{$R *.DFM}
procedure TForm1.ButtonEffaceClick(Sender: TObject);
begin
EditChiffres.Text:='';
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+'1'
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+'2'
end;
procedure TForm1.Button12Click(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+'3'
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+'4'
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+'5'
end;
procedure TForm1.Button11Click(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+'6'
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+'7'
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+'8'
end;
procedure TForm1.Button10Click(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+'9'
end;
procedure TForm1.ButtonVirguleClick(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+','
end;
procedure TForm1.ButtonPlusClick(Sender: TObject);
begin
Operande1:=StrToFloat(EditChiffres.Text);
Operation:='+';
EditChiffres.Text:='';
end;
procedure TForm1.ButtonMoinsClick(Sender: TObject);
begin
Operande1:=StrToFloat(EditChiffres.Text);
Operation:='-';
EditChiffres.Text:='';
end;
procedure TForm1.ButtonMultiClick(Sender: TObject);
begin
Operande1:=StrToFloat(EditChiffres.Text);
Operation:='*';
EditChiffres.Text:='';
end;
procedure TForm1.ButtonDivClick(Sender: TObject);
begin
Operande1:=StrToFloat(EditChiffres.Text);
Operation:='/';
EditChiffres.Text:='';
end;
procedure TForm1.ButtonResultatClick(Sender: TObject);
var
Operande2:real;
begin
Operande2:=StrToFloat(EditChiffres.Text);
if Operation='+' then
m1:=(Operande1+Operande2);
EditChiffres.Text:=FloatToStr(m1);
if Operation='-' then
m1:=(Operande1-Operande2);
EditChiffres.Text:=FloatToStr(m1);
if Operation='*' then
m1:=(Operande1*Operande2);
EditChiffres.Text:=FloatToStr(m1);
if Operation='/' then
m1:=(Operande1/Operande2);
EditChiffres.Text:=FloatToStr(m1);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
EditChiffres.Text:=FloatToStr(m1);
end;
procedure TForm1.Button14Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
m2:=m1;
EditChiffres.Text:=FloatToStr(m2)
end;
procedure TForm1.Button13Click(Sender: TObject);
begin
m1:=0;
m2:=0 ;
EditChiffres.Text:=''
end;
end.
merzoug2020
2014-04-18, 16:56
لدي مشكلة مع الكائن animate الموجود في win32 في دالفي 7
merzoug2020
2014-04-18, 19:37
aidez moi pour realiser les autres boutons è o6 m2
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
EditChiffres: TEdit;
ButtonEfface: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
ButtonVirgule: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
ButtonResultat: TButton;
ButtonDiv: TButton;
ButtonMulti: TButton;
ButtonMoins: TButton;
ButtonPlus: TButton;
Button1: TButton;
Button9: TButton;
Button13: TButton;
Button14: TButton;
Button15: TButton;
Button16: TButton;
Button17: TButton;
procedure ButtonEffaceClick(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure ButtonVirguleClick(Sender: TObject);
procedure ButtonPlusClick(Sender: TObject);
procedure ButtonMoinsClick(Sender: TObject);
procedure ButtonMultiClick(Sender: TObject);
procedure ButtonDivClick(Sender: TObject);
procedure ButtonResultatClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
Operande1: Real;
Operation:string;
m1:real;
m2:real;
implementation
{$R *.DFM}
procedure TForm1.ButtonEffaceClick(Sender: TObject);
begin
EditChiffres.Text:='';
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+'1'
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+'2'
end;
procedure TForm1.Button12Click(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+'3'
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+'4'
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+'5'
end;
procedure TForm1.Button11Click(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+'6'
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+'7'
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+'8'
end;
procedure TForm1.Button10Click(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+'9'
end;
procedure TForm1.ButtonVirguleClick(Sender: TObject);
begin
EditChiffres.Text:=EditChiffres.Text+','
end;
procedure TForm1.ButtonPlusClick(Sender: TObject);
begin
Operande1:=StrToFloat(EditChiffres.Text);
Operation:='+';
EditChiffres.Text:='';
end;
procedure TForm1.ButtonMoinsClick(Sender: TObject);
begin
Operande1:=StrToFloat(EditChiffres.Text);
Operation:='-';
EditChiffres.Text:='';
end;
procedure TForm1.ButtonMultiClick(Sender: TObject);
begin
Operande1:=StrToFloat(EditChiffres.Text);
Operation:='*';
EditChiffres.Text:='';
end;
procedure TForm1.ButtonDivClick(Sender: TObject);
begin
Operande1:=StrToFloat(EditChiffres.Text);
Operation:='/';
EditChiffres.Text:='';
end;
procedure TForm1.ButtonResultatClick(Sender: TObject);
var
Operande2:real;
begin
Operande2:=StrToFloat(EditChiffres.Text);
if Operation='+' then
m1:=(Operande1+Operande2);
EditChiffres.Text:=FloatToStr(m1);
if Operation='-' then
m1:=(Operande1-Operande2);
EditChiffres.Text:=FloatToStr(m1);
if Operation='*' then
m1:=(Operande1*Operande2);
EditChiffres.Text:=FloatToStr(m1);
if Operation='/' then
m1:=(Operande1/Operande2);
EditChiffres.Text:=FloatToStr(m1);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
EditChiffres.Text:=FloatToStr(m1);
end;
procedure TForm1.Button14Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
m2:=m1;
EditChiffres.Text:=FloatToStr(m2)
end;
procedure TForm1.Button13Click(Sender: TObject);
begin
m1:=0;
m2:=0 ;
EditChiffres.Text:=''
end;
end.
أخي يخصك أن تعرف ch:string; في جهة public لكي لا تضيع القيمة التي موجودة في EditChiffres.Tex
merzoug2020
2014-04-18, 19:41
السلام عليكم أخي.
والله استحيت كثيرا وترددت كثيرا لكي أتقدم بطلبي هذا.
الطلب هو برنامج بلغة دلفي إن أمكن مفتوح المصدر، البرنامج خاص لمصلحة تصليح الأجهزة sav يتكون من:
01-
لقب الزبون
اسمه ،
عنوانه،
الهاتف،
تاريخ ورقم وصل دخول المنتوج للمصلحة، " ادخال المعلومات اجباري"
الرقم التسلسلي،
هل هو في الضمان أم خارج الضمان
ملاحظات حول الجهاز:
02- تاريخ التصليح ورقم وصل التصليح "اجباري بعد التصليح"
معلومات عن العطب والتصليح "اجباري"
إمكانية تحرير فاتورة في حالة أن الجهاز خارج الضمان
03- تاريخ الخروج مع رقم وصل الخروج، "اجباري بعد الانتهاء"
اضافة بار كود لقراءة الرقم التسلسلي سريعا وفي حالة عدم وجود بارك كود في الأجهزة يتم إدخالها يدويا كما هو موضح أعلاه.
إمكانية البحث : عن تجهيزات زبون معين "قد يتم استلام عدة أجهزة مختلفة لزبون واحد مع معرفة الأجهزة المصلحة والغير مصلحة وتاريخ الدخول وتاريخ الخروج "
إمكانية البحث عن تجهيزات لعدة زبائن
إمكانية البحث بالتاريخ "دخول أو خروج أو الاثنين معا"
إمكانية الطباعة للفاتورة ،التقارير اليومية أوالشهرية أو السنوية، البحث.
وإن كانت لدي ملاحظات أخرى سأفيدك بها إن شاء الله.
أتمنى منكم قبول طلبي راجيا منكم الإجابة والاستجابة.
مع قبول احتراماتي لسيادتكم.
إذا أردة أخي أعمل لك برنامج حسب ماتريد ولكن يجب أن نتفاهم إذا أردة ناديني على سكيبُ: merzoug2020
vBulletin® v3.8.10 Release Candidate 2, Copyright ©2000-2025, TranZ by Almuhajir