{A ver si esto ayuda}
program opcionmous;
uses
crt;
const
product = 5;
var
productos : array[1..product] of real;
suma : real;
cont : integer;
salir : boolean;
raton : boolean;
x, y : word;
procedure asignaprecion;
var
i, canti : integer;
begin
randomize;
canti := 0;
for i := 1 to product do
begin
canti := random(230) + 1;
productos[i] := canti;
canti := 0;
end;
end;
function raton_presente : boolean;
var
si : integer;
begin
asm
mov ah,00h
mov al,00h
int 33h
mov si,ax
end;
if si <> 0 then
raton_presente := true
else
raton_presente := false;
end;
procedure muestra_raton;
begin
raton := false;
if raton_presente then
begin
asm
mov ah,00h
mov al,01h
int 33h
end;
raton := true;
end;
end;
procedure oculta_raton;
begin
if raton = true then
begin
asm
mov ah,00h
mov al,02h
int 33h
end;
raton := false;
end;
end;
function posx_raton : word;
var
px : integer;
begin
posx_raton := 0;
asm
mov ah,00h
mov al,03h
int 33h
mov px,cx
end;
posx_raton := word((px div 8) + 1);
end;
function posy_raton : word;
var
py : integer;
begin
posy_raton := 0;
asm
mov ah,00h
mov al,03h
int 33h
mov py,dx
end;
posy_raton := word((py div 8) + 1);
end;
function boton_raton : word;
var
boton : integer;
begin
boton_raton := 0;
asm
mov ah,00h
mov al,03h
int 33h
mov boton,bx
end;
boton_raton := boton;
end;
procedure presentaproductos;
var
t, p : integer;
begin
clrscr;
suma := 0;
salir := false;
muestra_raton;
gotoxy(10,2);write('>> Suma De Productos Boton Derecho Fin Seleccion <<'); gotoxy(13,3);write('**** Posicione El Mouse Y boton Izquierdo ****'); gotoxy(21,5);write(' Producto Num. [1]'); gotoxy(21,6);write(' Producto Num. [2]'); gotoxy(21,7);write(' Producto Num. [3]'); gotoxy(21,8);write(' Producto Num. [4]'); gotoxy(21,9);write(' Producto Num. [5]'); gotoxy(21,10);write(' Finaliza Suma [Fin]'); gotoxy(13,12);write('**** Sececione productos ****'); x := posx_raton;
y := posy_raton;
repeat
if (x <> posx_raton) or (y <> posy_raton) then
begin
x := posx_raton;
y := posy_raton;
end;
if boton_raton = 1 then
begin
case x of
38 : case y of
5 : p := 1;
6 : p := 2;
7 : p := 3;
8 : p := 4;
9 : p := 5;
10 : salir := true;
end;
39,40 : case y of
10 : salir := true;
end;
end;
delay(180);
case p of
1 : begin suma := suma + productos[1]; end;
2 : begin suma := suma + productos[2]; end;
3 : begin suma := suma + productos[3]; end;
4 : begin suma := suma + productos[4]; end;
5 : begin suma := suma + productos[5]; end;
end;
p := 0;
end;
until salir = true;
oculta_raton;
clrscr;
writeln('**** Lasuma De Los Productos Selecionados Es ****'); writeln(' Importe Total : ',suma:0:2); writeln;
writeln('<<<< Pulse Una Tecla >>>>'); readkey;
end;
begin
asignaprecion;
presentaproductos;
end.
Crear cuenta