العمليات الثنائيه

ان مش عارف بصراحة ما هو الثنائي

ولكن جرب هذا المثال لشرح الالة الحاسبة

(اله حاسبه بسيطة) 
ستتعلم من خلال المشروع 

-التعامل مع عناصر التحكم 

-التعرف على النموذج form 

-التسمية label 

- زر الأمر command button 

- جمله الشرط if 

في هذا المشروع سنقوم ببناء اله حاسبه بسيطة تسمح للمستخدم بتنفيذ العمليات الرياضية على 

عددين. عند تنفيذ المشروع تظهر الواجهة التالية: 


بحيث يقوم المستخدم بإدخال رقم في خانه العدد الأول ثم الثاني في الخانة الثانية ويجرى العمليات الرياضية عليهم (+ - / *\ mode) . 

لكي تبداء عمل أول مشروع افتح البرنامج . 

STARTALL PROGRAMESMICROSOFT VISUAL STUDIOVISUAL BASIC 

ستظهر لك هذه القائمة : 

اختار منها Standard-EXE 


سوف تظهر لك نافذة البرنامج بالشكل التالي: 



النافذة FORM 1 هي أساس البرنامج وتظهر ما بداخلها من أدوات و رسومات و نصوص . 

1- بداء بوضع 3 خانات نصوص TEXT BOX على النموذج بالضغط على الاداه TEXTBOX بزر الموس مرتين سنجدها في منتصف 

2- النموذج نقوم بتحديد حجمها المناسب و وضعها في المكان اللي يناسبك .هكذا (العدد الأول، العدد الثاني، الناتج) 

3- ننقر نقره واحده على كل أداه نلاحظ إن هناك في ايمن البرنامج نافذةProperties 

نقوم بتغير الخصائص لكل عنصر كما يلي: 

في البداية سوف يضع vb خصائص افتراضيه لكل أداه و نقوم بتغيرها على النحو التالي: 


Text3 text Text2 text Text1 text 
TEXT3 TEXT2 Text1 (Name) 
نفس الخصائص نفس الخصائص 2-CENTER alignment 
نفس الخصائص نفس الخصائص TIMES BOLD 12 font 
ازرق fore color 
text 



الخاصية NAME دائما نضع بها اسم سهل له معنى لكي لا يتعقد العمل عند كتابه التعاليم و الدوال. 

الخاصية ALIGNMENT تستخدم لمحاذاة النص و في مثالنا حددنا CENTER في الوسط. 

FORECOLOR لون الخط. 

- نقوم بوضع تسميه LABEL لكل مربع نصTEXT BOX و نحدد خصائص ال3 عناصر ألتسميه LABEL هكذا: 



LABEL3 LABEL2 LABEL1 
Label3 Label2 Label1 (Name) 
ابيض Back color 
الناتج العدد الثاني العدد الأول caption 
Times bold 12 font 







Back color لون الخلفية. 

Caption النص اللذى سوف يظهر داخل ألتسميه. 

إنشاء تسعه عناصر من النوع command button زر أمر واظبط الخصائص: 



Command 19 
Command1 (name) 
+ caption 
Times bold 12 font 



لاحظ للتسطير تحت حرف يتم سبقه بالمحرف& مثلا: E&XIT تظهر EXIT وهذا يعنى يمكن استخدام CTRL+X 

بدل النقر بالماوس. 

قبل كتابه التعليمات و الاجرائات لبد من معرفه إننا يمكن تغير خصائص الأدوات برمجيا اى اثناء التنفيذ هكذا: 

CONTROLNAME.PROPERTY=EXPRESSION 

LABEL1.CAPTION="1234" 

LABEL1.BACKCOLOR= 

TEXT1.TEXT= 

نريد عند الضغط على زر الجمع يقوم البرنامج بجمع ألقيمه الموجودة في العدد الأول والعدد الثاني وإظهار الناتج في مربع النص الثالث. 

TEXT3.TEXT=VAL(TEXT1.TEXT)+VAL(TEXT2.TEXT) 

و هذه ألتعليمه تعنى النص الذى سيظهر في TEXT3.TEXT يساوى حاصل جمع قيمه TEXT2.TEXT و TEXT1.TEXT . 


- وعلى زر الطرح TEXT3.TEXT=VAL(TEXT1.TEXT)-VAL(TEXT2.TEXT) 

الضرب * 

بالنسبة للقسمة سوف نضع شرط بسيط لاتملم عملية القسمه وهو التائكد من إن العدد الثاني لا يساوى الصفر فاذا كان يساوى الصفر تظهر 

عبارة error في text3.text شكل الاجراء زر القسمه : 

If Val(text2.text)=0 then 

Text3.text="error" 

Else 

Text3.text=Val(text1.text)/Val(text2.text) 

End if 


برمجه التعليمة ألشرطيه: 

تأخذ إشكال عديدة و من اهمها الشكل التالي: 

If condition then عباره condition هى عباره مقارنه ترجع اما true,false ( true تحقق الشرط) (false لم يتحقق). 

Statements statements في حاله تحقق الشرط (true) سينفذ vb ألتعليمه statement . 

Else لم يتحقق. 

Else statement تعليمه عدم تحقق الشرط. 

End if انهاء جمله الشرط 


- الزر clear سيقوم بمسح جميع الارقام نكتب بداخله (لكي نكتب تعليمه داخل اى عنصر يجب النقر المزدوج على العنصر) 

text3.text="" 
text2.text="" 
text1.text="" 

لاحظ إن "" ترمز الى اللاشىء. 


تعاليم البرنامج كامل . 
Private Sub Command1_Click() 
Text3.Text = Val(Text1.Text) + Val(Text2.Text) 
End Sub 

Private Sub Command2_Click() 
Text3.Text = Val(Text1.Text) - Val(Text2.Text) 
End Sub 

Private Sub Command3_Click() 
Text3.Text = Val(Text1.Text) * Val(Text2.Text) 
End Sub 

Private Sub Command4_Click() 
If Val(Text2.Text) = 0 Then 
Text3.Text = "ERROR" 
Else 
Text3.Text = Val(Text1.Text) / Val(Text2.Text) 
End If 
End Sub 

Private Sub Command5_Click() 
If Val(Text2.Text) = 0 Then 
Text3.Text = "ERROR" 
Else 
Text3.Text = Val(Text1.Text) \ Val(Text2.Text) 
End If 
End Sub 

Private Sub Command6_Click() 
If Val(Text2.Text) = 0 Then 
Text3.Text = "ERROR" 
Else 
Text3.Text = Val(Text1.Text) Mod Val(Text2.Text) 
End If 
End Sub 

Private Sub Command7_Click() 
Text3.Text = Val(Text1.Text) ^ Val(Text2.Text) 
End Sub 

Private Sub Command8_Click() 
Text3.Text = "" 
Text2.Text = "" 
Text1.Text = "" 

End Sub 

Private Sub Command9_Click() 
End 
End Sub