السلام عليكم ورحمة الله ويركاته
بـسم الله نـبدا ..!
المصفوفة هي قيم مخزنة في البرنامج يتم الإضافة إليها وعرضها.
التصريح عن المتغير يتم كمايلي:
1 - إما في الحدث
Dim a, b As Integer
a و b متحولات عددية
2- في قسم التصريحات General:
'تعريف متحول عددي
Dim no1 As Integer
'تعريف مصفوفة عددية سعتها 10 عناصر
Dim list(10) As Integer
'تعريف مصفوفة مؤلفة من 10 عناصر عرض و10 إرتفاع أي 100 عنصر
Dim matrix(10, 10) As Integer
'تعريف متغير نصي
Dim name1 As String
'تعريف متغير نصي بطول 50 حرف
Dim name1 As String * 50
'تعريف مصفوفة نصية تتكون من 10 عناصر
Dim list1(10) As String
'تعريف مصفوفة نصية تتألف من 10 عناصر بطول 50 حرف
Dim list1(10) As String * 50
'تعريف متغير للقيم نعم ولا
Dim a As Boolean
.....
التصريح في وحدة نمطية Module:
'تعريف متغير عددي لكافة نوافذ البرنامج
Global no1 As Integer
'تعريف عدة متغيرات في مجموعة واحدة
Type user
user_no As String * 70
user_name As String * 30
user_mark As Integer
End Type
...
الأن نأتي إلى كيفية إستخدام المتغيرات
طريقة الإضافة إلى المتغير هي
مثلاً لو صرحنا عن متحول عددي a نكتب كما يلي:
بـسم الله نـبدا ..!
المصفوفة هي قيم مخزنة في البرنامج يتم الإضافة إليها وعرضها.
التصريح عن المتغير يتم كمايلي:
1 - إما في الحدث
Dim a, b As Integer
a و b متحولات عددية
2- في قسم التصريحات General:
'تعريف متحول عددي
Dim no1 As Integer
'تعريف مصفوفة عددية سعتها 10 عناصر
Dim list(10) As Integer
'تعريف مصفوفة مؤلفة من 10 عناصر عرض و10 إرتفاع أي 100 عنصر
Dim matrix(10, 10) As Integer
'تعريف متغير نصي
Dim name1 As String
'تعريف متغير نصي بطول 50 حرف
Dim name1 As String * 50
'تعريف مصفوفة نصية تتكون من 10 عناصر
Dim list1(10) As String
'تعريف مصفوفة نصية تتألف من 10 عناصر بطول 50 حرف
Dim list1(10) As String * 50
'تعريف متغير للقيم نعم ولا
Dim a As Boolean
.....
التصريح في وحدة نمطية Module:
'تعريف متغير عددي لكافة نوافذ البرنامج
Global no1 As Integer
'تعريف عدة متغيرات في مجموعة واحدة
Type user
user_no As String * 70
user_name As String * 30
user_mark As Integer
End Type
...
الأن نأتي إلى كيفية إستخدام المتغيرات
طريقة الإضافة إلى المتغير هي
مثلاً لو صرحنا عن متحول عددي a نكتب كما يلي:
كود:
a=30كود:
let a=30كود:
let a=2*3 let a=3+2 ...الخ
كود:
print a
كود:
Text1=a
والأن سوف نعمل مثال بسيط للمتحولات ألة حاسبة:
اضـف مـآ يـلي للفـورم ...!
1. 3 مـن Text
2. 4 مـن Command
3. 3 مـن Label
كـمـآ يـلـي ..!
...
اكـتـب مـآ يـلي فـي قـسم General ...!
كود:
Dim a, b As Integer
ثـم ضـع فـي Command1 (جمـع)...!
كود:
On Error Resume Next a = Text1.Text b = Text2.Text Text3.Text = a + b
ضـع فـي Command2 (طـرح)..!
كود:
On Error Resume Next a = Text1.Text b = Text2.Text Text3.Text = a - b
ضـع فـي Command3 (ضـرب)..!
كود:
On Error Resume Next a = Text1.Text b = Text2.Text Text3.Text = a * b
ضـع فـي Command4 (قـسـمة)...!
كود:
On Error Resume Next a = Text1.Text b = Text2.Text Text3.Text = a / b
لآحظو الكودات الي فـي ازرار الاوامر .. كلهـآ متـشـآبـهـة ...بـس التـغـيـير كـآن فـي العـمـلية الرياضيـة (+ - * / )..
بـعد هـيك ...
اضـغط على F5 فـي الكـيبورد ...!
تحــيـآتــي لــكــم ..!
للامانه , الموضوع منقول
