Section courante

A propos

Section administrative du site

 Langage  Elément  Programmation  Emulateur  Annexe  Aide 
ABAP/4
Ada
Assembleur
Assembly & bytecode
ASP (Active Server Pages)
Basic
C
C++
C# (C Sharp)
Cobol
ColdFusion
Fortran
HTML
Java
JavaScript
LISP
Logo
LotusScript
Oberon
Pascal
Perl
PHP
PL/1
Prolog
Python
Rebol
REXX
Ruby
SAS
NoSQL
SQL
Swift
X++ (Axapta)
GNAT
SMALLAda
VHDL
Assembleur 370
Assembleur 1802
Assembleur 4004
Assembleur 6502
Assembleur 6800
Assembleur 68000
Assembleur 8080 et 8085
Assembleur 8089
Assembleur 80x86
Assembleur AGC4
Assembleur ARM
Assembleur DPS 8000
Assembleur i860
Assembleur Itanium
Assembleur MIPS
Assembleur PDP-11
Assembleur PowerPC
Assembleur RISC-V
Assembleur SPARC
Assembleur SuperH
Assembleur UNIVAC I
Assembleur VAX
Assembleur Z80
Assembleur Z8000
Assembleur z/Architecture
ASSEMBLER/MONITOR 64
Micol Assembler
GFA Assembler
A86
MASM (Macro Assembler)
TASM (Turbo Assembler)
CIL
Jasmin
LLVM
MSIL
Parrot
P-Code (PCode)
SWEET16
G-Pascal
ASP 1.0
ASP 2.0
ASP 3.0
ASP.NET
ASP.NET Core
ABasiC (Amiga)
Adam SmartBASIC
Altair BASIC
AmigaBASIC (Amiga)
AMOS Basic (Amiga)
Atari Basic (Atari 400, 600 XL, 800, 800XL)
Basic Apple II (Integer BASIC/APPLESOFT)
Basic Commodore 64 (CBM-BASIC)
Basic Commodore 128 (BASIC 7.0)
Basic Commodore VIC-20 (CBM-BASIC 2.0)
Basic Coco 1 (Color Basic)
Basic Coco 2 (Extended Color Basic)
Basic Coco 3 (Extended Color Basic 2.0)
BASICA (PC DOS)
Basic Pro
BBC BASIC
Blitz BASIC (Amiga)
DarkBASIC
Dartmouth BASIC
GFA-Basic (Atari ST/Amiga)
GWBASIC (MS-DOS)
Liberty BASIC
Locomotive BASIC (Amstrad CPC)
MSX-Basic
Omikron Basic (Atari ST)
Oric Extended Basic
Power Basic
Quick Basic/QBasic (MS-DOS)
Sinclair BASIC (ZX80, ZX81, ZX Spectrum)
ST BASIC (Atari ST)
Turbo Basic
Vintage BASIC
VBScript
Visual Basic (VB)
Visual Basic .NET (VB .NET)
Visual Basic pour DOS
Yabasic
BeckerBASIC
SIMONS' BASIC
Basic09 d'OS-9
Disk Extended Color Basic
Basic09 d'OS-9
Disk Extended Color Basic
Access
Excel
Visual Basic pour Windows
Visual Basic .NET pour Windows
C Shell Unix (csh)
C pour Amiga
C pour Atari ST
C pour DOS
C pour Falcon030
C pour GEMDOS (Atari ST)
C pour Linux
C pour PowerTV OS
C pour OS/2
C pour Unix
C pour Windows
Aztec C
CoCo-C
GNU C
HiSoft C
IBM C/2
Introl-C
Lattice C
Microsoft C
MinGW C
MSX-C
Open Watcom C
OS-9 C Compiler
Pure C
Quick C
Turbo C
HiSoft C for Atari ST
HiSoft C for CP/M (Amstrad CPC)
C++ pour OS/2
C++ pour Windows
Borland C++
C++Builder
IBM VisualAge C++
Intel C++
MinGW C++
Open Watcom C++
Symantec C++
Turbo C++
Visual C++
Visual C++ .NET
Watcom C++
Zortech C++
C# (C Sharp) pour Windows
Apple III Cobol
Microsoft Cobol
BlueDragon
Lucee
OpenBD
Railo
Smith Project
Microsoft Fortran
WATFOR-77
CSS
FBML
Open Graph
SVG
XML
XSL/XSLT
LESS
SASS
GCJ (GNU)
JSP
Jython
Visual J++
Node.js
TypeScript
AutoLISP
ACSLogo
LotusScript pour Windows
Amiga Oberon
Oberon .NET
Apple Pascal
Delphi/Kylix/Lazarus
Free Pascal
GNU Pascal
HighSpeed Pascal
IBM Personal Computer Pascal
Lisa Pascal
Maxon Pascal
MPW Pascal
OS-9 Pascal
OSS Personal Pascal
Pascal-86
Pascal du Cray Research
Pascal/VS
Pascal-XT
PURE Pascal
QuickPascal
RemObjets Chrome
Sun Pascal
THINK Pascal
Tiny Pascal (TRS-80)
Turbo Pascal
UCSD Pascal
VAX Pascal
Virtual Pascal
Turbo Pascal for CP/M-80
Turbo Pascal for DOS
Turbo Pascal for Macintosh
Turbo Pascal for Windows
CodeIgniter (Cadre d'application)
Drupal (Projet)
Joomla! (Projet)
Phalanger (PHP .NET)
phpBB (Projet)
Smarty (balise)
Twig (balise)
Symfony (Cadre d'application)
WordPress (Projet)
Zend (Cadre d'application)
PL360
PL/M-80
PL/M-86
Turbo Prolog
CPython
IronPython
Jython
PyPy
AREXX
Regina REXX
JMP
Btrieve
Cassandra
Clipper
CouchDB
dBASE
Hbase
Hypertable
MongoDB
Redis
Access
BigQuery
DB2
H2
Interbase
MySQL
Oracle
PostgreSQL
SAP HANA
SQL Server
Sybase
U-SQL
Remarques
Opérateur
Conditionnel
Boucle
Définition de fonction
Référence de commandes et fonctions
Bonjour
Astronomie
Biochimie
Finance
Fractale
Géographie
Géométrie
Histoire
Mathématique
Médicale
Météorologie
Océanographie
Sport
Temps
Trigonométrie
Validation
Phase lunaire
Calcul du calcium corrigé
Calcul le taux d'alcoolémie
IPaymt/Interet
NPer
PPaymt/Principal
Triangle de «Sierpinski»
Distance en Km entre deux longitudes et latitudes
Aire d'un cercle
Aire d'une surface de prisme rectangulaire
Aire d'un triangle
Distance entre deux points
Treillis
Chiffre romain
Ackermann
Exp
Factoriel
Fibonacci
Log
Nombre premier
Odd
Sqrt
Triangle Pascal
Hauteur utérine
Unité de mesure
Fréquence des vagues
Hockey
Année bissextile
Date de la Pâque
FirstDayOfMonth
ArcCos
ArcSin
Atn/ATan/ArcTan/ArcTangente
Cos
Sin
Courriel
DOSBox
PCE - PC Emulator
PCem
Table ASCII
RAM de l'IBM PC
Bibliographie
Préface
Notes légal
Dictionnaire
Recherche

DRAW

Dessine
Turbo Basic

Syntaxe

DRAW chaîne

Paramètres

Nom Description
chaîne Ce paramètre permet d'indiquer les codes pour dessiner et réagit selon les instructions suivantes :
Commande Description
A a Cette commande permet de définir l'angle spécifié par a. On peut avoir une valeur situé entre 0 et 3 (0 vaut 0°,1 à 90°,2 à 180° et 3 à 270°)).
B ... Cette commande jumelé à une autre, peut définir un déplacement sans laisser de trace.
C c Cette commande permet de sélectionné la couleur de traçage spécifié par «c». En définition moyenne, la valeur autorisé de «c» peut aller de 0 à 3 et, en haute définition, il peut avoir comme valeur 0 et 1. Cependant, en définition moyenne, c sélectionne la couleur dans la palette «active» définie par «COLOR». La valeur de la couleur pour le fond est 0 et la valeur par défaut est la couleur du premier plan, soit 3. En haute définition, la valeur «0» corrrespond au noir et la valeur par défaut, «1», correspond au blanc.
D n Cette commande permet d'effectuer un déplacement de «n» pixels vers le bas.
E n Cette commande permet d'effectuer un déplacement de «n» pixels en diagonale vers le haut à droite.
F n Cette commande permet d'effectuer un déplacement de «n» pixels en diagonale vers le bas à droite.
G n Cette commande permet d'effectuer un déplacement de «n» pixels en diagonale vers le bas à gauche.
H n Cette commande permet d'effectuer un déplacement de «n» pixels en diagonale vers le haut à gauche.
L n Cette commande permet d'effectuer un déplacement de «n» pixels vers le gauche.
M x,y Cette commande permet d'effectuer un déplacement à un coordonnée relative ou absolue définit par x et y. La manière dont est différencié la coordonnée relative et absolue est très simple, si la valeur de «x» est précédé d'un signe mathématique «plus» (+) ou d'un signe mathématique «moins» (-), il s'agit d'une coordonnée sous forme relative, sinon d'une coordonnée absolue.
N ... Cette commande indique à une commande de ne pas effectuer un changement de coordonnées une fois le traçage effectué.
P p,b Cette commande permet d'indiquer la couleur des dessins spécifié par «p» et la couleur de bordure «c».
R n Cette commande permet d'effectuer un déplacement de «n» pixels vers le droite.
S s Cette commande permet de définir le facteur d'échelle d'agrandissement. Les valeurs autorisé sont situé entre 0 et 255. Il faut cependant divisé par 4 pour obtenir l'échelle normal.
TA t Cette commande permet d'effectuer une rotation selon un angle spécifié par «t» en degré (valeurs entre -360 et 360).
U n Cette commande permet d'effectuer un déplacement de «n» pixels vers le haut.
variable Cette commande permet d'exécuter les commandes à partir d'une variable externe.

Description

Cette commande permet de dessiner avec une chaîne de caractères.

Remarques

Exemple

Si vous voulez retourner tous les champs de cette table vous entrez donc les instructions suivantes :

  1. 10 ' ***********************************
  2. 20 ' * *
  3. 30 ' * *
  4. 40 ' * BOULE ET BILL *
  5. 50 ' * *
  6. 60 ' * *
  7. 70 ' ***********************************
  8. 80 ' * *
  9. 90 ' * *
  10. 100 '* FAIT PAR SYLVAIN MALTAIS *
  11. 110 '* *
  12. 120 '***********************************
  13. 130 CLS:SCREEN 1
  14. 140 LOCATE 6,5:PRINT "FAIT PAR SYLVAIN MALTAIS"
  15. 150 LINE(0,0)-(319,199),3,B
  16. 160 '************NEZ*****************
  17. 170 DRAW"BM160,59M163,58M168,60M172,61M175,64M176,67M176,68M173,72 M168,75M164,76M160,77M156,75M152,73M150,72M149,68M151,63M157,59 M160,59"
  18. 180 '*******BOULE DU NEZ*************
  19. 190 CIRCLE(161,64),360/90:PAINT(161,64),3,3
  20. 200 '*********GUEULE******************
  21. 210 DRAW"BM174,69M176,72M177,76M176,78M175,80M173,83M169,78M165,85 M166,85M163,86M160,87M152,85M148,86M144,85M139,85M137,83"
  22. 220 '****HAUT*DE*LA*GUEULE************
  23. 230 DRAW"BM150,72M148,77"
  24. 240 '*******LIGNE*DANS*LA*JOUE********
  25. 250 DRAW"BM135,83M139,84BM135,80M139,81"
  26. 260 '*********COU*********************
  27. 270 DRAW"BM152,85M152,88M150,89M150,92"
  28. 280 '**********SOURCILS***************
  29. 290 DRAW"BM148,77M147,72M144,70M141,67M137,62M134,63M139,68M141,70M144,71"
  30. 300 '****HAUT*DE*LA*TETE**************
  31. 310 DRAW"BM134,63M139,64BM138,62M131,66M130,64M135,59M133,59M129,61 M123,63M122,67M123,69M121,66M122,61BM118,64M117,66M120,70M122,71 M121,74M120,77M122,82M124,85M125,81M121,92M120,94M116,96M112,98 M108,100M104,102M102,104M99,107M97,111M97,114M98,116M100,120"
  32. 320 '*OREILLE*GAUCHE******************
  33. 330 DRAW"BM100,120M102,122M104,124M108,126M112,127M116,126M120,123 M123,120M124,116M126,112M128,104M129,96M130,91M129,90M128,85M130,83 BM129,90 M134,91M136,92M141,89M144,91M146,93M142,94M148,99"
  34. 340 '*******COLLIER*******************
  35. 350 DRAW"BM148,99M152,95M157,93M156,91M151,92M146,93"
  36. 360 '*****LES*YEUX********************
  37. 370 DRAW"BM144,80M146,77BM144,77M146,74M144,73BM140,78M142,77BM141,78E0 BM140,76M142,76M141,75M139,74M139,76BM137,77M135,75"
  38. 380 DRAW"BM141,75M139,72M136,71M134,71M133,72M134,73BM138,70M137,69 M138,67BM131,74M128,72M128,69M131,67M133,69M131,70M131,72M131,74"
  39. 390 '***OREILLE**DROITE***************
  40. 400 DRAW"BM138,90M139,92M138,97M135,101M132,107M130,109M130,113M133,117 M136,118M142,116M144,114M148,111"
  41. 410 '***PATTE**GAUCHE*****************
  42. 420 DRAW"BM148,99M147,103M147,106BM150,101M147,106M148,109M148,111 M152,113M155,112M153,108BM155,112M160,113M163,109M164,108BM157,93 M163,94M168,96"
  43. 430 '***PATTE**DROITE*****************
  44. 440 DRAW"BM168,96M166,100M164,99M163,109M168,112M171,112M174,108M175,102 M180,98M176,95M172,93M170,93M168,96BM175,107M179,112M182,115M183,120 M182,123M181,126M180,128"
  45. 450 '******COUDE**********************
  46. 460 DRAW"BM179,98M180,101M177,102BM180,101M181,105M181,107M179,109M175,108"
  47. 470 '****NOMBRILE*********************
  48. 480 DRAW"BM176,123M175,123M175,124M177,124M178,122"
  49. 490 '*****VENTRE**********************
  50. 500 DRAW"BM177,126M174,127M168,126M165,120M164,116M164,114"
  51. 510 '*******DOS***********************
  52. 520 DRAW"BM151,113M152,115M151,120M150,123"
  53. 530 '*******PATTE*GAUCHE*EN*BAS*******
  54. 540 DRAW"BM148,123M157,121M162,122M165,123M164,126M163,128M157,132 M172,129M177,130M180,133M176,139M167,142M160,144M146,141M144,138 M147,134M144,131M146,125M148,123"
  55. 550 DRAW"BM177,136M172,132BM176,140M172,136"
  56. 560 '***********QUEUE*****************
  57. 570 DRAW"BM145,128M141,126M143,123M141,125M141,120M140,125M139,120 M139,124M135,123M137,126M135,131M136,134M140,136M144,137"
  58. 580 DRAW"BM182,123M185,124M184,126M182,127M187,130M187,133M183,137 M176,139"

Voici en terminant un exemple du résultat de ce petit programme :

Références

INFOGUIDE - Turbo Basic, Editions P.S.I., Bénédicte Hudault, 1988, ISBN: 2-86595-531-1, page 106

PARTAGER CETTE PAGE SUR
Dernière mise à jour : Mardi, le 28 juillet 2015