منتدى هواة البرامج
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

برمجة وبرامج


أهلا وسهلا بك زائرنا الكريم, أنت لم تقم بتسجيل الدخول بعد! يشرفنا أن تقوم بالدخول أو التسجيل إذا رغبت بالمشاركة في المنتدى

العربية في برنامج على أجهزة الأندرويد باستعمال الدلفي

اذهب الى الأسفل  رسالة [صفحة 1 من اصل 1]

Foxtromike

Foxtromike

البرنامج مكتوب بلغة البرمجة دلفي Delphi XE8 ويعمل على نظام الاندرويد، هذا البرنامج يعطينا طريقة لعرض مربعات الحوار لقراءة القيم وعرض النتائج باللغة العربية. عند استعمال الدلفي في حالته العادية للكتابة أوالعرض باللغة العربية في نظام الأندرويد فإننا لا نتحصل على النتائج المرجوة بحيث تكون الكلمات مقلوبة وحروفها مرتبة من اليسار إلى اليمين، الأمر.
العربية في برنامج على أجهزة الأندرويد باستعمال الدلفي Androidara01
الذي دفع ببعض محبي الدلفي إلى البحث عن حلول، منها إدخال أوامر الجافا التي تدعم العربية والاستعانة بها في الدلفي، ومنهم من لجأ إلى طرق أخرى تؤدي إلى النتائج المطلوبة. في هذا البرنامج استعملنا:
الأمر : InputQuery من الوحدة FMX.Dialogs وهو أمر يدعم اللغة العربية.
العنصر : TWebBrowser من الوحدة FMX.WebBrowser; واستعمال أوامر html.
عنصر : TMemo لتخزين أوامر html.
عنصر :TButton لأعطاء الأمر القيام بالعمليات والإجراءات المطلوبة.
وهذا نص الإجراء عن لمس الزر TButton على جهاز الاندرويد :


procedure TForm1.Button1Click(Sender: TObject);
var
 
R, U, I: Single;
begin

 
Memo1.Lines.Add('<p dir="rtl">بسم الله الرحمن الرحيم</p>');
 
InputQuery('حساب المقاومة', ['الجهد (ب الفولط)', 'شدة التيار بالأمبير:'],
   
['220', '5,0'],
   
procedure(const AResult: TModalResult; const AValues: array of string)
   
begin
     
// I et U CONNUS
     if TryStrToFloat(AValues[0], U) then
       
if TryStrToFloat(AValues[1], I) then
         
if I <> 0 then
         
begin
           
R := U / I;
           
ShowMessage('الجهد'+ #13#10 +Format('U= %15.4F (V)', [U]) + #13#10 +
           
'التيار' + #13#10 +
             
Format('I= %15.2f (A)', [I]) + #13#10 +   'المقاومة'+ #13#10 +
             
Format('R=U/I= %15.2f (ohm)', [R]));
             
Memo1.Lines.Add('<p dir="rtl"><b><u>الجهد</u></b></p>')  ;

           
Memo1.Lines.Add( Format('<p dir="ltr">U= %15.4F (V)</p>', [U]) +
           
'<p dir="rtl"><b><u>التيار</u></b></p>'+
             
Format('<p dir="ltr">I= %15.2f (A)</p>', [I]) +
             
'<p dir="rtl"><b><u>المقاومة</u></b></p>'+
             
Format('<p dir="ltr">R=U/I= %15.2f (ohm)</p>', [R]));
             
Memo1.Lines.Add('<img border="0" src="file:///'+  TPath.Combine(TPath.GetDocumentsPath, 'resitance.jpg')+'">');
           
Memo1.Lines.Add(' </body></html>');
           
WebBrowser1.LoadFromStrings(Memo1.Text, '');
         
end
   
end

   
);

end;



هذا البرنامج يقوم بحساب قيمة المقاومة من خلال معرفة قيمة الجهد وشدة التيار الكهربائي المار في هذه القماومة
العربية في برنامج على أجهزة الأندرويد باستعمال الدلفي Androidara02
يتم عرض النتيجة على المتصفح كما في الشكل :
العربية في برنامج على أجهزة الأندرويد باستعمال الدلفي Androidara03
يمكن تحميل هذا المشروع على الرابط التالي :
 تحميل

https://ta3bir.exprimetoi.net

الرجوع الى أعلى الصفحة  رسالة [صفحة 1 من اصل 1]

صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى