مدونة علم البرمجة والحاسوب
من حقك ان تتعلم اكثر

برنامج قرائة النصوص مع الكود المصدري

أقدم لكم اليوم البرنامج الناطق لقراءة النص المكتوب في الـText بالصوت تفضلوا الرابط :


http://www.multiupload.com/7MI7HJWIO9
Read On

الاحداث- Event في Visual Basic

الاحداث :
الاحدث هي التي يستجيب لها برنامج فيجول بيسيك ولولاوجودها لما استطعنا ان نحدد للبرنامج متى ينفذ الامر الذي نريدة انة ينفذة فمثل

load اي عند وقوع الحدث
form1 للنافذة
نفذ الاوامر الموجودة داخل الحدث


يقع بعد تحميل النافذة اي بعد وقوع حدث load
active

عند النقر المفرد على الفارة
click

عند النقر المزدوج على الفارة
dbclick

عند اخذ التركيز لاداة معينة
gotfocus

عند فقد التركيزلاداة معية
lostfocus

عند نزول الزر الى الاسفل
keydown

عند الضغط على اي زر من لوعة المفاتيح
keypress

عند طلوع زر لوعة المفاتيح الى الاعلى
keyup

عند تحميل النافذة الرئيسية
load

عند نزول زر الفارة الى الاسفل
mousedown

عن تحرك الفارة على اداة معينة
mousemove

عند طلوع زر الفارة الى الاعلى
mouseup

عند اعادة رسم النافذة
paint

عند تغير حجم النافذة
resize

عند الغاء تحميل النافذة
unload
Read On

اشرطـه التـمريـر HScroll, VScroll...!

السلام عليكم ورحمة الله وبركاته

كيفـكـم شـو اخـبـآركـم

اليوم سـوف نـتـحدث عـن اشرطة التـمريـر... HScroll, VScroll...

بـسم الله نـبـدآ ...!


أشرطة التمرير تستخدم لتغيير القيمة زيادة أو نقصان سوف نأخذ مثالاً لهذه الأداة أفضل من الشرح .

لهذه الأداة نوعان :

شريط تمرير أفقي : HScroll

شريط تمرير عمودي : VScroll



بعد تجهيز الفورم أضف إليه ثلاث أشرطة تمرير إما أفقي أو عمودي . لنفرض أنك وضعت أشرطة أفقية HScroll .

أسمائها على التتالي: HScroll3 HScroll2 HScroll1

ثم أضف إلى الفورم صندوق الصورة Picture1

ولاتنسى الأدوات Label والتي تعني النصوص التي بجانب كل شريط تمرير



أنقر فوق الفورم نقرتين وأضف الكود التالي في حدث Load :

HScroll1.Min = 0
HScroll1.Max = 250
HScroll1.SmallChange = 30
HScroll1.LargeChange = 50

HScroll2.Min = 0
HScroll2.Max = 250
HScroll2.SmallChange = 30
HScroll2.LargeChange = 50

HScroll3.Min = 0
HScroll3.Max = 250
HScroll3.SmallChange = 30
HScroll3.LargeChange = 50

...وتعني تحديد القيمة الصغرى والكبرى لأشرطة التمرير وتحديد سرعة التمرير...


أضف الكود التالي إلى شريط التمرير الأول:

Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)

الكود التالي للشريط الثاني:
Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)

الكود التالي للشريط الثالث :
Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)


...بعد تشغيل البرنامج جرب تبديل أشرطة التمرير ولاحظ الحدث...!

لـن اضـع صورة البرنـآمج ...

(ارجو وضـع صورة البرنامج الذي صـنـعتـه )


...
هذا الشرح يبين الخصائص الأساسية لأشرطة التمرير


اسم الأداة
Name

الفاعلية
Enabled

قيمة التبديل الكبرى
LargeChange

الحد الأقصى
Max

الحد الأدنى
Min

قيمة التبديل الصغرى
SmallChange

القيمة الإفتراضية
Value

البعد عن الحافة اليسرى
Left

مؤشر الماوس
MousePointer

الأيقونة التي تثمل مؤشر الماوس
MouseIcon

الإتجاه من اليمين لليسار
RightToLeft

ترتيب Tab
TabIndex

إيقاف الTab
TabStop

ما سيظهر عند وضع الماوس فوقها
ToolTipText

Tag
Tag

البعد عن حافة النافذة العليا
Top

مرئي أو مخفي
Visible

العرض
Width


وتـحـيـآتـي للـجمـيـع ..!
للامانه , الموضوع منقول 
Read On

التعـآمـل مـع الـ Label و Text Box .....!

السلام عليكم ورحمة الله وبركاته


كيـفـكم شـو اخـبـآركـم ..


الآن سـوف نـتـعـلم خـصـآئص و كـيـفة التـعـآمـل مـع Leble ,Text Box....!


بـسم الله نـبـدآ ...!


أولا التعامل مع الأداة Label


تستخدم الأداة Label لإظهار النصوص على النموذج . دون أن تتمكن من الكتابة فيها



لتغير النص الذي سيظهر بداخلها طبعاً عن طريق Caption

وهذا شرح للخصائص الأساسية Label

اسم الأداة
Name

محاذاة
Aignment

الظهور
Appearance

حجم تلقائي حسب النص
AutoSize

لون الخلفية
BackColor

نمط الإطار
BorderStyle

النص
Caption

الفاعلية
Enabled

نوع الخط
Font

لون الخط
ForColor

البعد عن الحافة اليسرى
Left

مؤشر الماوس
MousePointer

الأيقونة التي تثمل مؤشر الماوس
MouseIcon

الإتجاه من اليمين لليسار
RightToLeft

ترتيب Tab
TabIndex

إيقاف الTab
TabStop

ماسيظهر عند وضع الماوس فوقها
ToolTipText

Tag
Tag

النص
Caption

البعد عن حافة النافذة العليا
Top

مرئي أو مخفي
Visible

العرض
Width


التعامل مع Text Boxf

أداة TextBox تستخدم في إدخال النصوص إلي البرنامج كما يمكن إستخدامها في إخراج النصوص.

وهي لاتختلف كثيراً عن Label سوى أنها يمكن الكتابة فيها أما Label فلا يمكن



وهذا شرح للخصائص الأساسية لــ TextBox

اسم الأداة
Name

محاذاة
Aignment

الظهور
Appearance

حجم تلقائي حسب النص
AutoSize

لون الخلفية
BackColor

نمط الإطار
BorderStyle

التصحيح
CauseValidation

النص
Text

مقفول لا يمكن الكتابة بداخلها
Locked

الحد الأقصى
MaxLength

الفاعلية
Enabled

نوع الخط
Font

لون الخط
ForColor

البعد عن الحافة اليسرى
Left

مؤشر الماوس
MousePointer

الأيقونة التي تثمل مؤشر الماوس
MouseIcon

حرف كلمة المرور
PasswordChar

هل تستخدم لعدة أسطر أم لا
MultiLine

أشرطة التمرير
ScrollBars

الإتجاه من اليمين لليسار
RightToLeft

ترتيب Tab
TabIndex

إيقاف الTab
TabStop

ماسيظهر عند وضع الماوس فوقها
ToolTipText

Tag
Tag

النص
Caption

البعد عن حافة النافذة العليا
Top

مرئي أو مخفي
Visible

العرض
Width


إن التعامل مع هاتين الأداتين ليس صعباً عليك فهم صندوق الخصائص فتعرف كيف تتعامل مع كافة الأدوات


تحـيـآتــي لــكـم ..!
Read On

مـعرفـه المصفوفات والمتغيرات.

السلام عليكم ورحمة الله ويركاته


بـسم الله نـبدا ..!


المصفوفة هي قيم مخزنة في البرنامج يتم الإضافة إليها وعرضها.

التصريح عن المتغير يتم كمايلي:

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 وتكتب كما يلي:

كود:
let a=30
أو يمكن إسناد قيمة عملية رياضية بين عددين مثل:
كود:
let a=2*3
let a=3+2
...الخ
لكي تظهر قيمة المتحول على الفورم أكتب التعليمة Print ثم إسم المتحول
كود:
print a
ويمكنك عرض قيمة المتحول في صندوق نص Textbox
كود:
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 فـي الكـيبورد ...!

تحــيـآتــي لــكــم ..!
للامانه , الموضوع منقول
Read On

اشرطة التمرير HScroll, VScroll...

السلام عليكم ورحمة الله وبركاته

كيفـكـم شـو اخـبـآركـم

اليوم سـوف نـتـحدث عـن اشرطة التـمريـر... HScroll, VScroll...

بـسم الله نـبـدآ ...!


أشرطة التمرير تستخدم لتغيير القيمة زيادة أو نقصان سوف نأخذ مثالاً لهذه الأداة أفضل من الشرح .

لهذه الأداة نوعان :

شريط تمرير أفقي : HScroll

شريط تمرير عمودي : VScroll



بعد تجهيز الفورم أضف إليه ثلاث أشرطة تمرير إما أفقي أو عمودي . لنفرض أنك وضعت أشرطة أفقية HScroll .

أسمائها على التتالي: HScroll3 HScroll2 HScroll1

ثم أضف إلى الفورم صندوق الصورة Picture1

ولاتنسى الأدوات Label والتي تعني النصوص التي بجانب كل شريط تمرير



أنقر فوق الفورم نقرتين وأضف الكود التالي في حدث Load :

HScroll1.Min = 0
HScroll1.Max = 250
HScroll1.SmallChange = 30
HScroll1.LargeChange = 50

HScroll2.Min = 0
HScroll2.Max = 250
HScroll2.SmallChange = 30
HScroll2.LargeChange = 50

HScroll3.Min = 0
HScroll3.Max = 250
HScroll3.SmallChange = 30
HScroll3.LargeChange = 50

...وتعني تحديد القيمة الصغرى والكبرى لأشرطة التمرير وتحديد سرعة التمرير...


أضف الكود التالي إلى شريط التمرير الأول:

Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)

الكود التالي للشريط الثاني:
Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)

الكود التالي للشريط الثالث :
Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)


...بعد تشغيل البرنامج جرب تبديل أشرطة التمرير ولاحظ الحدث...!

لـن اضـع صورة البرنـآمج ...

(ارجو وضـع صورة البرنامج الذي صـنـعتـه )


...
هذا الشرح يبين الخصائص الأساسية لأشرطة التمرير


اسم الأداة
Name

الفاعلية
Enabled

قيمة التبديل الكبرى
LargeChange

الحد الأقصى
Max

الحد الأدنى
Min

قيمة التبديل الصغرى
SmallChange

القيمة الإفتراضية
Value

البعد عن الحافة اليسرى
Left

مؤشر الماوس
MousePointer

الأيقونة التي تثمل مؤشر الماوس
MouseIcon

الإتجاه من اليمين لليسار
RightToLeft

ترتيب Tab
TabIndex

إيقاف الTab
TabStop

ما سيظهر عند وضع الماوس فوقها
ToolTipText

Tag
Tag

البعد عن حافة النافذة العليا
Top

مرئي أو مخفي
Visible

العرض
Width


وتـحـيـآتـي للـجمـيـع ..!
للامانه , الموضوع منقول 
Read On
السلام عليكم ورحمة الله وبركاته

كيفـكـم شـو اخـبـآركـم

اليوم سـوف نـتـحدث عـن اشرطة التـمريـر... HScroll, VScroll...

بـسم الله نـبـدآ ...!


أشرطة التمرير تستخدم لتغيير القيمة زيادة أو نقصان سوف نأخذ مثالاً لهذه الأداة أفضل من الشرح .

لهذه الأداة نوعان :

شريط تمرير أفقي : HScroll

شريط تمرير عمودي : VScroll



بعد تجهيز الفورم أضف إليه ثلاث أشرطة تمرير إما أفقي أو عمودي . لنفرض أنك وضعت أشرطة أفقية HScroll .

أسمائها على التتالي: HScroll3 HScroll2 HScroll1

ثم أضف إلى الفورم صندوق الصورة Picture1

ولاتنسى الأدوات Label والتي تعني النصوص التي بجانب كل شريط تمرير



أنقر فوق الفورم نقرتين وأضف الكود التالي في حدث Load :

HScroll1.Min = 0
HScroll1.Max = 250
HScroll1.SmallChange = 30
HScroll1.LargeChange = 50

HScroll2.Min = 0
HScroll2.Max = 250
HScroll2.SmallChange = 30
HScroll2.LargeChange = 50

HScroll3.Min = 0
HScroll3.Max = 250
HScroll3.SmallChange = 30
HScroll3.LargeChange = 50

...وتعني تحديد القيمة الصغرى والكبرى لأشرطة التمرير وتحديد سرعة التمرير...


أضف الكود التالي إلى شريط التمرير الأول:
Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)

الكود التالي للشريط الثاني:
Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)

الكود التالي للشريط الثالث :
Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)


...بعد تشغيل البرنامج جرب تبديل أشرطة التمرير ولاحظ الحدث...!

لـن اضـع صورة البرنـآمج ...

(ارجو وضـع صورة البرنامج الذي صـنـعتـه )


...
هذا الشرح يبين الخصائص الأساسية لأشرطة التمرير


اسم الأداة
Name

الفاعلية
Enabled

قيمة التبديل الكبرى
LargeChange

الحد الأقصى
Max

الحد الأدنى
Min

قيمة التبديل الصغرى
SmallChange

القيمة الإفتراضية
Value

البعد عن الحافة اليسرى
Left

مؤشر الماوس
MousePointer

الأيقونة التي تثمل مؤشر الماوس
MouseIcon

الإتجاه من اليمين لليسار
RightToLeft

ترتيب Tab
TabIndex

إيقاف الTab
TabStop

ما سيظهر عند وضع الماوس فوقها
ToolTipText

Tag
Tag

البعد عن حافة النافذة العليا
Top

مرئي أو مخفي
Visible

العرض
Width


وتـحـيـآتـي للـجمـيـع ..!
 
 
للامانه , الموضوع منقول 
Read On

طريـقة عمـل setup لبرنامجك . وتفادي اخطاء نقص الملفات .. لبرنامجك !

هـذا البرنامج يقوم بتحزيم البرنامج .. ويضعها في ملف تنصـيب واحد

لتحميـل آلـبرنامـج

 


الشرح 



هذا البرنامج بعد التحميـل ...

الان يعطينا اختيار اللغـة



...




...





...






...





...





...








آلحمـدلله الان خلاص عمـلنـآ تثبيت البــرنـآمج ...


الان نبي نعمل سـت آب لبرنامجي ...

بــسم آلله ..






..



..



..



..



..



..



..



..



..



..



..



..



..



..



..



..

واخيـرا هذا هو السـت آب الخاص ببرنآمجك

 



للامانه , الموضوع منقول 

 
Read On

من انا ؟