برمجة وبرامج


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

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

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

إرسال موضوع جديد  إرسال مساهمة في موضوع

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

البرنامج مكتوب بلغة البرمجة دلفي Delphi XE8 ويعمل على نظام الاندرويد، هذا البرنامج يعطينا طريقة لعرض مربعات الحوار لقراءة القيم وعرض النتائج باللغة العربية. عند استعمال الدلفي في حالته العادية للكتابة أوالعرض باللغة العربية في نظام الأندرويد فإننا لا نتحصل على النتائج المرجوة بحيث تكون الكلمات مقلوبة وحروفها مرتبة من اليسار إلى اليمين، الأمر.

الذي دفع ببعض محبي الدلفي إلى البحث عن حلول، منها إدخال أوامر الجافا التي تدعم العربية والاستعانة بها في الدلفي، ومنهم من لجأ إلى طرق أخرى تؤدي إلى النتائج المطلوبة. في هذا البرنامج استعملنا:
الأمر : 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;



هذا البرنامج يقوم بحساب قيمة المقاومة من خلال معرفة قيمة الجهد وشدة التيار الكهربائي المار في هذه القماومة

يتم عرض النتيجة على المتصفح كما في الشكل :

يمكن تحميل هذا المشروع على الرابط التالي :
 تحميل

معاينة صفحة البيانات الشخصي للعضو http://ta3bir.exprimetoi.net

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

إرسال موضوع جديد  إرسال مساهمة في موضوع

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