[SonBasel]

السلام عليكم 

شباب لو عندي رقم             0.333333333333333333333333333333
ابي اخلي الصفر لحاله و الي بعد الفاصله لحاله كيف؟

واذا في طريقه يمدي اخليه يطلعها لي 20د  واذا كانت ٨٠ يخليها ساعه و ٢٠ د فوش هي  الطريقة و شكرا

[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 & " دقيقة")

[SonBasel]

(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 & " دقيقة")

يا انك ما فهمت قصدي او انا مو فاهم الكود صح 

ان اقصد انو عندي شي ياخذ وقت و لازم اسوي كذا مره 
ابيه ياخذ المده و يحولها لي لي وقت بشكل ساعه : دقائق 

(فوق ترى بس كنت معطي مثال برقم معين )

[elgokr]

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

عملية فصل الارقام ما قبل وبعد الفاصل فكل ما عليك فعله  التالى

كود :

       Dim ss As String() = (0.33333333333333331).ToString.Split(".")

يمكنك وضع المعرف بالقيمة مكان الرقم مباشراً
ولكى تختبر الكود لنتائجه فيمكنك تنفيذ الكود التالى

كود :

       MsgBox(ss(0) & vbNewLine & ss(1))

لم افهم الجزء الخاص بـ 20د و 80 الرجاء التوضيح حتى افيدك وكذلك الجميع

تحياتى لك

وتمنياتى لك التوفيق

[SonBasel]

(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 اقدر ادبرها بس بسالك تعرف كيف اضيف خانات فاضيه في  الداتا جريد فيو عشان ما يخرب الشكل ؟

[elgokr]

الشكر لله والحمد لله

والحمد لله على كل حال

بخصوص الداتا جريد يمكنك جعل الخلفية باللون الابيض

أو عملة اضافة صفوف تلقائي بعدد محدد حسب التصميم للداتا من حيث المقاس فى الفورم

وطبعاً القيم باكملها فارغة وكلما احببت اضافة بيانات للداتا جريد يقوم بفحص Rows اذا كان فارغ فيقوم بتحريره لادخال البيانات

واذا اصبح كل الـRows ممتلئ الذى تم انشائه تلقائي يقوم بعمل اضافة Row جديد بالبيانات المدخلة

وعند عملية اضافة او تعديل البيانات من الداتا جريد الى قاعدة البيانات

فستحتاج عمل كود تحقق اذا كان الـ Row ليس فارغ يعتمد تعديل او اضافة حسب ما تقوم واذا كان فارغ فيتجاهله

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

تحياتى لك

وتمنياتى لك التوفيق

[SonBasel]

(17-11-18, 12:33 AM)elgokr كتب :

الشكر لله والحمد لله

والحمد لله على كل حال

بخصوص الداتا جريد يمكنك جعل الخلفية باللون الابيض

أو عملة اضافة صفوف تلقائي بعدد محدد حسب التصميم للداتا من حيث المقاس فى الفورم

وطبعاً القيم باكملها فارغة وكلما احببت اضافة بيانات للداتا جريد يقوم بفحص Rows اذا كان فارغ فيقوم بتحريره لادخال البيانات

واذا اصبح كل الـRows ممتلئ الذى تم انشائه تلقائي يقوم بعمل اضافة Row جديد بالبيانات المدخلة

وعند عملية اضافة او تعديل البيانات من الداتا جريد الى قاعدة البيانات

فستحتاج عمل كود تحقق اذا كان الـ Row ليس فارغ يعتمد تعديل او اضافة حسب ما تقوم واذا كان فارغ فيتجاهله

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

تحياتى لك

وتمنياتى لك التوفيق

عندك مقطع شرح الطريقة ؟

[elgokr]

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

لكن اذا اتاح لى الوقت اليوم ساحاول ان اعمل لك شرح بالصورة مع ارفاق مثال

يوضح الامر كاملاً للطريقة التى اشرحها

تحياتى لك

وتمنياتى لك التوفيق