إنشاء برنامج تحويل العملة
/- إدراج مكونات المشروع :
1- المكون panel : من اللوحة standard ندرج المكون
panel1.
* معالجة
الخصائص:
- ننشط المكون panel1 . -
نغير في الخاصية align إلى altop .
- نغير في الخاصية color إلى رمادي clgray . -
نغير في الخاصية caption إلى convertesseur
de vise .
- نغير في الخاصية font (نوع النص: arial black- حجم الخط: 14 – لون الخط: أبيض) .
- نغير في الخاصية font (نوع النص: arial black- حجم الخط: 14 – لون الخط: أبيض) .
2- المكون edit : ندرج المكونedit1 من اللوحة standard .
التحكم في الخصائص: نغير في الخاصية text إلى فراغ .
3- المكون label : ندرج ثلاثة (03) مكونات label (1،2،3) من اللوحة standard .
التحكم في الخصائص:
- label1 : نغير في
الخاصية caption إلى العملة
بالدينار . -
label2 : نغير في
الخاصية caption إلى العملة بالأجنبية
.
* نقوم بتحديد المكونين label1 و label2، نغير في
الخاصية font : (حجم
الخط: 12 – نمط الخط: gras ).
- label3 : نغير في
الخاصية font إلى: (نوع
الخط: arial black - حجم الخط: 16 )، و نغير في الخاصية caption إلى "0" قيمة إبتدائية
4- المكون combobox1 : يسمح لنا بإظهار مجموعة من الإختيارات (قائمة)، ندرج
المكون combobox من اللوحة standard .
* التحكم في
الخاصية:
- نغير في الخاصية items بالنقر على ...
- تظهر نافذة ندخل فيها الإختيارات كما يلي: دولار أمريكي – ريال سعودي –
أورو أوربي – جنيه بريطاني .
- ننقر على موافق (ok). -
نغير في الخاصية indexitem لكي يظهر أول عنوان في القائمة items .
* معالجة الأحداث في المكون combobox1:
حدث onclick :
- ننشط المكون combobox1 .
- ننقر
على evenement .
ملاحظة1: لما يحدث خطأ في
التنفيذ ننقر على شريط الإختيارات exécuter ثم ننقر على réinisialiser .
ملاحظة2: ترك مسافة قبل
العملة مثلاً: ' SAR'
* التعليمة
الشرطية case
of: إذا تكرر الشرط بحيث تتغير القيمة التي نجري عليها
عملية المقارنة مثل:
IF X := 0
THEN
INSTRUCTION 1 ;
IF X := 1
THEN
INSTRUCTION 2 ;
IF X := 2
THEN
INSTRUCTION 3 ;
في هذه الحالة نستعمل
التعليمة
OF (متغير) CASE
لا يوجد BEGIN
تعليمة 1 : قيمة 1
تعليمة 2: قيمة 2
END.
* معالجة الحدث onclick للمكون combobox1 بإستعمال
التعليمة case:
CASE
COMBOBOX1. ITEMINDEX OF
|
0 :
LABEL3.CAPTION := FLOATTOSTR (STRTOFLOAT (EDIT1.TEXT)*0.00102550)+’
USD’ ;
|
1 :
LABEL3.CAPTION := FLOATTOSTR (STRTOFLOAT (EDIT1.TEXT)*0.0384600)+’
SAR’ ;
|
2 :
LABEL3.CAPTION := FLOATTOSTR (STRTOFLOAT (EDIT1.TEXT)*0.00966267)+’
EUR’ ;
|
3 :
LABEL3.CAPTION := FLOATTOSTR (STRTOFLOAT (EDIT1.TEXT)*0.00684825)+’
GBP’ ;
|
كاتب الموضوع : khaleddz
تابعونا على
