Prikazi cijelu temu 26.07.2011 14:14
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Queries vece manje
Evo procedura za tvoj gore opis.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function RacunK(X_t1 As Double, X_t2 As Double, Y_t1 As Double, Y_t2 As Double)
  2. Dim DeltaX As Double
  3. Dim DeltaY As Double
  4.  
  5.  
  6. DeltaX = X_t1 - X_t2
  7. DeltaY = Y_t1 - Y_t2
  8. If DeltaX > 0 Then
  9.     If DeltaY > 0 Then
  10.     RacunK = 180
  11.     Else
  12.     RacunK = 90
  13.     End If
  14. Else
  15.     If DeltaY > 0 Then
  16.     RacunK = 360
  17.     Else
  18.     RacunK = -90
  19.     End If
  20. End Function

Sa Querya je moze pozvati na sledeci nacin:
U novo polje u Kuery upises neko ime napr:
Kvadrant:

E sad u ovom polju pozivas ovu proceduru koju ces staviti u neki modul anpr Module1.
Cijeli red novog pšolja bi izgledao ovako:
Kavdrant:RacunK(TvojeX_t1;TvojeX_t2;TvojeY_t1;Tvoj
eYt_2)

Dobit ces vrijednosti koje si trazio u prvom postu.

Nisam siguran da ti je koncepcija sasvim dobra pa cu moje misljenje dati u sledecem postu.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.