วีดีโอ

تسلم ربنا يبارك فيك ❤️

اللهم آمين ، وإياكم أخي الحبيب ❤️

@omarrahim673 اللهم آمين , أخي الكريم , تقبل الله منا ومنكم الصيام والقيام وصالح الاعمال , هبعت لك رابط تحميل كريستال ريبورت مجاني , أما عن رسالة الخطأ مش عارف السبب لكن هعمل فيديو اشرح فيه التقارير اللي عملتها في البرامج عندي بواسطة كريستال ريبورت @omarrahim673

@@ElsaftyMohamed أستاذنا الفاضل صح فطوركم لقد وجدت سبب الخطأ حيث قمت حيث أن كريستال ريبورت حذف من السورس الخاص به ملف keycode حيث قمت بإعادة تسطيبه عمل معي بشكل جيد والحمد لله هل بالامكان اكواد تحميل التقرير على شكل ملف وورد و اكسل و بي دي اف وكذلك معاينة الطباعة و طباعة الملف والاستغناء عن الأيقونات المتواجدة في كريستال فيور وشكرا 🤗🤗🤗

@@ElsaftyMohamed عندي سؤال آخر هل بالامكان رابط تحميل الصور التي تحتوى على اطارات لتزيين التقرير وشكرا🤗🤗🤗

@@omarrahim673 من داخل الكريستال في وضع عرض التقرير تقدر تعمل save pdf او Excel او word

@@ElsaftyMohamed نعم أستاذنا الفاضل في الكريستال ريبورت به تحويل التقرير إلى اكسل و وورد و اكسل لكن سؤالي اريد وضع أزرار بها معاينة الطباعة والطباعة وتحويل التقرير إلى ملف بي دي اف و وورد و اكسل وشكرا🤗🤗🤗

من عينيا هبعت لك الرابط

@@ElsaftyMohamed الله يبارك فيك ويرزقك من حيث تحتسب 🤗🤗🤗

@@omarrahim673 اللهم آمين وإياكم أخي الكريم ❤️🌹

تسلم يا صديقي , ربنا يبارك فيك 🙏

@@ElsaftyMohamed أستاذنا الفاضل عندي سؤال ما هو الكود الذي نضعه عند تشغيل الفورم يأتيني برابط قاعدة البيانات مباشرة أي عند وضع المشروع على أي جهاز يشتغل مباشرة دون تغيير مسار قاعدة البيانات هذا من جهة. من جهة أخرى datetimepicker لها تاريخ وتنسيق معين تظهر به عند تشغيل الفورم ما هو الكود الذي نضعه لكي لا يحفظ التاريخ الموجود في ظاهر datetimepicker وشكرا 🤗🤗🤗🙏

@@omarrahim673 لنبدأ بالجزء الأول، حيث ترغب في تشغيل الفورم دون الحاجة إلى تغيير مسار قاعدة البيانات على أي جهاز. لتحقيق ذلك، يمكنك استخدام ملف تكوين formsweb.cfg الذي يتيح لك تحديد مسار قاعدة البيانات بشكل ديناميكي. هذا الملف يتم تكوينه في تطبيق Oracle Forms ويحتوي على إعدادات متعددة تؤثر على سلوك التطبيق. إليك الخطوات التي يمكن أن تساعدك في تحقيق هذا: 1. إنشاء ملف formsweb.cfg: o قم بإنشاء ملف نصي جديد باسم formsweb.cfg. o يمكنك وضع هذا الملف في مجلد معين على الجهاز. 2. تكوين مسار قاعدة البيانات: o في ملف formsweb.cfg، قم بتحديد مسار قاعدة البيانات باستخدام معلمة مثل userid. o مثال: o [myapp] o form=myform.fmx o userid=scott/tiger@mydb 3. تشغيل الفورم: o عند تشغيل الفورم، استخدم URL مشابه لهذا: o localhost:8888/forms/frmservlet?config=myapp حيث myapp هو اسم القسم الذي تم تكوينه في ملف formsweb.cfg. بهذه الطريقة، يمكنك تشغيل الفورم على أي جهاز دون الحاجة إلى تغيير مسار قاعدة البيانات. أما بالنسبة للـ DateTimePicker، إذا كنت ترغب في منع حفظ التاريخ الموجود فيه، يمكنك ببساطة تعطيله. يمكنك تحقيق ذلك عبر تعيين خاصية Enabled للـ DateTimePicker إلى false. هذا سيمنع المستخدم من تحديد تاريخ جديد أو حفظ أي تغييرات.

@@ElsaftyMohamed بارك الله فيك أستاذنا الفاضل انا مبتدئ في تعلم لغة الفيجوال بيسك لم أفهم الإجابة الأولى اما الإجابة الثانية فهمت الجواب لكن سيدي الفاضل أقصد بسؤالي هو تفريغ datetimepicker بمجرد تشغيل الفورم لمنع ظهور التاريخ المفترض الذي يظهر عليها وإدخال تاريخ المراد حفظه وشكرا 🤗🤗🤗

@@omarrahim673 Private Sub Form_Load() ' تعيين CustomFormat إلى سلسلة فارغة DateTimePicker1.CustomFormat = " " End Sub جرب الكود ده

متشكر جدا لذوقلك , لو عايز تعمل برنامج لادارة الموظفين بنفس الشكل هساعدك في كتابة الكود

@@ElsaftyMohamed الله يبارك فيك عايز برنامج بنفس الشكل 🤗🤗🤗

معذرة للانشغال 🙏 , ربنا يبارك في ويحفظك هجرب الكود وابتهولك 👍

Private Sub TextBox1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then ' Enter key Dim birthDate As Date Dim currentDate As Date Dim ageYears As Integer Dim ageMonths As Integer Dim ageDays As Integer birthDate = CDate(TextBox1.Text) currentDate = Date ageYears = DateDiff("yyyy", birthDate, currentDate) ageMonths = DateDiff("m", birthDate, currentDate) Mod 12 ageDays = DateDiff("d", birthDate, currentDate) MsgBox "عمرك هو: " & ageYears & " سنة و " & ageMonths & " شهر و " & ageDays & " يوم" End If End Sub

في هذا الكود، عندما يتم الضغط على مفتاح “Enter” في التكست بوكس، يتم حساب العمر بالسنوات والشهور والأيام بناءً على التاريخ المدخل والتاريخ الحالي، ثم يتم عرض النتيجة في نافذة الرسائل. يمكنك تعديل الرسالة أو الشكل حسب احتياجاتك. 🎩👍

لو تقصد تحديث للنتيجة مع كل ثانية ، ينفع 👍 عن طريق اضافة تايمر ويقوم بعمل تحديث للنتيجة ، لو عايز الكود ابعتهولك 👌

@@ElsaftyMohamed ياريت ابعثلي الكود واريد كود عند كتابة تاريخ على تكست بوكس مثلا 01/01/2000 بمجرد الضغط على مفتاح entre في لوحة المفاتيح يغير صيغتها 2000/01/01 وشكرا لكم منا كل الاحترام بالتوفيق والنجاح

@@ElsaftyMohamed سلام أستاذنا الفاضل في انتظار رد حضرتك 🤗🤗🤗

@@omarrahim673 Private Sub Form_Load() Timer1.Interval = 1000 ' تحديث كل ثانية (1000 مللي ثانية) Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Dim birthDate As Date Dim currentDate As Date Dim ageYears As Integer Dim ageMonths As Integer Dim ageDays As Integer birthDate = CDate(TextBox1.Text) currentDate = Date ageYears = DateDiff("yyyy", birthDate, currentDate) ageMonths = DateDiff("m", birthDate, currentDate) Mod 12 ageDays = DateDiff("d", birthDate, currentDate) Label1.Caption = "عمرك هو: " & ageYears & " سنة و " & ageMonths & " شهر و " & ageDays & " يوم" End Sub

لتنسيق التاريخ في تكست بوكس باستخدام Visual Basic، يمكنك استخدام خاصية `Format` لتنسيق التاريخ كما تريد. على سبيل المثال، إليك كود يوضح كيفية ذلك: ```vb.net Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load ' تاريخ اليوم Dim currentDate As Date = Date.Now ' تنسيق التاريخ وعرضه في TextBox1 TextBox1.Text = Format(currentDate, "yyyy-MM-dd HH:mm:ss") End Sub ``` أما بالنسبة لحساب الفارق بين تاريخين في الساعات والدقائق والثواني، يمكنك استخدام الدالة `DateDiff`، كما في المثال التالي: ```vb.net Private Sub CalculateTimeDifference() ' تاريخ البداية Dim startDate As Date = #1/1/2022 12:00:00 PM# ' تاريخ النهاية Dim endDate As Date = Date.Now ' حساب الفارق بين التاريخين في الساعات والدقائق والثواني Dim hoursDiff As Integer = DateDiff(DateInterval.Hour, startDate, endDate) Dim minutesDiff As Integer = DateDiff(DateInterval.Minute, startDate, endDate) Dim secondsDiff As Integer = DateDiff(DateInterval.Second, startDate, endDate) ' عرض الفارق في TextBox2 TextBox2.Text = $"{hoursDiff} ساعة، {minutesDiff} دقيقة، {secondsDiff} ثانية" End Sub ``` يمكنك استدعاء دالة `CalculateTimeDifference` في أي مكان يناسبك في الكود لحساب وعرض الفارق بين تاريخين.

@@ElsaftyMohamed الله يكرمك ويبارك فيك 🤗🤗🤗

@@omarrahim673 لو محتاج اي مساعدة في فيجوال بيسك أو C# أو بايثون تحت أمرك 🌹

@@ElsaftyMohamed الله يبارك فيك ويرضى عليك عندي سؤال كيفية كتابة كود في حدث بعد الكتابة و الخروج من التكست بوكس يقوم بتنسيق التاريخ المدخل تلقائيا أي اريد التكست بوكس ١ به تاريخ اليوم تلقائيا اما التكست بوكس ٢ نقوم بإدخال تاريخ الميلاد فالتكست ٢ يقوم بتنسيق التاريخ المدخل بصيغة مثلا dd/ MM/ yyyy مشكور أستاذنا الفاضل🤗🤗🤗

@@ElsaftyMohamed هل بالامكان حساب السنوات والأشهر والأيام المتبقية والساعات المتبقية والدقائق المتبقية والثواني المتبقية وشكرا 🤗🤗🤗

لتنسيق التاريخ في تكست بوكس باستخدام Visual Basic، يمكنك استخدام خاصية `Format` لتنسيق التاريخ كما تريد. على سبيل المثال، إليك كود يوضح كيفية ذلك: ```vb.net Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load ' تاريخ اليوم Dim currentDate As Date = Date.Now ' تنسيق التاريخ وعرضه في TextBox1 TextBox1.Text = Format(currentDate, "yyyy-MM-dd HH:mm:ss") End Sub ``` أما بالنسبة لحساب الفارق بين تاريخين في الساعات والدقائق والثواني، يمكنك استخدام الدالة `DateDiff`، كما في المثال التالي: ```vb.net Private Sub CalculateTimeDifference() ' تاريخ البداية Dim startDate As Date = #1/1/2022 12:00:00 PM# ' تاريخ النهاية Dim endDate As Date = Date.Now ' حساب الفارق بين التاريخين في الساعات والدقائق والثواني Dim hoursDiff As Integer = DateDiff(DateInterval.Hour, startDate, endDate) Dim minutesDiff As Integer = DateDiff(DateInterval.Minute, startDate, endDate) Dim secondsDiff As Integer = DateDiff(DateInterval.Second, startDate, endDate) ' عرض الفارق في TextBox2 TextBox2.Text = $"{hoursDiff} ساعة، {minutesDiff} دقيقة، {secondsDiff} ثانية" End Sub ``` يمكنك استدعاء دالة `CalculateTimeDifference` في أي مكان يناسبك في الكود لحساب وعرض الفارق بين تاريخين. @omarrahim673

❤️🌹😍

❤️🌹😍

قريب بإذن الله rslogix 5000

متشكر جدا ، ربنا يبارك فيك ويحفظك 🌹

ربنا يبارك فيك ويحفظك AOWS ALQURAISHI

ربنا يبارك فيكي ويحفظك 😍💞👍

تسلم يا صديقي 🙏😍

ربنا يبارك فيك ويحفظك

قريبا سيتم وضع رابط نسخة تجريبية

ربنا يبارك فيكي ويحفظك 😍💓

ممكن توضيح السؤال

بإذن الله هشرحه في فيديو قريب جدا

متشكر جدا ، ربنا يبارك فيك أخي الكريم 💓

ربنا يبارك فيك ويحفظك أخي الكريم 💓

بإذن الله في فيديو جديد علي القناه

برناج EKTS لتصميم الدوائر الكهربية

الامبير قبل وبعد الكونتاكتور متساويين , وبالتالي في حالة ارتفاع التيار لأي سبب الاوفرلود هيفصل الموتور سواء كان قبل الكونتاكتور أو بعد الكونتاكتور