منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - مكتبة أكواد المنتدى

طلب كود الساعة تعمل بتوقيت القاهرة

Sun, 29 Sep 2024 16:39:17 +0000

السلام عليكم.

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

تصحيح اكواد

Tue, 26 Apr 2022 12:03:52 +0000

اريد تصحيح الاكواد الاتية :
CREATE TABLE[dbo].[ITEMS]
(
[ITEMS]INT NOT NULL PRIMARY KEY IDENTITY
[كود_الصنف] NVARCHAR(30) NOT NULL
[كود_التوريد] NVARCHAR(50) NOT NULL
[ترميز_الصنف] NVARCHAR(50) NOT NULL
[اسم_الصنف] NVARCHAR(50) NOT NULL
[الوحدة] NVARCHAR(50) NOT NULL
[نوع_الصنف] NVARCHAR(50) NOT NULL
[بلد_المنشأ] NVARCHAR(50) NOT NULL
[اسم_الخط] NVARCHAR(50) NOT NULL
[اسم_الماكينة] NVARCHAR(50) NOT NULL
[اعادة_الطلب] NVARCHAR(50) NOT NULL
[الصلاحية] NVARCHAR(50) NOT NULL
[تاريخ_الصلاحية] NVARCHAR(50) NOT NULL

ماهو الخطأ

اريد كود للحفظ يوزرات وباسوردات المواقع

Sat, 03 Dec 2016 12:45:29 +0000

السلام عليكم

اريد كود او بروجيكت لحفظ اليوزرات والايميلات يعني برنامج شبية بمتصفح ويتم تسجيل كل عملية دخول اليوزر والباسورد بمعني ان لو فاتح 10 منتديات يعمل تسجيل للبيانات اقفل البرنامج واشغلة تاني يفتح من دون ادخال اليوزرات والباسوردات

ولكم جزيل الشكر

كود لتغير اللغة لما تتدخل لتكست بوكس

Tue, 26 Jul 2016 12:53:30 +0000

السلام عليكم و رحمة الله و بركاته
شباب اريد كود:
لما تدخل لتكست بوكس 1 تتغير اللغة تلقائيا للانقليزي
و لما تدخل لتكست بوكس 2 ترجع للغة العربية
بارك الله فيكم

كود حذف ما بعد نص معين

Fri, 04 Dec 2015 16:04:21 +0000

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

لدي قاعدة بيانات تحتوي جدول فية اسماء ملفات وورد او ادوبي مخزونة في الحاسبة اي موجود المسار بالاضافة الى اسم الملف والذي ينتهي بالامتداد PDF او DOC. حيث ان كل صف في الجدول يحتوي معلومات كما في المثال

C:\directory\word\aa.pdf

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

C:\directory\word\aa.pdfAAfgjgjhhhgjghdlfhmdhkdffhkdfkh

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

اريد كود بلغة c ل file system compression

Sat, 21 Feb 2015 16:11:24 +0000

Implement linux file system compression algorithm

اريد كود لهذا السيناريو

Fri, 23 Jan 2015 11:36:37 +0000

ارجوكم ساعدوني في كود لهذا السيناريو (علما تابع لكورس نظم التشغيل):
write a multithreaded program that implements bankers algorithm. several customers request and and release resources form the bank .the banker will grant a request only if it leaves the system in a safe state. Arequest that leaves the system in unsafe state will be denied

اريد كود لهذا السيناريو

Fri, 23 Jan 2015 11:30:24 +0000

مساعد في برنامج يحفظ ايمايلا ت والبسوردات اسم المنتديات

Sun, 25 Aug 2013 21:23:23 +0000

[COLOR="#0000CD"]من فضلكم اريد كود برنامج لحفظ الايميلات والباسوردات و اسم المنتديات
مثلا انا عندما اسجل في منتدى اذهب الى بنامج واحفظ فيه اسم المنتدى و لايمايل و البسوورد
[/COLOR]

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

Wed, 07 Aug 2013 23:43:58 +0000

لنفترض ان اداة العرض للنص هي Literal
سنضعها ضمن div

كود :

والكود التالي شامل للسابق واضافة التفاف النص غير فقط العرض max-width
في السابق واللاحق

كود :

النتيجة

محاكاة الـsitemapPath بطريقة سهلة

Wed, 07 Aug 2013 19:53:56 +0000

أحببت كتابة الحل والطريقة التي اعجبتني نوعا ما بموضوع مستقل هنا وارجو ان يكون هذا الموضوع بمكانه المناسب
اول الامر نحتاج اداة بمكان موجود بكل الصفحات وهذا يضطرنا لاستخدام صفحة الماستربيج حيث ان اي اداة فيها ستكون مرئية في كل الصفحات
لنضع الان اداة Literal في منطقة ما في الماستربيج ولتكن اسفل الهيدر واعلى شريط عناوين الصفحات او شريط التنقل
لنعطي الاداة اسم وليكن "nav"
الخطوة الثانية لنكتب في موديول التعميمات التالية:
'تخزين الروابط في متغيرات

لحظة شوف التحديث
!!! تحديث !!!

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

كود :
<%@ MasterType VirtualPath="~/MasterPage.master" %>

خلاص كمل

كود :
Public nvdefault As String = ""

    Public nvshowform As String = ""

    Public nvshowthread As String = ""

    '***********************

ثم بحدث تحميل صفحة default.aspx وهي الرئيسية نكتب الكود التالي:

كود :

nvdefault = "الصفحة الرئيسية"

 Dim mynav As Literal = DirectCast(Master.FindControl("nav"), Literal)

 mynav.Text = nvdefault ' Request.Url.PathAndQuery

لنشرح الكود:
السطر الاول وهو:

كود :

nvdefault = "الصفحة الرئيسية"

وهو اسناد اسم الصفحة الرئيسية ورابطها للمتغير الخاص بها اي بالصفحة الرئيسية

السطر الثاني وهو:

كود :
Dim mynav As Literal = DirectCast(Master.FindControl("nav"), Literal)

هو للوصول للاداة التي اضفناها في الماستربيج باسم "nav"

السطر الثالث وهو:

كود :
mynav.Text = nvdefault

اسناد متغير الصفحة الرئيسية للاداة mynav
[[هنا كود حل مؤقت تذكره جيدا]]
------------------------
الان نذهب لصفحة عرض العناوين showform ونكتب بحدث تحميلها الكود التالي:

كود :

'تغيير  محتوى literal 

        If Not IsPostBack Then

            nvshowform = nvdefault & " < " & Request.QueryString("fn") & ""

        End If

        Dim mynav As Literal = DirectCast(Master.FindControl("nav"), Literal)

        mynav.Text = nvshowform  ' Request.Url.PathAndQuery

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

[b]{ معلومة} .. معلومات Request
[/b]

المهم الان متغير nvshowform اسندنا له متغير nvdefault اي رابط واسم الصفحة الرئيسية وختمناها بالاسناد للمتغير او الاداة الموجودة بالماستربيج

كود :
mynav.Text = nvshowform

-----------------

الان توجه لصفحة عرض الموضوع showthread.aspx
وبحدث تحميلها اكتب

كود :

'تغيير  محتوى literal         If Not IsPostBack Then

            Dim mynav As Literal = DirectCast(Master.FindControl("nav"), Literal)

            nvshowthread = nvshowform & " < " & Request.QueryString("thn") & ""

            mynav.Text = nvshowthread

        End If

        ' انتهاء تغيير محتوى literal

طبعا فيه اشياء قد لاتعمل معك مثل متغير

كود :
Request.QueryString("thn")

لانها مرسلة من صفحة سابقة فقط لعرض اسم الموضوع في الاداة
-----------------------------------------------------
الان انتهينا من برمجة المحاكي بقي حل اشكال وهو هنا اقصد الاشكال اما حله المؤقت هنا وهو ان نفرغ متغير اسم المنتدى ورابطه بحدث تحميل الصفحة الرئيسية

كود :
nvshowform = ""       

 nvshowthread = ""

ساجهز مثال باذن الله تعالى وارفعه بقسم المشاريع (وهذا هو المثال بالقسم مثال محاكاة الـ sitemapPath)
ارجو ان اكون قدمت لكم شيئا مفيدا
عيدكم مبارك

طريقة عمل زاوية مقوسة بواسطة css

Tue, 06 Aug 2013 16:00:44 +0000

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

طالما كنت ابحث عن ذلك وبالصدفة وجدتها

كود :
border-radius: 15px;

هذا سر شكل الزوايا تطبقها على التخطيط الرئيسي للجدول وعلى منطقة الهيدر ليكون متناسقا

موضوع رائع جدا يستحق التحميل و المتابعة

Mon, 29 Jul 2013 22:14:30 +0000

هذا المشروع عثرت عليه بموقع VB4ARAB به برنامج متكامل بـــ dao يتمثل في 24 درس مرفوق بــ24 مثال متتابع كل من يريد تعلم ربط الاكساس بالداو ما عليه الا الشكر و التحميل

08 اجزاء

  progmme.part02.rar (الحجم : 1.39 م ب / التحميلات : 73)

  progmme.part03.rar (الحجم : 1.39 م ب / التحميلات : 52)

  progmme.part04.rar (الحجم : 1.39 م ب / التحميلات : 53)

  progmme.part05.rar (الحجم : 1.39 م ب / التحميلات : 58)

  progmme.part06.rar (الحجم : 1.39 م ب / التحميلات : 48)

  progmme.part07.rar (الحجم : 1.39 م ب / التحميلات : 49)

  progmme.part08.rar (الحجم : 1.39 م ب / التحميلات : 51)

  progmme.part09.rar (الحجم : 742.87 ك ب / التحميلات : 45)

  progmme.part01.rar (الحجم : 1.28 م ب / التحميلات : 62)

الحل الأمثل لتعديل حجم الفورم و الأدوات طبقا لحجم الشاشة

Sat, 09 Mar 2013 16:53:54 +0000

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

مرحبا بكم اقدم لكم اليوم الحل الأمثل لتعديل حجم الفورم والأدوات عند تغيير حجم الشاشة

قم بأضافة Class جديد باسم FormResizer

وأنسخ هذا الكود

كود :
[align=left]Imports System

Imports System.Collections.Generic

Imports System.Text

Imports System.Windows.Forms

Imports System.Drawing

Imports System.ComponentModel

Public Class FormResizer

    'Considerations:

    'Change the Form AutoSize Mode to None.

    Private f_HeightRatio As New Single()

    Private f_WidthRatio As New Single()

    Public Sub ResizeForm(ObjForm As Form, DesignerHeight As Integer, DesignerWidth As Integer)

        '#Region "Code for Resizing and Font Change According to Resolution"

        'Specify Here the Resolution Y component in which this form is designed

        'For Example if the Form is Designed at 800 * 600 Resolution then DesignerHeight=600

        Dim i_StandardHeight As Integer = DesignerHeight

        'Specify Here the Resolution X component in which this form is designed

        'For Example if the Form is Designed at 800 * 600 Resolution then DesignerWidth=800

        Dim i_StandardWidth As Integer = DesignerWidth

        Dim i_PresentHeight As Integer = Screen.PrimaryScreen.Bounds.Height

        'Present Resolution Height

        Dim i_PresentWidth As Integer = Screen.PrimaryScreen.Bounds.Width

        'Presnet Resolution Width

        f_HeightRatio = CSng(CSng(i_PresentHeight) / CSng(i_StandardHeight))

        f_WidthRatio = CSng(CSng(i_PresentWidth) / CSng(i_StandardWidth))

        ObjForm.AutoScaleMode = AutoScaleMode.None

        'Make the Autoscale Mode=None

        ObjForm.Scale(New SizeF(f_WidthRatio, f_HeightRatio))

        For Each c As Control In ObjForm.Controls

            If c.HasChildren Then

                ResizeControlStore(c)

            Else

                c.Font = New Font(c.Font.FontFamily, c.Font.Size * f_HeightRatio, c.Font.Style, c.Font.Unit, CByte(0))

            End If

        Next

        ObjForm.Font = New Font(ObjForm.Font.FontFamily, ObjForm.Font.Size * f_HeightRatio, ObjForm.Font.Style, ObjForm.Font.Unit, CByte(0))

    End Sub

    ''' 

    ''' This Function is Used to Change the Font of Controls that are Nested in Other Controls.

    ''' 

    ''' 

    Private Sub ResizeControlStore(objCtl As Control)

        If objCtl.HasChildren Then

            For Each cChildren As Control In objCtl.Controls

                If cChildren.HasChildren Then

                    ResizeControlStore(cChildren)

                Else

                    cChildren.Font = New Font(cChildren.Font.FontFamily, cChildren.Font.Size * f_HeightRatio, cChildren.Font.Style, cChildren.Font.Unit, CByte(0))

                End If

            Next

            objCtl.Font = New Font(objCtl.Font.FontFamily, objCtl.Font.Size * f_HeightRatio, objCtl.Font.Style, objCtl.Font.Unit, CByte(0))

        Else

            objCtl.Font = New Font(objCtl.Font.FontFamily, objCtl.Font.Size * f_HeightRatio, objCtl.Font.Style, objCtl.Font.Unit, CByte(0))

        End If

    End Sub

End Class[/align]

فى حدث Form_Load

كود :
[align=left]        Dim Resizer As New FormResizer

        Resizer.ResizeForm(Me, 864, 1152)[/align]

كود قائمة الخطوط WPF FontFamilies ComboBox

Sun, 21 Oct 2012 09:13:47 +0000

كاتب الموضوع : MrBassam

اعجبنى هذا الكود فنقلته لكم وهو لعمل قائمة منسدله بالخطوط المركبة فى الجهاز بالـ WPF

كود :

المصدر : Mike Taulty's Blog