Accueil
Rechercher:
sur developpez.com sur les forums
Forums | Tutoriels | F.A.Q's | Participez | Hébergement | Contacts
Club Emploi Blogs   TV   Dév. Web PHP XML Python Autres 2D-3D-Jeux Sécurité Windows Linux PC Mac
Accueil Conception Java DotNET Visual Basic  C  C++ Delphi MS-Office SQL & SGBD Oracle  4D  Business Intelligence
FORUM VB FAQs VB TUTORIELS VB OUTILS VB SOURCES VB LIVRES VB
Tutoriel Basic

octobre 2000

Par Bodman

Le multimedia

Le graphisme

 

Maintenant nous allons aborder une partie plus amusante, le graphisme!!!
BON C'EST PAS DU GRAND LUXE, STYLE 3DSMAX MAIS C'EST DEJA CA.

 

LES COORDONEES

Bon déjà on va apprendre les coordonnées

X donne l’horizontale Y la verticale

Donc Pour un point X=0 est Y=0 il est tout en haut à gauche.

 

Attention toutes ces commandes ne peuvent être exécutées qu’avec un affichage spécifique, ici 640x480 (pas besoin de modifier celui de votre pc la commande screen 12 le fera. ).

 

SCREEN (Le mode d'affichage)

Nous avons toujours travaillé avec le mode normal(réservé au texte) avec lequel nous ne pouvions dessiner.

Pour le changer nous allons exécuter la commande screen.

Exemple :

Screen 12 (avec celle ci on va dessiner 640/480)

Screen 0 (avec celle ci on va écrire c’est celle de base).

 

PSET (Le point)

Il demande 2 informations obligatoires les coordonné de X et Y et une information optionnel, la couleur.

Exemple :

PSET (X,Y) ou PSET (X,Y),couleur

Donc pour faire un point rouge au centre on doit écrire :

PSET (320,240),4

 

LINE (La ligne)

Là il faut la valeur de départ de X et Y puis la valeur de fin.
Par exemple :
Pour faire une droite rouge qui traverse tout l’écran on doit faire :
LINE (0, 240) - (640, 240), 4

 

LINE+B (Le rectangle)

C’est pareil que la ligne sauf qu’il faut ajouter B ou BF suivant que le rectangle sois remplis ou pas.

Je m’explique :

 

Voilà la ligne :

LINE (10, 15) - (639, 240), 4

 

Voilà le rectangle vide(B):

LINE (10, 15) - (639, 240), 4,B

 

Voilà le rectangle plein (BF):

LINE (10, 15) - (639, 240), 4,BF

 

CIRCLE (Le cercle)

Encore une nouvelle forme, cette dernière est plus facile à dessiner que les dernières car il suffit de donner les coordonné du centre du cercle et son diamètre.

Exemple :

Un cercle qui a pour cenre le point (100, 100) et qui possède un diamètre de 30 pixels.

CIRCLE (100, 100), 30

PALETTE

Cette commande sert à changer la valeur d’une couleur.

Par exemple si je change le mode d’ecran avec screen le nombre de couleur peut etre plus ou moins nombreux (256 couleurs pour screen 12 , 16 pour screen 7 ect…. ).Alors si vous avez tracé un cercle bleu sous screen 7 de cette maniere :

Cls
Screen 7
Circle (12,12),9,1

Et que vous ajoutez à cette commande

Palette 1,2

Alors tout ce qui etait en bleu (1) devient rouge (2)
Cela est valable pour ce qui est affiche et ce qui le sera.

Le son

 

SOUND (un son)

SOUND sert à faire un bruit avec votre buzzer. Il a besoin de deux chiffres Le premier nombre est la fréquence (de 37 à 32 767), le deuxième donne la durée de ce son (18,2 correspond environ à 1 seconde).

SOUND fréquence, durée

SOUND 50, 6

PLAY(Des notes)

Les notes de nos musiques favorites ce font avec cette commande.

Chaque lettre correspond à une note :

DO est C

RE est D

MI est E

FA est F

SOL est G

LA est A

SI est B


Un O suivit d’un chiffre donne l’octave et < ou > l’augmente ou la diminue.

Exemple :

PLAY "o3CED<CED<DEC>DEC>o6ECECCC"

On peut aussi donner une dure de note avec LX(X est un chiffre de 1 a 64 qui donne la durée donne blanche si elle est egal à 1)

 

Beep

Cette commande emet simplement un beep sonore ça peut toujour etre utile.
exemple :

input "combiens font 2 et 2";rep%
if rep%= 4 then
print "bien"
else
beep
print "mauvaise reponse"
end if

Exemple final

Bien,cette partie multimedia et fini, mais pour pouvoir se dètendre un peut voilà un programme un peut bête qui utilise deux fonction de cette partie multimedia.


DIM x AS INTEGER
DIM y AS INTEGER
x = 1
y = 1
SCREEN 12
10 FOR x = 1 TO 640 STEP 10
PSET (x, y)
SOUND x + 37, .5
NEXT
y = y + 20
IF y > 480 THEN
END
END IF
GOTO 10
END

-precedent- -sommaire- -Suivant-

Responsables bénévoles de la rubrique Visual Basic : Thierry Adriaenssens et Philippe Baquer - Contacter par EMail :
Vos questions techniques : forum d'entraide Visual Basic - Publiez vos articles, tutoriels et cours
et rejoignez-nous dans l'équipe de rédaction du club d'entraide des développeurs francophones
Nous contacter - Copyright © 2000-2008 www.developpez.com - Legal informations.