الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكله في برنامج حسابي

مغلق
بدأه HacSec في 8 أبريل 2007 · 23 رد · 1,802 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

شباب والله تعبت ودخت وطلعت عيوني وانا احووس في البرنامج :wacko:

البرنامج فكرته انك تضع له المدخلات الي هي:

-مساحة الارض

-معامل البناء

-المساحه التأجيريه

ويطلع لنا المخرجات: ولكن بعض المخرجات نحتاجها عشان نطلع مخرجات ثانيه

-نسبة التغطيه = مساحة الارض × 0.35

-المساحه المبنيه = مساحة الارض × معامل البناء

-عدد الادوار = المساحه المبنيـه ÷ نسبة التغطيه

-عدد المواقف = المساحه المبنيـه ÷ 25% من المساحه التأجيريه

صورة البرنامج:

e97a328c41.png

صورة الكود:

2c308e1817.png

كل شيء تماام الحين ولكن لما اشغل البرنامج مايجي معي

لأني استخدم احد نواتج المخرجات وحين الضغط على الزر

يكون اكيد فاضي الحقل الي استخدمه

في هذي الحاله كيف اقدر استخدم احد نواتج المخرجات

واعادة استخدامها في ناتج اخر

بحيث مايطلع لي خطأ

ادري طولتها وهي قصيره ولكن انا مبتدىء وهذا اول برنامج لي :s

تحياتي

#2

صورة الكود غير ظاهرة!

ولو تعيد صياغة السؤال بطريقة ثانية افضل.

او انتظر ربما في احد سوف يفهم سؤالك اكثر مني.

http://xlogic010.blogspot.com

الافكار الملوثة

مشكلة الخمسة وعشرون يوماً

what is the relation between dot net and java

#3

عزيزي pc.2058

الصور تطلع تمام التمام المشكله من عندك

كيف بطريقه ثانيه ؟

مالها مجال الا بالصيغه هذي : )

ولكن بحاول افهمك

في احد نواتج المخرجات الي هو بالصوره

المساحه المبنيه و نسبة التغطيه

اذا طلع ناتجهم ابغى استخدمه مره ثانيه

لأستخراج قيمة عدد الادوار

الي هي = المساحه المبنيـه ÷ نسبة التغطيه

بنفس الوقت الي اضغط فيه

على الزر احسب

تحياتي ومشكور على الرد

#4

السلام عليكم

للأسف الصور ما تطلع يا HacSec

وجرب هذة الطريقة : 

procedure TForm1.Button1Click(Sender: TObject);
var
  x1, x2, x3, xx1, xx2, xx3, xx4: Currency;
begin
  x1 := 0;
  x2 := 0;
  x3 := 0;
  //-----------
  xx1 := x1 * 0.35;
  xx2 := x1 * x2;
  xx3 := xx2 / xx1;
  xx4 := xx2 / (x3 * 0.25);
end;

وان شاء الله تكون صح ..

و حاول ان ترفق الكود اللي انت كاتبة حتى نعرف وين الخطاء.. مش لازم تضعة في صورة .

تم تعديل هذه المشاركة بواسطة source code في 9 أبريل 2007 في 01:00

#5

مشكور source code

والصور شغاله 100 بالميه

ولكن المشكله من عندك وبأعطيك الروابط

الصوره الاولى

http://www.l22l.com/l22l-up-1/e97a328c41.png

الكود

http://www.l22l.com/l22l-up-1/2c308e1817.png

وهذا هو الكود الي كتبته


var a,b,c,d,d,e,f,g;real;
begin
a:=StrTofloat(Edit1.text);
b:=StrTofloat(Edit2.text);
c:=StrTofloat(Edit3.text);
d:=StrTofloat(Edit5.text);
e:=StrTofloat(Edit4.text);
f:=StrTofloat(Edit6.text);
g:=StrTofloat(Edit7.text);
c:=a*b;
Edit3.text:=floattostr(c);
e:=a*0.35;
Edit4.text:=floattostr(e);
f:=e/c;
Edit6.text:=floattostr(f);
d:=(c)/(g*25/100);
Edit5.text:=floattostr(d);
end;
procedure TForm3.Button1Click(Sender: TObject);

#6

عدل الخطاء في المتغير :

var

a, b, c, d, d, e, f, g; real;

الى :

var

a, b, c, d, e, f, g: real;

وتأكد ان الـــ Edit ليست فارغة او القيمة = 0

والى الأن الصور ما تطلع .. : )

#7

ههههههههههههه يا ذالصور طفشتني والله

upload2world_57a18.png

ايه انا كاتبها كتابه الحين والخطأ مني في المتغير

اقتباس
وتأكد ان الـــ Edit ليست فارغة او القيمة = 0

كيف مافهمت وضح اكثر ولا عليك امر

مشكووور

تم تعديل هذه المشاركة بواسطة HacSec في 9 أبريل 2007 في 08:31

#8

مبرووووووووووك طلعت الصورة

يعني لا تكون الـــ Edit فاضية ... لازم تكتب فيها ارقام قبل لا تعمل اي عملية حسابية

ولا يكون الرقم صفر ... لأن الأعداد لا تقبل القسمة على صفر .

#9

source code

مشكووور

اخيراً طلعت ههههههههههههههههه بعد معاناه دامت خمسة ردود

طيب الحين المشكله تدري وش هي

اني استخدم احد الـ Edit ليطلع فيه الناتج

واخذ الناتج منه واستخدمه بعمليه ثانيه بنفس الوقت

كيف اقدر اسويه؟؟

ما اقدر احط فيه قيمه ولا بيتلخبط كل شيء

تحياتي

#10

اكتب البتاع كذا :

procedure TForm1.Button1Click(Sender: TObject);
var
  a, b, c, d, e, f, g: Real;
begin
  a := StrTofloat(Edit1.text);
  b := StrTofloat(Edit2.text);
  c := StrTofloat(Edit3.text);
  //-----------
  d := a * 0.35;
  e := a * b;
  f := e / d;
  g := e / (c * 0.25);
  //-----------
  Label1.Caption := floattostr(d);
  Label2.Caption := floattostr(e);
  Label3.Caption := floattostr(f);
  Label4.Caption := floattostr(g);
end;

وعلمني وش يصير معاك

تم تعديل هذه المشاركة بواسطة source code في 9 أبريل 2007 في 08:49

#11
اقتباس
Label1.Caption := floattostr(d);

Label2.Caption := floattostr(e);

Label3.Caption := floattostr(f);

Label4.Caption := floattostr(g);

هذي وش فايدتها عشان افهم واقدر اعدلها؟

تعبتك معي ادرررري والله مليون شكر لك

#12

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

يا حبي لك يا HacSec

هذي Label ...يطلع لك الناتج فيها

حطيتها لك علشان تعرف ان ما فية داعي الى الـــ Edit لأني شفتك تعرف المتغيرات d,e,f,g من الـــ Edit وانت ما تحتاج هالكلام

المهم الأن عندك مشكلة في الكود ولا لا ؟

#13

بأجربه وارجع فديت راسك هههههههههههههههههههه

اجل هكر هاه على كذا بأرسله لأيميلي عشان يحميه هههههههههههه

مشكووووور يالغالي

#14

ميــــــــــــــــه ميــــــــــــــــــــه

الله يعطيك الـف عافيه ماقصرت والله

عاد تدري بأطلعك على سر البرنامج

واحد قال لي سو لي البرنامج واعطيك 10 الاف ريال

هو في امانة الرياض ههههههههههههههههههههه

النص بالنص الحين

تحياتي

#15

هههههههههههههه يا ويلك من الله ... عشرة الاف يا مجرم على هالشغلة البسيطة

شوف اذا ما تبي الله يعاقبك حول الفلوس كلها لي .. : )

شغلة النص بالنص هذي ما تمشي معي

.

.

.

.

.

الأكيد الله يرزقك .. وتستاهل اكثر

#16

هههههههههههههه يا ويلك من الله ... عشرة الاف يا مجرم على هالشغلة البسيطة

شوف اذ%

#17

يمنع الـ personal chat خارج النطاق العلمي (h)

HacSec:

عند كتابتك للكود ضع متغيرات لها معنى حتى تستطيع- ويستطيع غيرك- قراءة الكود بسهولة لاحقاً ..

كما ذكر لك الأخ sourceً تأكد من وجود المدخلات (الرقمية) في الـ Edits .إستخدم try ... except .

"First they ignore you, then they laugh at you, then they attack you, then you win"

===

اقتباس

حُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا

هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا

الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا

القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ

لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ

البردوني "أبو تمام وعروبة اليوم" 1971

===

اقتباس
عبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــم

و تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم

ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم

أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟

ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا

البردوني "نحن و الحاكمون "

#18

source code

والله هم الي قالوا ماقلت شيء كان بسوي نفسي فاهم واسويها ببلاش قالوا بنعطيك

والرازق الله ههههههههه

اللللف مليوون شكر

cipher

انت تعقدها وهي بسيطه

هو سأل وانا جاوبت مافيها شيء ههههههههههههههههه << قلبها

وبالنسبه للكود

والله العظيم انه صحيح والصوره خير دليل ومافيه اي لف او دوران

لي ملاحظه عليك لا تنسخ الكود لحاله تأكد انك حاط الاشكال في الفورم بنفس ترتيبي

لوووول

واذا كنت تقصد اكواد source code

بس يبغالك تعدلها هي ماتنم بأي صله لأكوادي بس الفكره نفسها

تحياتي

#19

cipher

سم طال عمرك .. انت تأمر آمر .. ومن الأن No more personal chat .. : )

HacSec

العمدة cipher يقول اي شي على كيفة ... انتبة تزعلة او ترد علية رد مش ولا بد ... هذا استاذنا ومن مؤسسين المنتدى

وجرب اللي قال لك : try ... except

.

#20

طفشنيييييي

الطريقه نجحت ولكن المشكله الحين

d := a * 0.35;

يعطي الناتج خطأ

ما ياخذ الرقم الي في الـ القيمه a

بالطريقه الصحيحه

مع العلم ان القيمه A تستخدم في عمليه ثانيه

ومع ذلك يطلع الناتج خطأ

وحاولت اغير الرقم إلى

(100 / 35) * a

وبعد ماجاء

ما ادري ليش

شكلي بأعطيهم 10 الاف واقول فكوني هههههههههههه

تم تعديل هذه المشاركة بواسطة HacSec في 11 أبريل 2007 في 16:33

#21

ممكن احد يعطيني مثال على كيفيك استخدام التقارير

للطباعه باستخدام الطابعه

من edit و labl

انا استخدم دلفي 2006

على حسب ماقريت ان التقارير

فيها بأستخدام rave

قرأت ملف help في دلفي

ولكن مايشرحها زين

لازم مثال والشرح بالعربي عشان افهم

وبعد عندي مشكله صغيره

ان الـ edit اكبرها ومايصير فيها الا سطر واحد

حاول ماقدر لي اسبوع اقلب فيها

ومشكورين

تم تعديل هذه المشاركة بواسطة HacSec في 16 أبريل 2007 في 13:34

#22

ولا رد وله تقريباً اسبوع :unsure:

#23

يمكنك استخدام RishEdit من اجل الطباعة بدون تقارير

بالتعليمة RishEDit1.Print

اما في التقارير كويك ريبورت ومن اجل طباعة اكثر من سطر يمكنك استخدام Qrmimo

ممكن يكون في خطأ في اسم العنصر لانني لا املك نسخة ديلفي في هذا الحاسب واليوم مساء اضع الكود الصحيح

#24

يعطيك العافيه عزيزي

انتظرك

تحياتي

هذا الموضوع مغلق.

مواضيع مشابهة