Ce programme écrit en Turbo-Pascal 6 dessine un voltmètre à aiguille donnant la tension saisie sur une entrée analogique d'une interface (Orphy...)
{voltmetre analogique RQuer 14/01/98}
USES
Graph,crt;
VAR
GraphPilote, GraphMode: INTEGER;
n,x,y,xm,ym,r:integer;
t:real;
BEGIN
GraphPilote := Detect; InitGraph(GraphPilote, GraphMode, '');
xm:=320;ym:=175;r:=30;
Ellipse(xm,ym,0,180,r,r);
repeat
n:=random(6); t:=n/5*3.1416;
x:=trunc(xm-r*cos(t));y:=trunc(ym-r*sin(t));
setcolor(green);
line(xm,ym,x,y);
delay(1000);
setcolor(black);
line(xm,ym,x,y);
until keypressed;
ReadLn;
CloseGraph;
END.
Le programme exécutable
Le programme source