4 elemente ale limbajului de programare visual basic

End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e _ As System.EventArgs) Handles Button1.Click

'Evenimentul click al butonului “OK”

If Len(Trim(Me.TextBox2.Text)) > 0 Then

Me.nume.Items.Add(Me.TextBox1.Text)

Me.varsta.Items.Add(Me.TextBox2.Text)

Me.TextBox2.Text = ""

Me.TextBox1.Text = ""

End If

Me.TextBox1.Focus()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e _ As System.EventArgs) Handles Button2.Click

'Evenimentul click al butonului “CLEAR LISTA”

Me.nume.Items.Clear()

Me.varsta.Items.Clear()

End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e _

As System.EventArgs) Handles Button3.Click

'Evenimentul click al butonului “LISTEAZA INREGISTRARILE DIN

'FISIER”

If Me.RadioButton1.Checked = True Then

Me.List1fis.Items.Clear()

Dim nrF As Integer = FreeFile()

FileOpen(nrF, "d:\work\vb\fis2.txt", OpenMode.Input)

Do While Not (EOF(nrF))

A1 = LineInput(nrF)

Me.List1fis.Items.Add(A1)

Loop

FileClose(nrF)

End If

If Me.RadioButton2.Checked = True Then

Me.List1fis.Items.Clear()

Dim nrF As Integer = FreeFile()

FileOpen(nrF, "d:\work\vb\fis3.txt", OpenMode.Random)

Dim I4 As Integer = 1

Dim scrie As New persoana

Do While Not (EOF(nrF))

FileGet(nrF, scrie, I4)

A1 = Str(scrie.rNr) + scrie.rNume + Str(scrie.rVarsta)

Me.List1fis.Items.Add(A1)

I4 = I4 + 1

Loop

FileClose(nrF)

End If

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

'Evenimentul click al butonului “STERGERE INREGISTRARI” ce ‘deschide “FORM3” formă în care se vor efectua ştergerile după ce încarcă ‘în lista “LISTSTERG” din această formă înregistrările din fişier

Me.Hide()

If Me.RadioButton1.Checked = True Then

Me.Hide()

Form3.ListSterg.Items.Clear()

Form3.ListBox1.Items.Clear()

Form3.Listbox2.items.Clear()

Dim nrF As Integer = FreeFile()

FileOpen(nrF, "d:\work\vb\fis2.txt", OpenMode.Input)

Do While Not (EOF(nrF))

A1 = LineInput(nrF)

Form3.ListSterg.Items.Add(A1)

Loop

FileClose(nrF)

Form3.Show()

End If

If Me.RadioButton2.Checked = True Then

Form3.ListSterg.Items.Clear()

Dim nrF As Integer = FreeFile()

FileOpen(nrF, "d:\work\vb\fis3.txt", OpenMode.Random)

Dim I4 As Integer = 1

Dim scrie As persoana

Do While Not (EOF(nrF))

FileGet(nrF, scrie, I4)

Form3.ListBox1.Items.Add(scrie.rNr)

Form3.ListSterg.Items.Add(scrie.rNume)

Form3.ListBox2.Items.Add(scrie.rVarsta)

I4 = I4 + 1

Loop

FileClose(nrF)

Form3.Show()

End If

End Sub
FORM2 este o formă în care se efectuează operaţiile necesare pentru modificarea înregistrărilor din fişierul ales (FIS1.DAT ca fişier secvenţial şi FIS2.DAT ca fişier RANDOM).


Codul sursă asociat acestei forme şi controalelor ce le conţine este:
'Declaraţii la nivel de formă

Dim I1 As Integer

Structure persoana

Dim rNr As String

Dim rNume As String

Dim rVarsta As String

End Structure

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e _ As System.EventArgs) Handles Button8.Click

'Evenimentul click al butonului “Scrie modificarile in fisier"

Me.Hide()

Form1.Show()

If Form1.RadioButton1.Checked = True Then

Dim nrF As Integer = FreeFile()

FileOpen(nrF, "d:\work\vb\fis2.txt", OpenMode.Output)

For I = 0 To Me.ListModif.Items.Count - 1

PrintLine(nrF, Me.ListModif.Items.Item(I))

Next I

FileClose(nrF)

End If

If Form1.RadioButton2.Checked = True Then

Dim nrF As Integer = FreeFile()

FileOpen(nrF, "d:\work\vb\fis3.txt", OpenMode.Output)

FileClose(nrF)

FileOpen(nrF, "d:\work\vb\fis3.txt", OpenMode.Random)

Dim scrie As persoana

For I3 = 0 To Me.ListModif.Items.Count - 1

scrie.rNr = I3 + 1

scrie.rNume = Me.ListModif.Items.Item(I3)

scrie.rVarsta = Val(Me.ListBox2.Items.Item(I3))

FilePut(nrF, scrie, I3 + 1)

Next I3

FileClose(nrF)

End If

End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e _ As System.EventArgs) Handles Button1.Click

'Evenimentul click al butonului “CANCEL” din FORM2

Form1.Show()

Me.Hide()

End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e _

As System.EventArgs) Handles Button7.Click

'Evenimentul click al butonului “OK” din FORM2 prin care se preia în listele “Form2.List1”,“form2.LISTMODIF” şi “form2.List2” înregistrarea modificată în casetele de text “form2.text1” şi “Form2.text3”

If Len(Trim(Me.TextBox1.Text)) > 0 Then

Me.ListBox1.Items.Item(I1) = Me.TextBox2.Text

Me.ListModif.Items.Item(I1) = Me.TextBox1.Text

Me.ListBox2.Items.Item(I1) = Me.TextBox3.Text

Me.TextBox1.Text = ""

Me.TextBox2.Text = ""

Me.TextBox3.Text = ""

End If

End Sub
Private Sub ListModif_Click(ByVal sender As Object, ByVal e _

As System.EventArgs) Handles ListModif.Click

'Evenimentul click al listei “Form2.LISTMODIF” prin care se preiau în ‘casetele de text “Form2.text1”, “Form2.text2” şi “Form2.Text3” datele de ‘modificat selectate prin evenimentul click din lista “Form2.LISTMODIF”

I1 = Me.ListModif.SelectedIndex

Me.TextBox2.Text = Me.ListBox1.Items.Item(I1)

Me.TextBox1.Text = Me.ListModif.Items.Item(I1)

Me.TextBox3.Text = Me.ListBox2.Items.Item(I1)

Me.TextBox1.Focus()

End Sub

FORM3 este forma în care se efectuează operaţiile necesare pentru ştergerea de înregistrări.


Codul sursă asociat acestei forme şi controalelor ce le conţine este:

'Declaraţii la nivel de formă

Dim I1 As Integer

Structure persoana

Dim rNr As String

Dim rNume As String

Dim rVarsta As String

End Structure
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e _

As System.EventArgs) Handles Button8.Click

'Evenimentul click al butonului “RESCRIE FISIER” din FORM3 prin ‘care se rescriu în fişierul ales înregistrările din listele “Form3.List1”, ‘Form3.LISTSTERG” şi “Form3.List2” după ce s-au efectuat ştergerile

Me.Hide()

Form1.Show()

If Form1.RadioButton1.Checked = True Then

Dim nrF As Integer = FreeFile()

FileOpen(nrF, "d:\work\vb\fis2.txt", OpenMode.Output)

For I = 0 To Me.ListSterg.Items.Count - 1

PrintLine(nrF, Me.ListSterg.Items.Item(I))

Next I

FileClose(nrF)

End If

If Form1.RadioButton2.Checked = True Then

Dim nrF As Integer = FreeFile()

FileOpen(nrF, "d:\work\vb\fis3.txt", OpenMode.Output)

FileClose(nrF)

FileOpen(nrF, "d:\work\vb\fis3.txt", OpenMode.Random)

Dim scrie As persoana

For I3 = 0 To Me.ListSterg.Items.Count - 1

scrie.rNr = I3 + 1

scrie.rNume = Me.ListSterg.Items.Item(I3)

scrie.rVarsta = Val(Me.ListBox2.Items.Item(I3))

FilePut(nrF, scrie, I3 + 1)

Next I3

FileClose(nrF)

End If

End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e _

As System.EventArgs) Handles Button7.Click

'Evenimentul click al butonului “OK” din FORM3 prin care se confirmă

‘şi se efectuează ştergerea din liste a înregistrării selectate şi trecute în

‘casetele de text

Me.ListSterg.Items.RemoveAt(I1)

Me.ListBox1.Items.RemoveAt(I1)

Me.ListBox2.Items.RemoveAt(I1)

Me.TextBox1.Text = ""

Me.TextBox2.Text = ""

Me.TextBox3.Text = ""

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e _

As System.EventArgs) Handles Button1.Click

'Evenimentul click al butonului “CANCEL” din FORM3 prin care se ‘revine în forma “Form1”

Form1.Show()

Me.Hide()

End Sub

Private Sub ListSterg_Click(ByVal sender As Object, ByVal e _

As System.EventArgs) Handles ListSterg.Click

'Evenimentul click al listei “Form3.LISTSTERG” prin care se ‘selectează o înregistrare din “Form3.LISTSTERG” şi se trec în casetele de ‘text valorile înregistrării selectate.

I1 = Me.ListSterg.SelectedIndex

Me.TextBox2.Text = Me.ListBox1.Items.Item(I1)

Me.TextBox1.Text = Me.ListSterg.Items.Item(I1)

Me.TextBox3.Text = Str(Me.ListBox2.Items.Item(I1))

Me.TextBox1.Focus()

End Sub