Centar za edukaciju-BiH



#61 15.11.2013 18:48
carobnjak Van mreze
Clan
Registrovan od:25.07.2011
Postovi:381


Predmet: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 Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#63 16.11.2013 16:31
carobnjak Van mreze
Clan
Registrovan od:25.07.2011
Postovi:381


Predmet: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 Van mreze
Clan
Registrovan od:25.07.2011
Postovi:381


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

Prilozi:
Informacije o tipu datoteke za:rar  azimutfinal.rar
Preuzimanja:327
Velicina datoteke:49.52 KB


Srdačan pozdrav
↑  ↓

#65 02.03.2014 14:40
carobnjak Van mreze
Clan
Registrovan od:25.07.2011
Postovi:381


Predmet: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 Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet: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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#67 02.03.2014 22:51
carobnjak Van mreze
Clan
Registrovan od:25.07.2011
Postovi:381


Predmet: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 tipu datoteke za:rar  azimut v19.rar
Preuzimanja:330
Velicina datoteke:1.15 MB


Srdačan pozdrav
↑  ↓

#68 03.03.2014 09:33
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Queries vece manje
Evo procedura malo prepravljena.
Pobrisi staru pa stavi ovu:
PreuzmiIzvorni kôd (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:
PreuzmiIzvorni kôd (SQL):
  1. SELECT ugao([LokacijaID],[Tacka]) AS Azimut, Duzina([LokacijaID],[Tacka]) AS Duzina, Ugao([LokacijaID],[Tacka],-1) AS KontraAzimut, *
  2. FROM T_Tacke;

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#69 03.03.2014 18:41
carobnjak Van mreze
Clan
Registrovan od:25.07.2011
Postovi:381


Predmet: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 (7):1,2,3,4,5,6,7


Sva vremena su GMT +01:00. Trenutno vrijeme: 2: 53 pm.