دروس من البدايه الى برامج الهاكرز

الدرس الأربعون

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

ونحن نعرف أن قاعدة البيانات التي نعمل بها من ثلاث حقول وهي:

tell : رقم الهاتف

name : الإسم

adr : العنوان

والجدول DBGrid1 يتكون من

أعمدة Column وتختصر Col

صفوف Row

والأن سوف نطبع كل عمود وصف عن طريق حلقة التكرار و كائن الطباعة Printer Object

ضع الكود التالي في قسم التصريحات العامة General

Private Sub PrintFont(sFontName As String, _
nFontSize As Integer, _
bFontBold As Boolean, _
bFontItalic As Boolean, _
bFontUnderline As Boolean)
Printer.FontName = sFontName
Printer.FontSize = nFontSize
Printer.FontBold = bFontBold
Printer.FontItalic = bFontItalic
Printer.FontUnderline = bFontUnderline
End Sub

وهو تحديد خصائص الخط الذي سف يظهر على الطابعة.

بعد ذلك ضع الكود التالي : إتجاه الطباعة

Private Sub PrintText(fXCoordinate As Single, _
fYCoordinate As Single, _
sText As String)
Dim lStart As Long
Dim lIndex As Long

Printer.CurrentX = fXCoordinate
Printer.CurrentY = fYCoordinate

lStart = 1
lIndex = InStr(lStart, sText, vbCrLf)
Do While lIndex <> 0
Mid$(sText, lIndex, 2) = " "
lStart = lStart + lIndex
lIndex = InStr(lStart, sText, vbCrLf)
Loop
Printer.Print sText
End Sub

وبعد ذلك ضع الكود التالي :

Private Sub ResultsPrint()
Dim nLoopCtr As Integer
Dim sOutput(2) As String
Dim nScaleMode As Integer
nScaleMode = Printer.ScaleMode
Printer.ScaleMode = vbInches

'عليك أن تضيف بنفس الطريقة التالية حسب عدد الأعمدة
DBGrid1.Row = 0
DBGrid1.Col = 0
sOutput(0) = DBGrid1.Text
DBGrid1.Col = 1
sOutput(1) = DBGrid1.Text
DBGrid1.Col = 2
sOutput(2) = DBGrid1.Text


'نوع الخط الذي سوف يطبع
PrintFont "Arial", 16, True, True, False

'العنوان
PrintText 0, 0, "Print -  " & Me.Caption
PrintFont "Arial", 12, True, True, False
PrintText 0, 0.5, "Date: " & Date$
PrintFont "Arial", 12, True, False, True

'عليك أن تضيف مثل السطور التالية حسب عدد الأعمدة
PrintText 0, 1, sOutput(0)
PrintText 1, 1, sOutput(1)
PrintText 2, 1, sOutput(2)

PrintFont "Arial", 12, False, False, False

For nLoopCtr = 1 To mnCurrentRow - 1
DBGrid1.Row = nLoopCtr

'عليك أن تضيف مثل السطور التالية حسب عدد الأعمدة لديك
DBGrid1.Col = 0
sOutput(0) = DBGrid1.Text
DBGrid1.Col = 1
sOutput(1) = DBGrid1.Text
DBGrid1.Col = 2
sOutput(2) = DBGrid1.Text


'عليك أن تضيف مثل السطور التالية حسب عدد الأعمدة لديك
PrintText 0, 1 + (nLoopCtr * 0.25), sOutput(0)
PrintText 1, 1 + (nLoopCtr * 0.25), sOutput(1)
PrintText 2, 1 + (nLoopCtr * 0.25), sOutput(2)
Next nLoopCtr

Printer.EndDoc
Printer.ScaleMode = nScaleMode
End Sub

وفي زر الطباعة ضع الكود التالي:

Call ResultsPrint

الدرس الواحد والأربعون

لها عدة استخدامات

مثل :

for I = 1 to 5

الحدث

Next i

**********

ومثال اخر

*********

For I = 1 to 5 step 2

الحدث

Next i

حمل المرفق يوجد مثال

مجلد جديد.zip

الدرس الثاني والاربعون

درس if

if Condition then

الشرط1

Else

الشرط2 (أذا لم يتم تنفيذ الشرط 1)

End if

مثال:

ضع زر وتكست

ضع هذا الكود في الزر

If text1.text = "professionalVb99" then
Form2.show
Else
End
End if

الدرس الثالث والأربعون

Select case (object)

Case (state)

الشرط

End select

مثال ::::::::::::::::

Select Case (Text1.Text)
Case "p"
MsgBox "PROFESSIONALvB99"
End Select

الدرس الرابع والأربعون

لإنشاء قوائم

أذهب الى tools ثم الى menu Editor

كود إذا ظغط على الفورم يطلع قائمه انت امحددها هذا مثال كود

إختر الحدث Mouse Down لل Form1 وأكتب السطر التالي

If Button = 2 Then
Form1.PopupMenu menu1
End If

الدرس الخامس والأربعون

أهم اوامر SQL

والذي يعود بمجموعة من السجلات تحددها في نفس الامر. المثال التالي يعود بجميع السجلات الموجودة في الجدول "dalel" مع جميع الحقول التابعة له

SELECT * FROM [dalel]

تحديد حقول معينة لزيادة سرعة الاستعلام، فالمثال التالي يعود بجميع السجلات الموجودة في نفس الجدول مع تحديد حقل الاسم ورقم الهاتف فقط

SELECT [name], [tell] FROM [dalel]

واذا اردت استخلاص سجلات معينة توافق شرط معين استخدام العبارة WHERE، فالمثال التالي سيعود بجميع السجلات التي تكون فيها الإسم "مشرف":

SELECT * FROM [dalel] WHERE [name] ='مشرف'

فرز (ترتيب) السجلات بشكل تصاعدي باستخدام العبارة

ORDER BY

SELECT * FROM [dalel] ORDER BY [name]

الدرس السادس والأربعون

تستخدم لعرض البيانات

لربط MSFlexGrid في الداتا

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

اعمل الآتي:

اذهب الى خصائص MSFlexGrid

اذهب الى خاصيه datasource واضغط على السهم الذي يكون على يمين وضع داتا

*****************+++++++++++++++++++++++++++++++++************

الدرس السابع والأربعون

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

ملاحظه: يجب ان يكون الاكسس 97

لتحويل 2000 الى 97 اعمل الاتي

اضغط على قائمه tools ثم الى database Utilites ثم الى Convert database ثم الى to access 97

*******************************************************************************

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

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

تحديد المكان يكون في نفس المجلد الذي يكون به البرنامج

لبرطها اذهب الى خصائص الداتا ثم الى خاصيه databasename لتحديد مكان قواعد البيانات

recordSource لتحديد الجدول

ملف مراجعه لدروس التي من قبل

وهو مشروع المكتبه

لمكتبه.zip

مشكوررررررررررررررررررررررررررر وفقك الله

الصراحه تعلمت من دروس الكثيييييييييير

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

والله انك انت خطيررررررررررررررررررر

امطر دروس علينا يامحترف فيجوال بيسك

مشكوره

إن شاء الله سوف اغرقكم دروس

5 أدوات ليس مهمه جدا ولكن حلوه حمل

وسوف اعمل دروس عليها إن شاء الله

3DLabel.zip

ACTSKIN4.zip

Animation_Gif_Control.rar

Fullsysi.zip

Gif89.zip

pdf.zip

أخي الكريم أنا بحاجة للدروس والأدوات

لكن الروابط لاتعمل

ماذا أفعل أرجوك ساعدني

لوووووو سمحت :wacko: :wacko: :wacko: :wacko: :wacko: :wacko: :wacko: :blink: :blink: :blink: :blink: :blink: :blink: :blink: :blink:

السلام عليكم

إن شاء الله سوف اضع الادوات مرة اخرى ولكن انا ماني موجود في كمبيوتري انا في كمبيوتر اخر

ولك جزيل الشكر

سوف اكمل الدروس ولكن اخواني اخاف اتعبي يروح هدر ارجو من المشرفين ان يضعو الموضوع في المواضيع المهمه وإن شاء الله سوف املي الموضوع بالدروس

:( :( :( :( :( :( :(

أخي الكريم اللينكات لا تعمل

لينكات الدروس لا تعمل

ولينكات الاأدوات لا تعمل

يعني كل اللينكات لا تعمل

أرجوك ساعدني

:wacko: :blink: :( :wacko: :blink: :( :wacko: :angry: :blink: :(

vbvb الوصله تعمل بس المشكله في المضغوط الي عندك كل الاعضاء شغاله عندهم

اصلح المضغوط الي عندك

Lالسلام عليكم

ماشاء الله الله أكبر

إيه الحلاوه دى ياعم PROFESSIONAL VB99

جزاك الله خيرا أنا عن نفسى تعلمت كتير من الدروس دى وربنا يجعله فى ميزان حسناتك إن شاء الله

وشكرا

مشكور اخوي الكريم على الدرس و الجهد ولكن

*********************************************

رسالة المنتدى

عفوا , تم إيجاد خطأ إذا كنت غير متأكد من إستخدام الخاصية أو أنك لا تعلم سبب حدوث هذا الخطأ الرجاء الرجوع لملفات المساعدة

الخطأ هو:

عفوا بعض الملفات المطلوبة غير موجودة حاليا ,إذا كنت تريد قراءة الموضوع فمن المحتمل قد تم حذفه أو نقله لمنتدى آخر. الرجاء الرجوع للخلف ومعاودة المحاولة

*************************************

لايمكن تحميل اي ملف مرفق

الحمد الله هذا عضو أخر يعاني نفس مشكلتي

لا يمكن التحميــــــــــــــــــــــــــــــــــــــــــــــــل

جزاكم الله خيرا سا عدونا

الحمد الله هذا عضو أخر يعاني نفس مشكلتي

لا يمكن التحميــــــــــــــــــــــــــــــــــــــــــــــــل

جزاكم الله خيرا سا عدونا

:wacko: :wacko: :wacko: :wacko:

شباب انا آسف

شكلي انا مااعرف احط الملفات في WinZip ولكن سوف احاول واحاول حتى اعرف

والذي يريد يكلمني واي يشتكي من ملفاتي يرسلي رساله بالمنتدى لكي لا يغلق الموضوع

//////////********* أرجوا الاهتمام من المشرفين**************/////////////////////******

/////////////////////// موضوعي------------------------------------------------------

/////////////////////////وضعت مشاريع ووضعت دروس--------------------------------

////////////////////////// واوعدكم بان اضع اكثر من 20 مشروع و اكثر من 12 درس

وكلما انشأت درس سوف اضعه-----------------------------------------------------

------------------- طلب للمشرفين ارجوا ان تثبتو موضوعي -----------------------

***************** ممكن********************************ممكن**********

**********************ممكن***********************ممكن***************

**************************ممكن*************ممكن*********************

******************************ممكن*****ممكن*************************

**********************************ممكن******************************

حضرة الأخ professional VB99

أشكرك على دروسك التي للآن لم أتمكن من تنزيلها

المشكلة ليست في الملفات نفسها لأننا لم نتمكن أصلاً من تحميلها حتى يتسنى لنا فتحها

لهذا لا تقلق ولا تلق باللوم على نفسك.

تظهر لي نفس الرسالة التي تظهر للعضوين vbvb999 و support وهي كالتالي:

-----------------------------------------------------------------------------------------------

رسالة المنتدى

عفوا , تم إيجاد خطأ إذا كنت غير متأكد من إستخدام الخاصية أو أنك لا تعلم سبب حدوث هذا الخطأ الرجاء الرجوع لملفات المساعدة

الخطأ هو:

عفوا بعض الملفات المطلوبة غير موجودة حاليا ,إذا كنت تريد قراءة الموضوع فمن المحتمل قد تم حذفه أو نقله لمنتدى آخر. الرجاء الرجوع للخلف ومعاودة المحاولة

-----------------------------------------------------------------------------------------------

وهذه المشكلة حدثت معي أيضاً في مشاركات أخرى حاولت بتحميل ملفات منها

لا أعرف ما سبب هذه الرسالة هل هناك عيب ما في المتصفح خاصتي؟ أم ما هو السبب؟

الرجاء من المشرفين مساعدتنا بهذا الخصوص لأنه ليست هذه المشاركة الوحيدة التي تحصل لي هذه المشكلة فيها.

لماذا التجاهل من المشرفين

اخي العزيز .. ولا درس اتحمل معاي .. واحصل على رسالة الخطأ التي حصل عليها كل عضو ..

وكما ابدو استغرابي من تمكن بنت البرمجة من تحميل الدروس ..