برنامج اهم 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 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 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 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.

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

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

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

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

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