gaf58

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

ثـــــــــــــامن و عشروووووون :blink: transparentFlower8.zip

شكرا اخي الفاضل علي هذه اللفتة الجميلة

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

شكرا جزيلا اخي الكريم للمتابعين حتي لا يتشتتوا من كثرة التعديلات الكود الان اصبح كالتالي 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"…

معلش اخي في حاجة موش مظبوطة 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 اعتذر عن الازعاج واكرر جزيل شكرى ا…

اخي العزيز هاني بالطبع مجهود جبار لتجميع هذه القائمة ل Run-time error's انت وضعت اسطوانة ال msdn كلها !! يا سيدى بارك الله فيك ولك وجزاك عنا خير الجزاء آمين يا رب العالمين

شكرا جزيلا اخي الكريم أحمد السيد الكود رائع و يعمل بصورة ممتازة لي طلب آخر لو عايز الغي Am/Pm او اخليها في تكست منفرد هل يمكن عمل ذلك ؟ طلب آخر معلش كيف اكتب الكود التالي ليتطابق مع t1 + t2 +t3 او t1 + t2 +t3 + t4 في حالة اضافة تكست رابع ل Am/pm Text1.Text = T…

دليل الهاتف للاستاذ هيثم القلاف

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

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

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

اخي الكريم prof_1982 شكرا جزيلا علي مرورك واهتمامك تكست الساعة و تكست الثواني يقرأ بصورة صحيحة المشكلة في تكست الدقائق T2.Text = Format(T2.Text, "MM:") فهو مصر علي ان يقرأ ارقام غريبة مثلا ساعة الكومبيوتر 25 : 57 : 06 t1 +t2 +t3 = 06 12 25 اى ان تكست الدقائق م…

بسم الله الرحمن الرحيم الاخوة الاعزاء برجاء تصويب الكود التالي لاني لا ادرى اين الخطأ جزاكم الله عني خير الجزاء 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 …

بارك الله فيك اخي الكريم GHOST2010 دائما سباق لتقديم العون شكر الله لك

السلام عليكم و رحمة الله و بركاته برجاء التماس العذر لجهلي و لكنه يلح علي كثيرا و اخجل ان اساله اريد معرفة وظيفة خاصية ال tag للادوات ؟ ياريت لو فيه مثال بسيط

اخي الفاضل عند تطبيق الكود بالنسبة للوقت بطريقة مختلفة لم يعطني قرآءات صحيحة برجاء تصويب الكود التالي 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(T…

شكر الله لك اخي الكريم ail_fahad777 بالفعل كنت محتاج هذا الكود

I can beat u cause also arabic man بالطبع انا امزح معك اخي الفاضل لكن اسنرعاني الاسم ولم اتمالك نفسي عن التعليق بالمناسبة Heart beat تعني نبض القلب لايحبذ في العلوم التعصب للجنس او الدين او الشكل لاننا جميعا نتبادل الخبرات و بالطبع شئنا ام ابينا الغرب له الاسب…

يآآآآآآآآآآآآآه علي الحلاوة والله انا ما عاوز غير الدعوة دى بوركت اخي الكريم