Anonymní profil Jarda – Programujte.com

Tak už to neřeště, už se mě podařilo postoupit dál, tudíš už vím jak na to..

Zdravím všechny, kdysi jsem napsal prográmek v pascalu na ovládání čerpadla na zahradu, a teď jsem to chtěl předělat do Delphi 7 , ale jsem úplně vedle. Chtěl bych vás tímto poprosit, zda by se někomu nechtělo na to kouknout, a přeďelat to pod Delphi? Menší úpravy bych asi zvládl, ale už se s tím mořím týden, a výsledek není uspokojivý. Stačí mě když by fungoval tento pascalovský prográmek pod delphi a j bych ho pak třeba zkusil vylepšit o rozšíření časových voleb.

{program CERPADLO}

Uses Crt, Dos;

const BA=$3F8; 					{seriový port}



label 1; label 2; label 3;



var

hodina, minuta, sec, s : word;

a, b, c, d, e, f, g, x : real;



begin

1:

      clrscr;

        repeat;

        GetTime(hodina,minuta,sec,s); 	{nacte aktualni čas ze systemu}

	TextBackGround (4);

      clrscr;



x:=05; 					{spíná každu hodinu např.10:05 na dobu 6 minut} 



if minuta=   x then goto 2;

if minuta= x+1 then goto 2;

if minuta= x+2 then goto 2;

if minuta= x+3 then goto 2;

if minuta= x+4 then goto 2;

if minuta= x+5 then goto 2;

if minuta= x+6 then goto 2;



   gotoxy(27,12); write('VYPNUTO: ',minuta);

    port [BA + 4] := 0; 		{ Shozeni RTS }

   delay(3000);



until keypressed;  			{ukončení programu při vypnutém čerpadlu}

goto 3;





2:  gotoxy(27,12); write('Cerpadlo zapnuto: ',minuta);

     port [BA + 4] := 2;		 {Nahození RTS}

    delay(3000);

  goto 1;





3:

TextBackground (0); TextColor (7); clrscr;



end.