تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] محتاج مساعدة في كود في datagirdviwe
#1
السلام عليكم ورحمة الله وبركاته
محتاج كود في مشروعي وانا اتعامل مع datagirdviwe مباشرة
واكون له من الشاكرين
ابي عامود المسافة ينحسب تلقائيا عن طريق        
كود :
xx = العمود x - العمود x2
       yy = العمود y - العمود y2
       المسافة = ((xx ^ 2) + (yy ^ 2)) ^ (1 / 2)

وابي رسالة تطلع له في العامود x , y لو كتب حروف او ارقام ليست بين 400و -400
)""تاكد من الاحداثيات المدخلة ""(

الرد
تم الشكر بواسطة:
#2
PHP كود :
Private Sub DataGridView1_CellEndEdit(sender As ObjectAs DataGridViewCellEventArgsHandles DataGridView1.CellEndEdit
        
If e.ColumnIndex Or e.ColumnIndex Or e.ColumnIndex Or e.ColumnIndex 4 Then
            
If Not IsNothing(DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).ValueThen
                Dim b 
DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value
                
If IsNumeric(bThen
                    
If 400 Or < -400 Then
                        MsgBox
("يرجى ادخال رقم بين 400 و -400")
                        
DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value 0
                    End 
If
                Else
                    
MsgBox("يرجى ادخال ارقام فقط")
                    
DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value 0
                End 
If
            
End If
            
Calculate(e.RowIndex)
        
End If
    
End Sub
    Sub Calculate
(As Integer)
        
Dim x As Double Val(DataGridView1.Rows(i).Cells(1).Value)
        
Dim y As Double Val(DataGridView1.Rows(i).Cells(2).Value)
        
Dim x2 As Double Val(DataGridView1.Rows(i).Cells(3).Value)
        
Dim y2 As Double Val(DataGridView1.Rows(i).Cells(4).Value)
        
Dim xx x2
        Dim yy 
y2
        DataGridView1
.Rows(i).Cells(5).Value = ((xx 2) + (yy 2)) ^ (2)

    
End Sub 
الرد
تم الشكر بواسطة: saudisgames
#3
تسلم يالغالي

كود :
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       For Each row As DataGridViewRow In DataGridView1.Rows
           Dim x As Double
           Dim y As Double
           Dim n As Double
           x = (row.Cells("Column4").Value) - (row.Cells("Column2").Value)
           y = (row.Cells("Column5").Value) - (row.Cells("Column3").Value)
           n = ((x ^ 2) + (y ^ 2)) ^ (1 / 2)
           row.Cells.Item("sss").Value = Math.Round(CType(n, Double), 1)

       Next
   End Sub

شكرا لك انا استخدمت هذا الكود وهو بسيط جدا ونفع معاي
لكن باقي كيف اقيد textbox  انه مايدخل الا بين 400و-400
او مايتركه فاضي
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم