الشغل

[Ms. Šρëяàηzα]

 

 

 

 

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

اذا كانت اقل .. يعطيه مسج

 

حاولنا نسويها بس ماضبطت .. وهذا الكود

 

 

 

Protected Sub Pro2()
Dim dis As Double = Double.Parse(Session("d").ToString())
Dim reald As Double = 0

' ==== ====
 
Dim sq22 As String = "select * from places where ID =" & Session("STLocation")
Dim DT22 As Data.DataTable = DataBase.EXESql(sq22)

Dim sq33 As String = "select * from places where ID =" & Session("ENLocation")
Dim DT33 As Data.DataTable = DataBase.EXESql(sq33)

Dim Nodes2 As ArrayList = New ArrayList()

If DT22.Rows.Count <> 0 Then
Dim N22 As Node = New Node(DT22.Rows(0)("id"), DT22.Rows(0)("name"), DT22.Rows(0)("Score"), DT22.Rows(0)("x"), DT22.Rows(0)("y"), DT22.Rows(0)("LTime"))
Nodes2.Add(N22)
End If

If DT33.Rows.Count <> 0 Then
Dim N33 As Node = New Node(DT33.Rows(0)("id"), DT33.Rows(0)("name"), DT33.Rows(0)("Score"), DT33.Rows(0)("x"), DT33.Rows(0)("y"), DT33.Rows(0)("LTime"))
Nodes2.Add(N33)
End If

'Dim DD2 As Double = Distance.distance(N22.x_, N22.y_, N33.x_, N33.y_, "K")
 
=====
 
 

 

 

 

  ...  FROM  : Šρëяàηzα    ...

 

  .. " EMOoOo " ..

 

 

---

Your E-mail and More On-the-Go. Get Windows Live Hotmail Free. Sign up now.