Tranformare de coordonate

Tranformare de coordonate

Transformarea de coordonate dintr-un sistem de proiectie in altul este o aplicatie in care trebuie sa ne gandim cum vrem sa introducem datele. Pentru a realize aceste transformari cream o baza de date.

Pentru inceput se creaza un tabel al datelor care sa aiba numele tbl_date din meniul Create, unde am apasat pe butonul Table Design.

In fereastra principala a programului vom crea, in modul de vizualizare Design view, campurile tabelului principal: nume, X(m), Y(m), H(m). Tipul de data corespunzator acestora este de tip text.

Apoi tabelul de date tbl_dsv, el contine pe o singura coloana datele aplicatiei, separate intre ele prin unul din caracterele: space, tab sau virgula.

Vom crea cateva interogari care vor   fi utilizate la pregatirea datelor in vederea afisarii lor in formulare. O interogare se creaza selectand din meniul Create butonul Query Design.

Vom crea 3 interogari intermediare denumite: qry_csv_intermediar, qry_ssv_intermediar si qry_dsv_intermediar. Aceste interogari folosesc aceleasi formule in calculul valorilor corespunzatoare coloanelor si folosesc aceeasi sursa,   tbl_dsv.

Formulele utilizate se pot observa in imaginile de mai sus, semnificatia acestora este urmatoarea:

d:InStr([x]," ")- intoarce pozitia sirului x in cadrul altui sir

l:Left([x],[d]-1)- intoarce cele mai din stanga caractere ale sirului.

m:Mid([x],[d]+1,99999)- afiseaza 99999 caractere ale textului specificat ca argument incepand cu pozitia [d]+1.

Valorile atribuite coloanelor dd,mm,ll vor rezulta din calcule utilizand valori calculate anterior. Interatiile se opresc cand am obtinuit ceea ce am dorit, adica determinarea pe coloane separate a denumirii punctelor de coordonate, valorilor numerice corespunzatoare coordonatelor x, y si H.

O deosebire intre cele trei interogari apare in cazul interogarii qry_dsv_intermediar. Atribuim primului camp relatia de calcul: "z: [Forms]![mainform].[txtdelimitator]"

Cream alte trei interogari care sa contina doar ce ne intereseaza. Ca sursa de date folosim pentru fiecare interogare finala, interogarea intermediara corespunzatoare.

Interogarile create mai sus nu contin coeficientii de transformare intre cele 2 sisteme. Cream alte 2 interogari: qry_transf_st70_st30 si qry_transf_st30_st70 care au ca sursa de date tbl_date. Coeficientii se calculeaza cu relatiile din imagine:

Pe baza acestor 2 ultime interogari cream interogarile finale corespunzatoare transformarilor de coordonate dintr-un sistem in altul: qry_st70_st30 si qry_st30_st70.

Se creaza un formular, la fel ca un table sau o interogare, accesand meniul Create. Alegem butonul Form Design dupa care, in modul Design view cream 8 butoane corespunzatoare transformarilor de date din clipboard atat pentru transformarea de coordonate din sistemul Stereo 70 in sistemul Stereo 30 cat si invers.

Crearea unui buton se face din bara de butoane, dand clic pe Button. Actiunearea butoanelor are ca scop desfasurarea unui eveniment, eveniment care are la baza crearea unei procedure. Procedura o vom crea in Visual Basic astfel: clic dreapta pe button, Proprietati, Event, iar la actiunea On click, dam click pe sageata si se va afisa (event procedure). Tot aici, dam click pe cele trei puncte de suspensie si vom intra in modul de vizualizare Visual Basic. Cream cate o procedura pentru fiecare buton.

Pentru realizarea transformarii datelor din clipboard de tip DSV, trebuie sa introducem un delimitator. In bara de butoane, selectam in Design view Text Box. In caseta din stanga vom scrie introdu delimitator:" iar in cata din dreapta, vom da clic dreapta pe proprietati, vom atribui ca nume: "textdelimitator".