الإعــلام الآلي والرياضيــات يشتمل على جميع مبادئ الإعلام الآلي والرياضيــات

إضافة رد
قديم 23-01-2009, 09:19 PM
  #1
achraf.mouni
مشرف قسم
الكمبيوتر وتطوير المواقع والانترنت
مشرف قسم
الرياضيات والإعلام الآلي
 الصورة الرمزية achraf.mouni
 
تاريخ التسجيل: 08-09-2008
الدولة: الجزائر
المشاركات: 2,439
achraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداع
Flash ترقيم الهاتف و التحكم بالموديم


الصلاة و السلام على أشرف المرسلين سيدنا محمد و على آله و صحبه أجمعين أما بعد

سنتعلم كيفية تثبيت مركب غير متوفر مع النسخة الأصلية للدالفي، أيضا كيفية الاتصال بالموديم MODEM لاستعماله للاتصالات الهاتفية.
أولا: في المثال المرفق، سنجد المركب DialerPlus الذي يتوفر على ملف .Pas
- ننسخ محتوى الملف و نلصقه في المسار التالي: C:\Program Files\Borland\Delphi5\Lib
أي في الملف المسمى Lib لمسار تثبيت الدالفي الخاص بك.
- بعدها نبدأ في تثبيت هذا المركب من Composant---Installer un composant


أنقر على Parcourir… بعها اختر اسم الوحدة Nom d’unité الذي هو DialerPlus.pas ثم ok
- ستظهر لك نافذة جديدة تعلمك أن dclusr.bpl سوف يتم انشائه و تثبيته، وافق على الامر بالضغط على Oui .
ستجد المركب في Semple


هكذا نكون قد انتهينا من تثبيت المركب و لنبدأ في برنامج الترقيم الهاتفي

أولا نظيف المركبات التالية Combobox,Edit,Button,MainMenu, Dialer
Valeur
Propriété
Contrôle
Numéroteur TEL
Caption
Feuille
Nom
Name
Combobox
False
Stored
ComboBox

Text
Edit
Numero
Name
Edit
Composer
Name
Button
&Composer
Caption
Button
dpCom2
ComPort
Dialer
dlFrech
Language
Dialer
ننقر على MainMenu مرتان و نظيف القائمة التالية
Checked
Nom
ِ Commande
False
Port
Principale
False
COM1
Secondaire
True
COM2
Secondaire
False
COM3
Secondaire
False
COM4
Secondaire
وضعنا True لـــــ COM2 لنجعله هو الأصل.
و الآن مع CODE SOOURCE
unit Unit1 ;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs ,
Menus, dialerPlus, StdCtrls, ExtCtrls ;
type
TForm1 = class(TForm )
Nom: TComboBox ;
Numero: TEdit ;
COMPOSER: TButton ;
Dialer1: TDialer ;
MainMenu1: TMainMenu ;
Port1: TMenuItem ;
COM11: TMenuItem ;
COM21: TMenuItem ;
COM31: TMenuItem ;
COM41: TMenuItem ;
Bevel1: TBevel ;
procedure COMPOSERClick(Sender: TObject );
procedure FormActivate(Sender: TObject );
procedure COM11Click(Sender: TObject );
procedure COM21Click(Sender: TObject );
procedure COM41Click(Sender: TObject );
// procedure COM31Click(Sender: TObject );
procedure NomClick(Sender: TObject );
procedure COM31Click(Sender: TObject );
private
{ Déclarations privées }
public
{ Déclarations publiques }
end ;
Var


Form1: TForm1 ;
F:textFile ;
Max,I:integer ;
NomTel, NumTel:array[1..100] of string ;
implementation
{$ R *.DFM }
procedure TForm1.COMPOSERClick(Sender: TObject );
var TempDialer:Tdialer ;
begin
Tempdialer:=Tdialer.Create(sel f );
With Tempdialer do


Begin
ComPort:=dpCom1 ;
Confirm:=true ;
DialCommand:='ATDT ';
Numbertodial:=Numero.text ;
Language:=dlfrench ;
execute ;
free
end ;
end ;
procedure TForm1.FormActivate(Sender: TObject );
begin


Dialer1.ComPort:=dpCOM2 ;
assignFile(F,'C:\Agend\Agend.t xt ');
reset(f );
i:=0 ;


Repeat
i:=i+1 ;
Readln(F,NomTel[i ]);


Readln(F,NumTel[i ]);
Nom.Items.Add(NomTel[i ]);


Until eof(f );
CloseFile(F );
Max:=i ;
Nom.Text:=NomTel[1 ];
Numero.Text:=NumTel[1 ];
end ;
procedure TForm1.COM11Click(Sender: TObject );
begin
COM11.Checked:=true ;
COM21.Checked:=false ;
COM31.Checked:=false ;
COM41.Checked:=false ;
Dialer1.ComPort:=dpCom1 ;
end ;
procedure TForm1.COM21Click(Sender: TObject );
begin
COM21.Checked:=true ;
COM11.Checked:=false ;
COM31.Checked:=false ;
COM41.Checked:=false ;
Dialer1.ComPort:=dpCom2 ;
end ;
procedure TForm1.COM31Click(Sender: TObject );
begin
COM31.Checked:=true
COM21.Checked:=false ;
COM41.Checked:=false ;
COM11.Checked:=false ;
Dialer1.ComPort:=dpCom3 ;
end ;
procedure TForm1.COM41Click(Sender: TObject );
begin
COM41.Checked:=true
COM21.Checked:=false ;
COM11.Checked:=false ;
COM41.Checked:=false ;
Dialer1.ComPort:=dpCom4 ;
end ;
procedure TForm1.NomClick(Sender: TObject );
begin
for i:=1 to Max Do
If NomTel[i]=Nom.Text Then
Numero.Text:=NumTel[i ];
end ;
end.
ملاحظة: يجب انشاء ملف كتابة fichier text يحمل اسم agand.txt و وضعه في المسار التالي:
'C:\Agend\Agend.txt
هكذا نكون قد أتممنا الموضوع، و وصلنا للتحميل


achraf.mouni غير متواجد حالياً  
رد مع اقتباس
قديم 23-01-2009, 11:53 PM
  #2
hamzos
 
تاريخ التسجيل: 23-01-2009
المشاركات: 6
hamzos عضو يستحق التميز
افتراضي

لم أفهم ما هذا أخي العزيز ؟
hamzos غير متواجد حالياً  
رد مع اقتباس
قديم 24-01-2009, 01:56 PM
  #3
Ssoft
مشرف قسم
الشهادات العلمية
مشرف منتدى
الدورات التعليمية المتخصصة
 الصورة الرمزية Ssoft
 
La spécialité: Informatique
اخرى ( جامعة عربية او اجنبية )
تاريخ التسجيل: 24-11-2008
الدولة: السوقر
المشاركات: 1,410
Ssoft عضو محترف الابداعSsoft عضو محترف الابداعSsoft عضو محترف الابداعSsoft عضو محترف الابداعSsoft عضو محترف الابداعSsoft عضو محترف الابداعSsoft عضو محترف الابداعSsoft عضو محترف الابداعSsoft عضو محترف الابداعSsoft عضو محترف الابداعSsoft عضو محترف الابداع
افتراضي

مشكـــــــــــــــــــــــــــ ـــوووووووور
__________________


▌║││║█║▌│║│█║▌█│║▌▌║│││  
11 0011 10101 10101 1100 11

Ssoft غير متواجد حالياً  
رد مع اقتباس
قديم 28-01-2009, 10:07 AM
  #4
achraf.mouni
مشرف قسم
الكمبيوتر وتطوير المواقع والانترنت
مشرف قسم
الرياضيات والإعلام الآلي
 الصورة الرمزية achraf.mouni
 
تاريخ التسجيل: 08-09-2008
الدولة: الجزائر
المشاركات: 2,439
achraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداع
افتراضي

جزاك الله خير الجزاء لمرورك
achraf.mouni غير متواجد حالياً  
رد مع اقتباس
إضافة رد

الكلمات الدلالية (Tags)
التحكم, الهاتف, بالموديم, ترقيم

أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
{موقع} كل شيئ عن الهاتف. assouma2510 دليل المواقع و الانترنت 4 20-08-2010 03:06 PM
بنت صغيرة ترد على الهاتف. يوسف. الضحك و الترفيه 4 26-03-2009 08:00 PM
خطر الموت في الهاتف amin23 منتدى عام 0 12-02-2009 09:02 PM
مشكل بالموديم فوري mt880 younes1989 قسم الإستفسارات و الطّلبات 2 29-01-2009 08:39 PM
الهاتف softgirl المنتدى الاسلامي العام 5 01-06-2008 08:50 AM


الساعة الآن 01:00 AM.