مدونة علم البرمجة والحاسوب
من حقك ان تتعلم اكثر
‏إظهار الرسائل ذات التسميات دروس فيجوال بيسك 6 vb6. إظهار كافة الرسائل

كيفية عمل كلمة مرور لبرنامج في فيجوال بيسك 6 - visual basic 6 password protection

بسم الله الرحمن الرحيم
افتح vb6
اختر Standard EXE
بعدين روح ل PROJECT>ADD FORM>LOG IN DIALOG (في القائمة)
رح يصير عندك فورمين بالقائمة
اختر FRMLOGIN
بعدين نقرتين عالزر OK ورح يعرضلك:
If txtPassword = "password" Then
.......................الخ
استبدل كلمة password بين علامتي التنصيص بكلمة المرور اللي انت رايدها
مثل:
If txtPassword = "nedal" Then
بعدين بعد السطر:
Me.Hide
اكتب:form1.show
بعدين روح ع project>project1 properties (في القائمة)
رح تلاقي startup object
اختر منها frmlogin بعدين ok
وهلق جرب تشغل البرنامج
دخل username شو مكان
بس الباسوورد لازم تكون nedal
Read On

التعامل مع اداه التايمر - How to use time in vb6

أداة التوقيت Timer لن تحتاج إلى درس طويل لذلك نشرحها هنا بدرس بسيط أتمنى أن يفيد قليلاً

im_vb/timer.JPG تستخدم أداة التوقيت Timer لعمل حدث بعد وقت معين أو لتكرار الحدث طول التكرار

لتغيير وقت التايمر في خاصية Interval. أكتب القيمة باجزء من الثانية مثلاً لو أردت أن يعمل كل ثانية عليك كتابة 1000

لتعطيل التايمر هناك خاصية Enabled تتيح تعطيله وتشغيله

خذ هذا المثال البسيط : ساعة رقمية

إصنع فورم وأضف إليه Timer و Text

غير خاصية Interval إلى 500 أو أي قيمة تحت 1000

أنقر فوق التايمر نقرتين وأكتب السطر التالي
Text1=Time

شغل المثال سوف يظهر لك الوقت متغيراً في أداة النصوص Text


انتهى الدرس

وبالتوفيق
Read On

كتب لتعليم فيجوال بيسك - Visual basic 6 books

 

_______________


تفضلو هذي الكتب وللأمانه منقوله


__________________




تعلم أساسيات فيجوال بيسك 6


البرمجة وتحليل النظام


شيفرات الفجوال بيسك الكتاب الثاني والثالث


تعلم الفجوال بيسك في أسبوعين


صناديق الرسائل في الفجوال بيسك ومعناها


تعلم كيفية التعامل مع الWinSock


شيفرات الفجوال بيسك


دروس في الفجوال بيسك


سلسلة دروس قواعد البيانات في الفجوال بيسك 6


تعلم الكريستال ريبورت


مذكرة في الفجوال بيسك للمبتدئين


كتيب تعليم الفجوال بيسك


بنك الشيفرات البرمجية


طريق الإحتراف في الفجوال بيسك 6 - الجزء الأول


التعامل مع الحروف في الفجوال بيسك 6


كتابة أول برنامج لك في الفجوال بيسك


دروس في الفجوال بيسك 6


درسين متقدمين في الفجوال بيسك 6


شرح الأداة MsFlexGrid


ربط قواعد البيانات أكسس بالفجوال بيسك


تعلم الفجوال بيسك مع الصقر الجارح


تعلم الفجوال بيسك


الأداة DATACONTROL


برمجة قواعد البيانات


فجوال بيسك 6


التعامل مع وسائط التخزين


التعامل مع مسجل النظام


فجوال بيسك للجميع


برمجة الـ DirectX


فجوال بيسك 6 للمبتدئين


برمجة دوال الـ API
Read On

درس عمل enternet explorer - درس عمل متصفح انترنت

[ ٍِ آلسلآم عليكم ورحمة آلله وبركآته ٍِ]

بلآ مقدمآت بلآ كلآم فآضي

درس عمل متصفح Internet Explorer

للتحمـىـل من هنـآ
Read On

درس عمل enternet explorer - درس عمل متصفح انترنت

[ ٍِ آلسلآم عليكم ورحمة آلله وبركآته ٍِ]

بلآ مقدمآت بلآ كلآم فآضي

درس عمل متصفح Internet Explorer

للتحمـىـل من هنـآ
Read On

عمل برنامج Run مثل وندوز اكس بي

آخبآركمـ عسآكمـ يصحة وسلآمةْ ~..

اليومـ حـبيت آسويْ شـرحْ فديو لـعمل برنآمـجْ Run آو تـشغيلْ نـفسْ حـقْ ويندوزْ ~..

الشـرحْ بسييييطْ كـثيرْ ~..

~~

للتـحميلْ

http://www.4shared.com/file/106724765/6b96306a/Run.html

~~

المـوضووعْ آهدآء للكلْ
منقووووووول للفائدة
Read On

التعامل مع MessageBox خطوة بخطوة

اقدم لكم شرح التعامل مع MessageBox خطوة بخطوة


نبذه عنه
أنشاء صناديق الرسائل بأسهل الطرق وبشكل جميل مع عدة أمثلة جميلة

لتحميل

هنـا
Read On

برنامج يفحص البورتات المفتوحه - port scanner

اقدم لكم االاكواد المستخدمة في صنع برنامج لفحص البورتات فيا شباب انا ما عندي فيجوال بيسك لو كان عندي لجربت الاكواد وعملت شرح
فارجوو من كل واحد عندو فيجوال بيسيك يجرب يعمل برنامج لفحص البورتات ويعمل شرح
فانا هساعده واحطله الاكواد الامستخدمة
ما تحتاج هو:
2 Text boxes ( Text1,Text2 )
1 ListBox ( List1 )
3 Command Buttons ( Command1, Command2, Command3 )
1 Timer ( Timer1 )
1 Winsock Component ( Winsock1 )


Read On

برنامج يفحص البورتات المفتوحه - port scanner

اقدم لكم االاكواد المستخدمة في صنع برنامج لفحص البورتات فيا شباب انا ما عندي فيجوال بيسك لو كان عندي لجربت الاكواد وعملت شرح
فارجوو من كل واحد عندو فيجوال بيسيك يجرب يعمل برنامج لفحص البورتات ويعمل شرح
فانا هساعده واحطله الاكواد الامستخدمة
ما تحتاج هو:
2 Text boxes ( Text1,Text2 )
1 ListBox ( List1 )
3 Command Buttons ( Command1, Command2, Command3 )
1 Timer ( Timer1 )
1 Winsock Component ( Winsock1 )


Read On

الخصائص في Visual Basic

لكل اداة عدة خصائص ولكل اداة عدة احداث

والخصائص هي التي تتحكم بشكل الاداة ومميزاتها من تنسيقها على الشاشة او اظهارها او اخفائها

تحديد اسم فريد للاداة name

لون الخلفية backcolor

سمك اطار النافذة borderstyle

عنوان الاداة caption

عنوان الاداة text

مايظهر في اعلى كل نافذة في اقصى اليمن للتحكم بالنافذة controlbox

لتمكين الاداة enabled

الخط font

اللون الامامي forecolor

الارتفاع height
الرمز icon
موقع الاداة من اليسار left

تستخدم في البرامج متعددة النوافذ mdichild

مؤشر الفارة mousepointer
الصورة picture

مفيدة جدا في البرامج العربية لتحويل القوائم من اليسار الى اليمين righttoleft

موقع الركن العلوي من الاداة top

اخفاء الاداة visible

العرض width

حالة النافذة من حيث الحجم windowstate

جعل الاداة شفافة backstyle

حذف الاطار المحيط بالاداة borderstyle

اسم قاعدة البيانات databasename

seek اذا استخدمنا البحث في قاعدة البيانات بالامر table يجب ان توضع في حالة recordset

تحديد الجدول من قاعدة البيانات recordsource

ربط اداة النص بحقل معين من جدول معين datafield

ربط اداة النص بجدول معين من قاعدة البيانات datasource

القيمة value

الحد الاعلى max

الحد الادنى min

التغيير الصغير smallchange

التغيير الكبير largechange

الفترة الزمنية المراد تنفيذ حدث المؤقت بعد مرورها interval

التعليق الذي يظهر فوق الاداة عند ابقاء الفارة علية لمدة قصيرة tooltiptext

على زر معين tab توقيف التنقل بزر tabstop

ترتيب التنقل بين الادوات tabindex
Read On

الادوات في فيجوال بيسك 6 - vb6 tools

الادوات في Visual Basic

مربع رسم

لإظهار الصور أو كوعاء لادوات الاخرى

مربع التسمية

يظهر نص غير قابل للتعديل

مربع النص

يظهر نص قابل للتعديل

إطار

وعاء لمجموعة من الأدوات

زر أمر

لتنفيذ أمر معين عند النقر عليه

مربع اختيار

لاختيار اكثر من عنصر

زر اختيار

لاختيار عنصر

مربع تحرير و سرد

للاختيار من قائمة

مربع سرد

للاختيار من قائمة

زر التمريرشريط تمرير أفقي

يسمح باختيار قيمة بناءً على موضع

زر التمريرشريط تمري رأسي

يسمح باختيار قيمة بناءً على موضع

معين مؤقت

القيام باوامر معين بعد فترة

محركات الأقراص

لاختيار محرك قرص معين A,C,D

دليل

يتيح اختيار أحد المجلدات الفرعية

ملفات

لاختيار أحد الملفات

شكل

لرسم شكل هندسي

خط

لرسم خط

صورة

لإدراج صورة

قواعد البيانات

لربط قاعدة بيانات بالبرنامج
Read On

الادوات في فيجوال بيسك 6 - vb6 tools

الادوات في Visual Basic

مربع رسم

لإظهار الصور أو كوعاء لادوات الاخرى

مربع التسمية

يظهر نص غير قابل للتعديل

مربع النص

يظهر نص قابل للتعديل

إطار

وعاء لمجموعة من الأدوات

زر أمر

لتنفيذ أمر معين عند النقر عليه

مربع اختيار

لاختيار اكثر من عنصر

زر اختيار

لاختيار عنصر

مربع تحرير و سرد

للاختيار من قائمة

مربع سرد

للاختيار من قائمة

زر التمريرشريط تمرير أفقي

يسمح باختيار قيمة بناءً على موضع

زر التمريرشريط تمري رأسي

يسمح باختيار قيمة بناءً على موضع

معين مؤقت

القيام باوامر معين بعد فترة

محركات الأقراص

لاختيار محرك قرص معين A,C,D

دليل

يتيح اختيار أحد المجلدات الفرعية

ملفات

لاختيار أحد الملفات

شكل

لرسم شكل هندسي

خط

لرسم خط

صورة

لإدراج صورة

قواعد البيانات

لربط قاعدة بيانات بالبرنامج
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

من انا ؟