Public Type film
 codicefilm As String * 5
 titolo As String
 genere As String
 disponibile As Boolean
 durata As Integer
 tredi As Boolean
End Type









Dim n As Integer
Dim v(30) As film
Private Sub Command1_Click()


Dim si As Integer
Dim giusto As Boolean

n = Val(InputBox("Quanti film ci sono nella videoteca?"))
For i = 1 To n
v(i).codicefilm = InputBox("Dammi il codice del film")
v(i).titolo = InputBox("Dammi il titolo del film")
v(i).genere = InputBox("Di che genere è il film?")
giusto = False
Do
si = Val(InputBox("Se il film è disponibile, digita 1, se non è disponibile, 0"))
If si = 1 Then
v(i).disponibile = True
giusto = True
End If
If si = 0 Then
v(i).disponibile = False
giusto = True
End If
Loop Until giusto = True
v(i).durata = Val(InputBox("Quanto dura il film (in minuti)?"))
giusto = False
Do
si = Val(InputBox("Se il film è in 3d, digita 1, altrimenti, 0"))
If si = 1 Then
v(i).tredi = True
giusto = True
End If
If si = 0 Then
v(i).tredi = False
giusto = True
End If
Loop Until giusto = True
Next i
Command2.Visible = True
Command3.Visible = True
Command4.Visible = True
Command1.Visible = False
MSFlexGrid1.Visible = True
MSFlexGrid1.Rows = n + 1
MSFlexGrid1.TextMatrix(0, 0) = "Codice"
MSFlexGrid1.TextMatrix(0, 1) = "Titolo"
MSFlexGrid1.TextMatrix(0, 2) = "Genere"
MSFlexGrid1.TextMatrix(0, 3) = "Disponibilità"
MSFlexGrid1.TextMatrix(0, 4) = "Durata"
MSFlexGrid1.TextMatrix(0, 5) = "3-D"
For i = 1 To n
MSFlexGrid1.TextMatrix(i, 0) = v(i).codicefilm
MSFlexGrid1.TextMatrix(i, 1) = v(i).titolo
MSFlexGrid1.TextMatrix(i, 2) = v(i).genere
MSFlexGrid1.TextMatrix(i, 3) = v(i).disponibile
MSFlexGrid1.TextMatrix(i, 4) = v(i).durata
MSFlexGrid1.TextMatrix(i, 5) = v(i).tredi
Next i
End Sub

Private Sub Command2_Click()
Dim modi, si As Integer
Dim giusto As Boolean
modi = Val(InputBox("Inserisci Il Numero della riga del film da modificare"))
v(modi).codicefilm = InputBox("Dammi il codice del film")
v(modi).titolo = InputBox("Dammi il titolo del film")
v(modi).genere = InputBox("Di che genere è il film?")
giusto = False
Do
si = Val(InputBox("Se il film è disponibile, digita 1, se non è disponibile, 0"))
If si = 1 Then
v(modi).disponibile = True
giusto = True
End If
If si = 0 Then
v(modi).disponibile = False
giusto = True
End If
Loop Until giusto = True
v(modi).durata = Val(InputBox("Quanto dura il film (in minuti)?"))
giusto = False
Do
si = Val(InputBox("Se il film è in 3d, digita 1, altrimenti, 0"))
If si = 1 Then
v(modi).tredi = True
giusto = True
End If
If si = 0 Then
v(modi).tredi = False
giusto = True
End If
Loop Until giusto = True
MSFlexGrid1.TextMatrix(modi, 0) = v(modi).codicefilm
MSFlexGrid1.TextMatrix(modi, 1) = v(modi).titolo
MSFlexGrid1.TextMatrix(modi, 2) = v(modi).genere
MSFlexGrid1.TextMatrix(modi, 3) = v(modi).disponibile
MSFlexGrid1.TextMatrix(modi, 4) = v(modi).durata
MSFlexGrid1.TextMatrix(modi, 5) = v(modi).tredi
End Sub

Private Sub Command3_Click()
Dim tutto As Integer
Dim singolo As Integer
Dim scambio As film
Do
tutto = Val(InputBox("Se vuoi eliminare tutto, premi 1, altrimenti, per continuare ed eliminare solo un film, 0"))
Loop Until tutto = 1 Or tutto = 0
If tutto = 1 Then
For i = 1 To n
v(i).codicefilm = ""
v(i).titolo = ""
v(i).genere = ""
v(i).durata = 0
v(i).tredi = False
v(i).disponibile = False
Next i
Command1.Visible = True
Command2.Visible = False
Command3.Visible = False
Command4.Visible = False
MSFlexGrid1.Visible = False
For i = 1 To n
For j = 1 To 6
MSFlexGrid1.TextMatrix(i, j - 1) = ""
Next j
Next i
Else
singolo = Val(InputBox("Dammi la riga del film che vuoi eliminare"))
For i = singolo To n - 1
v(i) = v(i + 1)
Next i
v(n).codicefilm = ""
v(n).titolo = ""
v(n).genere = ""
v(n).durata = 0
v(n).tredi = False
v(n).disponibile = False
MSFlexGrid1.Rows = MSFlexGrid1.Rows - 1
n = n - 1
For i = 1 To n
MSFlexGrid1.TextMatrix(i, 0) = v(i).codicefilm
MSFlexGrid1.TextMatrix(i, 1) = v(i).titolo
MSFlexGrid1.TextMatrix(i, 2) = v(i).genere
MSFlexGrid1.TextMatrix(i, 3) = v(i).disponibile
MSFlexGrid1.TextMatrix(i, 4) = v(i).durata
MSFlexGrid1.TextMatrix(i, 5) = v(i).tredi
Next i
End If
End Sub

Private Sub Command4_Click()
Dim s As String
s = InputBox("Quale film vuoi cercare (il titolo)?")
For i = 1 To n
If s = v(i).titolo Then

End Sub