SIMULER DES PARASITES TV
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
13 avril 2002 à 23:21
jhon_smith Messages postés 40 Date d'inscription jeudi 16 octobre 2003 Statut Membre Dernière intervention 30 mars 2007 - 2 févr. 2007 à 12:51
jhon_smith Messages postés 40 Date d'inscription jeudi 16 octobre 2003 Statut Membre Dernière intervention 30 mars 2007 - 2 févr. 2007 à 12:51
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/3023-simuler-des-parasites-tv
https://codes-sources.commentcamarche.net/source/3023-simuler-des-parasites-tv
2 févr. 2007 à 12:51
29 juil. 2004 à 21:33
Bref, une variable globale et une locale pour passer par dessus.
De plus, j'ai aussi rajouter le randomize timer. Sans lui, les chiffres tirées par int(rnd.... sont toujours les mêmes. Sur les parasites on ne s'en rend pas compte, mais si on affiche les chiffres, c'est flagrant.
29 juil. 2004 à 18:10
On peut améliorer legerement pour que la frame se ferme normalement et ne soit pas rappeler à cause du doevent
Dim KillMe As Boolean
'Mettre ce code dans la Form :
Sub Parasites(ByVal TV As PictureBox)
Dim gris
Dim noir
Dim blanc
Dim n
Dim dontboucle As Boolean
Randomize Timer
gris = RGB(192, 192, 192) 'Couleur grise en RGB
noir = RGB(0, 0, 0) 'Couleur noire en RGB
blanc = RGB(255, 255, 255) 'Couleur blanche en RGB
TV.FontName = "Arial"
TV.FontSize = 6 'La taille de la police (on peut la mettre à 6 pour diminuer la taille des points)
TV.BackColor = RGB(255, 255, 255) 'La couleur du fond de la picturebox
'La boucle qui change la couleur des points qui y sont générés :
dontboucle = False
1
For n = 1 To 1000
Select Case Int(Rnd * 3) + 1
Case 1
TV.ForeColor = noir
Case 2
TV.ForeColor = blanc
Case 3
TV.ForeColor = gris
End Select
'Pour créer les points à différents endroits de la picturebox :
TV.CurrentX = Int(Rnd * TV.Width)
TV.CurrentY = Int(Rnd * TV.Height)
TV.Print "¨ . ¨ .." 'Le symbole qui représente les petits points sur la picturebox.
DoEvents
If KillMe = True Then
dontboucle = True
Exit For
End If
Next n
If dontboucle = False Then GoTo 1
End Sub
Private Sub Form_Load()
Form1.Show
KillMe = False
Call Parasites(Picture2)
End Sub
Private Sub Form_Unload(Cancel As Integer)
KillMe = True
End Sub
Si cette frame est appelée depuis une autre frame, il ne faudra pas oublier de faire un traitement d'erreur car sinon ca va planter.
26 avril 2003 à 18:05
Moi j'aime bien, c'est marrant.
Cyrille.
8 juin 2002 à 15:39
Ma source s'affiche pas ds la compil' VB
Merci de réparer le prob.
@++
Skymmon
19 avril 2002 à 17:12
en réponse à Kronprinz...
14 avril 2002 à 22:25
14 avril 2002 à 19:45
13 avril 2002 à 23:21
merci