esempio di antibiogramma

programmi scritti con turbo pascal v.5-7 e compilati come file.exe
non essendo accettati i file.exe in rete (per pericolo virus) attivo il file.exe
e riprendo con digitale:copio incollo alcune videate e creo videoclip che
registro e poi richiamo con youtube

fornisco listato pascal per eventuale copia-incolla se pascal installato sul PC
e anche per descrizione che facilita la comprensione del filmato

videoclip http://www.youtube.com/watch?v=M6VA2U6yHRI

program anti2;
(* antibiogramma *)
uses crt,graph;
var c2,c3,c4,c5,c6,c7,c15,x,y,a:integer;
    s:string;

procedure grafica;
var t,s:integer;
    stringa:string;
begin
t:=0;
s:=0;
stringa:=('c:\scheda\');
initgraph(s,t,stringa);
end;


procedure pausa1;
begin
setcolor(c4);
outtextxy(430,10,'premi INVIO');readln;
setcolor(0);
outtextxy(430,10,'premi INVIO');
setcolor(c15);
end;

procedure pausa;
begin
readln;cleardevice;
end;

procedure testo(x,y:integer;st:string);
begin
outtextxy(x,y,st);
end;

procedure cancella;
begin
setfillstyle(1,0);
bar(20,310,600,430);
setcolor(c15);
end;


procedure pro1(x,y:integer);
begin
for a:=1 to 3 do
begin
 circle(x,y,60);
 x:=x+150;
 end;
 end;

 procedure pro2;
begin
 setfillstyle(1,2);
 fillellipse(100,100,20,20);delay(1000);
 fillellipse(250,100,30,30);delay(1000);
  fillellipse(400,100,50,50);delay(1000);
 end;


  procedure pro3;
 begin
 setfillstyle(1,2);
 fillellipse(100,100,50,50);delay(1000);
 fillellipse(250,100,20,20);delay(1000);
  fillellipse(400,100,10,10);delay(1000);
 end;

  procedure pro4;
 begin
 setfillstyle(1,2);
 fillellipse(100,100,5,5);delay(1000);
 fillellipse(250,100,40,40);delay(1000);
  fillellipse(400,100,10,10);delay(1000);
 end;

 procedure testo1(s:string);
 begin
 testo(50,200,'Penicillina');
 testo(200,200,'Adriamicina');
 testo(350,200,'Puromicina');
 testo(50,250,'colonie batteriche trattate con 3 diversi antibiotici');
 testo(200,270,'batterio tipo '+s);
 pausa1;
 testo(50,300,'antibiotico posto al centro della colonia');
 testo(50,320,'diffonde a raggiera e compare un alone di inibizione');
 testo(50,340,'che segnala la morte dei batteri incontrati');
 end;

 procedure testo2;
 begin
 setcolor(c2);
 testo(50,360,'si deduce che il batterio A risulta sensibile ai tre');
 testo(50,380,'diversi antibiotici,in ordine crescente:');
 testo(50,400,'Penicillina,Adriamicina,Puromicina');
 end;

 procedure testo3;
 begin
 setcolor(c2);
 testo(50,360,'si deduce che il batterio B risulta sensibile ai tre');
 testo(50,380,'diversi antibiotici,in ordine crescente:');
 testo(50,400,'Puromicina,Adriamicina,Penicillina');
 end;

 procedure testo4;
 begin
 setcolor(c2);
 testo(50,360,'si deduce che il batterio C risulta sensibile ai tre');
 testo(50,380,'diversi antibiotici,in ordine crescente:');
 testo(50,400,'Penicillina,Puromicina,Adriamicina');
 end;

 procedure sintesi;
 begin
 testo(100,50,'antibiotici usati e ceppi batterici A,B,C');
 testo(100,100,'Penicillina,Adriamicina,Puromicina');
 testo(100,130,'A  +           ++          +++ ');
 testo(100,160,'B  +++         ++          + ');
 testo(100,190,'C  +           +++         ++ ');
 setcolor(c3);
 testo(100,250,'evidentemente si user… antibiotico pi— efficace');
 testo(100,270,'per ogni ceppo batterico noto dalla analisi');
 testo(100,300,'Nel caso sia ignoto il ceppo batterico');
 testo(100,330,'si usera antibiotico con piu ampio spettro di azione');
 testo(100,360,'In questo esempio Adriamicina o Puromicina');
 end;

 procedure applica;
 begin
 setcolor(c15);
 testo(50,50,'esempio applicazione antibioticoterapia');
 setcolor(c3);
 testo(50,100,'1..ceppo batterico noto  ? ');
 testo(70,120,'usare antibiotico specifico pi— efficace:cfr.tabella');
 setcolor(c2);
 testo(50,150,'2..ceppo batterico ignoto? ');
 testo(70,170,'usare antibiotico con pi— ampio spettro di azione');
 testo(70,190,'coltivare batterio per riconoscerne il ceppo');
 testo(70,210,'usasare antibiotico specifico pi— efficace');
 end;

procedure scelta;
var sce:integer;
begin
cleardevice;
pro1(100,100);testo1('A');
pro2;testo2;pausa1;cleardevice;
pro1(100,100);testo1('B');
pro3;testo3;pausa1;cleardevice;
pro1(100,100);testo1('C');
pro4;testo4;pausa1;cleardevice;
sintesi;pausa1;cleardevice;
applica;pausa1;cleardevice;

setcolor(c15);settextstyle(0,0,1);
testo(20,30,'per continuare premi 1..per finire 2 :scelta=');
gotoxy(60,2);readln(sce);
cleardevice;
if sce=1 then scelta;
end;


begin
clrscr;
c2:=2;c3:=3;c4:=4;c5:=5;c6:=6;c7:=7;c15:=15;
textcolor(c3);
writeln('esempio di ANTIBIOGRAMMA ');
writeln('premi INVIO');readln;clrscr;
grafica;
scelta;closegraph;
end.

indice