[saudisgames]

السلام عليكم ورحمة الله وبركاته
محتاج كود في مشروعي وانا اتعامل مع datagirdviwe مباشرة
واكون له من الشاكرين
ابي عامود المسافة ينحسب تلقائيا عن طريق        

كود :

xx = العمود x - العمود x2
       yy = العمود y - العمود y2
       المسافة = ((xx ^ 2) + (yy ^ 2)) ^ (1 / 2)

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

[HASAN6.0]

PHP كود :

Private Sub DataGridView1_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
        If e.ColumnIndex = 1 Or e.ColumnIndex = 2 Or e.ColumnIndex = 3 Or e.ColumnIndex = 4 Then
            If Not IsNothing(DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value) Then
                Dim b = DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value
                If IsNumeric(b) Then
                    If b > 400 Or b < -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(i 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 = x - x2
        Dim yy = y - y2
        DataGridView1.Rows(i).Cells(5).Value = ((xx ^ 2) + (yy ^ 2)) ^ (1 / 2)

    End Sub 


[saudisgames]

تسلم يالغالي

---

كود :

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
او مايتركه فاضي