FONCTION PSET

Signaler
Messages postés
186
Date d'inscription
mercredi 11 avril 2001
Statut
Membre
Dernière intervention
12 septembre 2007
-
Messages postés
69
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
12 mai 2013
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/2287-fonction-pset

Messages postés
69
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
12 mai 2013

Plutôt

Dim x As Integer
Dim y As Integer

For x = 0 To 255
For y = 0 To 249
Picture1.PSet (x, y)
x = x + 1
y = y + 1
Next y
Next x

Set x = Nothing
Set y = Nothing

ça tracera un damier :)
Format picture1: 256x240 px
Messages postés
49
Date d'inscription
mardi 8 mai 2001
Statut
Membre
Dernière intervention
14 août 2004

Ca sert à quoi ?
Messages postés
186
Date d'inscription
mercredi 11 avril 2001
Statut
Membre
Dernière intervention
12 septembre 2007

hoo un goto ! !
Paaaas biiieeenn