كيف تقوم بصنع برنامج يعطيك النسبة بالـ %

كيف تقوم بصنع برنامج يعطيك النسبة بالـ % - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : دروس دلفي للمبتدئين (https://delphi4arab.net/forum/forumdisplay.php?fid=13)
+--- الموضوع : كيف تقوم بصنع برنامج يعطيك النسبة بالـ % (/showthread.php?tid=4320)

كيف تقوم بصنع برنامج يعطيك النسبة بالـ % - Ali -Al-Dujaily - 02-07-2012

السلام عليكم

كيفية صناعة برنامج يعطيك نسبة معينة انت تدخلها بالمئة %
1_تحتاج الى 3 عناصر Edit و عنصر Button
اضغط على عنصر Button واكتب الكود التالي :

كود :
var
 a:real;
  b:real;
  c:real;
begin
If (Edit1.Text = '') Or (Edit2.Text = '') Then
Messagedlg('Please Enter Numbers',mterror,[mbok],0)
else
Try
a:=strtofloat(edit1.Text );
b:=strtofloat(edit2.Text );
c:=100/b;
Edit3.Text :=  floattostr(a*c) + '%';
except
Messagedlg('Please Enter Numbers',mterror,[mbok],0);
end;
end;

صورة :

كود :
http://a5.sphotos.ak.fbcdn.net/hphotos-ak-ash3/179499_264148650354049_950457177_n.jpg