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

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

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
http://www.mediafire.com/file/wfj5i4y4cac9wb3/English.zip/file

الصور
http://www.mediafire.com/file/dsf63l8aafy5ams/Image.rar/file

Executable file
الملف البتنفيذي
prjEnglish
http://www.mediafire.com/file/aattmwq2n3vnixb/prjEnglish1.rar/file

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

رابط تحميل
https://www.gulf-up.com/p07o236mp14b
-

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

https://www.gulf-up.com/vtymnay2eif1

///////////////////////////

المشروع كامل بدلفي

الوحدة 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.

//////////////////////////////////////

المشروع
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.

/////////////////////////
الوحدة 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.

بعض الروابط لا تعمل فلماذا لم تقومو بحذفها وشكرا
كهذا الرابط مثلا:
w w w . gulf - up . com / vtymnay2eif1