ابوالوفاء قام بنشر يناير 20, 2006 قام بنشر يناير 20, 2006 لدي نموذج ووضعت به الوقت ولكنه يعطيني الوقت عند فتح النموذج ولو فتح النموذج الساعة السابعة وجلس مفتوح حتى السابعة والنصف لن يتغير الزمن الموجود على النموذج 000ارجو الاجابة
فنجان قهوه قام بنشر يناير 20, 2006 قام بنشر يناير 20, 2006 اخي تفضل هذا مثال على ما طلبت لعله يفيدك في طلبك بسم الله الرحمن الرحيم
التقني قام بنشر يناير 20, 2006 قام بنشر يناير 20, 2006 (معدل) السلام عليكم ورحمة الله وبركاته،، خطوات تصميم الساعة : 1-أضف الى النموذج مربع نص غير منضم بإسم TimeBox 2-في حدث (الفاصل الزمني لعداد الوقت) للنموذج ضع القيمة 1000 3- في حدث (عند عداد الوقت) للنموذج ضع الكود التالي : [TimeBox] = Time() بذلك سيكون لديك ساعة رقمية يتم تحديثها كل ثانية تم تعديل يناير 20, 2006 بواسطه التقني
ابوالوفاء قام بنشر يناير 21, 2006 الكاتب قام بنشر يناير 21, 2006 اخي فنجان قهوة واخي التقني اشكركما على تكرمكما بالاجابة زادكما الله من الخير والعلم
sas_kik قام بنشر يناير 21, 2006 قام بنشر يناير 21, 2006 اخي التقني لقد حاولت عمل الساعة باتباع خطواتك ولكنني لم اتمكن حيث ظهر لي الاتي مكان الساعة #Name? صفحة الكود تظليل كلمة Time باللون الازرق ظهور رسالة تقول Expected Varible Or Procdure , Not Project ارجو المساعدة
ظل السراب قام بنشر يناير 21, 2006 قام بنشر يناير 21, 2006 السلام عليكم ورحمة الله وبركاته بعد اذن اخي الكريم التقني اخي الكريم ضع مربع نص وليكن اسمه T ضع هذا الكود عند عداد الوقت t.Caption = time() الفاصل الزمني 1000 والله الموفق والسلام عليكم ورحمة الله وبركاته
sas_kik قام بنشر يناير 21, 2006 قام بنشر يناير 21, 2006 اشكر كرمك واهتمامك ولكن .... للاسف نفس النتيجة ونفس التعليمات السابقة
sas_kik قام بنشر يناير 21, 2006 قام بنشر يناير 21, 2006 الخطوات فتح نموذج جديد وفي وضع التصميم وضع مربع تسمية الضغط بيمين الفأرة ودخول خصائص النموذج تغيير الفاصل الزمني من 0 الى 1000 من عداد الوقت بيمين الفأرة ( منشيء البرامج ) لصق الكود مع الانتباه للاسم ولا زالت نفس المشكلة ونفس الرسالة والتعليمات السابقة ما العمل
rudwan قام بنشر يناير 23, 2006 قام بنشر يناير 23, 2006 اذا كان مربع التسميه الذي أنشأته اسمه مثلا h انشخ الكود التالي و الصقه كما هو في محرر أكواد النموذج Private Sub Form_Timer() Me.h.Caption = Now() End Sub
sas_kik قام بنشر يناير 23, 2006 قام بنشر يناير 23, 2006 اتقدم بجزيل الشكر لكل من ساهم بالرد واثمن له هذه المساعدة اخي rudwan نحج التطبيق ولك الشكر والتقدير هل من الممكن تعليل فشل المحاولات السابقة لكم تحياتي
rudwan قام بنشر يناير 26, 2006 قام بنشر يناير 26, 2006 لا أعلم السبب , و لكن لعلك أخطأت في مكان الكود , أو في اسم مربع العنوان , و المهم أنك نجحت أخيرا
الشرقي قام بنشر يناير 26, 2006 قام بنشر يناير 26, 2006 السلام عليكم ورحمة الله وبركاته كود اخوي التقني مضبوط 100 × 100 واشكره واشكر كل اخواني الاعزاء
sas_kik قام بنشر يناير 26, 2006 قام بنشر يناير 26, 2006 اذ ما السبب في ظهور رسائل الخطأ عندى افيدونا الله ينور عليكم
التقني قام بنشر فبراير 24, 2006 قام بنشر فبراير 24, 2006 تم سحب ملف الأخ ( فنجان قهوه ) لكي تعم الفائدة وينقل الى الأرشيف المختص 112.rar
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.