GERÇEK PAYLAŞIMI BİLENLERİN MEKANI
HOŞGELDİNİZ...

GERÇEK PAYLAŞIMI BİLENLERİN MEKANI

,.-~*´¨¯¨`*·~-.¸-(_FRM¥ØK¥ØK_)-,.-~*´¨¯¨`*·~-.¸
 
AnasayfaTakvimSSSAramaÜye ListesiKayıt OlGiriş yap

Paylaş | 
 

 Pascalda hazırlanmış bir saat

Aşağa gitmek 
YazarMesaj
KaRaKuLe
Admin
Admin
avatar


MesajKonu: Pascalda hazırlanmış bir saat   Cuma Mart 27, 2009 12:02 am

PHP- Kodu:
PHP Kodu: uses crt,dos;
type
datetimetype=string[8];
var
reg:registers;
h,m,s,w,time:datetimetype;
i:integer;
begin
clrscr;
repeat
reg.ax:=$2c00;
intr($21,reg);
str(hi(reg.cx):2,h);
str(lo(reg.cx):2,m);
str(hi(reg.dx):2,s);
w:=h+':'+m+':'+s;
for i:=1 to length(w) do
if w[i]=' ' then w[i]:='0';
gotoxy(30,10); write(w);
delay(500);
clrscr;
until keypressed;
readkey;
end.
Sayfa başına dön Aşağa gitmek
 
Pascalda hazırlanmış bir saat
Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
GERÇEK PAYLAŞIMI BİLENLERİN MEKANI :: BİLGİSAYAR DÜNYASI :: Yazılım :: PasCal-
Buraya geçin: