انت هنا الان : شبكة جامعة بابل > موقع الكلية > نظام التعليم الالكتروني > مشاهدة المحاضرة

دالة صندوق الأدخال

تقوم دالة صندوق الأدخال بأدخال القيم الى التطبيقات في مرحلة التنفيذ

 حيث ان  inputbox  هي عبارة عن مربع حوار يتم من خلالة التحاور مع  المستخدم  لأدخال بياناته . أما الصيغة المبسطه لهذه الدالة فهي :

Inputbox ( message , title )

 حيث ان :

Message الرسالة التي تظهر في الصندوق . حيث توضع بين علامتي اقتباس ويمكن وضعها ضمن متغير حرفي ونعوض هذا المتغير في مكان message في الدالة أعلاه .

Title وهو عنوان صندوق الرسالة

  وعند التنفيذ سيظهر صندوق الأدخال وبداخلة زري ( ok , cancel  ) واللذين يظهران تلقائيا عند استخدام صندوق الأدخال .

ويتم إدخال القيمة في المستطيل الذي يظهر فيه مؤشر الكتابة بعدها نضغط على المفتاح enter  من

لوحة المفاتيح أو نضغط على الخيار ok

ملاحظة :- عند إدخال قيمة رقمية عن طريق صندوق الإدخال يجب تعريفها في بداية البرنامج عن طريق جملة التعريف ( Dim )

مثال (1) :-    اكتب برنامج لإدخال 30 درجة واختيار أي من هذه الدرجات هي العليا وأي منها هي الدنيا ؟

الحل :-

PRIVATE  SUB CMDM_CLICK ( )

DIM A(1 TO 30 ) AS SINGLE

FOR I= 1 TO 30

A( I ) = INPUTBOX ( " ENTER THE DEGREE" , I )

NEXT I

MAX = A(1)

FOR I=2 TO 30

IF A(I) > MAX THEN

MAX = A ( I )

END IF

NEXT I

TXTMAX.TEXT = MAX

MIN = A(1)

FOR I=2 TO 30

IF A(I) < MIN THEN

MIN= A ( I )

END IF

NEXT I

TXTMIN.TEXT = MIN

END SUB

مثال (2) أكتب برنامج يقوم بادخال أبعاد جدار من الطابوق ومن ثم يقوم بحساب حجم الجدار وعدد الطابوق المستخدم في نفس الجدار , علما إن أبعاد الطابوقة مع مونة الأسمنت ( 12 * 8 * 24 ) سم ؟

الحل :

PRIVATE  SUB CMDVN_CLICK ( )

DIM L AS SINGLE

DIM H AS SINGLE

DIM W AS SINGLE

L=INPUTBOX("ENTER THE VALUE OF L ", "L=") 

H=INPUTBOX("ENTER THE VALUE OF H ", "H=") 

W=INPUTBOX("ENTER THE VALUE OF W ", "W=")

V=L * W * H

N= V/( 0.24 *0.08 *0.12)

TXTV.TEXT=V

TXTN.TEXT=N

END SUB