دورة كاملة في الفيجوال بيسك 6 سارع بالدخول

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

لقد بدأت تعلم فيجوال بيسك منذ أربعة أيام لكن هستنى دورتكم " علشان أنا تايه "

و أتعلم بمفردي لايوجد أحد يساعدني أو أستشيره

لذلك أرجو متابعة الدورة

أرجوا منكم رجاءً شديداً

" " " " " أنا عايز البرنامج كاملاً " " " " "

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

و السلام ختام

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

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

أنا رايح أخلص الكتب إللي أنا بتعلم منها وجاي لكم هنا أراجع معاكم

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

لكن مشكلتي هي كمشكلة جميع بل معظم البشر هي الأكواد

أنا فاهم شوية منها الأكواد بتاعة المبتدئين دي :s If,IfElse,Until وإلخ إلخ ......

فياريت تكمل بقى يا كابتن رومانتيك بوي :( :angry: <_< أنا ضايفك على إيميلي :P

brokenarrow_vip@yahoooooooooooooooooooooo.com -waf

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

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

###############################################################

@@@@@@@@@@ :lol: شوية شغل هاكر من نفسي :lol: @@@@@@@@@@@

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

~~~~~~~~~~~~~~~~~~~~ هع ~~~~~~~~~~~~ أممممممممم ~~~~~~~~~~~~~~~

`````````` هخخخههععههع ``````````````````````````````````````````أفففف باي``````````````````````````

الدورو دي انتهت علشان مفيش حد متابع الموضوع ده غيري يا رومانتيك بوي

الجيش وعمايله بقى ونقول ايههههههههه لعمرو دياب :lol:

لتحميل دورة مكونة من سلسلة دروس إذهب إلى الرابط التالي

روحوا بسرعة ومش هتندموا دورة على شكل وحدات

-waf

يارب بقى كده تبقوا....

وتكونوا ....

وبعدين تروحوا ......

يعني .....

على طول

قولوا يارب

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,

لجعل الفورم يملأ الشاشة

me.top = 0
me.left = 0
me.height = screen.height
me.width = screen.width
--------------------
لتشغيل فلاش
 تشغل ملف فلاش الكود طبعا موجود 
الكود هو 
Private Sub Command1_Click()
Dim s As String
s = App.Path
If Mid(s, Len(s), 1) <> "\" Then s = s + "\"
ShockwaveFlash1.Movie = s + "a4.swf"
End Sub
----------------
إذا تغير مسار صورة متحركة مستخدمه 
Gif89a1.FileName = App.Path + "\picname.gif"
------------------------
الوقت

كل ما عليك هو وضع Timer وتغيير خاصية Interval = 1000 مثلاً للوقت وأكثر للتاريخ ، ومن ثم كتابة الأمر التالي 

Label1.Caption = DateTime

Date : 07/07/2003
Date$ : 07-07-2003
Now : 07/07/2003 04:37:21 ص
Time : 04:38:30 ص
Time$ : 16:38:46
----------
التاريخ الهجري
VBA.Calendar = vbCalHijri

التاريخ الميلادي
VBA.Calendar = vbCalGreg


ومن ثم كتابة أمر التاريخ بصورة طبيعية كما يلي 

Text1.Text = DateTime.Date

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

التحويل بين التاريخين الهجري والميلادي 


Public Function TransDate(thedate As Date, TypeTrans As Integer) As String
Dim TempDate As String, MD As Date, a As String
If TypeTrans = 1 Then
	VBA.Calendar = vbCalHijri
	TempDate = CStr(thedate)
	TransDate = TempDate
	VBA.Calendar = vbCalGreg
	Text1 = TransDate
Else
	a = CStr(thedate)
	VBA.Calendar = vbCalHijri
	MD = CDate(a)
	VBA.Calendar = vbCalGreg
	TransDate = CStr(Format(MD, "yyyy/mm/dd"))
	txtdateofenglish = TransDate
End If
End Function
ومن ثم في زر الأمر ( للتحويل من ميلادي إلى هجري )
Dim Date1
Date1 = TransDate(Text1, 1)
MsgBox Format(Date1, "DD/MM/YYYY")
وللتحويل من هجري إلى ميلادي :
Dim Date1
Date1 = TransDate(Text1, 2)
MsgBox Format(Date1, "DD/MM/YYYY")

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

معرفة اليوم من الأسبوع 

Dim Day_Now As Integer
Day_Now = Weekday(Date)
If Day_Now = 1 Then Label1 = "الأحد"
If Day_Now = 2 Then Label1 = "الاثنين"
If Day_Now = 3 Then Label1 = "الثلاثاء"
If Day_Now = 4 Then Label1 = "الأربعاء"
If Day_Now = 5 Then Label1 = "الخميس"
If Day_Now = 6 Then Label1 = "الجمعة"
If Day_Now = 7 Then Label1 = "السبت"

--------------------------------
عمل ساعة بسيطة بعقارب

Dim x, y, w, m
Private Sub Form_Load()
y = Me.Height / 2 'تحديد نقطة منتصف الفورم
x = Me.Width / 2 'تحديد نقطة منصف الفورم
w = 1700
End Sub
Private Sub Timer1_Timer()
Me.Cls 'مسح ما في الفورم
DrawWidth = 4: Me.Circle (x, y), w 'رسم دائرة قطرها 1700 هي قيمة w 
DrawWidth = 4: Me.Line (x, y)-(x + (900 * Sin(Hour(Now) * 3.1415 / 6)), y - (900 * Cos(Hour(Now) * 3.1415 / 6))), &HFFFF00 ' رسم عقرب الساعات
DrawWidth = 3: Me.Line (x, y)-(x + (1200 * Sin(Minute(Now) * 3.1415 / 30)), y - (1200 * Cos(Minute(Now) * 3.1415 / 30))), vbYellow 'رسم عقرب الدقائق
DrawWidth = 1: Me.Line (x, y)-(x + (1500 * Sin(Second(Now) * 3.1415 / 30)), y - (1500 * Cos(Second(Now) * 3.1415 / 30))), vbRed 'رسم عقرب الثواني
End Sub

----------------------------------------
معرفة الوقت المنقضي على تشغيل الجهاز 

Declare Function GetTickCount Lib "kernel32" () As Long

ومن ثم نكتب في زر الأمر :

Dim Minutes As Long
Dim Hours As Long
Dim My_Time As Long
My_Time = GetTickCount
Hours = ((lngCount / 1000) / 60) / 60
Minutes = ((lngCount / 1000) / 60) Mod 60
MsgBox Hours & ":" & Minutes
------------------------------
Calendar أداة
الكود
Calendar1.Value = DateTime.Calendar
.....................................

First Day : لتحديد اليوم الأول من الأسبوع .
* Day Length - Month Length : لتحديد طريقة عرض اليوم والشهر .
* Grid Call Efect : لاختيار طريقة من ثلاث طرق للعرض باختلاف التحديد .
ستجد أيضاً العديد من الخيارات لاظهارها واخفائها تحت بند Show .
ومن ثم في Font ستجد ثلاثة أنواع : خط ( اليوم من الأسبوع - الأرقام الخاصة بأيام الشهر - العنوان ) .
وفي Color ستجد لون ( الخلفية - اليوم من الأسبوع - الأيام من الشهر - شيء ما لا أعرفه - العنوان ) .
أما عن الأوامر التي يمكن استخدامها فمنها:
NextDay - NextMonth - NextWeek - NextYear ( اليوم - الأسبوع - الشهر - السنة ) التالية .
وعكسها : PreviousDay - PreviousMonth - PreviousWeek - PreviousYear

------------------------
عمل مؤقت ليدق جرس عند مدة معينة 

الامر ليس صعباً ، فكل ما في الأمر هو وضع Timer واختبار الوقت بالشكل التالي :
If Text1.Text = DateTime.Time Then Ring
حيث أن Text1 تحتوي على الوقت المطلوب ، و Ring هو حدث ليدق جرس أو لتظهر رسالة .
-------------------------------
: تغيير وقت الكومبيوتر 

اكتب الوقت الذي تريده في Text1 مثلاً ثم اكتب الأمر التالي فقط :
DateTime.Time = text1.Text

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

عمل ستوب ووتش 
... ضع أربع مربعات نص Text1,Text2,Text3,Text4 ثم ضع الأمر التالي في Timer بعد ضبط خاصية Intrval = 100 

Text4 = Text4 + 1
If Text4 = 9 Then
Text3 = Text3 + 1
Text4 = 0
End If
If Text3 = 59 Then
Text2 = Text2 + 1
Text3 = 0
End If
If Text2 = 59 Then
Text1 = Text1 + 1
Text2 = 0
End If

في زر ستوب Stopاكتب
Timer1.Enabled = False

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

اكتب في Genral
Dim My_Time
وضع Timer وغير interval إلى 1000 وخاصية Enabled = False .
ضع Text1 للثواني Text2 للدقائق Text3 للساعات ، وفي زر الأمر ضع الامر التالي :

My_Time = Text1 + ( Text2 * 60 ) + ( Text3 * 60 *60 )
Timer1.Enabled = True


وفي التايمر ضع الأمر التالي :

كود:
My_Time = My_Time - 1
If My Time <= 0 Then
 Timer1.Enabled = False
 Ring
End If


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

حيث Ring حدث تقوم أنت بوضعه حسبما تريد .
وعند زر Stop اكتب :

كود:
Timer1.Enabled = Falseالثالث عشر : اضافة يوم - شهر - تاريخ ( إلى تاريخ معين ) - وكذلك الوقت .

نستخدم في ذلك الدالة DateValue ويمكننا أن نكتب قبلها DateTime. أولا لا كما نريد ... ومثال لاضافة يوم .

كود:
MsgBox DateTime.DateValue(Now + 2)الرابع عشر : جمع التواريخ وطرحها واضافة أيام وشهور إليها :

الصيغة العامة لأمر اضافة أيام هي ما يلي :

كود:
Text1.Text = DateAdd ( "اضافة إلى","العدد","اضافة")اضافة ( إما D للايام أو M للشهور أو YYY للأيام
فمثلاً لاضافة يومين إلى التاريخ الحالي :

كود:
Text1.Text = DateAdd ("D",2,Now)وهكذا ...
أما لطرح تاريخين فمثلاً نكتب الأمر التالي

كود:
Msgbox DateDiff("M","12/11/2001","11/08/2003)حيث M ليخرج الناتج بالشهور كما سبق

 معرفة الشهر من السنة :

نستخدم الدالة MonthName بالشكل التالي

كود:
Msgbox MonthName(4)وسيكون الناتج حسب النظام المعتمد من Vba

-----------------------
لضبط حجم البرنامج حسب مقاس الشاشة

Private Sub Form_Resize()
	FSControlReSizer1.ResizeControls
End Sub

لا إله إلا الله

هو فيه ايه الصيام بيأثر أوي كده

خير اللهم إجعله خير

Private Sub Command1_Click()
Label1.Caption=Kill User
End Sub

أنا اسف أخي romantic_boy وصلت متأخر لأني لم أرى الدرس الا اليوم :unsure: وللأسف صور الدروس الاولى اتحذفت

لو ممكن حد يرفعها تاني

عاوز أقلك ان كلامك زي العسل (الكلام الصادر من القلب يصل الى القلب) وانت كلامك صادر من القلب تفهم الدرس من القراءة الاولى

ماشائ الله عليك أدعيلك من قلبي يا بطل

أخوك هشام من الجزائر

هو كده مفيش حد ناوي يكمل الدوره دي ....

اللي عنده حاجه ممكن يفيد بها اي حد خصوصا المبتدئين يكتبها

الى الاخ احمد شلبى خاصة والى الساده المشرفين عامة

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

بارك الله فيكم جميعا

الله يبارك فيك

1 بجد شرح بطريقة شيقة جدا

2 بجد دمك خفيف

3 يا ريت لا تغيب عنا

انا مش فاهم حاجه ممكن حد يفهمني فين الدرس يعني فين الشرح ؟ ممكن اصل انا فهمي علي قدي ممكن؟

تم الإنتهاء من عمل برنامج بالفيجوال بيسك 6 وربطتة بقاعدة بيانات آكسيس وعمل تقارير لة وتم عمل سيت أب ببرنامج

setup factory . وبعد تحميل البرنامج أشتغل على الجهاز ولكنة خال من البيانات أي لم تعمل قاعدة البيانات ولم تعمل التقارير نهائيا

أرجو مساعدة في هذه المشكلة وشكرا لكم

خساره

فينك يا مبرمجنا والله منتظرينك ترجع لنا بالف سلامه

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

جعـــــل الله ذلك في موازين حسناتك ونفع بك الاسلام والمسلمين فالى الامام

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

يعطيكم العافية

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

انا كتبت كود ومايشتغل ابي احد فاضي ويحب هالاشياء يساعدني لاني خلاص طفشت وشكلي بطنش الكلاس وبرسب :(

فبلييز اذا احد مستعد يساعدني يعطيني خبر مابقى الا يوم واسلم الواجب :(

شكررررررررررررا ادري يمكن مو في الموضوع بس ماادري وين اكتب اسفة :(

في الحقيقة العنوان ادهشني منذ ثلاثة ايام وياليت لم ادخل ولم اضف هذا العنوان دورة كاملة في الفيجول بيسك 6 سارع بالدخول يللهول وبالتالي ساذهب لاشتري كتابا عن الفيجول بيسك 2008 ووصلنا ثلاثة سنوات من الضياع اطالب الاخوة الكرام بحذف او اغلاق الموضوع لانه لايستحق ان يأخذ هذه المساحة من المنتدى حقيقة وانا اسف لصراحتي