خطأ في كود الوقت

#118 سبتمبر 2005 في 14:56 صاحب الموضوع

بسم الله الرحمن الرحيم

الاخوة الاعزاء

برجاء تصويب الكود التالي لاني لا ادرى اين الخطأ

جزاكم الله عني خير الجزاء

Private Sub Command1_Click()
T1.Text = Time
T2.Text = Time
T3.Text = Time
T1.Text = Format(T1.Text, "HH:")
T2.Text = Format(T2.Text, "MM:")
T3.Text = Format(T3.Text, "SS")

End Sub

29_09_05_02_32_59_1128029579_4_13_3[_].gif

صور gif شفافة لتجميل واجة البرنامج

الخط العثماني للمهتمين ببرمجة برامج تلاوة القرآن

كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel

كبفية استعراض ملف PDF في تكست

هل نكذب علي الله ام نكذب علي انفسنا

البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان

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

مع خالص تحيـــــــــــــــــــــــــــــــــاتي

GAF58

#218 سبتمبر 2005 في 15:07

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

الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.

إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.

#318 سبتمبر 2005 في 17:04

الكود صحيح

;) :rolleyes: ;)

أعمل لدنياك كأنك تعيش أبداً وأعمل لأخرتك كأنك تموت غداً

أحفظ لسانك تصان كرامتك

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

من مواضيعى بالمنتدى

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

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

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

الان حرك الماوس بواسطة الكيبورد

برنامج لمعرفة الـ Keyascii

برنامج VB6 Projects Viewer مساعد المبرمجين

shreff_ghost@yahoo.com

VB_Ghost_20202000@Hotmail.com

THE_WOLF511@HOTMAIL.Com

#418 سبتمبر 2005 في 17:12

prof_1982 كتب:
يا سيدي انا نفذت الكود بتاعك لا يوجد به اخطأ برمجية
←

اخي الكريم prof_1982 شكرا جزيلا علي مرورك واهتمامك

تكست الساعة و تكست الثواني يقرأ بصورة صحيحة

المشكلة في تكست الدقائق

T2.Text = Format(T2.Text, "MM:")

فهو مصر علي ان يقرأ ارقام غريبة

مثلا ساعة الكومبيوتر 25 : 57 : 06

t1 +t2 +t3 = 06 12 25

اى ان تكست الدقائق مصر علي الرقم 12 ايا كان الوقت بالدقائق !!!!!!!!!!!!!!!!!!!!!!!!!!!!

حاجة غريبة اليس كذلك

29_09_05_02_32_59_1128029579_4_13_3[_].gif

صور gif شفافة لتجميل واجة البرنامج

الخط العثماني للمهتمين ببرمجة برامج تلاوة القرآن

كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel

كبفية استعراض ملف PDF في تكست

هل نكذب علي الله ام نكذب علي انفسنا

البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان

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

مع خالص تحيـــــــــــــــــــــــــــــــــاتي

GAF58

#518 سبتمبر 2005 في 21:39

ارجو ان الصورة المرفقة توضح المشكلة اكثر

29_09_05_02_32_59_1128029579_4_13_3[_].gif

صور gif شفافة لتجميل واجة البرنامج

الخط العثماني للمهتمين ببرمجة برامج تلاوة القرآن

كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel

كبفية استعراض ملف PDF في تكست

هل نكذب علي الله ام نكذب علي انفسنا

البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان

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

مع خالص تحيـــــــــــــــــــــــــــــــــاتي

GAF58

#618 سبتمبر 2005 في 21:41

ارجو ان الصورة المرفقة توضح المشكلة اكثر

29_09_05_02_32_59_1128029579_4_13_3[_].gif

صور gif شفافة لتجميل واجة البرنامج

الخط العثماني للمهتمين ببرمجة برامج تلاوة القرآن

كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel

كبفية استعراض ملف PDF في تكست

هل نكذب علي الله ام نكذب علي انفسنا

البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان

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

مع خالص تحيـــــــــــــــــــــــــــــــــاتي

GAF58

#718 سبتمبر 2005 في 23:57

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

Private sp() As String

Private Sub Command1_Click()
t1.Text = Time
t2.Text = Time
t3.Text = Time

sp() = Split(Time, ":")

t1.Text = sp(0)
t2.Text = sp(1)
t3.Text = sp(2)

End Sub

#819 سبتمبر 2005 في 00:06

أخي الحبيب أحمد:

الكود الذي وضعته سليم 100% لكن ليس هناك داعي لهذا الجزء:

t1.Text = Time
t2.Text = Time
t3.Text = Time

يمكنك أن تضع الجزء الباقي فقط بحيث يصبح شكل الكود النهائي هكذا:

Private sp() As String

Private Sub Command1_Click()
sp() = Split(Time, ":")
t1.Text = sp(0)
t2.Text = sp(1)
t3.Text = sp(2)
End Sub

و لك مني جزيل الشكر,,, (h)

____________________________________________________________________________

{ اقْتَرَبَ لِلنَّاسِ حِسَابُهُمْ وَهُمْ فِي غَفْلَةٍ مَّعْرِضُونَ } سورة الأنبياء (1)

____________________________________________________________________________

In a world without walls and fences, who needs Windows and Gates

مدونتي

#919 سبتمبر 2005 في 00:29

شكرا جزيلا اخي الكريم أحمد السيد

الكود رائع و يعمل بصورة ممتازة

لي طلب آخر لو عايز الغي Am/Pm او اخليها في تكست منفرد

هل يمكن عمل ذلك ؟

طلب آخر معلش

كيف اكتب الكود التالي ليتطابق مع t1 + t2 +t3

او t1 + t2 +t3 + t4 في حالة اضافة تكست رابع ل Am/pm

Text1.Text = Time
Text1.Text = Format(Text1.Text, "hh:mm:ss")

اخي الكريم Alaa Awaad ملاحظتك في محلها

شكرا جزيلا اخواني الاعزاء لاهتمامكم

تحيـــــــــــاتي

29_09_05_02_32_59_1128029579_4_13_3[_].gif

صور gif شفافة لتجميل واجة البرنامج

الخط العثماني للمهتمين ببرمجة برامج تلاوة القرآن

كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel

كبفية استعراض ملف PDF في تكست

هل نكذب علي الله ام نكذب علي انفسنا

البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان

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

مع خالص تحيـــــــــــــــــــــــــــــــــاتي

GAF58

#1019 سبتمبر 2005 في 00:57

السلام عليكم

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

بالنسبة لسؤالك الاول جرب الكود دة :

Private sp() As String

Private Sub Command1_Click()

sp() = Split(Time, ":")
t1.Text = sp(0)
t2.Text = sp(1)
t3.Text = Val(sp(2)) 'لحذفها am/pm
t4.Text = Right(sp(2), 1) 'لوضعها فى مربع اخر
End Sub

بالنسبة لسؤالك الثانى ممكن توضح اكثر

#1119 سبتمبر 2005 في 01:12

هل هذا ما تقصدة ؟؟؟؟؟؟؟؟؟؟

الكود كاملا

Private sp() As String
Dim today As Variant
Private Sub Command1_Click()
today = Now
sp() = Split(Time, ":")
t1.Text = sp(0)
t2.Text = sp(1)
t3.Text = Val(sp(2)) 'لحذفها am/pm
t4.Text = Right(sp(2), 1) 'لوضعها فى مربع اخر


'Text1.Text = Format(today, "h:mm:ss ") & t4.Text
text1.text=time
End Sub

يمكنك كتابة

هذا السطر

Text1.Text = Format(today, "h:mm:ss ") & t4.Text

او هذا

text1.text=time

:D :D

تحياتى

تم تعديل هذه المشاركة بواسطة احمد السيد في 19 سبتمبر 2005 في 01:17

#1219 سبتمبر 2005 في 02:45

معلش اخي في حاجة موش مظبوطة

t4.Text = Right(sp(2), 1) 'لوضعها فى مربع اخر

التكست الرابع بيكتب M instead of am or pm

و بالتالي

Text1.Text = Format(today, "h:mm:ss ") & T4.Text

تظهر كالآتي

16:37:49M

لانها اعتمدت علي الخطأ في t4

اعتذر عن الازعاج

واكرر جزيل شكرى اخي الغاضل

29_09_05_02_32_59_1128029579_4_13_3[_].gif

صور gif شفافة لتجميل واجة البرنامج

الخط العثماني للمهتمين ببرمجة برامج تلاوة القرآن

كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel

كبفية استعراض ملف PDF في تكست

هل نكذب علي الله ام نكذب علي انفسنا

البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان

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

مع خالص تحيـــــــــــــــــــــــــــــــــاتي

GAF58

#1319 سبتمبر 2005 في 08:38

بكل بساطة يمكنك الحصول عليهما بالكود التالي

Text1.Text = Format(Time, "AMPM")

الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.

إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.

#1419 سبتمبر 2005 في 09:11

prof_1982 كتب:
بكل بساطة يمكنك الحصول عليهما بالكود التالي
Text1.Text = Format(Time, "AMPM")
←

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

للمتابعين حتي لا يتشتتوا من كثرة التعديلات

الكود الان اصبح كالتالي

Private sp() As String
Dim today As Variant

Private Sub Command1_Click()
today = Now
'Text1.Text = Time


sp() = Split(Time, ":")
'Text1.Text = Format(Text1.Text, "hh:mm:ss")
T1.Text = sp(0)
T2.Text = sp(1)
T3.Text = Val(sp(2)) 'áÍÐÝåÇ am/pm
T4.Text = Format(Time, "AMPM") 'áæÖÚåÇ Ýì ãÑÈÚ ÇÎÑ

Text1.Text = Format(today, "h:mm:ss ") & T4.Text
'Text1.Text = Time

End Sub

29_09_05_02_32_59_1128029579_4_13_3[_].gif

صور gif شفافة لتجميل واجة البرنامج

الخط العثماني للمهتمين ببرمجة برامج تلاوة القرآن

كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel

كبفية استعراض ملف PDF في تكست

هل نكذب علي الله ام نكذب علي انفسنا

البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان

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

مع خالص تحيـــــــــــــــــــــــــــــــــاتي

GAF58