السلام عليكم
شباب لو عندي رقم 0.333333333333333333333333333333
ابي اخلي الصفر لحاله و الي بعد الفاصله لحاله كيف؟
واذا في طريقه يمدي اخليه يطلعها لي 20د واذا كانت ٨٠ يخليها ساعه و ٢٠ د فوش هي الطريقة و شكرا
(15-11-18, 01:13 AM)rmnr كتب : [ -> ]
كود :
Dim t1 = 0.33333333333333331 'بالساعة
Dim m1 = 60 * t1 ' الساعة 60 دقيقة
MsgBox("الناتج: " &m1 & " د")
كود :
Dim n2 = 80 ' بالدقيقة
Dim h2 = Math.Floor(n2 / 60) ' الساعة 60 دقيقة
Dim m2 = n2 Mod 60 ' الساعة 60 دقيقة
' Mod تعطي فقط الباقي من عملية القسمة
MsgBox("الناتج: " & h2 & " ساعة و " & m2 & " دقيقة")
يا انك ما فهمت قصدي او انا مو فاهم الكود صح
ان اقصد انو عندي شي ياخذ وقت و لازم اسوي كذا مره
ابيه ياخذ المده و يحولها لي لي وقت بشكل ساعه : دقائق
(فوق ترى بس كنت معطي مثال برقم معين )
وعليكم السلام ورحمة الله وبركاته
عملية فصل الارقام ما قبل وبعد الفاصل فكل ما عليك فعله التالى
كود :
Dim ss As String() = (0.33333333333333331).ToString.Split(".")
يمكنك وضع المعرف بالقيمة مكان الرقم مباشراً
ولكى تختبر الكود لنتائجه فيمكنك تنفيذ الكود التالى
كود :
MsgBox(ss(0) & vbNewLine & ss(1))
لم افهم الجزء الخاص بـ 20د و 80 الرجاء التوضيح حتى افيدك وكذلك الجميع
تحياتى لك
وتمنياتى لك التوفيق
(15-11-18, 08:30 PM)elgokr كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته
عملية فصل الارقام ما قبل وبعد الفاصل فكل ما عليك فعله التالى
كود :
Dim ss As String() = (0.33333333333333331).ToString.Split(".")
يمكنك وضع المعرف بالقيمة مكان الرقم مباشراً
ولكى تختبر الكود لنتائجه فيمكنك تنفيذ الكود التالى
كود :
MsgBox(ss(0) & vbNewLine & ss(1))
لم افهم الجزء الخاص بـ 20د و 80 الرجاء التوضيح حتى افيدك وكذلك الجميع
تحياتى لك
وتمنياتى لك التوفيق
شكرا اخي هذا الي ابيه بالضبط ما عليك من ال 20 و 80 اقدر ادبرها بس بسالك تعرف كيف اضيف خانات فاضيه في الداتا جريد فيو عشان ما يخرب الشكل ؟
الشكر لله والحمد لله
والحمد لله على كل حال
بخصوص الداتا جريد يمكنك جعل الخلفية باللون الابيض
أو عملة اضافة صفوف تلقائي بعدد محدد حسب التصميم للداتا من حيث المقاس فى الفورم
وطبعاً القيم باكملها فارغة وكلما احببت اضافة بيانات للداتا جريد يقوم بفحص Rows اذا كان فارغ فيقوم بتحريره لادخال البيانات
واذا اصبح كل الـRows ممتلئ الذى تم انشائه تلقائي يقوم بعمل اضافة Row جديد بالبيانات المدخلة
وعند عملية اضافة او تعديل البيانات من الداتا جريد الى قاعدة البيانات
فستحتاج عمل كود تحقق اذا كان الـ Row ليس فارغ يعتمد تعديل او اضافة حسب ما تقوم واذا كان فارغ فيتجاهله
ما اشرحه هنا كا فكرة كى تستفاد منها ولكن بالنهاية لاختصار كتابة الاكواد والتحقق فيكفي ضبط التصميم للخلفية
تحياتى لك
وتمنياتى لك التوفيق
لا اعلم هل يوجد اى فيديو يوضح الفكرة التي اشرحها عنها ام لا
لكن اذا اتاح لى الوقت اليوم ساحاول ان اعمل لك شرح بالصورة مع ارفاق مثال
يوضح الامر كاملاً للطريقة التى اشرحها
تحياتى لك
وتمنياتى لك التوفيق