Metode si tehnici de programare in Visual Basic

Metode si tehnici de programare in Visual Basic

Lucrul cu fisiere

În practica aplicatiilor pe calculator, introducerea datelor de la tastatura si afisarea rezultatelor pe ecran, se intalneste intr-un numar limitat de cazuri, cand programele au putine date de intrare sau sunt simple. Un program face parte, de regula, dintr-un pachet de programe si foloseste date de la alt program iar rezultatele obtinute vor fi date de intrare pentru alt program. Aceasta "comunicare' intre programe se face prin intermediul fisierelor, care se constituie in depozit de date de intrare/iesire(I/O).

Fisierele pot memora informatii din cele mai diverse - imagini, texte, date numerice etc.

Orice fisier, inainte de a avea acces la el , trebuie deschis cu instructiunea Open. De fapt, orice acces la un fisier presupune efectuarea urmatoarelor operatii:

Deschiderea fisierului;

Accesul la el (scriere, citire, adaugare);

Închiderea fisierului.

Aceste operatii vor trebui sa apara in programele pe care le veti scrie.

Deschiderea fisierelor

Înainte de a putea efectua operatii de intrare/iesire asupra unui fisier, acesta trebuie deschis cu comanda Open. Aceasta comanda se utilizeaza pentru alocarea unei memorii rezervate operatiilor de intrare/iesire asupra fisierului si pentru specificarea modului de acces la fisier.

Exista trei variante de acces la fisier si anume:

Acces binar;

Acces secvential;

Acces aleatoriu.

Iata sintaxa simplificata a comenzii Open:

Open cale For mode As #NumarFisier.

Cale este o expresie alfanumerica ce specifica numele si localizarea fisierului ce va fi deschis, care poate include si o unitate de disc si o structura de directoare. Exemplu: "c:MocianVB6coef.dat". Daca fisierul indicat nu exista, acesta poate fi creat in unul din modurile Append, Binary, Output sau Random. Daca fisierul exista deja si se deschide in mod Output, el va fi suprascris, deci trebuie avut grija ca sa fie deschis in modul Append, pentru a face adaugari.

Mode este unul din cele cinci cuvinte cheie ale limbajului Visual Basic care specifica modul in care va fi deschis un fisier. Astfel, pentru modul de acces secvential se vor folosi cuvintele cheie Append, Input si Output. Pentru modul de acces binar sau aleator se vor utiliza cuvintele cheie Binary, respectiv Random.

Numar Fisier este un numar intreg cuprins in intervalul 1-511. Nu uitati ca acest numar este precedat de simbolul "#".

Iata un exemplu concret de deschidere al unui fisier cu acces secvential:

Open "c:MocianLucruVB6ex1.txt" For Input As #1.

Cand se termina citirea sau scrierea unui fisier acesta trebuie inchis cu comanda Close.

Iata sintaxa acestei comenzii: Close Lista numarului fisierelor.

Parametrul Lista numarului fisierelor poate fi reprezentat de unul sau mai multe numere separate prin virgula. Daca se omite acest parametru, vor fi inchise toate fisierele deschise la un moment dat. Iata cateva exemple de folosire a comenzi Close.

Close #1

Close #1, #2, #20

Close

În primul caz se inchide numai fisierul asociat numarului #1, in al doilea se inchid trei fisiere, iar in al treilea se inchid toate fisierele deschise.

Scrierea datelor in fisiere cu acces secvential

Scrierea in fisiere se face cu ajutorul instructiunii Write, dupa ce acestea au fost deschise in prealabil in unul din modurile Output sau Append. Formatul instructiunii este:

Write #nr.fisier, lista expresii

sau mai concret:

Write #1, x1, x2, y1, y2

unde:

#1 - este numarul asociat la deschiderea fisierului, numit si specificator de fisier.

x1, x2, y1, y2 - este lista de date care va fi scrisa in fisier.

Cand se specifica datele trebuie sa tinem cont de urmatoarele:

• mai multe valori se scriu in lista separate prin virgula;
• textele se scriu intre ghilimele;
• data si ora trebuie specificate in format:

#dd-mm-yy hh:mm:ss#;

• valorile logice se vor specifica in urmatorul format:

#True#

#False#

O linie dintr-un fisier poarta numele de articol sau inregistrare.

Pentru a separa liniile intre ele se foloseste combinatia de caractere speciale <CR> + <LF> cunoscuta si sub numele de retur de car, nume mostenit, probabil, de la masina de scris.

Iata o secventa de program care scrie intr-un fisier coeficientii si solutiile ecuatiei de gradul II:

Open "C:MocianCursVBecuatia2.dat" For Output As #1

Write #1, a, b, c, x1, x2

Close #1

Observatie importanta! Pentru scrierea in fisiere se poate folosi si instructiunea Print #n, unde n este specificatorul de fisier. Aceasta instructiune realizeaza o scriere formatata, iar fiecare articol din fisier este considerat ca o singura variabila de tip String (si nu o lista de variabile ca la instructiunea Write), iar textele scrise nu se incadreaza in ghilimele.

Utilizarea acestei instructiuni pentru scrierea in fisier nu este recomandata din cauza ca la citirea ulterioara a sirului de caractere, acesta trebuie prelucrat folosind manipulari destul de complicate pentru a separa expresiile initiale.

Citirea datelor din fisiere cu acces secvential

Instructiunea Input este destinata preluarii datelor dintr-un fisier si atribuirii lor unor variabile. Sintaxa instructiunii este:

Input #n, lista de expresii

Lista de expresii are aceeasi semnificatie ca si la instructiunea Write, considerata opusa lui Input. Sunt valabile precizarile referitoare la specificarea tipurilor de date. Pentru citirea datelor pe care le-am scris in fisier putin mai inainte, vom avea urmatoarea secventa de cod:

Open "C:MocianCursVBecuatia2.dat" For Input As #1

Input #1, a, b, c, x1, x2

Close #1

Pentru o citire corecta, inregistrarea trebuie sa aiba aceeasi structura ca si lista de variabile din instructiunea Input, altfel vom primi un mesaj de eroare. Fiecarei variabile i se va atribui valoarea aflata intre doua virgule.

Un fisier are mai multe articole, iar instructiunea Input citeste un singur articol. Pentru a citi toate articolele unui fisier trebuie sa ne gandim la plasarea lui Input intr-o structura repetitiva. Iesirea din bucla trebuie sa se faca atunci cand s-a ajuns la sfarsitul fisierului, adica atunci cand s-au citit toate articolele. Pentru a testa sfarsitul fisierului se utilizeaza functia Eof(), care returneaza una din valorile True sau False dupa cum suntem la sfarsitul fisierului sau nu.

Sintaxa functiei este: Eof(1), daca fisierul a fost deschis cu #1.

Observatie importanta! Citirea fisierelor in Visual Basic se poate face si cu instructiunea Line Input, considerata perechea lui Print, prezentata putin mai inainte. Spre deosebire de Input, instructiunea Line Input creaza o singura variabila de tip String cu continutul intregului articol, fara combinatia <CR> + <LF> (care corespunde unui Enter intr-un text obisnuit), care este ignorata.

Pentru fisierele cu acces binar sau aleator, perechea de instructiuni de scriere si citire este Put si Get. Acest mod de acces la fisiere este folosit de programatorii avansati si cu experienta deoarece necesita intelegerea unor concepte mai complicate. Oricum, pentru cei ce doresc performanta, exista multe carti de programare in Visual Basic de unde se pot documenta. O sursa valoroasa de informare este si folosirea Help -ului din Visual Basic.

Exemple practice de folosire a fisierelor

Exemplele de folosire a fisierelor in proiectele Visual Basic sunt nenumarate. Cele prezentate aici sunt cazuri pe care le veti folosi in practica.

Exemplul nr.1 Vom scrie o aplicatie care scrie intr-un fisier cu acces secvential notele unor studenti. Datele vor fi introduse de la tastatura.

Interfata este urmatoarea:

Interfata contine numai 2 butoane de comanda. Cand lansam programul ni se cer pe rand numele, prenumele si nota obisnuita, care vor fi scrise in fisierul note.dat.

Ciclul DO WHILE face ca introducerea datelor sa se repete pana cand se apasa direct Enter fara sa scriem nimic la introducerea unui nume.

Observatie !!! Trebuie avut grija sa creati in prealabil structura de directoare in care se va salva fisierul deschis, altfel veti primi un mesaj de eroare.

Codul sursa al aplicatiei este urmatorul:

Private Sub cmdExit_Click()

End

End Sub

Private Sub cmdScrie_Click()

Open 'C:MocianScoalaCursVBnote.dat' For Output As #1

nume = InputBox('Numele= ')

Do While nume <> ''

prenume = InputBox('Prenumele= ')

nota = InputBox('Nota= ')

Write #1, nume, prenume, nota

nume = InputBox('Numele= ')

Loop

Close #1

End Sub

Rezultatul introducerii acestor date intr-un fisier este prezentat mai jos:

Exemplul nr. 2. Aceasta aplicatie citeste datele din fisierul pe care l-ati creat in exemplul nr.1 si le scrie in forma aplicatiei. Interfata va avea tot 2 butoane de comanda, unul pentru lansare si unul pentru iesire. Dupa lansarea aplicatiei interfata va arata ca in figura 15.3.

Codul sursa pentru acest exemplu este:

Private Sub cmdCiteste_Click()

Open 'C:Mocian_ScoalaCursVBnote.dat' For Input As #1

Do Until EOF(1)

Input #1, nume, prenume, nota

Form1.Print nume, prenume, nota 'Afisarea datelor

Loop

Close #1

End Sub

Private Sub cmdExit_Click()

End

End Sub

Din acest exemplu se observa cum a fost pusa conditia pentru a detecta sfarsitul de fisier EOF, care merita retinuta pentru ca veti mai avea nevoie de ea. De asemenea, se vede cum se scrie pe o interfata, tehnica folosita mai ales pentru teste.

Exemplul nr. 3. Acest exemplu il vom folosi pentru a citi informatii din 2 fisiere pentru a completa un ListBox si un ComboBox, respectiv pentru a scrie informatii intr-un al 3-lea fisier. Primele doua fisiere se vor crea cu utilitarul Notepad si vor avea structurile de mai jos:

List1.txt: Nume1 Prenume1

Nume2 Prenume2

. . .

Nume n Prenume n

Combo1.txt: Nota1

Nota2

. . .

Nota n

Al 3-lea fisier va avea numele Rez.dat si o structura definita prin program, de forma: Nume Prenume Nota, fiecare inregistrare fiind formata din selectiile care se vor face din ListBox si ComboBox.

Interfata:

Interfata contine, dupa cum se vede, 6 obiecte dupa cum urmeaza: 2 etichete, 2 butoane de comanda, o caseta cu lista si o caseta combinata. Proprietatile fiecaruia le veti stabili singuri.

Cum functioneaza aplicatia? Mai intai asigurati-va ca fisierele "c:TempNumeleDvList1.txt" si "c:TempNumeleDvCombo1.txt" au fost completate in Notepad. Nu uitati sa selectati un nume de student si o nota, apoi apasati butonul "Executa".

Dupa ce ati apasat butonul "Executa", in fisierul "c:TempNumeleDvRez.txt", va apare combinatia pe care ati selectat-o. Deoarece fisierul e deschis in modul Append, toate inregistrarile se vor adauga la sfarsit.

Codul sursa:

Private Sub cmdExit_Click()

End

End Sub

Private Sub cmdExecuta_Click()

Open 'c:TempPopescuRez.dat' For Append As #1

x = lstNume.ListIndex

y = cboNota.ListIndex

xx = lstNume.List(x)

yy = cboNota.List(y)

Var = xx & ' ' & yy

Print #1, Var

Close #1

End Sub

Private Sub Form_Load()

'Deschiderea fisierelor

Open 'c:TempPopescuList1.txt' For Input As #2

Open 'c:TempPopescuCombo1.txt' For Input As #3

'Incarc ListBox-ul

Do While Not EOF(2) 'EOF - sfirsit de fisier

Line Input #2, x

lstNume.AddItem x

Loop

'Incarc ComboBox-ul

Do While Not EOF(3)

Line Input #3, x

cboNota.AddItem x

Loop

Close #2, #3

End Sub

Cateva comentarii cred ca se impun parcurgand codul sursa:

Observati conditia Not EOF (2) de la ciclul Do Loop. Aceasta conditie se traduce astfel: "atata timp cat nu este sfarsitul fisierului". Aceasta conditie contine functia EOF() care are ca parametru numarul asociat deschiderii unui fisier. Retineti aceasta conditie pentru ca o veti folosi de multe ori in aplicatiile pe care o sa le faceti;

Observati ca ListBox-ul si ComboBox-ul se incarca in procedura Form_Load() care se lanseaza automat la deschiderea formei.

Observati, de asemenea, asemanarea accesului la articolele din ListBox si ComboBox.

Aici s-a putut folosi instructiunea Line Input deoarece aveam nevoie de intreaga inregistrare.

Modalitati de gestionare a fisierelor

În exemplele prezentate pana acum, numele fisierelor se stabileau prin program, unde se indica si calea spre acel fisier. Aceasta practica nu este adecvata aplicatiilor profesionale, ea se foloseste mai mult in scop didactic pentru a intelege mecanismele lucrului cu fisiere (deschidere, scriere, citire, inchidere). Un fisier folosit intr-o aplicatie trebuie sa fie intr-un anumit loc, foarte exact determinat. Daca se sterge fisierul sau un director, programul va da o eroare.

Pentru a evita aceasta strictete legata de numele si locul fisierelor, ar fi bine ca numele si locatia unui fisier implicat in aplicatie sa fie date de utilizator. În acest scop, limbajul Visual Basic pune la dispozitia programatorilor instrumente foarte puternice, care vor fi prezentate in cele ce urmeaza

Pentru a scrie sau citi un fisier se pot folosi niste obiecte speciale numite FileSave si FileOpen care sunt casete de dialog standard. Aceste obiecte (se mai numesc si controale), fiind mai rar folosite nu se gasesc intre obiectele din Toolbox, asa ca va trebui sa facem cateva manevre pentru a le aduce aici.

Parcurgeti urmatorii pasi:

1. Dati comanda Project - Components , care va deschide caseta de dialog din figura 15.5.

2. Bifati componenta Microsoft Common Dialog Control 6.0, apoi apasati OK. Caseta se inchide iar in Toolbox va apare iconita unui nou obiect, CommonDialog.
3. Acest nou obiect, poate fi inserat acum ca oricare alt obiect din Toolbox.

Controlul CommonDialog contine mai multe tipuri de casete de dialog, dupa cum urmeaza:

1. Open/SaveAs - pentru deschiderea/salvarea fisierelor;
2. Color - pentru alegerea culorilor;
3. Font - pentru alegerea fonturilor;
4. Print - pentru alegerea imprimantelor;
5. Help - pentru legaturi cu fisiere de tip help.

În functie de tipul casetei de dialog ales se vor defini proprietatile acesteia, asa cum se vede in figura 15.6.

Astfel, pentru tipul Open/SaveAs proprietatile casetei de dialog CommonDialog sunt cele aratate in figura 15.6, avand semnificatiile:

• DialogTitle - titlul casetei de dialog
• FileName - Returneaza / Seteaza calea si numele fisierului
• InitDir - Returneaza / Seteaza directorul care contine fisierul
• Filter - Returneaza / Seteaza filtrele care sunt afisate in caseta Type List
• DefaultExt - Returneaza / Seteaza extensia implicita la salvarea fisierului

Metodele casetei de dialog CommonDialog sunt urmatoarele:

• ShowOpen
• ShowSave
• ShowColor
• ShowFont
• ShowPrinter
• ShowHelp

Cum se procedeaza cand dorim sa ne gestionam fisierele cu ajutorul controlului CommonDialog, veti putea urmari in exemplul urmator.

Aplicatie de gestionare a fisierelor

Ne propunem sa cream o aplicatie care salveaza in diferite fisiere notele studentilor la o anumita disciplina. Este evident ca fiecare grupa va fi salvata intr-un fisier cu numele grupei. Pentru aceasta vom folosi controlul CommonDialog cu metoda ShowSaveAs. Ne vom folosi, de asemenea, de un cod sursa pe care l-am mai utilizat in aceasta lectie (ex. 1).

Interfata este data in figura 15.7.

Construirea interfetei se face dupa metoda cunoscuta, desenand pe rand obiectele. Noutatea consta in punerea pe interfata a controlului CommonDialog, care se va vedea numai in Design Mod, adica numai in faza de proiectare nu si la executie.

Iata codul:

Private Sub cmdFisNote_Click()

cdg1.ShowSave 'Aici se vizualizeaza commonDialog pentru salvarefisiere

x = cdg1.FileName 'Extrag numele fisierului ales din caseta de dialog

Open x For Output As #1

nume = InputBox('Numele= ')

'Ciclu de introducere a datelor

Do While nume <> '' 'Ciclul se opreste cand nu se da ENTER, fara valoare

prenume = InputBox('Prenumele= ')

nota = InputBox('Nota= ')

Write #1, nume, prenume, nota

nume = InputBox('Numele= ')

Loop

Close #1

End Sub

Private Sub cmdExit_Click

End

End Sub

Cum functioneaza programul? Dupa ce am construit interfata si am scris codul aferent, se lanseaza programul in executie. Pe forma apar numai cele 2 butoane de comanda, iconita controlului CommonDialog nu se vede. Apasand butonul "Creaza fisier cu note" se va deschide caseta de dialog de unde putem alege numele fisierului in care se vor scrie datele introduse.

Dupa ce am ales numele fara extensie al fisierului, se va deschide o caseta InputBox pentru introducerea pe rand a datelor cerute (Nume, Prenume, Nota). Cand vrem sa terminam ciclul dam un click pe butonul OK fara sa introducem vreun nume.

Urmariti fisierele pe care le-ati creat, deschizandu-le cu Notepad.

Folosirea controalelor intrinseci pentru accesul la fisiere

În cazurile in care controalele standard FileOpen si FileSave nu ofera un nivel acceptabil de flexibilitate, Visual Basic ne pune la dispozitie trei controale pentru lucrul cu fisiere:

• DriveListBox - care afiseaza lista unitatilor de disc disponibile in sistem
• DirListBox - care afiseaza lista subdirectoarelor dintr-un anumit director
• FileListBox - care afiseaza lista fisierelor dintr-un anumit director

Aceste controale se pot combina astfel:

• La proiectare, pentru controlul FileListBox se poate stabili un filtru pentru afisarea fisierelor, prin proprietatea Pattern, care selecteaza pentru afisare numai fisierele cu o anumita extensie (de exemplu txt - vezi exemplul care urmeaza);
• La executie proprietatea Path a controlului DirListBox se sincronizeaza cu proprietatea Drive a controlului DriveListBox, iar proprietatea Path a controlului FileListBox, cu proprietatea Path a contolului DirListBox, adica:

Dir1.Path = Drive1.Drive

File1.Path = Dir1.Path

La executie, numele cu extensie a fisierului ales din controlul FileListBox se obtine din proprietatea FileName, adica:

numef = File1.FileName

Un exemplu practic ne va lamuri asupra multor aspecte legate de controalele amintite. Astfel, ne propunem sa afisam continutul unor fisiere de tip text. Aceste fisiere pot fi de exemplu cele create pentru evidenta notelor studentilor, despre care s-a discutat putin mai inainte. Afisarea se va face direct pe forma.

Interfata este prezentata in figura 15.8. Este aratat si ToolBox-ul si localizarea controalelor noi folosite.

		Fig. 15.8. Interfata cu noile obiecte