1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Simuler des parasites tv

Simuler des parasites tv

0/5 (9 avis)

Snippet vu 4 777 fois - Téléchargée 46 fois

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

Ajouter un commentaire Commentaires
cs_Jack Messages postés 14007 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 79
13 avril 2002 à 23:21
J'aime beaucoup. C'est très reposant !
merci
cs_max12 Messages postés 1491 Date d'inscription dimanche 19 novembre 2000 Statut Modérateur Dernière intervention 7 juillet 2014
14 avril 2002 à 19:45
lol bien, bien
kronprinz Messages postés 87 Date d'inscription lundi 14 janvier 2002 Statut Membre Dernière intervention 8 septembre 2002
14 avril 2002 à 22:25
D'accord génial, mais quelle est l'utilité ???
Skymmon Messages postés 19 Date d'inscription dimanche 1 juillet 2001 Statut Membre Dernière intervention 20 octobre 2005
19 avril 2002 à 17:12
Beeenn... ça sert à voir ce qu'on peut faire avec une picturebox...
en réponse à Kronprinz...
Skymmon Messages postés 19 Date d'inscription dimanche 1 juillet 2001 Statut Membre Dernière intervention 20 octobre 2005
8 juin 2002 à 15:39
Euuuhhh Nix ya un prob...
Ma source s'affiche pas ds la compil' VB
Merci de réparer le prob.

@++
Skymmon
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)