Pomoc s programem – Delphi – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
Reklama

Pomoc s programem  – Delphi – Fórum – Programujte.comPomoc s programem – Delphi – Fórum – Programujte.com

 

Hledá se programátor! Plat 1 800 € + bonusy (firma Boxmol.com)
Jarda
~ Anonymní uživatel
191 příspěvků
17. 5. 2011   #1
-
0
-

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.

Nahlásit jako SPAM
IP: 90.178.92.–
Reklama
Reklama
KIIV+42
God of flame
17. 5. 2011   #2
-
0
-

1) delphi nema crt ale tusim wincrt, dos ani nevim
2) v zivote se uz na nicem, zalozenym na Win NT (coz uz je vse), nedostanes primo na seriovej port - pekne musis otevrit, nastavit, pouzivat...


podle me by to bylo daleko jednodussi udelat klidne v perlu :D

(a ne, nehlasim se na predelavani - uz takhle mam prace nad hlavu)

Nahlásit jako SPAM
IP: 94.142.234.–
Program vždy dělá to co naprogramujete, ne to co chcete...
Jarda
~ Anonymní uživatel
191 příspěvků
18. 5. 2011   #3
-
0
-

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

Nahlásit jako SPAM
IP: 90.178.92.–
Zjistit počet nových příspěvků

Přidej příspěvek

Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!

Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku

×Vložení zdrojáku

×Vložení obrázku

Vložit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:

×Vložení videa

Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo emailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové příspěvky (pouze pro přihlášené)
Sleduj vlákno a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.
Reaguješ na příspěvek:

Uživatelé prohlížející si toto vlákno

Uživatelé on-line: 0 registrovaných, 13 hostů

Podobná vlákna

Pomoc s programem ... — založil Bublina

Pomoc s programem C++ — založil Marek

Pomoc s programem — založil Pepuna

Pomoc s programem v C — založil Radyon

Pomoc s programem — založil Zugi

 

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