|
منتدى البرمجة كل ما يتعلق بلغات البرمجة، فيجوال بيسيك , سي ++ , دلفي , أكسيس , جافا , هتمل... |
في حال وجود أي مواضيع أو ردود مُخالفة من قبل الأعضاء، يُرجى الإبلاغ عنها فورًا باستخدام أيقونة ( تقرير عن مشاركة سيئة )، و الموجودة أسفل كل مشاركة .
آخر المواضيع |
|
تعلم الحروف الهجائية الانجليزية من جهارك
|
أدوات الموضوع | انواع عرض الموضوع |
2015-12-19, 00:29 | رقم المشاركة : 1 | ||||
|
تعلم الحروف الهجائية الانجليزية من جهارك
بسم الله الرحمن الرحيم كود:
unit untClam; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons; type TForm1 = class(TForm) BitBtn1: TBitBtn; BitBtn2: TBitBtn; BitBtn3: TBitBtn; Label1: TLabel; procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private public end; function CalamALF(afb: String): String; // تمت ترجمة كل الواجهات بقاموس Google var Form1: TForm1; implementation {$R *.dfm} uses comobj, untClame, untClame1; function CalamALF(afb: String): String; var Calam: OleVariant; begin Calam := CreateOleObject('sapi.spvoice'); Calam.speak(afb); end; procedure TForm1.BitBtn1Click(Sender: TObject); begin Form2.Show; Form1.Hide; end; procedure TForm1.BitBtn2Click(Sender: TObject); begin Form3.Show; Form1.Hide; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin Application.Terminate; end; end.
|
||||
الكلمات الدلالية (Tags) |
الانجليزية, الحروف, الهجائية, تعلم, جهارك |
|
|
المشاركات المنشورة تعبر عن وجهة نظر صاحبها فقط، ولا تُعبّر بأي شكل من الأشكال عن وجهة نظر إدارة المنتدى
المنتدى غير مسؤول عن أي إتفاق تجاري بين الأعضاء... فعلى الجميع تحمّل المسؤولية
Powered by vBulletin .Copyright آ© 2018 vBulletin Solutions, Inc