carobnjak 27.07.2011 01:46
Predmet:Re: Queries vece manje

Hahaha ne po struci sam medicinar, ali posto kod nas u struci posla nema prvo sam konobariso 5 godina, pa sam polozio kurs za deminera, kasnije za vodju deminerskog tima tako da sam sad u ovoj branši.. a tu aplikaciju sto imas vjerovatno bi mi dobro dosla.
Ja cu nastaviti ovako kako sam poco drugacije ne znam vjeruj mi, a sve kritike rado prihvatam i nove smjernice Smiling
Od cetvrtka sam bez neta na terenu sam u Maglaju ali potrudit cu se sutra da prekopiram ovu temu sei VB skola sto ste imali pa cu vjezbati malo
Hvala jos jednom od srca veliki pozdrav

zxz 27.07.2011 01:58
Predmet:Re: Queries vece manje

Evo ti moj kod:
PreuzmiIzvorni kôd (Visual Basic):
  1. Function PI() As Double
  2. PI = 4 * Atn(1)
  3. End Function
  4.  
  5. Function RadDeg(x As Double) As Double
  6. '-------------------------------------------------------------------
  7. ' Pretvara radiane u stepene
  8. '-------------------------------------------------------------------
  9.  RadDeg = x / PI() * 180
  10. End Function
  11.  
  12. Function Azimut(X1 As Single, Y1 As Single, X2 As Single, Y2 As Single) As Single
  13. Dim Dx As Single
  14. Dim DY As Single
  15. Dim Ugao As Double
  16.  
  17. Dx = X1 - X2
  18. DY = Y1 - Y2
  19.  
  20. Ugao = Atn(Abs(DY) / Abs(Dx))
  21.  If Dx < 0 Then
  22.             If DY < 0 Then
  23.               Ugao = Abs(Ugao) + PI
  24.              Else
  25.              Ugao = PI - Abs(Ugao)
  26.              End If
  27.          Else
  28.              If DY < 0 Then
  29.               Ugao = (2 * PI) - Abs(Ugao)
  30.              End If
  31.         End If
  32. Ugao = RadDeg(Ugao)
  33. Azimut = Format(Ugao, "0.00")
  34. End Function

a evo i Query:
PreuzmiIzvorni kôd (SQL):
  1. SELECT x.[1] AS x_1, y.[1] AS y_1, y.[2] AS y_2, x.[2] AS x_2, Sqr((([x_2]-[x_1])^2)+(([y_2]-[y_1])^2)) AS metara, RacunK(x.[1],x.[2],y.[1],y.[2])+Sqr((Atn(([x_2]-[x_1])/([y_2]-[y_1]))*57.29577951)^2) AS stepeni, Azimut([x].[1],[y].[1],[x].[2],[y].[2]) AS AZ
  2. FROM x INNER JOIN y ON x.id_x = y.id_y;

zxz 27.07.2011 02:01
Predmet:Re: Queries vece manje

Trebao bi i tabele prepraviti.
Za sad samo jedna:
Polja:
Vizura(redniBroj)
X_Koordinata
Y_Koordinata

zxz 27.07.2011 02:02
Predmet:Re: Queries vece manje

Kada napravis ovakvu tabelu onda cemo napraviti i proceduru koja ce racunati i ugao i duzinu.

zxz 27.07.2011 02:10
Predmet:Re: Queries vece manje

Moj ti je prijedlog da pokusas nauciti autocad. Koliko vidim crtas za tablom.
To bi sve tamo mogao nacrtati i ispod poturiti kartu i nista nebi morao ovo racunati. Sve bi imao.

carobnjak 27.07.2011 02:15
Predmet:Re: Queries vece manje

Da ovaj tvoj kod je odradio kako treba mislim nisam ni sumnjao Smiling 142 stepena to je to sad ispravno,
Ne razumijem sad kako da napravim novu tabelu sa x i sa y koordinatama, jer bi ta tabela onda imala minimalno 100 unosa, x1,x2x3...x50 y1,y2,y3...y50 ja sam mislio da je ovako lakse kad je raspodjelim na x i y tabelu i povezem zajednickim idbrojem...
i u tabelama stavljam Data type na text ili na Currency da bi dobio fiksiran broj onako kako ga zapisem a ne da mi zaokruzuje dali grijesim?
Pozzdrav

carobnjak 27.07.2011 02:20
Predmet:Re: Queries vece manje

Citiraj zxz:
Moj ti je prijedlog da pokusas nauciti autocad. Koliko vidim crtas za tablom.
To bi sve tamo mogao nacrtati i ispod poturiti kartu i nista nebi morao ovo racunati. Sve bi imao.

Na zalost ovako moramo da crtamo, i to 3 ovakve karte moramo napraviti, jedna skica progresa u kojoj se svakodnevno oznacava napredovanje sa posebnom bojom, koja mora biti redovno azurirana, inspektori BHMACA je gledaju pri svakoj kontroli, druga skica je za internsu kontrolu, i treca masinska priprema zemljista hehehe.
A ovo sto sad radim drug ovu bazu podataka sve ja to mogu i sa skice vidjeti smjer duljinu, ali ovako je jednostavnije kad isprintam sebi tacke sa azimutim i smjerom i u svakom momentu sa busolom mogu vidjeti smjer kretanja pojedinog deminera, da li je dostigao pojedinu tacku u kojem iducem smjeru treba da ide itd...

zxz 27.07.2011 02:24
Predmet:Re: Queries vece manje

Koju busolu imas?
Jel sa 6000 podioka ili sa 6400.
Eto i to moras preracunavati u stepene.
Mislim da bi autocadom rijesio skoro sve.

carobnjak 27.07.2011 02:28
Predmet:Re: Queries vece manje

M53 JNA ne trebam nista sa njom proracunavati ispod podioci su koje mi koristimo a Autocad znam da je savrsen ali kako rekoh moramo na zalost rucno crtati...

carobnjak 27.07.2011 12:43
Predmet:Re: Queries vece manje

Nesto sam razmisljao ako ponovo uspijem dobro rastumaciti sto sam mislio bice dobro...

Da napravim tabelu ovako kako si reka rb Y_kordinata X_ kordinata i datum koji ce biljeziti rekorde za taj ddan, tako da mi ispadne nesto poput kase (otkucati racuna za taj dan) jer ovako moram posto jaa necu imati samo jedno radiliste u ovoj bazi i to je to, danas sam recimo u maaglaju imam radiliste koje ce biti gotovo za jedan mjesec imam druga 2 takodje u magllaju u narednom periodu alli jedno radiliste mogu raditi jedan dan, nista paralelno sa drugim projektima, taako da cu imati odvojeno y x kordinate po datumu, ? Jesam se dobro izrazio ipaak sam ja samouk sto se tice i informatike i access-a Smiling