zxz 28.07.2011 21:40
Predmet:Re: Queries vece manje

Neznam jesil ovo nasao.
Ovdje imas dosta knjiga u pdf-u.
http://www.icentar.ba/showtopic.php?id=25

carobnjak 28.07.2011 21:44
Predmet:Re: Queries vece manje

jesam sve sam poskidao Smiling

zxz 29.07.2011 13:55
Predmet:Re: Queries vece manje

Evo ti konacni primjer sa kodom.
Sad ti dotjeruj ako imas sta dotjerivati.
Prilozi:
projekatxy.zip (Velicina datoteke:26.26 KB)

carobnjak 29.07.2011 13:58
Predmet:Re: Queries vece manje

Posto znam da je geotransformers tesko naci na netu iako je besplatan evo ja sam ga okacio ovdije ako nekome treba nek skine a neko od administratora nek ga prebaciu neku temu za download gdje ide..
Srdačan pozdrav
Prilozi:
Geotransformers.rar (Velicina datoteke:559.74 KB)

carobnjak 29.07.2011 14:01
Predmet:Re: Queries vece manje

Hvala zxz za sve, nemam riječi malo ko hoce da pomogne a kamoli da uradi 99% posla sto si ti uradio za mene, hvala ti svaka cast jos jednom i vrlo rado cu uciti dalje i redovno posjecivati ovaj forum, ko zna mozda jednog dana ja pocnem pisatii vb kod ovdije i pomagati :)))

zxz 16.11.2013 14:54
Predmet:Re: Queries vece manje

samo zanijeni ovu proceduru sa starom.
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Kor(Dx As Double, DY As Double, IDL As Integer, IDT As Integer, K As Boolean)
  2. Dim X1 As Double, X2 As Double, Y1 As Double, Y2 As Double
  3. Dim Db As Database
  4. Dim Rs As Recordset
  5. Dim SQL As String
  6. Dim Id As Integer
  7.  
  8. On Error GoTo Kraj
  9. Set Db = CurrentDb
  10.  
  11. SQL = "SELECT * FROM T_Tacke WHERE LokacijaID=" & IDL
  12. Set Rs = Db.OpenRecordset(SQL)
  13. Rs.FindFirst ("Vizura=" & IDT)
  14. X1 = Rs!X
  15. Y1 = Rs!Y
  16. Rs.MovePrevious
  17.  
  18. X2 = Rs!X
  19. Y2 = Rs!Y
  20. Rs.Close
  21. Set Db = Nothing
  22. If X1 = 0 Or X2 = 0 Or Y1 = 0 Or Y2 = 0 Then GoTo Kraj
  23. Dx = X1 - X2
  24. DY = Y1 - Y2
  25. K = True
  26. Exit Sub
  27. Kraj:
  28. K = False
  29. End Sub

carobnjak 16.11.2013 16:31
Predmet:Re: Queries vece manje

To je to svaka čast i po tko zna koji put od mene ide zahvala, majstore skidam ti kapu

carobnjak 15.11.2013 16:42
Predmet:Re: Queries vece manje

Citiraj zxz:
Evo ti konacni primjer sa kodom.
Sad ti dotjeruj ako imas sta dotjerivati.


Veliki pozdrav znam da je ova tema davno bila ali naisao sam na problem koji ne znam da rijesim Smiling na ime u nasoj bazi bilo x ili y koordinata kad ja upisemo ne racuna nam nikako decimale poslije zareza u formuli za azimut a i za metre... onda jos jedna stvar nece da nam izracuna azimut ako je koordinata ista polje za izracun ostane skroz prazno Primjer koordinate:

6506264,00 4930652,00
6506266,55 4930652,55

zxz 15.11.2013 17:37
Predmet:Re: Queries vece manje

Uf neznam na koju mislis bazu.
ja ovo pogledah izna i sve radi odnosno izbacuje decimale.

carobnjak 15.11.2013 17:44
Predmet:Re: Queries vece manje

primjer tih koordinati gore kad ih ukucas u nasu tabelu nece da izracuna azimut jer nam je x koordinata ista osim decimalnog zareza i ne znam zasto je nece da racuna a takodjer sam primjetio da kod obracuna ne racuna nikako decimale iza zareza od datih koordinata...testiro sam na dikitronu i u exelu gdje sam nesto slicno napravio za obracun azimuta i distanci razlika je nekad i po par metara ili stepeni... pokusat cu sad uslikati screen pa postavim