29-03-20, 04:56 AM
الصفحات : 1 2
29-03-20, 05:09 AM
السلام عليكم اخي الكريم
بارك الله فيك وفي سعيك ومشاركتك
في مثالك انت تقوم بمساواة القيمة تماما بين الاداتين في التايمر
ولكن المطلوب ان كل قيمة مختلفة وعند زيادة احداها تزداد الاخرى بنسبة وتناسب بدون تايمر
شكرا مرة اخرى لمشاركتك
بارك الله فيك وفي سعيك ومشاركتك
في مثالك انت تقوم بمساواة القيمة تماما بين الاداتين في التايمر
ولكن المطلوب ان كل قيمة مختلفة وعند زيادة احداها تزداد الاخرى بنسبة وتناسب بدون تايمر
شكرا مرة اخرى لمشاركتك
29-03-20, 05:23 AM
(28-03-20, 10:56 PM)ابراهيم ايبو كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
حاولت ربط NumericUpDown بآخر بحيث لو زدت قيمة الاول تزداد معه قيمة الثاني وان انقصت نقص الثاني
وان زدت الثاني زاد الاول وان انقصت نقص الاول
بحثت في الانترنت ولم اوفق اتمنى ان اصل الى الاجابة الصحيحة
استخدمت هذا الكود للاول وواحد اخر للثاني مع التبديل
الفكرة هي اني احاول زيادة مساحة مستطيل بالطول والعرض معا من خلال تغيير اجد ال 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
اخ ابراهيم سؤالك ياكل في عقلي لانه يبدو سهل بالنسبة لي لكن اعرف ان الامور ليست دائما على ضاهرها
فياليت تتكرم بشرح بسيط توضح لي فيه اللبس او الشيء اللي ماني فاهمه في اول كود لك
واكون لك من الشاكرين
29-03-20, 05:27 AM
السلام عليكم اخوتي الكرام من شارك ومن قرأ
لم اجد الى الان حلا سوى انشاء اداتي نص وبجوار كل واحدة 2 Button واحد للانقاص وواحد للزيادة
وعند التغيير يتم تغيير الاخر وان شاء الله سأعمله كونترول وهكذا اصل الى مرادي
كنت اريد نفس الشيئ بأداتي NumericUpDown ولكن الله المستعان على كل معضلة
احببت ان اشارككم بما فعلت للاستفادة
اخي انظر الى المثال الجديد الذي ارفقته منذ قليل ستفهم مرادي
طبعا في المثال الزياد ليست نسبة وتناسب فقط مايزيد او ينقص في الاول يزيد او ينقص في الثاني والعكس صحيح
سأضيف المعادلة الرياضية حسب حاجتي في البرنامج
لم اجد الى الان حلا سوى انشاء اداتي نص وبجوار كل واحدة 2 Button واحد للانقاص وواحد للزيادة
وعند التغيير يتم تغيير الاخر وان شاء الله سأعمله كونترول وهكذا اصل الى مرادي
كنت اريد نفس الشيئ بأداتي NumericUpDown ولكن الله المستعان على كل معضلة
احببت ان اشارككم بما فعلت للاستفادة
(29-03-20, 05:23 AM)معاند الحظ كتب : [ -> ](28-03-20, 10:56 PM)ابراهيم ايبو كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
حاولت ربط NumericUpDown بآخر بحيث لو زدت قيمة الاول تزداد معه قيمة الثاني وان انقصت نقص الثاني
وان زدت الثاني زاد الاول وان انقصت نقص الاول
بحثت في الانترنت ولم اوفق اتمنى ان اصل الى الاجابة الصحيحة
استخدمت هذا الكود للاول وواحد اخر للثاني مع التبديل
الفكرة هي اني احاول زيادة مساحة مستطيل بالطول والعرض معا من خلال تغيير اجد ال 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
اخ ابراهيم سؤالك ياكل في عقلي لانه يبدو سهل بالنسبة لي لكن اعرف ان الامور ليست دائما على ضاهرها
فياليت تتكرم بشرح بسيط توضح لي فيه اللبس او الشيء اللي ماني فاهمه في اول كود لك
واكون لك من الشاكرين
اخي انظر الى المثال الجديد الذي ارفقته منذ قليل ستفهم مرادي
طبعا في المثال الزياد ليست نسبة وتناسب فقط مايزيد او ينقص في الاول يزيد او ينقص في الثاني والعكس صحيح
سأضيف المعادلة الرياضية حسب حاجتي في البرنامج
29-03-20, 06:07 AM
حسنا من مثالك قمت باستخدام NumericUpDown مع الابقاء على كودك
وتطبيق الفكرة على العداد لاحظت انه عند الزيادة من احدها يزيد الاثنان لكن عند الانقاص لاينقص الاخر بل يزيد
عجيب والله ...
اعجبني السؤال واحاول احله باستخدام العداد
تحياتي
وتطبيق الفكرة على العداد لاحظت انه عند الزيادة من احدها يزيد الاثنان لكن عند الانقاص لاينقص الاخر بل يزيد
عجيب والله ...
اعجبني السؤال واحاول احله باستخدام العداد
تحياتي
29-03-20, 06:43 AM
السبلام عليكم ورحمة الله وبركاته
بعد تعديل كود الاخ الفاضل (351028) جزاه الله خير الجزاء ووقاه وايانا من شر الكورونا
وجدت انني يمكنني الاستغناء عن احد الاداتين NumericUpDown والاكتفاء بواجدة حيث يتم التعامل مع احد الاطوال وهو الطول
وهذا افضل حل الى الان واليكم الكود لتعم الفائدة
جزبل الشكر لكم جميعا
بعد تعديل كود الاخ الفاضل (351028) جزاه الله خير الجزاء ووقاه وايانا من شر الكورونا
وجدت انني يمكنني الاستغناء عن احد الاداتين NumericUpDown والاكتفاء بواجدة حيث يتم التعامل مع احد الاطوال وهو الطول
وهذا افضل حل الى الان واليكم الكود لتعم الفائدة
كود :
Dim AA As Integer = 200
Dim BB As Integer = 100
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
NumericUpDown1.Minimum = 10
NumericUpDown1.Maximum = 190
NumericUpDown1.Value = 100
Me.Controls.Add(NumericUpDown1)
Me.Text = NumericUpDown1.Value & "%"
End Sub
Private Sub NumericUpDown1_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown1.ValueChanged
Panel1.Width = AA * (sender.Value / 100)
Panel1.Height = BB * (sender.Value / 100)
Me.Text = sender.Value & "%"
End Sub29-03-20, 08:28 AM
الحمد لله والشكر لله
تم عمل المطلوب بفضل الله وفضل الزملاء المشاركين الذين شجعوني في التحدياليكم المثال وهو عبارة عن رسم مضلع يمكن التحكم بمكانه وكذلك يمكن التجكم بمقاسه الطول لوحده او العرض لوحده
والاهم اذا ربطنا قياس الطول مع العرض يتم التكبير والتصغير تناسبيا من اي من اداتي NumericUpDowan الـ x او الـ Y
29-03-20, 08:35 AM
احسنت وزادك الله وبارك فيك
السؤال بالنسبة لي من النوع الثقيل
والجواب اكيد مثله
اتحفنا ولا تبخل يا ابراهيم
السؤال بالنسبة لي من النوع الثقيل
والجواب اكيد مثله
اتحفنا ولا تبخل يا ابراهيم
الصفحات : 1 2