Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Access


Prosiri i skupi Opcije teme
Stranice (7):1,2,3,4,5,6,7

#21 27.07.2011 01:46
carobnjak Van mreze
Clan
Registrovan od:25.07.2011
Postovi:381


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
Srdačan pozdrav
↑  ↓

#22 27.07.2011 01:58
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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

#23 27.07.2011 02:01
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Queries vece manje
Trebao bi i tabele prepraviti.
Za sad samo jedna:
Polja:
Vizura(redniBroj)
X_Koordinata
Y_Koordinata
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#24 27.07.2011 02:02
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Queries vece manje
Kada napravis ovakvu tabelu onda cemo napraviti i proceduru koja ce racunati i ugao i duzinu.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#25 27.07.2011 02:10
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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

#26 27.07.2011 02:15
carobnjak Van mreze
Clan
Registrovan od:25.07.2011
Postovi:381


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
Srdačan pozdrav
↑  ↓

#27 27.07.2011 02:20
carobnjak Van mreze
Clan
Registrovan od:25.07.2011
Postovi:381


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...
Srdačan pozdrav
↑  ↓

#28 27.07.2011 02:24
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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

#29 27.07.2011 02:28
carobnjak Van mreze
Clan
Registrovan od:25.07.2011
Postovi:381


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...
Srdačan pozdrav
Ovaj post je ureden 1 puta. Posljednja izmjena 27.07.2011 02:30 od strane almirmiranda. ↑  ↓

#30 27.07.2011 12:43
carobnjak Van mreze
Clan
Registrovan od:25.07.2011
Postovi:381


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
Srdačan pozdrav
↑  ↓

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

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 1: 26 am.