برنامج اهم 30 سؤال باللغه الانجليزيه مترجمين عربي انجليزي وانجليزي عربي

اذهب الى الأسفل

برنامج اهم 30 سؤال باللغه الانجليزيه مترجمين عربي انجليزي وانجليزي عربي Empty برنامج اهم 30 سؤال باللغه الانجليزيه مترجمين عربي انجليزي وانجليزي عربي

مُساهمة  ali في 4/4/2019, 1:08 pm

برنامج اهم 30 سؤال باللغه الانجليزيه مترجمين عربي انجليزي وانجليزي عربي
The most important 30 questions in English

English and Arabic
منقول
برنامج اهم 30 سؤال باللغه الانجليزيه مترجمين عربي انجليزي وانجليزي عربي
الميزة الجديدة في البرنامج أنه عربي انجليزي وانجليزي عربي

من انجازي قمت برمجته بدلفي  10.2 Delphi 10.2
وهي النسخة المجانية  التي توزعها
Emparcadero


ترجم الاسئلة كل من الاخوين

خليل الجنابي
و
Dares Almazhani

ولقد طلبت منهما ان يوافقا لي على ان اقوم بانجاز برنامج بدلفي
فوافقا مشكورين
وهما شركائي في البرنامج وبما ان البرنامج مجاني فهما شركائي في الاجر ان شاء الله تعالى
اتمنى ان يكون هذا  العمل خالصا الله وفي سبيل الله


ماذا يعمل البرنامج ؟

البرنامج يطرح سؤال بللغة الانجليزية
ويطرح 5 ترجمات للسؤال باللغة العربية وتكون من بينهم ترجمة الصحيحة للسؤال

و كذلك البرنامج يطرح سؤال باللغة العربية  
ويطرح 5 ترجمات للسؤال  بللغة الانجليزية وتكون من بينهم ترجمة الصحيحة للسؤال

فاذا وفقت في اختيار ترجمة الصحيحة للسؤال  تظهر رسالة تخبرك بان  ترجمة الصحيحة

من الناحية البرمجية
البرنامج عبارة عن 1 Form و Label 1 و 1 RadioGroup و 1  BitBtn
في Label يعرض سؤال بللغة الانجليزية
وفي RadioGroup يعرض 5 ترجمات للسؤال باللغة العربية
و BitBtn للخروج من البرنامج.

English

The most important 30 questions in English
Of my own, I programmed it in Delphi 10.2
It is the free version distributed by
Emparcadero

The questions were translated by both brothers
خليل الجنابي
and
Dares Almazhani
I asked them to agree with me that I would complete my program
So they agreed
They are my partners in the program and since the program is free, they are my partners in the reward, God willing
I hope that this work will be pure and in the name of Allah

What does the program do?

The program poses a question in English
And subtracts 5 translations of the question in Arabic, including the correct translation of the question
If you succeed in choosing the correct translation of the question, a message will appear telling you that the translation is correct

and The program poses a question in Arabic
And subtracts 5 translations of the question in English, including the correct translation of the question
If you succeed in choosing the correct translation of the question, a message will appear telling you that the translation is correct


In terms of software
The program is 1 Form, 1 Label, 1 RadioGroup, and 1 BitBtn
The Label displays a question in English
RadioGroup offers 5 translations of the question in Arabic
And BitBtn out of the program



المشروع كامل بدلفي يجب ان يكون دلفي 10.2 طوكيو مثبت عندك



The project is complete
البرنامج كامل بدلفي
English
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

الصور
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

Executable file
الملف البتنفيذي
prjEnglish
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

الملف التنفيذي يستطيع اي مستخدم ان يشغله

رابط تحميل
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
-

The project is complete
البرنامج كامل بدلفي
English

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

ali
مبرمج مجتهد

عدد المساهمات : 873
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

برنامج اهم 30 سؤال باللغه الانجليزيه مترجمين عربي انجليزي وانجليزي عربي Empty رد: برنامج اهم 30 سؤال باللغه الانجليزيه مترجمين عربي انجليزي وانجليزي عربي

مُساهمة  ali في 4/4/2019, 1:11 pm


الوحدة untEnglish

untEnglish.pas
--------------

الكود:


unit untEnglish;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,
  Vcl.Buttons, UEnglish, Vcl.ExtCtrls;

type
  TfrmEnglish = class(TForm)
    RadioGroup1: TRadioGroup;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
  private
    procedure ChargeGrop(ae: string);
  end;

var
  frmEnglish: TfrmEnglish;
  English: TEnglish;

implementation

{$R *.dfm}

procedure TfrmEnglish.ChargeGrop;
var
 tab1: tabl;
begin
 with RadioGroup1 do
 begin
  English.randomies(ae,tab1);
  Items.Strings[ 0 ] := tab1[2];
  Items.Strings[ 1 ] := tab1[3];
  Items.Strings[ 2 ] := tab1[4];
  Items.Strings[ 3 ] := tab1[5];
  Items.Strings[ 4 ] := tab1[6];
  Label1.Caption := tab1[1];
 end;
end;

procedure TfrmEnglish.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Application.Terminate;
end;

procedure TfrmEnglish.FormCreate(Sender: TObject);
begin
 Caption := 'The most important 30 questions in English';
 frmEnglish.BiDiMode := bdLeftToRight;
 RadioGroup1.Caption := Caption;
 Label1.BiDiMode := bdLeftToRight;
 Label1.Left := 21;
 Label1.Top := 17;
 Label1.Width := 453;
 Label1.Height := 14;
 Label1.Alignment := taRightJustify;
 Label1.Font.Charset := ARABIC_CHARSET;
 English:= TEnglish.create;
 ChargeGrop('ens');
end;

procedure TfrmEnglish.FormDestroy(Sender: TObject);
begin
 English.Free;
end;

procedure TfrmEnglish.RadioButton1Click(Sender: TObject);
begin
 Caption := 'The most important 30 questions in English';
 RadioGroup1.Caption := caption;
 frmEnglish.BiDiMode := bdLeftToRight;
 RadioGroup1.BiDiMode := bdLeftToRight;
 Label1.Alignment := taRightJustify;
 Label1.Font.Charset := ARABIC_CHARSET;
 ChargeGrop('ens');
end;

procedure TfrmEnglish.RadioButton2Click(Sender: TObject);
begin
caption := 'اهم 30 سؤال باللغه الانجليزيه مترجمين:';
 RadioGroup1.Caption := Caption;
 frmEnglish.BiDiMode := bdRightToLeft;
 RadioGroup1.BiDiMode := bdRightToLeft;
 Label1.Alignment := taLeftJustify;
 Label1.Font.Charset := ARABIC_CHARSET;
 ChargeGrop('ars');
end;

procedure TfrmEnglish.RadioGroup1Click(Sender: TObject);
begin
 if English.getword = RadioGroup1.ItemIndex then
  showmessage('  '+RadioGroup1.Items.Strings[ English.getword ]+
  '  '+#13#10+'  '+Label1.Caption+'  ');
 ChargeGrop('no');
 RadioGroup1.ItemIndex := -1;
end;

end.


_________________
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

ali
مبرمج مجتهد

عدد المساهمات : 873
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

برنامج اهم 30 سؤال باللغه الانجليزيه مترجمين عربي انجليزي وانجليزي عربي Empty رد: برنامج اهم 30 سؤال باللغه الانجليزيه مترجمين عربي انجليزي وانجليزي عربي

مُساهمة  ali في 4/4/2019, 1:12 pm


المشروع
prjEnglish

الكود:


program prjEnglish;

uses
  Vcl.Forms,
  untEnglish in 'untEnglish.pas' {frmEnglish},
  UEnglish in 'UEnglish.pas',
  Vcl.Themes,
  Vcl.Styles;

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  TStyleManager.TrySetStyle('Windows10 Blue');
  Application.CreateForm(TfrmEnglish, frmEnglish);
  Application.Run;
end.


_________________
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

ali
مبرمج مجتهد

عدد المساهمات : 873
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

برنامج اهم 30 سؤال باللغه الانجليزيه مترجمين عربي انجليزي وانجليزي عربي Empty رد: برنامج اهم 30 سؤال باللغه الانجليزيه مترجمين عربي انجليزي وانجليزي عربي

مُساهمة  ali في 4/4/2019, 1:25 pm


الوحدة UEnglish

UEnglish.pas
----------------

الكود:


    unit UEnglish;

interface

const
  CMax = 35;
  CEnglish: array [0..CMax] of string =
  ('How are you?',
  'How old are you?',
  'What is your name?',
  'Where are you from?',
  'What are you doing ?',
  'What do you do ? = what is your job ?',
  'When are you coming ?',
  'What is going on here ?= what is happening',
  'What time do you get up ?',
  'What time do you go to work?',
  'How do you go to work ?',
  'Do you speak English?',
  'Can you help me ?',
  'What do you say?',
  'Do you know how to drive a car ?',
  'Do you have a car ?',
  'What day is it today ?',
  'What month is it ?',
  'What time is it ?',
  'What are you proud of ?',
  'What are you afraid of ?',
  'Do you belong to any club ?',
  'What do you ask for when you go to a cafe ?',
  'What do you hope to do in the future ?',
  'what kind of music do you like ?',
  'can I borrow your pen ?',
  'how do you feel today ?',
  'why you are coming late?',
  'Can you lend me 100 $ ?',
  'Are you married ?',
  'what o''clok is it ?',
  'how is the weather now ?',
  'how is health now ?',
  'when did you come ?',
  'has he come to-day ?',
  'when will he come back ?');

  CArabic: array [0..CMax] of string = (
//  اهم 30 سؤال باللغه الانجليزيه مترجمين:
  'كيف حالك؟',
  'كم عمرك؟',
  'ما هو اسمك؟',
  'من أين أنت؟',
  'ماذا تفعل؟',
  'ماذا تفعل؟ = ما هي وظيفتك؟',
  'عندما تدخلان؟',
  'ما الذي يجري هنا؟ = ما يحدث',
  'ما هو وقت استيقاظك؟',
  'ما هو وقت ذهابك إلى العمل؟',
  'كيف يمكنك أن تذهب إلى العمل؟',
  'هل تتكلم الانجليزية؟',
  'هل يمكنك مساعدتي؟',
  'ماذا تقول؟',
  'هل تعرف كيفية قيادة السيارة؟' ,
  'هل لديك سيارة؟' ,
  'أي يوم هو عليه اليوم؟' ,
  'ما الشهر هو؟',
  'ما هو الوقت؟',
  'ما أنت فخور؟',
  'ما أنت خائف؟',
  'هل تنتمي إلى أي نادي؟',
  'ماذا كنت تسأل عن عندما تذهب إلى مقهى؟',
  'ماذا نأمل أن تفعل في المستقبل؟',
  'أي نوع من الموسيقى تحب؟',
  'هل أستطيع اقتراض قلمك؟',
  'كيف تشعر اليوم؟',
  'لماذا أنت قادم في وقت متأخر؟',
  'هلا أقرضتني 100 دولار؟',
  'هل أنت متزوج؟',
  'كم الساعة ؟',
  'كيف حال الجو الآن ؟',
  'كيف صحتك الآن ؟',
  'متى جئت ؟',
  'هل جاء اليوم ؟',
  'متى يرجع ؟'
  );

type
  tabl = array[1..6] of string;
  vArEn =  array[0..CMax] of string;
  TEnglish = class
  private
  fintI: word;
  public
    constructor create;
    procedure randomies(aes: string; var vEnAr:tabl);
    function getword: word;
  end;

var
  vArEn1, vArEn2: vArEn;

implementation

{ TEnglish }

constructor TEnglish.create;
begin
  randomize;
end;

function TEnglish.getword: word;
begin
  result := fintI;
end;

procedure TEnglish.randomies;
type
  tab = array[0..4] of string;
var
  intI,i,j: word;
  Charg: string;
  tab1,tab2,tab3,tab4,tab5,tab6: tab;
begin
  if aes = 'ars' then
  for j := 0 to CMax do
  begin
  vArEn1[ j ] := CArabic[ j ];
  vArEn2[ j ] := CEnglish[ j ];
  end else if aes = 'ens' then
  for j := 0 to CMax do
  begin
  vArEn1[ j ] := CEnglish[ j ];
  vArEn2[ j ] := CArabic[ j ];
  end;

  intI := random(CMax - 5);
  vEnAr[1] := vArEn2[ intI ];
  Charg := vArEn1[ intI ];
  for i := 0 to 4 do
  begin
    if Charg = vArEn1[ i ] then tab1[ i ] := vArEn1[ 30 ]
    else tab1[ i ] := vArEn1[ i ];
    if Charg = vArEn1[ i + 5 ] then tab1[ i  ] := vArEn1[ 31 ]
    else tab2[ i ] := vArEn1[ i + 5 ];
    if Charg = vArEn1[ i + 10 ] then tab1[ i ] := vArEn1[ 32 ]
    else tab3[ i ] := vArEn1[ i + 10 ];
    if Charg = vArEn1[ i + 15 ] then tab1[ i ] := vArEn1[ 33 ]
    else tab4[ i ] := vArEn1[ i + 15 ];
    if Charg = vArEn1[ i + 20 ] then tab1[ i ] := vArEn1[ 34 ]
    else tab5[ i ] := vArEn1[ i + 20 ];
  end;
  tab6[ 0 ] := tab1[ random(5) ];
  tab6[ 1 ] := tab2[ random(5) ];
  tab6[ 2 ] := tab3[ random(5) ];
  tab6[ 3 ] := tab4[ random(5) ];
  tab6[ 4 ] := tab5[ random(5) ];
  for i := 0 to 4 do
  if tab6[ i ] = '' then
    tab6[ i ] := vArEn1[ CMax ];
  vEnAr[2] := tab6[ 0 ];
  vEnAr[3] := tab6[ 1 ];
  vEnAr[4] := tab6[ 2 ];
  vEnAr[5] := tab6[ 3 ];
  vEnAr[6] := tab6[ 4 ];
  case random( 4 )+1 of
  1: begin vEnAr[2] := charg; fintI := 0; end;
  2: begin vEnAr[3] := charg; fintI := 1; end;
  3: begin vEnAr[4] := charg; fintI := 2; end;
  4: begin vEnAr[5] := charg; fintI := 3; end;
  5: begin vEnAr[6] := charg; fintI := 4; end;
  end;

end;

end.


_________________
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

ali
مبرمج مجتهد

عدد المساهمات : 873
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة


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