| carobnjak |
15.11.2013 19:19 |
Predmet:Re: Queries vece manje
U prvom primjeru vidimo da nije izracunao azimut jer su nam po x-u koordinate iste osim poslije zareza, ali posto nam nece da racuna decimale poslije zareza (sto je greska a ne znam je ispraviti) rezultat dobijemo 0 a mnozenje sa 0 je 0 zato nam i ne pokazuje rezultat.
U drugom primjeru takodjer vidimo da nije izracunao azimut ali ni rezultat nam nigdje nije tacan za duzine (ponovo bas zbog decimala iza zareza) |
Prilozi:
primjer 1.JPG (Velicina datoteke:97.48 KB)
primjer 2.JPG (Velicina datoteke:92.16 KB)
|
| zxz |
15.11.2013 19:40 |
Predmet:Re: Queries vece manje
Razumio sam te ali necu moci vecras pogledati.
Imam goste.
Sutra popodne cu pokusati naci gresku. |
| carobnjak |
15.11.2013 19:48 |
Predmet:Re: Queries vece manje
Hvala ti unaprijed; ja se s tim mucim vec tri dana, a ne mogu naci rjesenje. |
| carobnjak |
30.11.2013 01:35 |
Predmet:Re: Queries vece manje
Evo gotove verzije ako kome zatreba ili slično. Veliki pozdrav svima a ZxZ velika zahvala |
Prilozi:
azimutfinal.rar (Velicina datoteke:49.52 KB)
|
| zxz |
03.03.2014 10:33 |
Predmet:Re: Queries vece manje
Evo procedura malo prepravljena.
Pobrisi staru pa stavi ovu:
PreuzmiIzvorni kôd (Visual Basic):Function Ugao(IDL As Integer, IDT As Integer, Optional Kontra As Boolean) Dim Dx As Double Dim DY As Double Dim U As Double Dim K As Boolean Kor Dx, DY, IDL, IDT, K If K = False Then GoTo Kraj If Dx = 0 Or DY = 0 Then GoTo Kraj U = Atn(Abs(DY) / Abs(Dx)) If Dx < 0 Then If DY < 0 Then U = Abs(U) + PI Else U = PI - Abs(U) End If Else If DY < 0 Then U = (2 * PI) - Abs(U) End If End If U = RadDeg(U) If Kontra = True Then If U > 180 Then U = U - 180 ElseIf Ugao < 180 Then U = U + 180 End If End If Ugao = Format(U, "0.00") Kraj: End Function
Evo ti Query Q_Tacke:
PreuzmiIzvorni kôd (SQL):SELECT ugao([LokacijaID],[Tacka]) AS Azimut, Duzina([LokacijaID],[Tacka]) AS Duzina, Ugao([LokacijaID],[Tacka],-1) AS KontraAzimut, * FROM T_Tacke;
|
| carobnjak |
03.03.2014 19:41 |
Predmet:Re: Queries vece manje
Ama CAR si čovječe to je to po običaju kapa dole i hvala do nebaaaaaaa |
| zxz |
02.03.2014 23:35 |
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. |
| carobnjak |
02.03.2014 23:51 |
Predmet:Re: Queries vece manje
Hvala ti puno  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  |
Prilozi:
azimut v19.rar (Velicina datoteke:1.15 MB)
|
| carobnjak |
02.03.2014 15:40 |
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. |