''' <summary>
''' La classe Madre Navone, può essere usato solo per eredità
''' </summary>
''' <remarks>MustInherits Obbliga il Programmatore a non usarlo come tipo di dato es</remarks>
''' Es: Dim Nav As new Navone : SBAGLIATO, Non può essere usato come tipo di dato
Public MustInherit Class Navone
''' <summary>
''' Nome della nave
''' </summary>
Public Overridable Property Nome() As String
''' <summary>
''' Punto dove si trova la nave,corrisponde in alto a sinistra
''' </summary>
Public Overridable Property Locazione() As Point
''' <summary>
''' Immagine della nave verticale, grande 32 e 32*Lenght, verra disegnato questo se la direzione della nave è verticale
''' </summary>
''' <remarks>Se non vuoi usare immagini già preparate, puoi disegnare tranquillamente con fill e Draw</remarks>
Public Overridable Property DrawingBitmapVert() As Bitmap
''' <summary>
''' Immagine della nave orrizontale, grande 32*Lenght e 32, verra disegnato questo se la direzione della nave è orrizontale
''' </summary>
''' <remarks>Se non vuoi usare immagini già preparate, puoi disegnare tranquillamente con fill e Draw</remarks>
Public Overridable Property DrawingBitmapOrr() As Bitmap
''' <summary>
''' Questa è la lunghezza della nave
''' </summary>
Public Overridable Property Lenght() As Byte
''' <summary>
''' Direzione della nave, può essere Orrizontale o Verticale
''' </summary>
Public Overridable Property Dir() As Direction
''' <summary>
''' Disegna la nave su G,senza spaccature
''' </summary>
''' <remarks>Ho messo Overridable anche se non è necessario</remarks>
Public Overridable Sub DrawMe(ByRef G As Graphics)
'In base alla direzione disegna la nave
If Dir = Direction.Orrizontale Then
G.DrawImage(DrawingBitmapOrr, Locazione)
Else
G.DrawImage(DrawingBitmapVert, Locazione)
End If
End Sub
''' <summary>
''' Disegna la nave su G,con spaccature
''' </summary>
''' <remarks>Ho messo Overridable anche se non è necessario</remarks>
Public Overridable Sub DrawMeWthSp(ByRef G As Graphics)
'In base alla direzione disegna la nave
If Dir = Direction.Orrizontale Then
G.DrawImage(DrawingBitmapOrr, Locazione.X * 32, Locazione.Y * 32)
Else
G.DrawImage(DrawingBitmapVert, Locazione.X * 32, Locazione.Y * 32)
End If
'Disegna le spaccature, Gira tutti gli elementi di _SP e disegna se sono spaccati
REM questa parte di codice è un po confusionale
For index As Byte = 0 To Lenght - 1 'Lenght meno 1 perchè gli array che contengono x elementi (es 3) vanno da 0 a x-1 (0;1;2), perciò non togliere -1 per evitare IndexOutException
If SpaccP(index) = True Then
If Dir = Direction.Orrizontale Then
'Disegna il segno che indica che la nave è spaccata, come la croce
'Prima linea
'*
' *
' *
G.DrawLine(Pens.Red, (Locazione.X * 32 + index * 32), (Locazione.Y * 32), ((Locazione.X + 1) * 32 + index * 32), ((Locazione.Y + 1) * 32))
'Seconda linea
' *
' *
'*
G.DrawLine(Pens.Red, ((Locazione.X + 1) * 32 + index * 32), (Locazione.Y * 32), ((Locazione.X) * 32 + index * 32), ((Locazione.Y + 1) * 32))
ElseIf Dir = Direction.Orrizontale Then
'Disegna il segno che indica che la nave è spaccata, come la croce
'Prima linea
'*
' *
' *
G.DrawLine(Pens.Red, (Locazione.X * 32), (Locazione.Y * 32 + index * 32), ((Locazione.X + 1) * 32), ((Locazione.Y + 1) * 32 + index * 32))
'Seconda linea
' *
' *
'*
G.DrawLine(Pens.Red, ((Locazione.X + 1) * 32), (Locazione.Y * 32 + index * 32), (Locazione.X * 32), ((Locazione.Y + 1) + index * 32))
End If
End If
Next
End Sub
Private _SP(Lenght - 1) As Boolean
''' <summary>
''' Indica i punti spaccati
''' </summary>
''' <remarks>True se il punto dell' indice è spaccato</remarks>
Public Overridable Property SpaccP(Index As Byte) As Boolean
Get
Return _SP(Index)
End Get
Set(value As Boolean)
_SP(Index) = value
End Set
End Property
''' <summary>
''' Crea una nuova nave
''' </summary>
''' <remarks>New non è overridable</remarks>
Public Sub New(X As Byte, y As Byte)
Me.Locazione = New Point(X, y)
EliminaSpaccature()
End Sub
''' <summary>
''' Elimina le spaccature della nave
''' </summary>
Public Overridable Sub EliminaSpaccature()
'elimina tutte le spaccature ridichiarando SP
ReDim _SP(Lenght - 1)
End Sub
''' <summary>
''' Controlla se la nave è stata colpita, se si modifica SpaccP
''' </summary>
Public Overridable Function CheckSpaccatura(ByVal P As Point) As Boolean
'Controlla se la nave è stata colpita
If Dir = Direction.Orrizontale Then
If P.Y = Locazione.Y Then
If P.X >= Locazione.X And P.X <= Locazione.X + Lenght Then
Dim Index As Byte = P.X - Locazione.X
SpaccP(Index) = True
Return True
Else
Return False
End If
Else
Return False
End If
Else 'Dir = verticale
If P.X = Locazione.X Then
If P.Y >= Locazione.Y And P.Y <= Locazione.Y + Lenght Then
Dim Index As Byte = P.Y - Locazione.Y
SpaccP(Index) = True
Return True
Else
Return False
End If
Else 'Dir = verticale
Return False
End If
End If
End Function
End Class
''' <summary>
''' Elenco di possibili direzioni
''' </summary>
Public Enum Direction
Orrizontale = 0
Verticale = 1
End Enum
| 
?
non ho tempo di imparare al volo.
