9:00 ص لاتخزن و 9:00pmتخزن!؟

مكتبة تحتوى على 50000 كتاب مجانى معظمها عن الكمبيوتر و البرمجة

#51 مايو 2005 في 01:56

أخي VB6-Rocket

أخي المبرمج أحمد

أشكركم على المساعدة

هذا الملف بالقاعدة ..

ارجو النظر فيه

ولكن ما اعرفه أخي VB6-Rocket انك تستخدم هذه العلامة # مع التاريخ

و' وهذه مع الوقت ..ولكني كتبت كودك ولم نصل للحل

فأرجو النظر فالملف المرفق

pm am.rar

<< CLICK TO START>>

post-41869-046528000%201305052277.jpg

ليس أن تجد حلا بل أن تجد الافضل

أن تصـــنع الخـيال هذا هوا الأفضل

#61 مايو 2005 في 02:09

لم أحمل الكود و لكنى فهمت مشكلتك

مشكلتك هى التحويل من الوقت بالعربى الى الوقت بالانجليزى أى من (ص م ) التى لا تقبل الا pm

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

تعطى للدالة الوقت بصورة نصية و ترجعلك الوقت بصورة تاريخ و اليك مثال

Dim The_Time As Date
Dim RecorTime As String

The_Time = TimeValue(List2.List(List2.ListIndex))
RecorTime = CStr(The_Time)


Set rs = cn.Execute("SELECT Sal_ID FROM Sales WHERE Sal_Time= ' " & RecorTime & " ' ")

هكذا سيتقبل الوقت

و ارجو التوفيق

1- لا خير في حسن الجسوم وطولها إن لم يزن حسن الجسوم عقول

2- لا تنظر إلى صغر الخطيئة .. ولكن انظر إلى عظم من عصيت

3- قد يجمع المال غير آكله . . ويأكل المال غير من جمعه

4- من وثق بالله أغناه ومن توكل عليه كفاه ومن خافه قلت مخافته ومن عرفه تمت معرفته

5- أن تضيء شمعة صغيرة خير لك من أن تنفق عمرك تلعن الظلام

6- لا يحزنك إنك فشلت مادمت تحاول الوقوف على قدميك من جديد

7- صديقك من يصارحك بأخطائك لا من يجملها ليكسب رضاءك

8 - الابتسامة كلمة طيبة بغير حروف

9- لا داعى للخوف من صوت الرصاص .. فالرصاصة التى تقتلك لن تسمع صوتها

10 -- يستطيع الناس أن يعيشوا بلا هواء بضع دقائق وبلا ماء أسبوعين وبلا

طعام حوالى شهرين وبلا أفكار سنوات لا حصر لها

من مواضيعى :

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

مكتبة تحتوى على 50000 كتاب مجانى معظمها عن الكمبيوتر و البرمجة

#71 مايو 2005 في 11:40

وقف البرنامج على نفس المشكلة في جملة الإستعلام

ما السبب برأيك..

<< CLICK TO START>>

post-41869-046528000%201305052277.jpg

ليس أن تجد حلا بل أن تجد الافضل

أن تصـــنع الخـيال هذا هوا الأفضل

#81 مايو 2005 في 13:20

لقد حللت المشكلة

واليك الكود

المشكلة انه ينبغى تحويل الوقت الى النظام الطويل حيث الساعة 4 عصرا = الساعة 16 و هكذا

و ايضا عند ادخال وقت الى قاعدة بيانات لابد ان يكون بين علامتى شباك ##

و ايضا طريقة تعريف ال record set أرجو اتباع طريقتى لأنها أفضل و أوضح و أريح فى التعديل

و اليك الكود

Dim The_Time As Date
Dim RecorTime As String

The_Time = TimeValue(List2.List(List2.ListIndex))
' نحويل الوقت الى وقت الجيش حيث الساعة 5 عصرا نكنب 17
' و الوقت بهذه الفورمات يتقبله الكمبيوتر
RecorTime = Format(The_Time, "HH:NN:SS")

Set rs = New ADODB.Recordset
' # # الوقت لا يدخل قاعدة البيانات الا مع علامات ال
sql = "SELECT Sal_ID FROM Sales WHERE Sal_Time = # " & RecorTime & " # "
' هذه الطريقة أفضل فى التعامل مع الركورد ست
rs.Open sql, cn, adOpenStatic, adLockOptimistic

' اظهار عدد السجلات التى وجدها
MsgBox rs.RecordCount

1- لا خير في حسن الجسوم وطولها إن لم يزن حسن الجسوم عقول

2- لا تنظر إلى صغر الخطيئة .. ولكن انظر إلى عظم من عصيت

3- قد يجمع المال غير آكله . . ويأكل المال غير من جمعه

4- من وثق بالله أغناه ومن توكل عليه كفاه ومن خافه قلت مخافته ومن عرفه تمت معرفته

5- أن تضيء شمعة صغيرة خير لك من أن تنفق عمرك تلعن الظلام

6- لا يحزنك إنك فشلت مادمت تحاول الوقوف على قدميك من جديد

7- صديقك من يصارحك بأخطائك لا من يجملها ليكسب رضاءك

8 - الابتسامة كلمة طيبة بغير حروف

9- لا داعى للخوف من صوت الرصاص .. فالرصاصة التى تقتلك لن تسمع صوتها

10 -- يستطيع الناس أن يعيشوا بلا هواء بضع دقائق وبلا ماء أسبوعين وبلا

طعام حوالى شهرين وبلا أفكار سنوات لا حصر لها

من مواضيعى :

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

مكتبة تحتوى على 50000 كتاب مجانى معظمها عن الكمبيوتر و البرمجة

#91 مايو 2005 في 16:35

يعطيك ألف مليون عافية وصحة وسعادة أخي VB6-Rocket

هذا يعني ان الجهاز يعامل تاريخ النظام الطويل والتاريخ العادي بشكل واحد

If TimeValue("16:28:16") = TimeValue("04:28:16 م") Then
MsgBox "Date is Same"
End If

Set rs = cn.Execute("SELECT Sal_ID FROM Sales WHERE Sal_Time = # " & Format(List2.List(List2.ListIndex), "HH:NN:SS") & " # ")

أنا اقول لك لماذا استخدم هذه الطريقة والتي من وجه نظري

انها تختصر عليك الاسطر خصوصا لو انك تريد تميرير بيانات من القاعدة لا اكثر

أنا اتفق معك في أن طريقتك الافضل في حال انك تحتاج لتفح السجل ..

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

<< CLICK TO START>>

post-41869-046528000%201305052277.jpg

ليس أن تجد حلا بل أن تجد الافضل

أن تصـــنع الخـيال هذا هوا الأفضل

#101 مايو 2005 في 18:14

أولا : شكرا على الدعوات الجميلة

ثانيا الكود الذى ادرجتيه يعمل جيدا ولكن ...

دالة Format عندما تضعى لها المعاملات HH:NN:SS ستفهم الدالة انها تتعامل مع وقت و بالتالى من الطبيعى ان يكون مدخلاتها متغير من نوع Date وليس متغير نصى من list2 و بالتالى لا داعى للمخاطرة بمثل هذا الكود فى برنامجك

و السبب الاهم هو انه كلما تم تقسيم الكود الى اجزاء واضحة و محددة كلما كان أسهل فى الفهم و التعديل

و اكتشاف الثغرات و الاخطاء ... على عكس محاولة اختصار الكود كتابيا و ليس منطقيا التى تؤدى فى النهاية الى اللف و الدوران من سطر الى سطر و حبة فوق و حبة تحت حتى تستطيعى فهم طريقة العمل

و الذكاء هو محاولة اختصار الكود منطقيا ...

مثال : برنامج يؤدى وظيفة معينة بكود مكون من 30 سطر .. ممكن تفكرى لو استخدمتى ال arrays مع for loop يتم اختصار ال 30 سطر فى 5 سطور

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

و أرجو لك التقدم و الاستفادة

وأيضا أرجو أيضا ان تشاركى معلوماتك لمن يحتاجها

1- لا خير في حسن الجسوم وطولها إن لم يزن حسن الجسوم عقول

2- لا تنظر إلى صغر الخطيئة .. ولكن انظر إلى عظم من عصيت

3- قد يجمع المال غير آكله . . ويأكل المال غير من جمعه

4- من وثق بالله أغناه ومن توكل عليه كفاه ومن خافه قلت مخافته ومن عرفه تمت معرفته

5- أن تضيء شمعة صغيرة خير لك من أن تنفق عمرك تلعن الظلام

6- لا يحزنك إنك فشلت مادمت تحاول الوقوف على قدميك من جديد

7- صديقك من يصارحك بأخطائك لا من يجملها ليكسب رضاءك

8 - الابتسامة كلمة طيبة بغير حروف

9- لا داعى للخوف من صوت الرصاص .. فالرصاصة التى تقتلك لن تسمع صوتها

10 -- يستطيع الناس أن يعيشوا بلا هواء بضع دقائق وبلا ماء أسبوعين وبلا

طعام حوالى شهرين وبلا أفكار سنوات لا حصر لها

من مواضيعى :

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

مكتبة تحتوى على 50000 كتاب مجانى معظمها عن الكمبيوتر و البرمجة

#112 مايو 2005 في 00:06

اقتباس
من الطبيعى ان يكون مدخلاتها متغير من نوع Date وليس متغير نصى من list2

وهوا فعلا كذلك هذا الكائن لايحوي الا تواريخ فهنا لن تكون هناك اي مخاطر على البرنامج

اما عن الكود فأنا فعلا اضع تعليقات

وهذا اول برنامج لي إلا انني بعد ما بدأت فيه بفتره قصيره وجيت اراجع بعض الاكواد لم افهم شي :blink: ولا كأني انا الي كاتبه الكود فوضعت التعليقات واصبحت بمجرد قراءه بداية التعليق اذكر مضمون كوده

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

..وحقيقة انا حتى الان لااعرف كيف افرق بين الاختصارات المنطقيه والكتابية ..!

تحياتي لك :lol:

<< CLICK TO START>>

post-41869-046528000%201305052277.jpg

ليس أن تجد حلا بل أن تجد الافضل

أن تصـــنع الخـيال هذا هوا الأفضل

#122 مايو 2005 في 02:44

الى القوية Power Girl :)

بالنسبة للاخصتصارات المنطقية يوجد مثل بسيط ممكن يوضح الفكرة

لو عند 20 ملف موجودين على :C و حضرتك عاوزة تمسحيهم بالكود واسماء هذه الملفات هى

file1.txt , file2.txt , file3.txt >>>>>>>>>> file20.txt

الشخص العادى هيكتب الكود بالطريقة االاتية

kill "c:\file1.txt

kill "c:\file2.txt

kill "c:\file3.txt

.

kill "c:\file20.txt

فى شخص اخر ممكن يكتبها بهذه الطريقة

for i = 1 to 20

kill "c:\file" & str(i) & ".txt"

next i

ما رأيك ؟

وتخيلى لو ان عدد الملفات 50 أو 100

و هذه فكرة بسيطة جدا

1- لا خير في حسن الجسوم وطولها إن لم يزن حسن الجسوم عقول

2- لا تنظر إلى صغر الخطيئة .. ولكن انظر إلى عظم من عصيت

3- قد يجمع المال غير آكله . . ويأكل المال غير من جمعه

4- من وثق بالله أغناه ومن توكل عليه كفاه ومن خافه قلت مخافته ومن عرفه تمت معرفته

5- أن تضيء شمعة صغيرة خير لك من أن تنفق عمرك تلعن الظلام

6- لا يحزنك إنك فشلت مادمت تحاول الوقوف على قدميك من جديد

7- صديقك من يصارحك بأخطائك لا من يجملها ليكسب رضاءك

8 - الابتسامة كلمة طيبة بغير حروف

9- لا داعى للخوف من صوت الرصاص .. فالرصاصة التى تقتلك لن تسمع صوتها

10 -- يستطيع الناس أن يعيشوا بلا هواء بضع دقائق وبلا ماء أسبوعين وبلا

طعام حوالى شهرين وبلا أفكار سنوات لا حصر لها

من مواضيعى :

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

مكتبة تحتوى على 50000 كتاب مجانى معظمها عن الكمبيوتر و البرمجة

#132 مايو 2005 في 22:14

هذا اول ما بدأنا اما الان LOOP متمركز فالكود

انا عندي ملاحظه على كلامك الســـــابق :blink:

بالنسبة لتعيرف متغيرات الهدف منها ترتيب الاكواد ..

الاعلان عن متغيرات تحجز مساحة فالذاكرة وهذه نقطة مهمة للغاية

فوضع التعليقات والمسافات افضل لذلك :rolleyes:

:unsure: ما رأيك فكلامي.. تحياتي وتقديري :lol: A.VB6-Rocket

<< CLICK TO START>>

post-41869-046528000%201305052277.jpg

ليس أن تجد حلا بل أن تجد الافضل

أن تصـــنع الخـيال هذا هوا الأفضل

#143 مايو 2005 في 02:38

God Give Me Some Power :)

عند تعريف المتغيرات داخل دالة Function أو Sub Procedure فإن المتغير يطلق عليه اسم Local Variable أى متغير محلى أو داخلى وبمجرد انتهاء ال Function أو ال Sub فأن متغيراتها تزال من الذاكرة تلقائيا و بالتالى فإنها لن تحجز مكان فى الذاكرة الا عند تشغيلها فقط B)

1- لا خير في حسن الجسوم وطولها إن لم يزن حسن الجسوم عقول

2- لا تنظر إلى صغر الخطيئة .. ولكن انظر إلى عظم من عصيت

3- قد يجمع المال غير آكله . . ويأكل المال غير من جمعه

4- من وثق بالله أغناه ومن توكل عليه كفاه ومن خافه قلت مخافته ومن عرفه تمت معرفته

5- أن تضيء شمعة صغيرة خير لك من أن تنفق عمرك تلعن الظلام

6- لا يحزنك إنك فشلت مادمت تحاول الوقوف على قدميك من جديد

7- صديقك من يصارحك بأخطائك لا من يجملها ليكسب رضاءك

8 - الابتسامة كلمة طيبة بغير حروف

9- لا داعى للخوف من صوت الرصاص .. فالرصاصة التى تقتلك لن تسمع صوتها

10 -- يستطيع الناس أن يعيشوا بلا هواء بضع دقائق وبلا ماء أسبوعين وبلا

طعام حوالى شهرين وبلا أفكار سنوات لا حصر لها

من مواضيعى :

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

مكتبة تحتوى على 50000 كتاب مجانى معظمها عن الكمبيوتر و البرمجة

#153 مايو 2005 في 11:01

فعلا لم انظر لها هكذا .. تعلمت منك الكثير:lol:لكن مازل مصرة على وضع التعليق بدلا من حجز ذاكرة وقت تشغيل الاجراء خصوصا إذا كان الاجراء ينفذ بشكل مستمر

أنت تفضل تقسيم الكود للتسهيل على ذلك:unsure:واعتقد أنك بدأت توافقني الرأي!

تحياتي A.VB6-Rocket

<< CLICK TO START>>

post-41869-046528000%201305052277.jpg

ليس أن تجد حلا بل أن تجد الافضل

أن تصـــنع الخـيال هذا هوا الأفضل

#163 مايو 2005 في 11:06

يا power ياااااا Power

انا قولتلك على الصح :)

ولك حق الاختيار :lol:

1- لا خير في حسن الجسوم وطولها إن لم يزن حسن الجسوم عقول

2- لا تنظر إلى صغر الخطيئة .. ولكن انظر إلى عظم من عصيت

3- قد يجمع المال غير آكله . . ويأكل المال غير من جمعه

4- من وثق بالله أغناه ومن توكل عليه كفاه ومن خافه قلت مخافته ومن عرفه تمت معرفته

5- أن تضيء شمعة صغيرة خير لك من أن تنفق عمرك تلعن الظلام

6- لا يحزنك إنك فشلت مادمت تحاول الوقوف على قدميك من جديد

7- صديقك من يصارحك بأخطائك لا من يجملها ليكسب رضاءك

8 - الابتسامة كلمة طيبة بغير حروف

9- لا داعى للخوف من صوت الرصاص .. فالرصاصة التى تقتلك لن تسمع صوتها

10 -- يستطيع الناس أن يعيشوا بلا هواء بضع دقائق وبلا ماء أسبوعين وبلا

طعام حوالى شهرين وبلا أفكار سنوات لا حصر لها

من مواضيعى :

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

مكتبة تحتوى على 50000 كتاب مجانى معظمها عن الكمبيوتر و البرمجة

#173 مايو 2005 في 11:22

أنا ايضا كلامي صح :blink:

والاصح لماذا لا تعترف .. :D

<< CLICK TO START>>

post-41869-046528000%201305052277.jpg

ليس أن تجد حلا بل أن تجد الافضل

أن تصـــنع الخـيال هذا هوا الأفضل

#183 مايو 2005 في 13:00

اذا هى الحرب :)

فلننتظر تعليق من أحد الخبراء ونرى ............... :rolleyes:

1- لا خير في حسن الجسوم وطولها إن لم يزن حسن الجسوم عقول

2- لا تنظر إلى صغر الخطيئة .. ولكن انظر إلى عظم من عصيت

3- قد يجمع المال غير آكله . . ويأكل المال غير من جمعه

4- من وثق بالله أغناه ومن توكل عليه كفاه ومن خافه قلت مخافته ومن عرفه تمت معرفته

5- أن تضيء شمعة صغيرة خير لك من أن تنفق عمرك تلعن الظلام

6- لا يحزنك إنك فشلت مادمت تحاول الوقوف على قدميك من جديد

7- صديقك من يصارحك بأخطائك لا من يجملها ليكسب رضاءك

8 - الابتسامة كلمة طيبة بغير حروف

9- لا داعى للخوف من صوت الرصاص .. فالرصاصة التى تقتلك لن تسمع صوتها

10 -- يستطيع الناس أن يعيشوا بلا هواء بضع دقائق وبلا ماء أسبوعين وبلا

طعام حوالى شهرين وبلا أفكار سنوات لا حصر لها

من مواضيعى :

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

مكتبة تحتوى على 50000 كتاب مجانى معظمها عن الكمبيوتر و البرمجة