منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - مكتبة مشاريع VB.net

برنامج إدارة المشتركين لأصحاب الشبكات BroadBand CRM Manager

Sat, 29 Apr 2023 15:56:41 +0000

برنامج إدارة المشتركين لأصحاب الشبكات BroadBand CRM Manager

الذين يعملون بنظام PPPOE

سهل ، خفيف ، حديث

إدارة المشتركين

إدارة الخدمات

إدارة القطع والأجهزة

إصدار الفواتير

تحديثات

لتحميل البرنامج من خلال جوجل درايف

تحميل

https://drive.google.com/file/d/1Bc-Gbv8...sp=sharing

https://1drv.ms/u/s!Ate_X7578dbznwF39wV0...k?e=N07SYh

دمتم بخير

نطاق المشروع

Fri, 16 Oct 2020 15:41:22 +0000

سلام عليكم انا بدأت بالمرحله الأولى للمشروع وهي تحليل النظام كتبت مقدمه عن المشروع والاهداف بتاعت النظام وبرضو في المحله دي في حاجه اسمها نطاق المشروع ماعرفتش اكتبه ازاي مين ممكن يساعدني او يدلني ولكم جزيل الشكر

ثلاث طرق لجعل الـ TextBox يستقبل ارقام فقط

Fri, 29 Nov 2019 13:45:48 +0000

السلام عليكم

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

الكود الاول :

PHP كود :
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If Char.IsNumber(e.KeyChar) = False Then
            e.Handled = True
        End If

    End Sub 

الكود الثاني :

كود :
   Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        If Not IsNumeric(e.KeyChar) Then

            e.Handled = True

        End If

    End Sub

الكود الثالث (الي يقبل استخدام زر الباك سبيس ) :

PHP كود :
   Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        Select Case e.KeyChar
            Case "0" To "9", ControlChars.Back
                e.Handled = False
            Case Else
                e.Handled = True
        End Select

    End Sub 

يمكن تحميل المشروع من المرفقات

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

OnlyNum.rar (الحجم : 33.2 ك ب / التحميلات : 81)

انشاء وتحريك الادوات في زمن التشغيل

Thu, 28 Nov 2019 20:27:05 +0000

السلام عليكم

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

الغاية من هذا المثال هو كيفية انشاء ادوات وقت التنفيذ واضافة الاحداث لها (Events) عن طريق الكود

وهذا هو الكود

PHP كود :
Public Class Form1

    Public Const WM_NCLBUTTONDOWN = &HA1
    Public Const HTCAPTION = 2

    Private TextBox(10) As TextBox
    Private Button(10) As Button
    Dim numberOfButtons As Integer
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim newbox As TextBox
        For i As Integer = 1 To 10
            newbox = New TextBox
            newbox.Size = New Drawing.Size(100, 20)
            'ضبط خاصية الحجم
            newbox.Location = New Point(130, 10 + 25 * (i - 1))
            ' ضبط خاصية الموقع
            newbox.Name = "TextBox" & i
            ' الاسم البرمجي
            newbox.Text = newbox.Name
            ' الاسم الظاهر الكابشن
            AddHandler newbox.MouseDown, AddressOf TextBox_MouseDown
            ' هذه مهمة جداً وهي اضافة الحدث واعطاء اسم للبروسجير الذي سينفذ الكود المطلوب
            TextBox(i) = newbox
            Me.Controls.Add(newbox)
            '
        Next

        ' نفس الشرح في الاكواد السابقة ينطبق على هذه الاكواد ولكن هذه خاصة بازرار الامر
        Dim Newbtn As Button
        For i As Integer = 1 To 10
            Newbtn = New Button
            Newbtn.Size = New Drawing.Size(100, 20)
            Newbtn.Location = New Point(10, 10 + 25 * (i - 1))
            Newbtn.Name = "Button" & i
            Newbtn.Text = Newbtn.Name
            AddHandler Newbtn.MouseDown, AddressOf NewButton_MouseDown
            Button(i) = Newbtn
            Me.Controls.Add(Newbtn)
        Next
    End Sub
    Friend Sub TextBox_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs)
        ' هذا الاجراء خاص بمكانية تحريك التكسات بوكس  بالزر الايسر للماوس ولاحظ هو Friend sub
        For i = 1 To 10
            If e.Button = MouseButtons.Left Then
                TextBox(i).Capture = False
                Dim msg As Message = Message.Create _
                (TextBox(i).Handle, WM_NCLBUTTONDOWN,
                New IntPtr(HTCAPTION), IntPtr.Zero)
                Me.DefWndProc(msg)
            End If
        Next i
    End Sub
    Friend Sub NewButton_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs)
        ' هذا الاجراء خاص بمكانية تحريك ازرار الامر بالزر الايسر للماوس ولاحظ هو Friend sub
        For i = 1 To 10
            If e.Button = MouseButtons.Left Then
                Button(i).Capture = False
                Dim msg As Message = Message.Create _
                (Button(i).Handle, WM_NCLBUTTONDOWN,
                New IntPtr(HTCAPTION), IntPtr.Zero)
                Me.DefWndProc(msg)
            End If
        Next i
    End Sub



End Class 

المشروع بالمرفقات

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

  CreateControlsAndMoveIt.rar (الحجم : 77.12 ك ب / التحميلات : 85)

  11-28-2019 11-22-45 PM.jpg (الحجم : 50.63 ك ب / التحميلات : 112)

رجاء خاص من الاخوه اعضاء المنتدى الكرام

Fri, 13 Jul 2018 17:50:44 +0000

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

مشغل القرآن الكريم

Sat, 18 Nov 2017 13:59:22 +0000

هذا أول برنامج من تصميمي بالفجوال بيزك 2008 للاستماع للقرآن الكريم من خلال الانترنت
للأمانة فكرة البرنامج أخذتها من برنامج مشابه مكتوب بلغة الدلفي 7
أخذت الفكرة وطورتها بالفيجوال بيزك وأضفت عليها
البرنامج بالسورس بالمرفقات
يهمني آرائكم ونصائح الأخوة

مشغل القرآن.zip (الحجم : 648.87 ك ب / التحميلات : 139)

برنامج القرآن الكريم مفتوح المصدر

Wed, 09 Nov 2016 20:34:20 +0000

الحمد لله والصلاة والسلام على رسول الله صلى الله عليه وسلم

وبعد
بحثت في النت عن برنامج للقرآن الكريم فوجدت أن الأخوة هنا قاموا بعمل وهو مفتوح المصدر ففرحت به وقلت اقوم بالتعديلات اللازمة ليناسبني ، لكني عند العمل احتجت إلى التصوير لصفحات المصحف ثم من الله علي بالباقي من عنده
فجرا الله خيرا من قام بالعمل الأصلى
فهذا جهد المقل ، وهو مفتوح المصدر لمن شاء أن يزيد عليه ،
رابط صفحات المصحف وهو ممن قاموا بالبرنامج السابق
http://www.mediafire.com/?1swiwqywdba5ojz
ثم روابط لتحميل المصحف مقسم ملفاته إلى أيات
https://archive.org/search.php?query=%28...-downloads
ثم رابط البرنامج
http://www.mediafire.com/file/60ti3qla3p...%D9%81.rar
اسأل الله ان يتقبله مني وينفع به آمين
والسلام عليكم ورحمة الله وبركاته

تحريك الفورمات بطريقة جميلة

Sun, 10 Apr 2016 14:31:11 +0000

لجعل برنامجك يبدو جميلا بزخرفة التحريك فورمات إليك طريقة الأتية:
في الفورم الاول ضع 3زر وكتب:

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Left = (Screen.PrimaryScreen.WorkingArea.Width - Me.Width) / 5
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
frmSlide = New Form2
frmSlide.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
frmSplash = New Form3
frmSplash.Show()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
frmResize = New Form4
frmResize.Show()
End Sub
End Class

سوف تعرف كيف تتحرك الفورمات

وفي الفورم 2 أكتب هدا الكود

Public Class Form2

Public Enum AnimateWindowFlags
AW_HOR_POSITIVE = &H5
AW_HOR_NEGATIVE = &H1
AW_VER_POSITIVE = &H4
AW_VER_NEGATIVE = &H8
AW_CENTER = &H10
AW_HIDE = &H10000
AW_ACTIVATE = &H20000
AW_SLIDE = &H40000
AW_BLEND = &H80000
End Enum

Public Declare Auto Function AnimateWindow Lib "user32" (ByVal hwnd As IntPtr, ByVal time As Integer, ByVal flags As AnimateWindowFlags) As Boolean

Sub animateWin(ByVal frmToAnimate As Form, ByVal showForm As Boolean)
If showForm Then
AnimateWindow(frmToAnimate.Handle, 1000, AnimateWindowFlags.AW_BLEND Or AnimateWindowFlags.AW_SLIDE)
Else
AnimateWindow(frmToAnimate.Handle, 1000, AnimateWindowFlags.AW_VER_POSITIVE Or AnimateWindowFlags.AW_HIDE)
End If
End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
animateWin(Me, True)
End Sub
Private Sub Form2_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
animateWin(Me, False)
End Sub

End Class

وفي الفورم 3 أكتب هدا الكود

Public Class Form3
Dim op As Single

Private Sub Form3_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
For op = Me.Opacity To 0 Step -0.0005
Me.Opacity = op
Next
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Timer1.Enabled = True Then
op += 0.01
Me.Opacity = op
If op > 100 Then
Me.Opacity = 1.0
Timer1.Enabled = False
op = Nothing
End If
End If
End Sub
End Class

والحمد لله الدي كرمنا بهدا العلم

تحريك الفورمات بطريقة جميلة

Sun, 10 Apr 2016 14:29:01 +0000

لجعل برنامجك يبدو جميلا بزخرفة التحريك فورمات إليك طريقة الأتية:
في الفورم الاول ضع 3زر وكتب:

سوف تعرف كيف تتحرك الفورمات

وفي الفورم 2 أكتب هدا الكود

وفي الفورم 3 أكتب هدا الكود

والحمد لله الدي كرمنا بهدا العلم

شرح كيفية عمل برنامج تشفير بخوارزمية base64

Fri, 03 Jul 2015 14:07:42 +0000

تحميل كتاب

شرح كيفية عمل برنامج تشفير بخوارزمية base64

حجم الكتاب 100 كيلوبايت فقط

الان ناتي للتحميل

البرنامج مع المرفقات

شرح base64.zip (الحجم : 101.95 ك ب / التحميلات : 264)

كود عمل نسخة تجريبية من صنعى للمناقشة

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

السلام عليكم ورحمة الله
قمت بعمل كود للنسخة التجريبية والحمد لله الكود يعمل معى ولكن احببت ان اعرضة للمناقشة حتى يستفيد منه الاعضاء واستفاد من اخطائى فكل الناس تخطأ ولكن المهم ان استفيد من خطئى
وهذا الكود مع الشرح

كود :
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        'اولا يتم عمل ملف فى نسخة الويندوز ويتم قراءة هذا الكود بهذة الطريقة

        Dim KeyName As String = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion"

        Dim valueName As String = "manduh"

        Dim inwin1 As String = "in"

        Dim Value As Object = inwin

        inwin = Registry.GetValue(KeyName, valueName, Value.ToString())

        'اذا لم يكن هناك ملف فىالنسخة يتم الاتى

        If inwin = "" Then

            'هنا تم عمل تاريخ نهاية النسخة بعد 15يوما

            Dim MpTryApi As String = Now.AddDays(15D)

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

            Dim datess As String

            If Not DataAccess.con.State = ConnectionState.Open Then

                DataAccess.con.Open()

            End If

            Dim da1 As New OleDbDataAdapter("SELECT * from testing_pro where (id=1) ", DataAccess.con)

            Dim dt1 As New DataTable

            da1.Fill(dt1)

            datess = dt1.Rows(0).Item("datess").ToString

            DataAccess.con.Close()

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

            'وعند عمل قادة البيانات يتم عمل اول صف ويشمل على خانة التاريخ خالية

            'فى حالة ان التاريخ يكون فارغ يتم الاتى

            If datess = "" Then

                'فى حالة انه فارغ يتم اضافة تاريخ اليوم وهذا التاريخ عندما يتم تشغيل البرنامج الاول مرة

                Dim idtest As String = "1"

                If Not DataAccess.con.State = ConnectionState.Open Then

                    DataAccess.con.Open()

                End If

                DataAccess.cmd.Connection = DataAccess.con

                DataAccess.cmd.CommandText = "UPDATE testing_pro SET datess='" & datenaw & "' WHERE id=" & idtest

                DataAccess.cmd.ExecuteNonQuery()

                DataAccess.con.Close()

                'فى حالة ان التاريخ موجود يكون استخدم البرنام من قبل

                'يتم اضافة سطر جديد

            ElseIf datess >= Date.Today.ToString("yyyy/MM/dd") Then

                If Not DataAccess.con.State = ConnectionState.Open Then

                    DataAccess.con.Open()

                End If

                DataAccess.cmd.Connection = DataAccess.con

                DataAccess.cmd.CommandText = "INSERT INTO testing_pro( datess)" & _

                                  " VALUES ( '" & datenaw & "')"

                DataAccess.cmd.ExecuteNonQuery()

                DataAccess.con.Close()

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

                Dim dateend As DateTime

                If Not DataAccess.con.State = ConnectionState.Open Then

                    DataAccess.con.Open()

                End If

                Dim da2 As New OleDbDataAdapter("SELECT * from testing_pro order by id   ", DataAccess.con)

                Dim dt2 As New DataTable

                da2.Fill(dt2)

                dateend = dt2.Rows(0).Item("datess").ToString

                DataAccess.con.Close()

                Dim danew As Integer

                danew = DateDiff(DateInterval.Day, CDate(dateend), CDate(datenaw))

                'فى حالة ان عدد الايام 15 ايام يتم الاتى

                If danew = "15" Then

                    'ويتم هنا اضافة قيمة فى نسخة الويندوز

                    Value = inwin1

                    Registry.SetValue(KeyName, valueName, Value)

                    MsgBox("انتهت الفترة التجريبية للبرنامج")

                    Me.Close()

                    Return

                    'فى حالة ان عدد الايام أكبر 16 ايام يتم الاتى

                ElseIf danew > "16" Then

                    'ويتم هنا اضافة قيمة فى نسخة الويندوز

                    Value = inwin1

                    Registry.SetValue(KeyName, valueName, Value)

                    MsgBox("انتهت الفترة التجريبية للبرنامج")

                    Me.Close()

                    Return

                    ' عندما يقوم العميل بتغيير التاريخ الى اقل من التاريخ الاول يتم الاتى

                ElseIf danew < "0" Then

                    'ويتم هنا اضافة قيمة فى نسخة الويندوز

                    Value = inwin1

                    Registry.SetValue(KeyName, valueName, Value)

                    MsgBox("انتهت الفترة التجريبية للبرنامج")

                    Me.Close()

                    Return

                ElseIf danew < "15" Then

                    'الان يجد البرنامج ان عدد الايام اقل من 15 يوما 

                    'واجهتى مشكلة هنا انه عندما يقوم العميل باعادة تغير التاريخ قبل تشغيل البرنامج 

                    'يستطيع تشغيل البرنامج اكثر من 15 يوما

                    'تم هنا الحماية ايضا عن طريق عدد مرات تشغيل البرنامج

                    'من خلال احتساب عدد مراة العمل الافتراضية للبرنامج

                    Dim countdate As Integer = "0"

                    If Not DataAccess.con.State = ConnectionState.Open Then

                        DataAccess.con.Open()

                    End If

                    Dim da3 As New OleDbDataAdapter("SELECT COUNT(datess) AS datess FROM testing_pro ", DataAccess.con)

                    Dim dt3 As New DataTable

                    da3.Fill(dt3)

                    countdate = dt3.Rows(0).Item("datess").ToString

                    DataAccess.con.Close()

                    'تم احتساب مجموع عمليات الدخول على البرنامج من خلال جمع عدد التاوريخ الموجود فى قاعدة البيانات

                    'وليكون عدد الدخول على البرنامج 3مرات فى اليوم يكون المجموع مرات الدخول اسناء الفترة التجريبية 45مرة

                    If countdate = "45" Then

                        Value = inwin1

                        Registry.SetValue(KeyName, valueName, Value)

                        MsgBox("انتهت الفترة التجريبية للبرنامج")

                        Me.Close()

                        Application.Exit()

                    ElseIf countdate < "30" Then

                        MsgBox(countdate)

                        Form1.Show()

                        Me.Hide()

                    End If

                End If

            End If

            lodeng.Close()

        ElseIf inwin = "Micros" Then

            MsgBox(" عفوا تم استخدام النسخة التجريبية من قبل")

            Application.Exit()

        End If

    End Sub

ملحوظة :-

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

مثال نقل بيانات بين اثنين Datagridview من المنتدى القديم

Sun, 25 Aug 2013 12:45:06 +0000

السلام عليكم و رحمة الله و بركاته
بناء على طلب احد الاخوة نقل البيانات بين اثنين Datagridview نقل كلي او حسب المحدد مع اعادة ترقيم الصفوف
المثال معمول على VS 2010

مثال للنقل بين ا&#.rar (الحجم : 91.58 ك ب / التحميلات : 291)

مثال لحفظ محتويات الـ Listbox بالطريقتين الكل او المحدد وسواء مربوطة ام لا يوجد صورة ومثال

Sun, 25 Aug 2013 11:16:40 +0000

هذا المثال للكود هنا
والطلب هنا

المثال مرفق

MySaver_for_Listbox_items.zip (الحجم : 46.87 ك ب / التحميلات : 147)

make html editor for desktop

Sat, 17 Aug 2013 12:23:22 +0000

الشرح هنا
[h=1]شرح كيفية صنع محرر html واستخدامه كـ dll[/h]
المثال مرفق

make_html editor.zip (الحجم : 68.08 ك ب / التحميلات : 288)

لوحة أرقام عائمة On-Screen Keypad

Thu, 15 Aug 2013 11:42:38 +0000

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

نظراً لكون الموضوع مثال مشروع وليس أداة..
تم نقل الموضوع لـ مكتبة أمثلة ومشاريع أعضاء المنتدى لوحة أرقام عائمة On-Screen Keypad

يرجى من الاداة حذف الموضوع من هذا القسم

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