<![CDATA[منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - قسم امثلة ومشاريع VB.NET]]> https://vb4arb.com/vb/ Wed, 22 Apr 2026 21:33:50 +0000 MyBB <![CDATA[شراء سورس كود]]> https://vb4arb.com/vb/showthread.php?tid=56228 Mon, 13 Apr 2026 19:18:32 +0000 sher]]> https://vb4arb.com/vb/showthread.php?tid=56228
للتواصل معي 00963992295734]]>
للتواصل معي 00963992295734]]> <![CDATA[برنامج لإدارة sql server بالفيجوال بيسك]]> https://vb4arb.com/vb/showthread.php?tid=55984 Sun, 18 Jan 2026 06:54:02 +0000 ggtt17121985]]> https://vb4arb.com/vb/showthread.php?tid=55984 ]]> ]]> <![CDATA[المنكر المبرمج… وأين البرمجة المضادة؟]]> https://vb4arb.com/vb/showthread.php?tid=55967 Thu, 08 Jan 2026 02:48:17 +0000 clombs_23]]> https://vb4arb.com/vb/showthread.php?tid=55967 دعوة إلى المبرمجين وأهل الثغور التقنية: نحو مشروع دعوة إلى الله رقمية ذكية
السلام عليكم ورحمة الله وبركاته، يا أهل الفكر والتقنية.
أكتب هذه الكلمات من قلبٍ غيور، يرى ما آلت إليه منصات التواصل الاجتماعي من انتشارٍ واسع للمجاهرة بالمعاصي؛ من موسيقى، وصور لا ترضي الله، وتساهلٍ ظاهر في المحرمات، حتى أصبح المنكر مألوفًا، والنصيحة غريبة.
ونحن نعلم يقينًا قول النبي ﷺ:
«من دلّ على خير فله مثل أجر فاعله».
وهنا يبرز سؤالٌ ملحّ:
لماذا تُسخَّر التقنيات الحديثة والبوتات الذكية في الغالب للأغراض التجارية فقط، ولا تُستثمر بالقدر الكافي في الدعوة إلى الله، والأمر بالمعروف، والنهي عن المنكر؟
إننا اليوم بحاجة إلى ما يمكن تسميته بـ “أتمتة الدعوة”؛ دعوة ذكية، هادئة، مؤثرة، لا تصادم ولا فظاظة فيها.
ومن هنا تأتي فكرة إنشاء بوتات دعوية ذكية (Smart Da‘wah Bots) تقوم بـ:
• رصد الكلمات المفتاحية المرتبطة بالمنكرات، والرد عليها تلقائيًا بنصائح لطيفة، وتذكيرٍ مؤثر بلا تشهير ولا استفزاز.
• مزاحمة المحتوى المحرم في الوسوم العامة بنشر بدائل مباحة؛ كتلاوات القرآن، والأذكار، وأصوات الطبيعة الهادئة.
• التذكير بالأحاديث العظيمة، كقول النبي ﷺ:
«إنك لن تدع شيئًا اتقاءَ الله إلا آتاك الله خيرًا منه».
• التنبيه إلى خطر الذنوب الجارية التي يبقى أثرها بعد الموت، كما قال الشاطبي رحمه الله:
«الويل الطويل لمن يموت وتبقى ذنوبه مئات السنين يُعذَّب بها».
التحدي موجّه إليكم يا أهل البرمجة والتقنية:
من يملك القدرة على بناء أداة أو بوت يسهّل على المسلم الغيور أداء النصيحة تلقائيًا، دون أن يضطر لمشاهدة المنكرات أو التعرّض لها بنفسه؟
لنحوّل أسطر الكود إلى حسنات جارية، ولنجعل التقنية خادمة للدين كما خدمت الدنيا.
فمن كانت لديه القدرة أو الفكرة أو المساهمة، فليتقدم؛
فالفردوس الأعلى يستحق منا هذا الجهد. 
والله الموفق.]]> دعوة إلى المبرمجين وأهل الثغور التقنية: نحو مشروع دعوة إلى الله رقمية ذكية
السلام عليكم ورحمة الله وبركاته، يا أهل الفكر والتقنية.
أكتب هذه الكلمات من قلبٍ غيور، يرى ما آلت إليه منصات التواصل الاجتماعي من انتشارٍ واسع للمجاهرة بالمعاصي؛ من موسيقى، وصور لا ترضي الله، وتساهلٍ ظاهر في المحرمات، حتى أصبح المنكر مألوفًا، والنصيحة غريبة.
ونحن نعلم يقينًا قول النبي ﷺ:
«من دلّ على خير فله مثل أجر فاعله».
وهنا يبرز سؤالٌ ملحّ:
لماذا تُسخَّر التقنيات الحديثة والبوتات الذكية في الغالب للأغراض التجارية فقط، ولا تُستثمر بالقدر الكافي في الدعوة إلى الله، والأمر بالمعروف، والنهي عن المنكر؟
إننا اليوم بحاجة إلى ما يمكن تسميته بـ “أتمتة الدعوة”؛ دعوة ذكية، هادئة، مؤثرة، لا تصادم ولا فظاظة فيها.
ومن هنا تأتي فكرة إنشاء بوتات دعوية ذكية (Smart Da‘wah Bots) تقوم بـ:
• رصد الكلمات المفتاحية المرتبطة بالمنكرات، والرد عليها تلقائيًا بنصائح لطيفة، وتذكيرٍ مؤثر بلا تشهير ولا استفزاز.
• مزاحمة المحتوى المحرم في الوسوم العامة بنشر بدائل مباحة؛ كتلاوات القرآن، والأذكار، وأصوات الطبيعة الهادئة.
• التذكير بالأحاديث العظيمة، كقول النبي ﷺ:
«إنك لن تدع شيئًا اتقاءَ الله إلا آتاك الله خيرًا منه».
• التنبيه إلى خطر الذنوب الجارية التي يبقى أثرها بعد الموت، كما قال الشاطبي رحمه الله:
«الويل الطويل لمن يموت وتبقى ذنوبه مئات السنين يُعذَّب بها».
التحدي موجّه إليكم يا أهل البرمجة والتقنية:
من يملك القدرة على بناء أداة أو بوت يسهّل على المسلم الغيور أداء النصيحة تلقائيًا، دون أن يضطر لمشاهدة المنكرات أو التعرّض لها بنفسه؟
لنحوّل أسطر الكود إلى حسنات جارية، ولنجعل التقنية خادمة للدين كما خدمت الدنيا.
فمن كانت لديه القدرة أو الفكرة أو المساهمة، فليتقدم؛
فالفردوس الأعلى يستحق منا هذا الجهد. 
والله الموفق.]]> <![CDATA[شبه مكرر(bbcode_Editor)]]> https://vb4arb.com/vb/showthread.php?tid=55804 Tue, 09 Dec 2025 16:40:24 +0000 justforit]]> https://vb4arb.com/vb/showthread.php?tid=55804 السلام عليكم ورحمة الله و بركاته
[صورة مرفقة: bbcode-Editor.png]
بعد المدة اللتي قضيتها محاولا تشغيل محرر ascx بعد تحويله الى dll  في تطبيق asp.net aspx و لم اتمكن من ذلك أحببت ان اعمل مثال قد ينفع اي مبتدئ في تعلم البرمجة
الازرار السفلية هي لمربع المحرر
بقيت اشياء كثيرة منها القوائم مثل:[*list]  ونهايته [/*]
  • وسم البداية و نهايته
كل انواع وسوم  القوائم (مع الوسوم الاخرى طبعا) يتم تحويلها الى اكواد html  بعد النقر على زر Convert to html
قبل التحويل الى html تعتبر وسوم تصلح للمنتديات  اما التحويل اذا اردت استعراض هذه النصوص من قاعدة البيانات في صفحة html
password:vb4arb
جل ما اطلبه ممن يتسفيد من هذا المشروع  الدعاء لي بخير  و الشفاء 
شكر الله لكم وبارك فيكم
++++++++
myeditor.html المرفق الثاني هذا صفحة html محرر bbcode لكن بلغة html and javascript  ومعها css كلها بصفحة واحدة 
[صورة مرفقة: xxx.png]


.zip   BBcodeEditor.zip (الحجم : 106.98 ك ب / التحميلات : 12)

.zip   myeditor.zip (الحجم : 1.98 ك ب / التحميلات : 7) ]]> السلام عليكم ورحمة الله و بركاته
[صورة مرفقة: bbcode-Editor.png]
بعد المدة اللتي قضيتها محاولا تشغيل محرر ascx بعد تحويله الى dll  في تطبيق asp.net aspx و لم اتمكن من ذلك أحببت ان اعمل مثال قد ينفع اي مبتدئ في تعلم البرمجة
الازرار السفلية هي لمربع المحرر
بقيت اشياء كثيرة منها القوائم مثل:[*list]  ونهايته [/*]
  • وسم البداية و نهايته
كل انواع وسوم  القوائم (مع الوسوم الاخرى طبعا) يتم تحويلها الى اكواد html  بعد النقر على زر Convert to html
قبل التحويل الى html تعتبر وسوم تصلح للمنتديات  اما التحويل اذا اردت استعراض هذه النصوص من قاعدة البيانات في صفحة html
password:vb4arb
جل ما اطلبه ممن يتسفيد من هذا المشروع  الدعاء لي بخير  و الشفاء 
شكر الله لكم وبارك فيكم
++++++++
myeditor.html المرفق الثاني هذا صفحة html محرر bbcode لكن بلغة html and javascript  ومعها css كلها بصفحة واحدة 
[صورة مرفقة: xxx.png]


.zip   BBcodeEditor.zip (الحجم : 106.98 ك ب / التحميلات : 12)

.zip   myeditor.zip (الحجم : 1.98 ك ب / التحميلات : 7) ]]> <![CDATA[برنامج معمل تحاليل طبية]]> https://vb4arb.com/vb/showthread.php?tid=55786 Wed, 26 Nov 2025 07:31:09 +0000 قوقيلا]]> https://vb4arb.com/vb/showthread.php?tid=55786 عاوز برنامج معمل تحاليل طبية
وجزاكم الله خيرا]]> عاوز برنامج معمل تحاليل طبية
وجزاكم الله خيرا]]> <![CDATA[فحص النص هل هو تاريخ حقيقي او غير معتمد بالجهاز]]> https://vb4arb.com/vb/showthread.php?tid=55520 Mon, 10 Nov 2025 14:06:14 +0000 justforit]]> https://vb4arb.com/vb/showthread.php?tid=55520 السلام عليكم ورحمة الله و بركاته
يوجد خطأ تم تصحيحه في المشاركة اللاحقة

[صورة مرفقة: p1.png]

[صورة مرفقة: p2.png]

[صورة مرفقة: p3.png]

هذا مثال بعد البهدلة اللتي حصلت مع التاريخ فاستخدام اجراء Isdate لا يفرق بين أي نص وبين نص التاريخ غير المعتمد بالجهاز لكنه نص تاريخ والدليل انك ان قمت بالتعديل على اعدادات الجهاز بخصوص تنسيق التاريخ يتم اعتماد نص التاريخ كتاريخ
المهم  المرفق كما بالصور 
و من لا يريد تحميل المرفق الكود التالي كامل كلاس الفورم
كود :
Imports System.Globalization
Imports System.Net
Imports System.Text
Public Class Form1
   Dim arr() As String = New String() {"أمس", "ساعة", "دقيقة"}
   Function Extract_date(txt As String, ff As String) As DateTime
       ' Try
       Return DateTime.ParseExact(txt, ff, CultureInfo.InvariantCulture)
       ' Catch ex As Exception
       'Return Nothing
       ' End Try
   End Function
   Public Function ToTimeStamp(ByVal target As Date) As Long
       Dim [date] As New DateTime(1970, 1, 1, 0, 0, 0, target.Kind)
       Dim hubspotTimestamp As Long = Convert.ToInt64((target - [date]).TotalSeconds)
       Return hubspotTimestamp
   End Function
   Public Function ConvertUnixTimestampToDateTime(ByVal unixTimestamp As Long) As DateTime
       ' Define the Unix epoch start date
       Dim epoch As New DateTime(1970, 1, 1, 0, 0, 0, DateTimeKind.Utc)
       ' Add the Unix timestamp (in seconds) to the epoch
       Dim dateTimeResult As DateTime = epoch.AddSeconds(unixTimestamp)
       ' Optionally, convert to local time if needed
       ' dateTimeResult = dateTimeResult.ToLocalTime()
       Return dateTimeResult
   End Function
   Public Function IsDateTime(ByVal inputString As String) As Boolean
       Dim dt As DateTime
       Return DateTime.TryParse(inputString, dt)
   End Function
   Function gettime(url As String) As String
       Dim wc As New WebClient
       wc.Encoding = Encoding.UTF8
       Dim html As String = wc.DownloadString(url)
       Dim doc As New HtmlAgilityPack.HtmlDocument
       doc.LoadHtml(html)
       Return doc.DocumentNode.SelectSingleNode("//span[@class='post_date']").FirstChild.InnerText
   End Function
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnGetdate.Click
       'Dim d As DateTime = Extract_date(t1.Text.TrimEnd, "dd-MM-yy, hh:mm tt")
       If (txturl.Text.Trim = "" And txtdate.Text.Trim = "") Then
           MsgBox("اما اكتب رابط مشاركة بالمربع الاول او اكتب تاريخ كامل مع الوقت بالمربع الثاني")
           Return
       End If
       Dim url As String = txturl.Text
       Dim dt As String = ""
       If url.Trim <> "" Then
           dt = gettime(url).TrimEnd
       ElseIf txtdate.Text.Trim <> "" Then
           dt = txtdate.Text
       End If
       If arr.Contains(dt.Split(",")(0)) Then
           Dim d As DateTime = Now.AddDays(-1).ToString("d")
           Dim t As DateTime = CDate(dt.Split(",")(1)).ToString("hh:mm tt")
           Dim dateString As String = d
           Dim timeString As String = t
           Dim combinedString As String = $"{dateString} {timeString}"
           TextBox2.Text = ToTimeStamp(combinedString)
       Else
           If IsDateTime(dt) Then
               TextBox2.Text = ToTimeStamp(dt)
           Else
               Dim f As String = InputBox("ادخل تنسيق التاريخ ثم حاول مجددا", "", "dd-MM-yy, hh:mm tt")
               Dim xd As String = Extract_date(dt, f)
               TextBox2.Text = ToTimeStamp(xd)
           End If
       End If
   End Sub
   Private Sub TextBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles txturl.MouseClick
       If e.Button = MouseButtons.Left Then
           txturl.Clear()
           If Clipboard.GetText.Trim <> "" Then
               txturl.Paste()
           End If
       End If
   End Sub

   Private Sub TextBox2_MouseClick(sender As Object, e As MouseEventArgs) Handles TextBox2.MouseClick
       If e.Button = MouseButtons.Left Then
           TextBox2.Clear()
           If Clipboard.GetText.Trim <> "" Then
               TextBox2.Paste()
           End If
       End If
   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       TextBox3.Text = ConvertUnixTimestampToDateTime(TextBox2.Text)
   End Sub
End Class
الهدف انشاء مايسمى dateline بعد تحويل التاريخ الى:
TimeStamp
هذا يناسب ان يخزن في عمود الـdateline في جدول mybb_threads  وجداول اخرى
password:vb4arb
احمد الله تعالى ثم اشكر الاخ اللذي قام بتحويل اكواد بي اتش بي الى فيجوال بيسك دوت نت في اعوام 2012-2013
الكلاس كما المرفق يحتوى اكواد مهمة لاي مبتديء وقد تكون مهمة للمتوسط ايضا.
اسعد الله مساءكم بكل خير
و السلام عليكم ورحمة الله و بركاته
ارجوكم الدعاء لي بالتوفيق


.zip   IsDateTime.zip (الحجم : 13.76 ك ب / التحميلات : 17) ]]> السلام عليكم ورحمة الله و بركاته
يوجد خطأ تم تصحيحه في المشاركة اللاحقة

[صورة مرفقة: p1.png]

[صورة مرفقة: p2.png]

[صورة مرفقة: p3.png]

هذا مثال بعد البهدلة اللتي حصلت مع التاريخ فاستخدام اجراء Isdate لا يفرق بين أي نص وبين نص التاريخ غير المعتمد بالجهاز لكنه نص تاريخ والدليل انك ان قمت بالتعديل على اعدادات الجهاز بخصوص تنسيق التاريخ يتم اعتماد نص التاريخ كتاريخ
المهم  المرفق كما بالصور 
و من لا يريد تحميل المرفق الكود التالي كامل كلاس الفورم
كود :
Imports System.Globalization
Imports System.Net
Imports System.Text
Public Class Form1
   Dim arr() As String = New String() {"أمس", "ساعة", "دقيقة"}
   Function Extract_date(txt As String, ff As String) As DateTime
       ' Try
       Return DateTime.ParseExact(txt, ff, CultureInfo.InvariantCulture)
       ' Catch ex As Exception
       'Return Nothing
       ' End Try
   End Function
   Public Function ToTimeStamp(ByVal target As Date) As Long
       Dim [date] As New DateTime(1970, 1, 1, 0, 0, 0, target.Kind)
       Dim hubspotTimestamp As Long = Convert.ToInt64((target - [date]).TotalSeconds)
       Return hubspotTimestamp
   End Function
   Public Function ConvertUnixTimestampToDateTime(ByVal unixTimestamp As Long) As DateTime
       ' Define the Unix epoch start date
       Dim epoch As New DateTime(1970, 1, 1, 0, 0, 0, DateTimeKind.Utc)
       ' Add the Unix timestamp (in seconds) to the epoch
       Dim dateTimeResult As DateTime = epoch.AddSeconds(unixTimestamp)
       ' Optionally, convert to local time if needed
       ' dateTimeResult = dateTimeResult.ToLocalTime()
       Return dateTimeResult
   End Function
   Public Function IsDateTime(ByVal inputString As String) As Boolean
       Dim dt As DateTime
       Return DateTime.TryParse(inputString, dt)
   End Function
   Function gettime(url As String) As String
       Dim wc As New WebClient
       wc.Encoding = Encoding.UTF8
       Dim html As String = wc.DownloadString(url)
       Dim doc As New HtmlAgilityPack.HtmlDocument
       doc.LoadHtml(html)
       Return doc.DocumentNode.SelectSingleNode("//span[@class='post_date']").FirstChild.InnerText
   End Function
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnGetdate.Click
       'Dim d As DateTime = Extract_date(t1.Text.TrimEnd, "dd-MM-yy, hh:mm tt")
       If (txturl.Text.Trim = "" And txtdate.Text.Trim = "") Then
           MsgBox("اما اكتب رابط مشاركة بالمربع الاول او اكتب تاريخ كامل مع الوقت بالمربع الثاني")
           Return
       End If
       Dim url As String = txturl.Text
       Dim dt As String = ""
       If url.Trim <> "" Then
           dt = gettime(url).TrimEnd
       ElseIf txtdate.Text.Trim <> "" Then
           dt = txtdate.Text
       End If
       If arr.Contains(dt.Split(",")(0)) Then
           Dim d As DateTime = Now.AddDays(-1).ToString("d")
           Dim t As DateTime = CDate(dt.Split(",")(1)).ToString("hh:mm tt")
           Dim dateString As String = d
           Dim timeString As String = t
           Dim combinedString As String = $"{dateString} {timeString}"
           TextBox2.Text = ToTimeStamp(combinedString)
       Else
           If IsDateTime(dt) Then
               TextBox2.Text = ToTimeStamp(dt)
           Else
               Dim f As String = InputBox("ادخل تنسيق التاريخ ثم حاول مجددا", "", "dd-MM-yy, hh:mm tt")
               Dim xd As String = Extract_date(dt, f)
               TextBox2.Text = ToTimeStamp(xd)
           End If
       End If
   End Sub
   Private Sub TextBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles txturl.MouseClick
       If e.Button = MouseButtons.Left Then
           txturl.Clear()
           If Clipboard.GetText.Trim <> "" Then
               txturl.Paste()
           End If
       End If
   End Sub

   Private Sub TextBox2_MouseClick(sender As Object, e As MouseEventArgs) Handles TextBox2.MouseClick
       If e.Button = MouseButtons.Left Then
           TextBox2.Clear()
           If Clipboard.GetText.Trim <> "" Then
               TextBox2.Paste()
           End If
       End If
   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       TextBox3.Text = ConvertUnixTimestampToDateTime(TextBox2.Text)
   End Sub
End Class
الهدف انشاء مايسمى dateline بعد تحويل التاريخ الى:
TimeStamp
هذا يناسب ان يخزن في عمود الـdateline في جدول mybb_threads  وجداول اخرى
password:vb4arb
احمد الله تعالى ثم اشكر الاخ اللذي قام بتحويل اكواد بي اتش بي الى فيجوال بيسك دوت نت في اعوام 2012-2013
الكلاس كما المرفق يحتوى اكواد مهمة لاي مبتديء وقد تكون مهمة للمتوسط ايضا.
اسعد الله مساءكم بكل خير
و السلام عليكم ورحمة الله و بركاته
ارجوكم الدعاء لي بالتوفيق


.zip   IsDateTime.zip (الحجم : 13.76 ك ب / التحميلات : 17) ]]> <![CDATA[مثال تحميل من اليوتيوب]]> https://vb4arb.com/vb/showthread.php?tid=55393 Tue, 21 Oct 2025 21:38:21 +0000 justforit]]> https://vb4arb.com/vb/showthread.php?tid=55393 بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله و بركاته
[صورة مرفقة: vvvvv.png]
اللي مكبر حجم الملف هو ملف تنفيذي من بايثون مرفق مع المشروع و ايضا ضمن الريسورس 
لذلك رفعته على ميديا فاير 
اما الملف المرفق هو السورس كود لملف البايثون لا يعمل الا بوجود البايثون الرئيسي وصياغة مسارات كما في  الرابط
password:vb4arb


! لا ادري ما هو سر صعوبة انشاء ملف تنفيذي في بايثون !
صباح الخير على الجميع
لقطة بسيطة في اليوتيوب لكيفية الاستخدام
https://www.youtube.com/watch?v=oYx4T9zC8Jk

بصراحة لا ادري كيف نسيت ان ارفق المشروع الاول لكن حصل خير 
المرفق الان يحتاج الى تعديل بحيث تعطيه مسار الملف هذا كما هو بالمشروع.
واعتذر عن النسيان

.zip   vd.zip (الحجم : 577 بايت / التحميلات : 30)

.zip   EasyYoutubeVideosDownloader_2026.zip (الحجم : 18.76 ك ب / التحميلات : 38) ]]> بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله و بركاته
[صورة مرفقة: vvvvv.png]
اللي مكبر حجم الملف هو ملف تنفيذي من بايثون مرفق مع المشروع و ايضا ضمن الريسورس 
لذلك رفعته على ميديا فاير 
اما الملف المرفق هو السورس كود لملف البايثون لا يعمل الا بوجود البايثون الرئيسي وصياغة مسارات كما في  الرابط
password:vb4arb


! لا ادري ما هو سر صعوبة انشاء ملف تنفيذي في بايثون !
صباح الخير على الجميع
لقطة بسيطة في اليوتيوب لكيفية الاستخدام
https://www.youtube.com/watch?v=oYx4T9zC8Jk

بصراحة لا ادري كيف نسيت ان ارفق المشروع الاول لكن حصل خير 
المرفق الان يحتاج الى تعديل بحيث تعطيه مسار الملف هذا كما هو بالمشروع.
واعتذر عن النسيان

.zip   vd.zip (الحجم : 577 بايت / التحميلات : 30)

.zip   EasyYoutubeVideosDownloader_2026.zip (الحجم : 18.76 ك ب / التحميلات : 38) ]]> <![CDATA[ارسال واستقبال نص لبرنامج]]> https://vb4arb.com/vb/showthread.php?tid=55364 Fri, 17 Oct 2025 18:01:08 +0000 justforit]]> https://vb4arb.com/vb/showthread.php?tid=55364 [صورة مرفقة: app1.png]

[صورة مرفقة: app2.png]

السلام عليكم ورحمة الله وبركاته
طريقة استخدام الكونسول لاستقبال نص(Arguments) و ارسال رد .
هذا مثال بسيط حيث لايتم ارسال الا مسار ملف صوت او فيديو لمعرفة مدته 
اذا اضفت مسار مجلد الكونسول الى الـPath الرئيسي للنظام فلن تحتاج الا الى اسم ملف الكونسول  كما يظهر بالصورة
حسب المثال لا يوجد الا ردان:
اما مدة الفيديو او الصوت 
رسالة خطأ
password:vb4arb
احيانا انسى احول للانجليزي فاضع:
رلا4شقلا
فاعتذر 
و السلام عليكم ورحمة الله و بركاته


.zip   vb.zip (الحجم : 48.08 ك ب / التحميلات : 24) ]]> [صورة مرفقة: app1.png]

[صورة مرفقة: app2.png]

السلام عليكم ورحمة الله وبركاته
طريقة استخدام الكونسول لاستقبال نص(Arguments) و ارسال رد .
هذا مثال بسيط حيث لايتم ارسال الا مسار ملف صوت او فيديو لمعرفة مدته 
اذا اضفت مسار مجلد الكونسول الى الـPath الرئيسي للنظام فلن تحتاج الا الى اسم ملف الكونسول  كما يظهر بالصورة
حسب المثال لا يوجد الا ردان:
اما مدة الفيديو او الصوت 
رسالة خطأ
password:vb4arb
احيانا انسى احول للانجليزي فاضع:
رلا4شقلا
فاعتذر 
و السلام عليكم ورحمة الله و بركاته


.zip   vb.zip (الحجم : 48.08 ك ب / التحميلات : 24) ]]> <![CDATA[تحويل عدة صور الى ايقونات]]> https://vb4arb.com/vb/showthread.php?tid=55359 Thu, 16 Oct 2025 09:54:39 +0000 justforit]]> https://vb4arb.com/vb/showthread.php?tid=55359 بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله و بركاته
مثال بسيط لتحويل صورة واحدة الى ايقونة او عدة صور من مجلد يحولها دفعة واحدة بمقاسات جديدة
[صورة مرفقة: p1.png]
[صورة مرفقة: p2.png]
password:vb4arb


.zip   ImageToIcon_Converter.zip (الحجم : 28.84 ك ب / التحميلات : 31) ]]> بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله و بركاته
مثال بسيط لتحويل صورة واحدة الى ايقونة او عدة صور من مجلد يحولها دفعة واحدة بمقاسات جديدة
[صورة مرفقة: p1.png]
[صورة مرفقة: p2.png]
password:vb4arb


.zip   ImageToIcon_Converter.zip (الحجم : 28.84 ك ب / التحميلات : 31) ]]> <![CDATA[لتغيير الوان العناصر داخل ComboBox الكمبو بوكس]]> https://vb4arb.com/vb/showthread.php?tid=54966 Fri, 12 Sep 2025 01:42:28 +0000 abo ragab]]> https://vb4arb.com/vb/showthread.php?tid=54966 السلام عليكم ورحمة الله وبركاتة 
اضع بين ايديكم مثال لتغيير الوان العناصر داخل ComboBox الكمبو بوكس 
كل عنصر بلون معين تختارة انت
لعل ينتفع بة احد
المثال في المرفقات

.rar   WindowsApplication1.rar (الحجم : 72.46 ك ب / التحميلات : 63) ]]> السلام عليكم ورحمة الله وبركاتة 
اضع بين ايديكم مثال لتغيير الوان العناصر داخل ComboBox الكمبو بوكس 
كل عنصر بلون معين تختارة انت
لعل ينتفع بة احد
المثال في المرفقات

.rar   WindowsApplication1.rar (الحجم : 72.46 ك ب / التحميلات : 63) ]]> <![CDATA[مشروع دردشة مصغر]]> https://vb4arb.com/vb/showthread.php?tid=54851 Thu, 28 Aug 2025 22:20:48 +0000 mr3amo]]> https://vb4arb.com/vb/showthread.php?tid=54851
نظرة عامة عن المشروع
مشروع دردشة فوري (Instant Messaging) ، مبني على:
  • الخادم (Server): بلغة Python باستخدام
  • asyncio/aiomysql
    وقاعدة بيانات MySQL.
  • العميل (Client): باستخدام VB.NET مع اتصال عبر TCP Socket.
  • المشروع يتضمن دعم الأصدقاء، الرسائل، الإشعارات، وجلب المعلومات في الوقت الحقيقي.
يمكن ان نقول انه مشروع تعليمي لدردشة مصغرة.السيرفر بالبايتون (RelayServer)هو الذي يدير الجلسات بين العملاء ومربوط بقاعدة بيانات (xampp-mysql)ويتحكم في قاعدة البيانات و العميل باستخدام VB.NET مع اتصال عبر TCP Socketيشمل الاتي:
1-نظام تسجيل الدخول وإنشاء الحساب.
2-نظام الجلسات والاتصالات.
3-نظام الأصدقاء (Friend System).
4-نظام الرسائل (Messaging).
5-البحث عن الأصدقاء.
6-فتح المحادثات (Chat Loading).
7-تنبيهات الرسائل الجديدة.
كيفية تشغيل للمشروع :
1-اولا يجب تنصيب قاعدة البيانات(chat_system.sql) على (xampp-mysql) .
2-ثانيا يجب ان تثبت البايثون على الجهاز و من بعدها تثبيت المكتبات اللازمة ليعمل السيرفر وذالك من خلال ملف install.bat
3-تشغيل للسيرفر من ملف Run_server.bat
4- تشغيل ملف Chat_with_me.exe الخاص بالمحادثة. يمكنك عمل تسجيل عدة عضويات والتجربة بالاتصال بينهم.

[صورة مرفقة: p_35277dril1.png]
[صورة مرفقة: p_352717c412.png]

[صورة مرفقة: p_3527j6lmk3.png]
[صورة مرفقة: p_3527ri2qa4.png]

[صورة مرفقة: p_35278ro485.png]

تحميل الملف
https://top4top.io/downloadf-3527zce8i1-rar.html]]>
نظرة عامة عن المشروع
مشروع دردشة فوري (Instant Messaging) ، مبني على:
  • الخادم (Server): بلغة Python باستخدام
  • asyncio/aiomysql
    وقاعدة بيانات MySQL.
  • العميل (Client): باستخدام VB.NET مع اتصال عبر TCP Socket.
  • المشروع يتضمن دعم الأصدقاء، الرسائل، الإشعارات، وجلب المعلومات في الوقت الحقيقي.
يمكن ان نقول انه مشروع تعليمي لدردشة مصغرة.السيرفر بالبايتون (RelayServer)هو الذي يدير الجلسات بين العملاء ومربوط بقاعدة بيانات (xampp-mysql)ويتحكم في قاعدة البيانات و العميل باستخدام VB.NET مع اتصال عبر TCP Socketيشمل الاتي:
1-نظام تسجيل الدخول وإنشاء الحساب.
2-نظام الجلسات والاتصالات.
3-نظام الأصدقاء (Friend System).
4-نظام الرسائل (Messaging).
5-البحث عن الأصدقاء.
6-فتح المحادثات (Chat Loading).
7-تنبيهات الرسائل الجديدة.
كيفية تشغيل للمشروع :
1-اولا يجب تنصيب قاعدة البيانات(chat_system.sql) على (xampp-mysql) .
2-ثانيا يجب ان تثبت البايثون على الجهاز و من بعدها تثبيت المكتبات اللازمة ليعمل السيرفر وذالك من خلال ملف install.bat
3-تشغيل للسيرفر من ملف Run_server.bat
4- تشغيل ملف Chat_with_me.exe الخاص بالمحادثة. يمكنك عمل تسجيل عدة عضويات والتجربة بالاتصال بينهم.

[صورة مرفقة: p_35277dril1.png]
[صورة مرفقة: p_352717c412.png]

[صورة مرفقة: p_3527j6lmk3.png]
[صورة مرفقة: p_3527ri2qa4.png]

[صورة مرفقة: p_35278ro485.png]

تحميل الملف
https://top4top.io/downloadf-3527zce8i1-rar.html]]> <![CDATA[مشروع برنامج تسجيل فيديو(محاكات برنامج مثل OBS)]]> https://vb4arb.com/vb/showthread.php?tid=54850 Thu, 28 Aug 2025 18:47:24 +0000 mr3amo]]> https://vb4arb.com/vb/showthread.php?tid=54850 كما هو مذكور بالعنوان مثال عمل برنامج بسيط مثل OBS مع تقنيات تسجيل الشاشة أو الكاميرا بجودة عالية بالفجوال بيسك.
برامج مثل OBS تعتمد على تقنيات متقدمة جدًا في التقاط الفيديو والصوت، وضغطهما في الوقت الحقيقي، وهي ليست مبنية مباشرة على لغة مثل VB.NET، بل على مكتبات C/C++ عالية الأداء مثل:
  • FFmpeg – للضغط وتحويل الفيديو والصوت (يدعم H.264, AAC, Opus… إلخ).
  • DirectShow أو Media Foundation – لالتقاط الفيديو من الكاميرا أو الشاشة.
  • OpenGL / DirectX – لمعالجة الصور وإضافة الفلاتر في الوقت الفعلي.


-كيف يمكن تقليد ذلك في VB.NET
لغة VB.NET نفسها لا تملك دوال منخفضة المستوى للتعامل مع الفيديو الخام، لكن يمكنها استدعاء مكتبات خارجية (DLL) أو استخدام Interop مع C/C++.
1. التقاط الشاشة أو الكاميرا
  • Media Foundation API (مدعوم من ويندوز، يمكن ربطه بـ VB.NET عبر Interop).
  • DirectShow.NET (مشروع جاهز بواجهة VB/C# للـ DirectShow).
  • SharpAvi (للتسجيل إلى AVI، مناسب لعمليات بسيطة).
  • مكتبات مثل AForge.NET أو Accord.NET (تعطيك الوصول للكاميرا والفيديو).
2. ضغط الفيديو في الوقت الفعلي
 هنا تحتاج لمكتبة قوية:
  • FFmpeg: يمكنك استدعاؤه كسطر أوامر من VB.NET أو ربطه كمكتبة عبرffmpeg.dll
  • .
  • x264 أو NVENC (لتسريع الضغط عبر كارت الشاشة).
3. تحسين الأداء والجودة
  • استخدام GPU Encoding بدل الضغط بالمعالج (NVENC لـ NVIDIA، QuickSync لـ Intel، أو AMF لـ AMD).
  • تسجيل الفيديو بصيغة H.264 أو H.265 بمعدل إطار مناسب (30 أو 60 fps).
  • استخدام صيغة صوت Opus أو AAC للحجم الصغير مع جودة عالية.
- معلومة مهمة: OBS نفسه مكتوب بـ C/C++ ويستخدم مكتبات منخفضة المستوى جدًا، ولهذا هو سريع وقادر على التعامل مع فيديو 1080p أو 4K في الوقت الفعلي. في VB.NET، إذا أردت نفس الكفاءة، غالبًا ستبني واجهة تتحكم في مكتبات قوية مثل FFmpeg أو Media Foundation بدل أن تكتب المعالجة بنفسك Angry .

في مثالنا اعتمدنا على مكتبات خارجية AForge.NET   للوصول الى الكام والتحكم بها
وبالنسبة لاخد لقطات الشاشة والنوافذ المفتوحة اعتمدنا على
GDI+ (Graphics Device Interface): يمكنه أخذ لقطات للشاشة، لكن ليس بكفاءة عالية للفيديو(يمكن ان يلبي الحاجة كمثال  Big Grin ).

اما بالنسبة للصوت يمكنك الاعتماد على مكتبة NAudio لم انتهي منه .البرنامج الان يسجل بدون صوت Dodgy الامر ارهقني Huh
بالنسبة للتسجيل للفيديو النهائي اعتمدنا على FFmpeg – للضغط وتحويل الفيديو والصوت.

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

[صورة مرفقة: p_3527amz3f1.png]

رابط تحميل المشروع 
https://top4top.io/downloadf-35272d0li1-rar.html]]> كما هو مذكور بالعنوان مثال عمل برنامج بسيط مثل OBS مع تقنيات تسجيل الشاشة أو الكاميرا بجودة عالية بالفجوال بيسك.
برامج مثل OBS تعتمد على تقنيات متقدمة جدًا في التقاط الفيديو والصوت، وضغطهما في الوقت الحقيقي، وهي ليست مبنية مباشرة على لغة مثل VB.NET، بل على مكتبات C/C++ عالية الأداء مثل:
  • FFmpeg – للضغط وتحويل الفيديو والصوت (يدعم H.264, AAC, Opus… إلخ).
  • DirectShow أو Media Foundation – لالتقاط الفيديو من الكاميرا أو الشاشة.
  • OpenGL / DirectX – لمعالجة الصور وإضافة الفلاتر في الوقت الفعلي.


-كيف يمكن تقليد ذلك في VB.NET
لغة VB.NET نفسها لا تملك دوال منخفضة المستوى للتعامل مع الفيديو الخام، لكن يمكنها استدعاء مكتبات خارجية (DLL) أو استخدام Interop مع C/C++.
1. التقاط الشاشة أو الكاميرا
  • Media Foundation API (مدعوم من ويندوز، يمكن ربطه بـ VB.NET عبر Interop).
  • DirectShow.NET (مشروع جاهز بواجهة VB/C# للـ DirectShow).
  • SharpAvi (للتسجيل إلى AVI، مناسب لعمليات بسيطة).
  • مكتبات مثل AForge.NET أو Accord.NET (تعطيك الوصول للكاميرا والفيديو).
2. ضغط الفيديو في الوقت الفعلي
 هنا تحتاج لمكتبة قوية:
  • FFmpeg: يمكنك استدعاؤه كسطر أوامر من VB.NET أو ربطه كمكتبة عبرffmpeg.dll
  • .
  • x264 أو NVENC (لتسريع الضغط عبر كارت الشاشة).
3. تحسين الأداء والجودة
  • استخدام GPU Encoding بدل الضغط بالمعالج (NVENC لـ NVIDIA، QuickSync لـ Intel، أو AMF لـ AMD).
  • تسجيل الفيديو بصيغة H.264 أو H.265 بمعدل إطار مناسب (30 أو 60 fps).
  • استخدام صيغة صوت Opus أو AAC للحجم الصغير مع جودة عالية.
- معلومة مهمة: OBS نفسه مكتوب بـ C/C++ ويستخدم مكتبات منخفضة المستوى جدًا، ولهذا هو سريع وقادر على التعامل مع فيديو 1080p أو 4K في الوقت الفعلي. في VB.NET، إذا أردت نفس الكفاءة، غالبًا ستبني واجهة تتحكم في مكتبات قوية مثل FFmpeg أو Media Foundation بدل أن تكتب المعالجة بنفسك Angry .

في مثالنا اعتمدنا على مكتبات خارجية AForge.NET   للوصول الى الكام والتحكم بها
وبالنسبة لاخد لقطات الشاشة والنوافذ المفتوحة اعتمدنا على
GDI+ (Graphics Device Interface): يمكنه أخذ لقطات للشاشة، لكن ليس بكفاءة عالية للفيديو(يمكن ان يلبي الحاجة كمثال  Big Grin ).

اما بالنسبة للصوت يمكنك الاعتماد على مكتبة NAudio لم انتهي منه .البرنامج الان يسجل بدون صوت Dodgy الامر ارهقني Huh
بالنسبة للتسجيل للفيديو النهائي اعتمدنا على FFmpeg – للضغط وتحويل الفيديو والصوت.

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

[صورة مرفقة: p_3527amz3f1.png]

رابط تحميل المشروع 
https://top4top.io/downloadf-35272d0li1-rar.html]]> <![CDATA[طريقة توسيط النص داخل أداة ListBox]]> https://vb4arb.com/vb/showthread.php?tid=54833 Mon, 25 Aug 2025 05:10:06 +0000 أبو خالد الشكري]]> https://vb4arb.com/vb/showthread.php?tid=54833 مرحبا بالجميع
هذا الكود لتوسيط النص في أداة ListBox

الطريقة :
أولا من قائمة الخصائص :
* اختر لخاصية DrowMode الاختيار التالي : OwnerDrawFixed
[صورة مرفقة: do.php?img=356774]

ثانيا : الصق الكود التالي في حدث ListBox1_DrawItem
كود :
Private Sub ListBox1_DrawItem(sender As Object, e As DrawItemEventArgs) Handles ListBox1.DrawItem

       If e.Index < 0 Then Return
       If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
           e.Graphics.FillRectangle(Brushes.Yellow, e.Bounds) ' لون التحديد أصفر
       Else
           e.Graphics.FillRectangle(New SolidBrush(ListBox1.BackColor), e.Bounds)
       End If

       Dim txt As String = ListBox1.Items(e.Index).ToString()
       Dim sf As New StringFormat()
       sf.Alignment = StringAlignment.Center
       sf.LineAlignment = StringAlignment.Near
       e.Graphics.DrawString(txt, e.Font, Brushes.Blue, e.Bounds, sf) ' لون الخط أزرق
       e.DrawFocusRectangle()

   End Sub


ثالثا : يمكنك تحديد أي عنصر تريده ، عند بدء تشغيل البرنامج
فمثلا لتحديد العنصر الأول ، اكتب في حدث تحميل الفورم Form1_Load الكود التالي :
كود :
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       If ListBox1.Items.Count > 0 Then
           ListBox1.SelectedIndex = 0 ' تحديد أول عنصر
       End If
   End Sub


ولتحديد العنصر الثاني اكتب 1 بدلا من 0
ListBox1.SelectedIndex = 1
وهكذا في بقية العناصر

النتيجة النهائية ستكون هكذا :
[صورة مرفقة: do.php?img=356775]

ملاحظة : يوجد مثال مرفق في الأسفل يمكنك تحميله للتجربة !

هذا ، ودمتم بخير وعافية

.rar   ListBox_Cebter.rar (الحجم : 61.97 ك ب / التحميلات : 32) ]]> مرحبا بالجميع
هذا الكود لتوسيط النص في أداة ListBox

الطريقة :
أولا من قائمة الخصائص :
* اختر لخاصية DrowMode الاختيار التالي : OwnerDrawFixed
[صورة مرفقة: do.php?img=356774]

ثانيا : الصق الكود التالي في حدث ListBox1_DrawItem
كود :
Private Sub ListBox1_DrawItem(sender As Object, e As DrawItemEventArgs) Handles ListBox1.DrawItem

       If e.Index < 0 Then Return
       If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
           e.Graphics.FillRectangle(Brushes.Yellow, e.Bounds) ' لون التحديد أصفر
       Else
           e.Graphics.FillRectangle(New SolidBrush(ListBox1.BackColor), e.Bounds)
       End If

       Dim txt As String = ListBox1.Items(e.Index).ToString()
       Dim sf As New StringFormat()
       sf.Alignment = StringAlignment.Center
       sf.LineAlignment = StringAlignment.Near
       e.Graphics.DrawString(txt, e.Font, Brushes.Blue, e.Bounds, sf) ' لون الخط أزرق
       e.DrawFocusRectangle()

   End Sub


ثالثا : يمكنك تحديد أي عنصر تريده ، عند بدء تشغيل البرنامج
فمثلا لتحديد العنصر الأول ، اكتب في حدث تحميل الفورم Form1_Load الكود التالي :
كود :
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       If ListBox1.Items.Count > 0 Then
           ListBox1.SelectedIndex = 0 ' تحديد أول عنصر
       End If
   End Sub


ولتحديد العنصر الثاني اكتب 1 بدلا من 0
ListBox1.SelectedIndex = 1
وهكذا في بقية العناصر

النتيجة النهائية ستكون هكذا :
[صورة مرفقة: do.php?img=356775]

ملاحظة : يوجد مثال مرفق في الأسفل يمكنك تحميله للتجربة !

هذا ، ودمتم بخير وعافية

.rar   ListBox_Cebter.rar (الحجم : 61.97 ك ب / التحميلات : 32) ]]> <![CDATA[مساعدة في باركود]]> https://vb4arb.com/vb/showthread.php?tid=54626 Thu, 31 Jul 2025 09:51:51 +0000 سيد أحمد]]> https://vb4arb.com/vb/showthread.php?tid=54626
https://www.mediafire.com/file/eq6pqrutc...).rar/file]]>
https://www.mediafire.com/file/eq6pqrutc...).rar/file]]> <![CDATA[اداة لمزامنه الفواتير على نظام الفوترة الوطني الاردني]]> https://vb4arb.com/vb/showthread.php?tid=54432 Tue, 22 Jul 2025 13:57:38 +0000 mom22jo]]> https://vb4arb.com/vb/showthread.php?tid=54432
والتي تعمل على تصدير الفواتير الى نظام الفوترة الوطني الاردني


nuget.org

كما ارفق مشروع minipos نقاط بيع لشرح كيفيه عمل الاداه


github]]>
والتي تعمل على تصدير الفواتير الى نظام الفوترة الوطني الاردني


nuget.org

كما ارفق مشروع minipos نقاط بيع لشرح كيفيه عمل الاداه


github]]>