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

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

كود :

 Private Sub Nmr_Width_ValueChanged(sender As Object, e As EventArgs) Handles Nmr_Width.ValueChanged

        Try

            If (Nmr_Width.Value = Nmr_Width.Value + 2) Then

                Nmr_Height.Value = Nmr_Height.Value + 2

            ElseIf (Nmr_Width.Value = Nmr_Width.Value - 2) Then

                Nmr_Height.Value = Nmr_Height.Value - 2

            Else

                Nmr_Height.Value = Nmr_Height.Value

            End If

        Catch ex As Exception

        End Try

    End Sub

الفكرة هي اني احاول زيادة مساحة مستطيل بالطول والعرض معا من خلال تغيير اجد ال NumericUpDown

السلام عليكم
يبدو لي ان ربط 2 NumericUpDown غير مطروقة كثيرا
فكرة التكبير والتصغير لشكل ما تناسبيا محلولة لدي وفق معادلة جداء الطرفين بالوسطين في هذا المثال
ولكن اردت تفعيلها بوساطة تغيير الـ NumericUpDown
شاركونا ولو بأصغر معلومة جزاكم الله خيرا

PHP كود :

Public Class Form1

    Dim AA As Integer = 200
    Dim BB As Integer = 100

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim MyTrackBar As New TrackBar
        MyTrackBar.Dock = DockStyle.Bottom
        MyTrackBar.Minimum = 10
        MyTrackBar.Maximum = 190
        MyTrackBar.Value = 100
        AddHandler MyTrackBar.Scroll, AddressOf MyTrackBar_Scroll
        Me.Controls.Add(MyTrackBar)
        Me.Text = MyTrackBar.Value & "%"
    End Sub

    Private Sub MyTrackBar_Scroll(sender As Object, e As EventArgs)
        Panel1.Width = AA * (sender.Value / 100)
        Panel1.Height = BB * (sender.Value / 100)
        Me.Text = sender.Value & "%"
    End Sub

End Class 

لو تادر توصل لست بوكس با نمبردون ون ونبر دون تو هل ممكن تتحل

(29-03-20, 01:51 AM)351028 كتب : [ -> ]
PHP كود :

Public Class Form1 Dim AA As Integer = 200 Dim BB As Integer = 100 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim MyTrackBar As New TrackBar MyTrackBar.Dock = DockStyle.Bottom MyTrackBar.Minimum = 10 MyTrackBar.Maximum = 190 MyTrackBar.Value = 100 AddHandler MyTrackBar.Scroll, AddressOf MyTrackBar_Scroll Me.Controls.Add(MyTrackBar) Me.Text = MyTrackBar.Value & "%" End Sub Private Sub MyTrackBar_Scroll(sender As Object, e As EventArgs) Panel1.Width = AA * (sender.Value / 100) Panel1.Height = BB * (sender.Value / 100) Me.Text = sender.Value & "%" End Sub End Class

اخي الكريم بارك الله فيك وجزاك الله كل الخير
بالنسبة للTrackBar ايضا محلولة وانا لاارغب بها كونها تأخذ حجما لانني ربما اضع عدد كبير من الـ NumericUpDown (برامج رسم)
انا وضعت المثال فقط من اجل المعادلة الرياضية التي من خلالها التكبير والتصغير ليستفيد منها اخوتنا في المنتدى
اريد تحديدا NumericUpDown بسبب ان لي بها اغراض واستخدامات اخرى

(28-03-20, 10:56 PM)ابراهيم ايبو كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
حاولت ربط NumericUpDown بآخر بحيث لو زدت قيمة الاول تزداد معه قيمة الثاني وان انقصت نقص الثاني
وان زدت الثاني زاد الاول وان انقصت نقص الاول
بحثت في الانترنت ولم اوفق اتمنى ان اصل الى الاجابة الصحيحة
استخدمت هذا الكود للاول وواحد اخر للثاني مع التبديل

كود :

Private Sub Nmr_Width_ValueChanged(sender As Object, e As EventArgs) Handles Nmr_Width.ValueChanged Try If (Nmr_Width.Value = Nmr_Width.Value + 2) Then Nmr_Height.Value = Nmr_Height.Value + 2 ElseIf (Nmr_Width.Value = Nmr_Width.Value - 2) Then Nmr_Height.Value = Nmr_Height.Value - 2 Else Nmr_Height.Value = Nmr_Height.Value End If Catch ex As Exception End Try End Sub
الفكرة هي اني احاول زيادة مساحة مستطيل بالطول والعرض معا من خلال تغيير اجد ال NumericUpDown

اخي كلا الشرطين لن يتحققا ! لان هذا يشبه ان تقول اذا كانت 10=10+2
صح ؟

السلام عليكم اخي معاند الحظ
شكرا لمساهمتك الكريمة واثمن كل مشاركة
بالنسبة للتحكم انا عملت اثنتان NumericUpDown كل واحدة مستقلة عن الاخرى
يمكنني التحكم بالطول بواحدة ويمكنني التحكم بالعرض بالاخرى
الذي ارغب به هو ان غيرت اي واحدة تتغير الاخرى يالنسبة والتناسب
دمت بخير

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

لاحظوا اخوتي هذا الكود عندما اغير الاول يتغير الثاني
ولكن ان زدت الاول يزداد الثاني وهذا عادي
لكن ان انقصت يزداد الثاني ايضا (هنا المشكلة) لان الحدث هو تغيير القيمة
للاداة سهمين علوي للزيادة وسفلي للنقصان هل هناك حدث يتحسس سهم الزيادة وسهم النقصان؟

كود :

Private Sub NumericUpDown1_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown1.ValueChanged

        NumericUpDown2.Value += 1

    End Sub

(29-03-20, 03:45 AM)معاند الحظ كتب : [ -> ]وعليك السلام ورحمة الله وبركاته
المعذرة اخ ابراهيم
" جداء الطرفين بالوسطين"
اذا دخلت الرياضيات من الباب اخرج انا من الشباك
ادام الله ايامك بالخير

وعليكم السلام مرة اخرى
ههههه اخي والله كنت كسول جدا بالجبر وبارع الى اقصى ماتتصور في الهندسة وقد تعجب اساتذة الرياضيات من ذلك
كيف لك ان ترى المعادلات الرياضية في الرسم اذا؟(دويخة)
لذلك مجال الغرافيك صعب يحتاج الى معين في الرياضيات
دمت بخير

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