(شرح) كيف تثبت برامجك عند الغير Delphi أو C++Builder

[طيباوي ابو علي1]

بسم الله الرحمن الرحيم

(شرح) كيف تثبت برامجك عند الغير Delphi أو C++Builder

النسخة الانجليزية من
Borland C++Builder 5
أو
Borland Delphi 5

ملاحظة بنسة للاصدار 6 و 7 اختلفت طريقة
تشغيل
Express for C++Builder 5 أو Express for Delphi 5
اختيار مشروع جديد ضغط فوق موفق
Create a new Setup Project ==> OK
كتابة اسم المشروع
Project Name ==> forumalgerie
تحديد مكان تواجد ملفات قواعد البيانات التابعة للمشروع
Project Path
يكون المسار هكذا مثلا
Dirctory ==> C:\delph\forumalgerie.iwz
نقر فوق انشاء
Create
ظهور النافذة التالية
Setup Checklist
Set the Visual Design
نقر فوق العبارة التالية
Application Information ==> Click
ظهور مربع الحوار فتح تحديد الملف التنفيذي تابع للمشروع
Application Executable: ==> Browse... ==> Project1.exe

----/////----
Application Name ==> forumalgerie
Default Destination Dirctory: ==> C:\delph ==> OK
نقر فوق العبارة التالية
Features ==> Click
تمكين الخيار تالي من اجل الغاء تثبيت
Automatic Uninstaller ==> true ==> OK
نقر فوق العبارة التالية
General Options ==> Click
تمكين الخيار تالي
BDE Database Component Packages ==> true
تمكين الخيار تالي اذا تم استعمال اوامر المشار اليها في العبارة التالية
SQL - Links
تمكين الخيار تالي
BDE (Borland Database Engine) ==> true
ظهور النافذة التالية نقر فوق جديد
BDE Aliases ==> New
كتابة اسم اليا أو الاسم المستعار وهو الاسم الذي انشأته عندما انشأت المشروع
Alias Name ==> Algerie ==> OK ==> Next
تمكين الخيار تالي
Save CFG file for both 16 and 32 bit applications ==> true ==> Next
كتابة مسار اليا كما هو موضح
Path ==> C:\delph
اختيار نوع قاعدة البيانات التي انشأتها عندما انشأت ملفات قاعدة البيانات مثلا هنا بارادوكس نقر فوق انهاء ثم فوق موفق
Type ==> Paradox ==> Next ==> Terminer ==> OK
نقر فوق العبارة التالية ثم نقر فوق موفق
Advanced Options ==> OK
نقر فوق العبارة التالية
Groups and files
ظهور النافذة التالية
تحديد Program files وانقر فوق Insert Files ظهور مربع الحوار فتح تحديد ملفات قاعدة البيانات وملفات دلل dll
أي ملفات أخرى تحتاجها لمشروعك لاتحدد ملفات الكود سورس تابعة سي ++ بولدر
Program files ==> select ==> Insert Files ==> Click
تم تحديد ملفين فقط في مثلنا هذا
select ==> db001.db db001.px ==> Open
بنسة الى مجموعة جديدة أو مجلد جديد اذا كان مشروعك يحتوي على مجلدات فرعية فيجب نقر فوق
New Group..
والا لا
==> Ok
نقر فوق العبارة التالية ثم نقر فوق موفق
Dialog Box ==> Click ==> Ok
نقر فوق العبارة التالية
Disk Builder ==> Click
تحديد CD-ROM وانقر فوق Build
Disk Size ==> CD-ROM ==> Build
عندما تنتهي العملية انقر فوق اغلاق
Close
-----------
تشغيل هذا البرنامج BDE Administrator وحذف اليا Algerie بتحديدها ثم حذفها قبل بدء عملية تثبيت
Algerie ==> Object ==> Delete ==> OK
تغيير المسار من C:\delph الى C:\delph11 قبل بدء عملية تثبيت
ذهاب الى المسار تالي وبدء عملية التثبيت
C:\delph\forumalgerie1\650MB\DISK1\setup.exe

كيفية انشاء اليا
تشغيل هذا البرنامج BDE Administrator
ظهور النافذة التالية
BDE Administrator
من القائمة Object انقر New ثم انقر فوق موفق ok
اكتب اسم اليا alias وليكن Algerie مثلا
من نوع بارادوكس حسبة هذا المثال
default driver
تحديد مكان حفظ اليا
path ==> C:\delph
Object ==> Save as ..
اغلاق البرنامج
بنسبة لدلفي نفس شيء

[بلخير92]

ممكن روابط تحميل النسخة مع التفعيل

[homs]

مشكووووووور على مجهودك

[طيباوي ابو علي1]

مشكووووووور على مجهودك

مشكور على الرد
جزاك الله خيرا

[mahmoudb69]

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

[طيباوي ابو علي1]

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


مشكور على الرد
و بـــــــــــــــــــــــــــــــارك الله فــــــــــيــك

[zahrafleur]

سلام عليكم مشكورة ممكن مساعدتي في برنامج حل معادلة من الدرجة الثانية بلغة دلفي ضروري

[طيباوي ابو علي1]

سلام عليكم مشكورة ممكن مساعدتي في برنامج حل معادلة من الدرجة الثانية بلغة دلفي ضروري

حسام معادلة من الدرجة الثانية

ضع على الفورم 6
TLabel
ضع على الفورم 3
TButton
ضع على الفورم 6
TEdit


procedure TForm1.Button1Click(Sender: TObject); // djelfa
var a,b,c : real; // djelfa
Delta,x1,x2 : real; // djelfa
begin
a := StrToCurr(Edit1.Text); // djelfa
b := StrToCurr(Edit2.Text); // djelfa
c := StrToCurr(Edit3.Text); // djelfa
Delta := b*b - 4*a*c; // djelfa
if Delta < 0 then
Edit4.Text := 'ليس لها حل'
else
begin
x1 := (-b-sqrt(Delta))/(2*a); // djelfa
x2 := (-b+sqrt(Delta))/(2*a); // djelfa
Edit4.Text := CurrToStr(Delta); // djelfa
Edit5.Text := CurrToStr(x1); // djelfa
Edit6.Text := CurrToStr(x2); // djelfa
end; // djelfa

end; // djelfa

[طيباوي ابو علي1]

حسام معادلة من الدرجة الثانية

ضع على الفورم 6
TLabel
ضع على الفورم 3
TButton
ضع على الفورم 6
TEdit



procedure TForm1.Button1Click(Sender: TObject); // djelfa
var a,b,c : real; // djelfa
Delta,x1,x2 : real; // djelfa
begin
a := StrToFloat(Edit1.Text); // djelfa
b := StrToFloat(Edit2.Text); // djelfa
c := StrToFloat(Edit3.Text); // djelfa
Delta := b*b - 4*a*c; // djelfa
if Delta < 0 then
Edit4.Text := 'ليس لها حل'
else
begin
x1 := (-b-sqrt(Delta))/(2*a); // djelfa
x2 := (-b+sqrt(Delta))/(2*a); // djelfa
Edit4.Text := FloatToStr(Delta); // djelfa
Edit5.Text := FloatToStr(x1); // djelfa
Edit6.Text := FloatToStr(x2); // djelfa
end; // djelfa

end; // djelfa
]

[طيباوي ابو علي1]

بارك الله فيـــــــــــــــــــــكم

[Mя. AMiNE]

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

[طيباوي ابو علي1]

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

[Alladin1]

شكرا لك اخي

[younesok]

شكرا جزيلا أخي بالتوفيق

[oussamaAzh]

مشكووور اخي

[mohamedpich]

la solution de exercice svp :programe C
dans un magazin
si le montant dachat et inferieur a 500 DA.alors pas de reduction .
si le montant dachat et compris entre 500 et 2000 DA il ya une reduction de 3%
si le montant dachat et superieur a 2000 DA la reduction 5 %
ecrire un progamme qui :
demande de montant dachat
calcul le prix net a payer
aficher le prix net a payer

[طيباوي ابو علي1]

شكرا لكم جميعا

[طيباوي ابو علي1]

من يريد نقل مواضيعي هذه فعليه بذكر اسمي

والمنتدى وشكرا

[hamza548]

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

[لحـن الوفاء]

بارك الله فيك

[طيباوي ابو علي1]

بسم الله الرحمن الرحيم

الصلاة والسلام على رسول الله وآله وصحبه

إذا كان ثمن الشراء أقل 500 ليس هناك تخفيض
وإذا كان ثمن الشراء محصورة بين 500 و 2000 هناك تخفيض يقدر ب 3٪
وإذا كان مبلغ الشراء يزيد عن 2000 هناك تخفيض يقدر ب 5٪

وهذا حسب فهمي لسؤال

أما بنسب سي فمعلوماتي قليلة جدا وليس مثبتا في جهازي الان فرجو المعذرة
وأسفي شديد لعدم تمكني من الاجابة

واليك هذا المثال حول دلفي




//ecrire un progamme qui
procedure TForm1.BitBtn1Click(Sender: TObject);//djelfa
var
montant: currency; //djelfa
begin
// demande de montant dachat
montant := StrToCurr(Edit1.Text); //djelfa
{si le montant dachat et inferieur a 500 DA.alors
pas de reduction .}
if montant <= 500 then
Edit1.Text := CurrToStr(montant)//djelfa
{si le montant dachat et compris entre 500 et 2000 DA
il ya une reduction de 3%}
else if (montant > 500)and(montant < 2000) then
Edit1.Text := CurrToStr(montant-(montant*3/100))//djelfa
{si le montant dachat et superieur a 2000 DA
la reduction 5 %}
else if montant >= 2000 then
Edit1.Text := CurrToStr(montant-(montant*5/100));//calcul le prix net a payer

// afficher le prix net a payer
Edit1.Text := FormatFloat('#,##0.00;(#,##0.00)',StrToCurr(Edit1. Text));//djelfa
montant := 0; //djelfa
end; //djelfa

[meridjihamada]

رائع، شكرا على الموضوع

[Guertar]

شكرا لك - بارك الله فيك ... أخي الكريم

[طيباوي ابو علي1]

شكرا لكم جميعا
وبارك الله فيكم

[طيباوي ابو علي1]

شكرا لكم جميعا
وبارك الله فيكم

[mouhamad2009]

سلام عليكم مشكورة ممكن مساعدتي في برنامج حل معادلة من الدرجة الثانية بلغة دلفي ضروري
عفوا اختي على التأخير لم اكن هنا وإن أحتجتي لاي شيء انا هنا
Program n ;
Var
a,b,c,x,d,x1,x2:real;
Begin
Write('donne la valeur a=');
Read(a);
Write('donne la valeur b=');
Readln(b);
Write('donne la valeur c=');
Readln(c);

If (a=0) and (b<>0)and (c<>0) then
Begin
x:=(-c/b);
Write ('x=',x);
End
Else
Begin
If (a=0) and (b=0)and (c<>0) then
write ('pas de solition');
If (a=0) and (b=0)and (c=0) then
Writeln('solution infini ');
If (a<>0) and (b<>0)and (c<>0) then
begin
d:=(b*b)-4*(a*c);
If (d=0)then
Begin
x:=-b+sqrt(d)/(2*a);
Writeln('solution double x=',x);
End
Else
Begin
x1:=-b+sqrt(d)/(2*a);
x2:=-b-sqrt(d)/(2*a);
writeln('deux solition defferentes');
write('x=',x1);
writeln('x=',x2);
End;
End;
End;
End.

[طيباوي ابو علي1]

بسم الله الرحمن الرحيم

الصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين

أتقدم بالشكر الجزيل الى الاخ mouhamad2009
و الذي نبهني الى الخطأ الذي أرتكبته في ردي على الاخت zahrafleur
فهو مشكور على التوضيح الذي قام به

وبارك الله فيه على هذه المبادرة الطييبة التي قام بها
أتمنى أن يكون هكذا التعاون الجماعي
" كين مثل يقول يد وحدا ما تصفق "

===========================
=
= a*x^2 + b*x + c = 0
=
===========================
1

a = 0
b = 1
c = 1

Delta = b*b - 4*a*c;

Delta = 1*1 - 4*0*1
Delta = 1*1 - 0
Delta = 1 - 0
Delta = 1

Delta > 0

x1 := (-b-sqrt(Delta))/(2*a);

x1 = (-1-sqrt(1))/(2*0)
x1 = (-1-sqrt(1))/0
x1 = (-1-1)/0
x1 = -2/0

Div. par zéro impossible
القسمة على صفر مستحيل

-----------------------------
a*x^2 + b*x + c = 0

0*x^2 + 1*x + 1 = 0
0 + 1*x + 1 = 0
1*x + 1 = 0
1*x = -1
x = -1/-1
x = 1

=============================
2

a = 1
b = 0
c = 1

Delta = b*b - 4*a*c;

Delta = 0*0 - 4*1*1
Delta = 0*0 - 4
Delta = 0 - 4
Delta = -4

Delta < 0

ليس لها حل في مجموعة الاعداد الحقيقية R

=============================
3

a = 1
b = 1
c = 0

Delta = b*b - 4*a*c;

Delta = 1*1 - 4*1*0
Delta = 1*1 - 0
Delta = 1 - 0
Delta = 1

Delta > 0

x1 := (-b-sqrt(Delta))/(2*a);

x1 = (-1-sqrt(1))/(2*1)
x1 = (-1-sqrt(1))/2
x1 = (-1-1)/2
x1 = -2/2
x1 = -1

=============================



procedure TForm1.Button1Click(Sender: TObject);
var a,b,c : real; // djelfa
Delta,x1,x2,x : real; // djelfa
begin
a := StrToFloat(Edit1.Text); // djelfa
b := StrToFloat(Edit2.Text); // djelfa
c := StrToFloat(Edit3.Text); // djelfa
if a = 0 then
begin
if b=0 then ShowMessage('ليس لها حل')
else
begin
x := -c/b;
ShowMessage('الحل هـــــو '
+FloatToStr(x));
Label8.Caption := '';
end;
end
else
begin
Delta := b*b - 4*a*c; // djelfa
if Delta < 0 then
begin
Edit4.Text := FloatToStr(Delta); // djelfa
Label8.Caption := 'ليس لها حل في مجموعة الاعداد الحقيقية R';
end
else
begin
x1 := (-b-sqrt(Delta))/(2*a); // djelfa
x2 := (-b+sqrt(Delta))/(2*a); // djelfa
Edit4.Text := FloatToStr(Delta); // djelfa
Edit5.Text := FloatToStr(x1); // djelfa
Edit6.Text := FloatToStr(x2); // djelfa
end; // djelfa
end;
end; // djelfa

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Edit1.Text := '';
Edit2.Text := '';
Edit3.Text := '';
Edit4.Text := '';
Edit5.Text := '';
Edit6.Text := '';
Label8.Caption := '';
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
if (Edit1.Text <> '')and(Edit2.Text <> '')and(Edit3.Text <> '') then
Button1.Enabled := true
else Button1.Enabled := false;
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
Edit1Change(Sender);
end;

procedure TForm1.Edit3Change(Sender: TObject);
begin
Edit1Change(Sender);
end;



قبل التعديل
http://djelfa.info/vb/attachment.php?attachmentid=103718&stc=1&d=1433378677


بعد التعديل
http://djelfa.info/vb/attachment.php?attachmentid=103719&stc=1&d=1433378756

[طيباوي ابو علي1]

بسم الله الرحمن الرحيم

والصلاة والسلام على محمد بن عبد الله وعلى آله وصحبه أجمعين

[omariro05]

بارك الله فيك اخي

[طيباوي ابو علي1]

بــــــــــارك الله فـــــــــــــيك

[kader.dzz]

مشكوووووووووووور اخي

[zilo]

شكراااا جزيلا

[zilo]

بارك الله فيك

[طيباوي ابو علي1]

بارك الله فـــــــــــــــــيك

[Geekkmonir]

شكرا جزيلا لك أخي

[طيباوي ابو علي1]

بارك الله فيـــــــــــــــــــــكم

[MaherPT]

شكرا جزيلا

[legma]

شكرا على المجهود

[djaafar007]

مشكور على المجهود

[طيباوي ابو علي1]

بارك الله فيكم