rubrica4

gestione file a record con lunghezza variabile
apertura e lettura per tre file clienti11.dat clienti21.dat clienti31.dat (numeri 1,2,3)

per vedere archi2.ppt

5 pulsanti, 2 caselle testo, 1 listbox, 2 label (per nomi e testi vedi codice e immagine)

Option Explicit
Public fnumero As Integer
Public fnome As String
Public numero As Integer

Private Sub aprifile_Click()
Dim x As Integer
x = TextBox1.Text
Select Case x
Case 1
Call aprire1(x)
Case 2
Call aprire2(x)
Case 3
Call aprire3(x)
End Select

End Sub

Private Sub cancella1_Click()
TextBox1.Text = ""
TextBox1.SetFocus
End Sub



Public Sub aprire1(x As Integer)
fnumero = x
fnome = "clienti11.dat"
Open fnome For Output As #fnumero
Print #fnumero, "rossi"
Print #fnumero, "verdi"
Print #fnumero, "bianchi"
Print #fnumero, "zanella"
Print #fnumero, "puccini"
Print #fnumero, "manzoni"
Close #fnumero
End Sub



Public Sub aprire2(x As Integer)
fnumero = x
fnome = "clienti21.dat"
Open fnome For Output As #fnumero
Print #fnumero, "primo"
Print #fnumero, "secondo"
Print #fnumero, " terzo"
Print #fnumero, "quarto"
Print #fnumero, "quinto"
Print #fnumero, " sesto"
Close #fnumero
End Sub

Public Sub aprire3(x As Integer)
fnumero = x
fnome = "clienti31.dat"
Open fnome For Output As #fnumero
Print #fnumero, "padova"
Print #fnumero, "verona"
Print #fnumero, " treviso"
Print #fnumero, "milano"
Print #fnumero, "venezia"
Print #fnumero, " udine"
Close #fnumero
End Sub



Private Sub CommandButton2_Click()
Dim x As Integer
x = TextBox2.Text
Select Case x
Case 1
Call visualizza1(x)
Case 2
Call visualizza2(x)
Case 3
Call visualizza3(x)
End Select
End Sub

Private Sub cancella2_Click()
TextBox2.Text = ""
TextBox2.SetFocus
End Sub

Private Sub cancellare_Click()
ListBox1.Clear
End Sub


Public Sub visualizza1(x As Integer)
Dim dato As String
numero = TextBox2.Text
Open "clienti11.dat" For Input As numero
While Not EOF(numero)
Input #numero, dato
ListBox1.AddItem (dato)
Wend
ListBox1.AddItem ("--------")
Close #numero
End Sub

Public Sub visualizza2(x As Integer)
Dim dato As String
numero = TextBox2.Text
Open "clienti21.dat" For Input As numero
While Not EOF(numero)
Input #numero, dato
ListBox1.AddItem (dato)
Wend
ListBox1.AddItem ("--------")
Close #numero
End Sub

Public Sub visualizza3(x As Integer)
Dim dato As String
numero = TextBox2.Text
Open "clienti31.dat" For Input As numero
While Not EOF(numero)
Input #numero, dato
ListBox1.AddItem (dato)
Wend
ListBox1.AddItem ("--------")
Close #numero
End Sub