برنامج لعبة الارقام

[Dr-Neo]

برنامج لعبة الارقام
مطلوب عمل الاتي:
1- وضع 6 Labels على الـ Form.
2- وضع 2 Command Buttons.
3- نضع الاداة Image و نغيير خصائص :
• Strech ---< نجعلها True.
• Picture ---< نحدد الصورة:
C:\Program Files\Microsoft Visual Studio\Common\Graphics\Metafile\Business\coins
اكواد البرنامج:
تعريف المتغيرات العامة في الـ General:
'عدد المرات الكلية
Dim a As Integer
'عدد مرات الفوز
Dim b As Integer

كود الخاص بالـ Form1:
Private Sub Form_Load()
Image1.Visible = False
Randomize
End Sub

كود زر خروج ( Command2 ):
Private Sub Command2_Click()
End
End Sub

كود زر العب(Command1 (:
Private Sub Command1_Click()
Label1.Caption = Int(Rnd * 10)
Label2.Caption = Int(Rnd * 10)
Label3.Caption = Int(Rnd * 10)
a = a + 1
If (Label1.Caption = 7) Or (Label2.Caption = 7) Or (Label3.Caption = 7) Then
Image1.Visible = True
b = b + 1
Else
Image1.Visible = False
End If
Label4.Caption = a
Label5.Caption = b
Label6.Caption = Format(b / a, '00.00%')
End Sub

برنامج الكتابة باستخدام Textbox
مطلوب عمل الاتي:
1- وضع Textbox و مسح المكتوب في خاصية Text و تغيير خاصية MultiLine من False الي True.
2- يتم وضع الازرار الاتية:
• Command Button1 مكتوب عليه Copy.
• Command Button2 مكتوب عليه Paste.
• Command Button3 مكتوب عليه Cut.
• Command Button4 مكتوب عليه Delete.
• Command Button5 مكتوب عليه Exit.
3- يتم وضع 3 Checkbox كالاتي:
• Checkbox1 مكتوب عليه Bold.
• Checkbox2 مكتوب عليه Italic.
• Checkbox3 مكتوب عليه Underline.

اكواد البرنامج:
يتم الاعلان عن متغير Z لنخزن فيه القيم النسخ و القص ليحين استخدامها في حالة اللصق. ويكون ذلك في قسم الـ General ليستفاد منه كل ما يوجد على الـ Form من ادوات.
Dim z As String

كود Command1 ( Copy ):
Private Sub Command1_Click()
z = Text1.SelText
Text1.SetFocus
End Sub

كود Command2 ( Paste ):
Private Sub Command2_Click()
Text1.SelText = z
Text1.SetFocus
End Sub

كود Command3 ( Cut ):
Private Sub Command3_Click()
z = Text1.SelText
Text1.SelText = ''
Text1.SetFocus
End Sub
كود Command4 ( Delete ):
Private Sub Command4_Click()
Text1.SelText = ''
Text1.SetFocus
End Sub

كود Command5 ( Exit ):
Private Sub Command5_Click()
End
End Sub

كود Checkbox1 ( Bold ):
Private Sub Check1_Click()
Text1.FontBold = Not Text1.FontBold
End Sub

كود Checkbox2 ( Italic ):
Private Sub Check2_Click()
Text1.FontItalic = Not Text1.FontItalic
End Sub

كود Checkbox3 ( Underline ):
Private Sub Check3_Click()
If Text1.FontUnderline = False Then
Text1.FontUnderline = True
ElseIf Text1.FontUnderline = True Then
Text1.FontUnderline = False
End If
End Sub
برنامج الكتابة باستخدام Microsoft Rich Textbox Control 6.0
و فكرة هذا البرنامج هي معالجة مشكلة البرنامج السابق، حيث في حالة الضغط على Bold او Italic او Underline نجد ان جميع الكلمات يتم عليها تنفيذ اللاوامر السابقة. ولكن نحن نريد فقط تنفيذ تلك الاوامر على الكلمات التي سوف يتم تحديدها فقط و ليس جميع الكلمات.
مطلوب عمل الاتي:
1- وضع Rich Textbox وذلك كالاتي:
• Project ---< Components ---< و نختار Microsoft Rich Textbox Control 6.0.
• نغير الاسم البرمجي الى RText1 للتسهيل.
2- يتم وضع الازرار الاتية:
• Command Button1 مكتوب عليه Copy.
• Command Button2 مكتوب عليه Paste.
• Command Button3 مكتوب عليه Cut.
• Command Button4 مكتوب عليه Delete.
• Command Button5 مكتوب عليه Exit.
2- يتم وضع 3 Checkbox كالاتي:
• Checkbox1 مكتوب عليه Bold.
• Checkbox2 مكتوب عليه Italic.
• Checkbox3 مكتوب عليه Underline.

اكواد البرنامج:
يتم الاعلان عن متغير Z لنخزن فيه القيم النسخ و القص ليحين استخدامها في حالة اللصق. ويكون ذلك في قسم الـ General ليستفاد منه كل ما يوجد على الـ Form من ادوات.

Dim z As String
كود Command1 ( Copy ):
Private Sub Command1_Click()
z = RText1.SelText
RText1.SetFocus
End Sub

كود Command2 ( Paste ):
Private Sub Command2_Click()
RText1.SelText = z
RText1.SetFocus
End Sub

كود Command3 ( Cut ):
Private Sub Command3_Click()
z = RText1.SelText
RText1.SelText = ''
RText1.SetFocus
End Sub

كود Command4 ( Delete ):
Private Sub Command4_Click()
RText1.SelText = ''
RText1.SetFocus
End Sub

كود Command5 ( Exit ):
Private Sub Command5_Click()
End
End Sub
كود Checkbox1 ( Bold ):
Private Sub Check1_Click()
RText1.SelBold = Not RText1.SelBold
End Sub

كود Checkbox2 ( Italic ):
Private Sub Check2_Click()
RText1.SelItalic = Not RText1.SelItalic
End Sub

كود Checkbox3 ( Underline ):
Private Sub Check3_Click()
RText1.SelUnderline = Not RText1.SelUnderline
End Sub

مصفوفة الادوات Control Array
تتميز المصفوفات بالأتي:
1- توفر الكود للمبرمج.
2- توفر في استخدام الذاكرة للمستخدم User.
انواع المصفوفات:
1- مصفوفة الادوات Control Arrays مثل ادوات ( Labels – Command Buttons – Images (.
2- مصفوفة المتغيرات Variable arrays.

تمرين1
1- نفتح مشروع جديد و نضع على الـ Form الاتي:
2- Textbox1 و Textbox2 و Label.
3- Command Button و نقوم بعمل Copy له.
4- نقوم بعمل Paste على الـ Form.
5- تظهر رسالة تسأل عن اذا كنا نريد انشاء Control array او لا، نضغط Yes.
6- اكرر هذا العمل لاحصل على ازرار الجمع و الطرح و الضرب و القسمة.
ملاحظات:
1- نلاحظ ان كل عناصر المصفوفة تحمل نفس الاسم البرمحي و هو Command1 و الاختلاف فقط في الـ Index. فمثلاً العنصر الاول ( 0 ) و الثاني ( 1 ) و الثالث ( 2 ) و هكذا.... .
2- عند الدخول لبرمجة المصفوفة يتم الدخول في أي عنصر من عناصر المصفوفة ( Command1 ).
3- نلاحظ ظهور العبارة الاتية في اي عنصر من عناصر المصفوفة:
Private Sub Command1_Click(Index As Integer)

الكود:
Private Sub Command1_Click(Index As Integer)
Dim a As Integer, b As Integer, t As Integer
a = Text1
b = Text2
Select Case Index
Case 0
t = a + b
Case 1
t = a - b
Case 2
t = a * b
Case 3
t = a / b
End Select
Label1.Caption = t
End Sub

نمرين 2
1- نضع Label
2- Command Button و نقوم بعمل Copy له و نقوم بعمل Paste على الـ Form.
3- تظهر رسالة تسأل عن اذا كنا نريد انشاء Control array او لا، نضغط Yes.
4- اكرر هذا العمل لاحصل على ازرار ( اعزب – متزوج – متزوج و يعول – ارمل ).
الكود:
Private Sub Command1_Click(Index As Integer)
Dim a As String
Select Case Index
Case 0
a = 'اعزب'
Case 1
a = 'متزوج'
Case 2
a = 'متزوج و يعول'
Case 3
a = 'ارمل'
End Select
Label1.Caption = a
End Sub

[algerie]

لم أفهم شيء على الأقل بأي لغة برمجة تتحدث

[ALSOUF]

شكرا ...... البرمجة بواسطة الفيزيال بازيك 6 و هي محدودة بعض الشيء ...... كما ان طريقتك مفهومة بالنسبة للمبرمجين المحترفين فقط..........؟؟؟

[star99]

مشكووووووووووووور