Bosna i Hercegovina



#61 15.11.2013-18:48
carobnjak Offline
Clan
Registrovan/a od: 25.07.2011-11:57
Komentari: 381


Subject: Re: Queries vece manje
Hvala ti unaprijed; ja se s tim mucim vec tri dana, a ne mogu naci rjesenje.
Srdačan pozdrav
↑  ↓

#62 16.11.2013-14:54
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,832


Subject: Re: Queries vece manje
samo zanijeni ovu proceduru sa starom.
DownloadIzvorni kod (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

Pozdrav
↑  ↓

#63 16.11.2013-16:31
carobnjak Offline
Clan
Registrovan/a od: 25.07.2011-11:57
Komentari: 381


Subject: Re: Queries vece manje
To je to svaka čast i po tko zna koji put od mene ide zahvala, majstore skidam ti kapu
Srdačan pozdrav
↑  ↓

#64 30.11.2013-00:35
carobnjak Offline
Clan
Registrovan/a od: 25.07.2011-11:57
Komentari: 381


Ocjena: Ocjena:100 Subject: Re: Queries vece manje
Evo gotove verzije ako kome zatreba ili slično. Veliki pozdrav svima a ZxZ velika zahvala

Prilozi:
Informacije o fajlu: rar  azimutfinal.rar
Preuzimanja: 84
Veličina: 49.52 KB


Srdačan pozdrav
↑  ↓

#65 02.03.2014-14:40
carobnjak Offline
Clan
Registrovan/a od: 25.07.2011-11:57
Komentari: 381


Subject: Re: Queries vece manje
Pozdrav svima,kao i svaka aplikacija sto trazi poboljsanje tako evo i ova nasa (vise od zxz nego moja)

Radi se o tome da dodjem u sluaj sad da trebam nekad kontra azimut, pokusao sam kod od zxz izmjeniti ali po obicaju nisam uspio. Uglavnom stavio bi u aplikaciju sad i automatski izracun kontra azimuta.
Srdačan pozdrav
↑  ↓

#66 02.03.2014-22:35
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,832


Subject: Re: Queries vece manje
Hehe Sto se tice ovoga rodjeni si dizajner.
Dugo nisam vidio ovako lijepo slozene boje i uredjene forme.

Za dalje morat ces mi malo bolje pojasniti sta zelis a i staviti mdb.
Naravno pobrisi iz nje ono sto nije bitno za dalju doradu.
Pozdrav
↑  ↓

#67 02.03.2014-22:51
carobnjak Offline
Clan
Registrovan/a od: 25.07.2011-11:57
Komentari: 381


Subject: Re: Queries vece manje
Hvala ti puno Smiling iako bi ja vise volio da sam bolji sa ostalim nego sa dizajnom hehehe ali tako je kako je,

Sto se tice moje baze prvo da pojasnim vezano za kontraazimut. Kontra azimut je najlakse izracunati od pravog azimuta to jest imamo izracunat azimut a kontra je znaci 180 stepeni + ili minus. To jest ako nam je azimut manji od 180 stepen dodajemo mu +180 (to je onda kontraazimut) A ako nam je azimut veci od 180 stepeni oduzimamo onda od njega 180, a ako je jednak 180 onda nije bitno koja je radnja od ove dvije jer azimu 0 i azimut 360 je jedno te isto to jest zatvoren krug..

U formi F_tacke sam vec stavio primjer gdje sam ga mislio smjestiti kopirajuci azimut pravi. Nadam se da sam pojasnio Wink

Prilozi:
Informacije o fajlu: rar  azimut v19.rar
Preuzimanja: 71
Veličina: 1.15 MB


Srdačan pozdrav
↑  ↓

#68 03.03.2014-09:33
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,832


Subject: Re: Queries vece manje
Evo procedura malo prepravljena.
Pobrisi staru pa stavi ovu:
DownloadIzvorni kod (Visual Basic):
  1. Function Ugao(IDL As Integer, IDT As Integer, Optional Kontra As Boolean)
  2. Dim Dx As Double
  3. Dim DY As Double
  4. Dim U As Double
  5. Dim K As Boolean
  6.  
  7. Kor Dx, DY, IDL, IDT, K
  8. If K = False Then GoTo Kraj
  9. If Dx = 0 Or DY = 0 Then GoTo Kraj
  10. U = Atn(Abs(DY) / Abs(Dx))
  11.  If Dx < 0 Then
  12.             If DY < 0 Then
  13.               U = Abs(U) + PI
  14.              Else
  15.              U = PI - Abs(U)
  16.              End If
  17.          Else
  18.              If DY < 0 Then
  19.               U = (2 * PI) - Abs(U)
  20.              End If
  21.         End If
  22. U = RadDeg(U)
  23.  
  24. If Kontra = True Then
  25.     If U > 180 Then
  26.     U = U - 180
  27.     ElseIf Ugao < 180 Then
  28.     U = U + 180
  29.     End If
  30. End If
  31. Ugao = Format(U, "0.00")
  32. Kraj:
  33. End Function

Evo ti Query Q_Tacke:
DownloadIzvorni kod (SQL):
  1. SELECT ugao([LokacijaID],[Tacka]) AS Azimut, Duzina([LokacijaID],[Tacka]) AS Duzina, Ugao([LokacijaID],[Tacka],-1) AS KontraAzimut, *
  2. FROM T_Tacke;

Pozdrav
↑  ↓

#69 03.03.2014-18:41
carobnjak Offline
Clan
Registrovan/a od: 25.07.2011-11:57
Komentari: 381


Subject: Re: Queries vece manje
Ama CAR si čovječe to je to po običaju kapa dole i hvala do nebaaaaaaa
Srdačan pozdrav
↑  ↓

Stranice (5): 1, 2, 3, 4, 5


All times are GMT +01:00. Current time: 16.12.2018-15:57.