Simuler des parasites tv

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 607 fois - Téléchargée 45 fois

Contenu du snippet

Ce programme permet de simuler des parasites comme sur la télé quand elle ne marche pas... Il faut une PictureBox dans une Form.

Source / Exemple :


'Mettre ce code dans la Form :

Sub Parasites(ByRef TV As PictureBox)

Dim gris
Dim noir
Dim blanc
Dim n

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 = 8 '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 :
For n = 1 To 1000
1
    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

GoTo 1
    
Next n

End Sub

Private Sub Form_Load()

Form1.Show
Call Parasites(Picture1)

End Sub

Conclusion :


Le TUTORIAL PICTUREBOX, présent sur ce site, m'a bien aidé à créer ce code... Merci flint...!

A voir également

Ajouter un commentaire Commentaires
Messages postés
40
Date d'inscription
jeudi 16 octobre 2003
Statut
Membre
Dernière intervention
30 mars 2007

bravo j'aime bien .. en remplaçant les "??" par "--" ça donne un effet plus réaliste
Messages postés
34
Date d'inscription
vendredi 9 novembre 2001
Statut
Membre
Dernière intervention
29 mars 2007

Je me reprend, j'ai posté un peu vite. Ce n'est pas le Doevent qui empèche la sortie, mais le goto.
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.
Messages postés
34
Date d'inscription
vendredi 9 novembre 2001
Statut
Membre
Dernière intervention
29 mars 2007

c'est marrant je met 8.

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.
Messages postés
47
Date d'inscription
mardi 18 décembre 2001
Statut
Membre
Dernière intervention
17 février 2006

Bonjour,

Moi j'aime bien, c'est marrant.

Cyrille.
Messages postés
19
Date d'inscription
dimanche 1 juillet 2001
Statut
Membre
Dernière intervention
20 octobre 2005

Euuuhhh Nix ya un prob...
Ma source s'affiche pas ds la compil' VB
Merci de réparer le prob.

@++
Skymmon
Afficher les 9 commentaires

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.