Anonymní profil Jarda – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

Anonymní profil Jarda – Programujte.comAnonymní profil Jarda – Programujte.com

 

Příspěvky odeslané z IP adresy 90.178.92.–

Jarda
Delphi › Pomoc s programem
18. 5. 2011   #142273

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

Jarda
Delphi › Pomoc s programem
17. 5. 2011   #142159

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.


Dík za pomoc.

 

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032022 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý