Un damier ????

Télécharger le projet
Commenter

Description

Voici un petit bout de code permettant de tracer facillement et rapidement un damier...

Source / Exemple : 


'Voici un petit bout de code permettant de dessiner rapidement un Damier
'sur une feuille.
'Vous pouvez modifier la taille des cases en multipliant ou en divisant
'par des multiples de 2 tout les nombres de la fonction sauf les deux 10 ( i = i+10)

'TraceDamier 1.0 By DeAtH_-_CrAsH

Dim Etat As Boolean

Private Sub Form_Activate()
Etat = False
MsgBox "Selon votre PC et la taille des cases, le damier sera plus ou moins long à charger", vbInformation, "INFO"
MsgBox "Pressez la touche Echap pour quitter le Damier", vbInformation, "INFO"
TraceDamier
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then End
End Sub

Private Function TraceDamier()
Dim x As Integer, j As Integer, i As Integer

For x = 0 To Me.Width Step 500
    
    For j = 0 To Me.Height Step 500
        i = j
        While i < j + 250
        Line (x, i)-(x + 250, i), RGB(0, 0, 0), BF
        i = i + 10
        Wend
        i = j
        While i < j + 250
        Line (x + 250, i + 250)-(x + 500, i + 250), RGB(0, 0, 0), BF
        i = i + 10
        Wend
     Next j
     
Next x
Etat = True
End Function

Private Sub Form_Load()
Me.Height = Screen.Height
Me.Width = Screen.Width

End Sub

Private Sub Form_Resize()
If Etat <> False Then
TraceDamier
End If
End Sub

Conclusion :


Merci par avance pour vos commentaires...
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (DeAtHCrAsH)