Option Explicit
Private Function ContaQuadrati(Lato As Long) As Long
Dim I As Integer
Dim J As Integer
Dim Unità As Integer
Dim Somma As Long
lstCalcolo.Clear
pic.Cls
txtLato = Val(txtLato)
Unità = pic.Height / Lato
For I = 1 To Lato
Somma = Somma + I ^ 2
lstCalcolo.AddItem I & "*" & I & " (" & Lato - I + 1 & "X" & Lato - I + 1 & ") = " & I ^ 2
For J = 1 To Lato
If (I Mod 2 = 0 And J Mod 2 = 0) Or (I Mod 2 = 1 And J Mod 2 = 1) Then pic.Line ((I - 1) * Unità, (J - 1) * Unità)-(I * Unità, (J * Unità)), vbWhite, B
Next J
Next I
ContaQuadrati = Somma
End Function
Private Sub cmdConta_Click()
If Val(txtLato) < 1 Or Val(txtLato) > 1000 Then
MsgBox "Errore, inserire un numero compreso tra 1 e 1000", vbExclamation
txtLato_GotFocus
End If
If Val(txtLato) > 0 And Val(txtLato) < 1001 Then lblRisultato.Caption = "La scacchiera contiene complessivamente: " & ContaQuadrati(txtLato) & " quadrati"
End Sub
Private Sub cmdSalva_Click()
CDialog.ShowSave
If CDialog.FileName = "" Then Exit Sub
SavePicture pic.Image, CDialog.FileName
End Sub
Private Sub txtLato_GotFocus()
txtLato.SelStart = 0
txtLato.SelLength = Len(txtLato)
End Sub
