Simuler des parasites tv

Commenter

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

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 (Skymmon)