daily pastebin goal
11%
SHARE
TWEET

Untitled

a guest Jan 21st, 2018 63 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Public Type film
  2.  codicefilm As String * 5
  3.  titolo As String
  4.  genere As String
  5.  disponibile As Boolean
  6.  durata As Integer
  7.  tredi As Boolean
  8. End Type
  9.  
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16.  
  17.  
  18. Dim n As Integer
  19. Dim v(30) As film
  20. Private Sub Command1_Click()
  21.  
  22.  
  23. Dim si As Integer
  24. Dim giusto As Boolean
  25.  
  26. n = Val(InputBox("Quanti film ci sono nella videoteca?"))
  27. For i = 1 To n
  28. v(i).codicefilm = InputBox("Dammi il codice del film")
  29. v(i).titolo = InputBox("Dammi il titolo del film")
  30. v(i).genere = InputBox("Di che genere è il film?")
  31. giusto = False
  32. Do
  33. si = Val(InputBox("Se il film è disponibile, digita 1, se non è disponibile, 0"))
  34. If si = 1 Then
  35. v(i).disponibile = True
  36. giusto = True
  37. End If
  38. If si = 0 Then
  39. v(i).disponibile = False
  40. giusto = True
  41. End If
  42. Loop Until giusto = True
  43. v(i).durata = Val(InputBox("Quanto dura il film (in minuti)?"))
  44. giusto = False
  45. Do
  46. si = Val(InputBox("Se il film è in 3d, digita 1, altrimenti, 0"))
  47. If si = 1 Then
  48. v(i).tredi = True
  49. giusto = True
  50. End If
  51. If si = 0 Then
  52. v(i).tredi = False
  53. giusto = True
  54. End If
  55. Loop Until giusto = True
  56. Next i
  57. Command2.Visible = True
  58. Command3.Visible = True
  59. Command4.Visible = True
  60. Command1.Visible = False
  61. MSFlexGrid1.Visible = True
  62. MSFlexGrid1.Rows = n + 1
  63. MSFlexGrid1.TextMatrix(0, 0) = "Codice"
  64. MSFlexGrid1.TextMatrix(0, 1) = "Titolo"
  65. MSFlexGrid1.TextMatrix(0, 2) = "Genere"
  66. MSFlexGrid1.TextMatrix(0, 3) = "Disponibilità"
  67. MSFlexGrid1.TextMatrix(0, 4) = "Durata"
  68. MSFlexGrid1.TextMatrix(0, 5) = "3-D"
  69. For i = 1 To n
  70. MSFlexGrid1.TextMatrix(i, 0) = v(i).codicefilm
  71. MSFlexGrid1.TextMatrix(i, 1) = v(i).titolo
  72. MSFlexGrid1.TextMatrix(i, 2) = v(i).genere
  73. MSFlexGrid1.TextMatrix(i, 3) = v(i).disponibile
  74. MSFlexGrid1.TextMatrix(i, 4) = v(i).durata
  75. MSFlexGrid1.TextMatrix(i, 5) = v(i).tredi
  76. Next i
  77. End Sub
  78.  
  79. Private Sub Command2_Click()
  80. Dim modi, si As Integer
  81. Dim giusto As Boolean
  82. modi = Val(InputBox("Inserisci Il Numero della riga del film da modificare"))
  83. v(modi).codicefilm = InputBox("Dammi il codice del film")
  84. v(modi).titolo = InputBox("Dammi il titolo del film")
  85. v(modi).genere = InputBox("Di che genere è il film?")
  86. giusto = False
  87. Do
  88. si = Val(InputBox("Se il film è disponibile, digita 1, se non è disponibile, 0"))
  89. If si = 1 Then
  90. v(modi).disponibile = True
  91. giusto = True
  92. End If
  93. If si = 0 Then
  94. v(modi).disponibile = False
  95. giusto = True
  96. End If
  97. Loop Until giusto = True
  98. v(modi).durata = Val(InputBox("Quanto dura il film (in minuti)?"))
  99. giusto = False
  100. Do
  101. si = Val(InputBox("Se il film è in 3d, digita 1, altrimenti, 0"))
  102. If si = 1 Then
  103. v(modi).tredi = True
  104. giusto = True
  105. End If
  106. If si = 0 Then
  107. v(modi).tredi = False
  108. giusto = True
  109. End If
  110. Loop Until giusto = True
  111. MSFlexGrid1.TextMatrix(modi, 0) = v(modi).codicefilm
  112. MSFlexGrid1.TextMatrix(modi, 1) = v(modi).titolo
  113. MSFlexGrid1.TextMatrix(modi, 2) = v(modi).genere
  114. MSFlexGrid1.TextMatrix(modi, 3) = v(modi).disponibile
  115. MSFlexGrid1.TextMatrix(modi, 4) = v(modi).durata
  116. MSFlexGrid1.TextMatrix(modi, 5) = v(modi).tredi
  117. End Sub
  118.  
  119. Private Sub Command3_Click()
  120. Dim tutto As Integer
  121. Dim singolo As Integer
  122. Dim scambio As film
  123. Do
  124. tutto = Val(InputBox("Se vuoi eliminare tutto, premi 1, altrimenti, per continuare ed eliminare solo un film, 0"))
  125. Loop Until tutto = 1 Or tutto = 0
  126. If tutto = 1 Then
  127. For i = 1 To n
  128. v(i).codicefilm = ""
  129. v(i).titolo = ""
  130. v(i).genere = ""
  131. v(i).durata = 0
  132. v(i).tredi = False
  133. v(i).disponibile = False
  134. Next i
  135. Command1.Visible = True
  136. Command2.Visible = False
  137. Command3.Visible = False
  138. Command4.Visible = False
  139. MSFlexGrid1.Visible = False
  140. For i = 1 To n
  141. For j = 1 To 6
  142. MSFlexGrid1.TextMatrix(i, j - 1) = ""
  143. Next j
  144. Next i
  145. Else
  146. singolo = Val(InputBox("Dammi la riga del film che vuoi eliminare"))
  147. For i = singolo To n - 1
  148. v(i) = v(i + 1)
  149. Next i
  150. v(n).codicefilm = ""
  151. v(n).titolo = ""
  152. v(n).genere = ""
  153. v(n).durata = 0
  154. v(n).tredi = False
  155. v(n).disponibile = False
  156. MSFlexGrid1.Rows = MSFlexGrid1.Rows - 1
  157. n = n - 1
  158. For i = 1 To n
  159. MSFlexGrid1.TextMatrix(i, 0) = v(i).codicefilm
  160. MSFlexGrid1.TextMatrix(i, 1) = v(i).titolo
  161. MSFlexGrid1.TextMatrix(i, 2) = v(i).genere
  162. MSFlexGrid1.TextMatrix(i, 3) = v(i).disponibile
  163. MSFlexGrid1.TextMatrix(i, 4) = v(i).durata
  164. MSFlexGrid1.TextMatrix(i, 5) = v(i).tredi
  165. Next i
  166. End If
  167. End Sub
  168.  
  169. Private Sub Command4_Click()
  170. Dim s As String
  171. s = InputBox("Quale film vuoi cercare (il titolo)?")
  172. For i = 1 To n
  173. If s = v(i).titolo Then
  174.  
  175. End Sub
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top