Dijital Saat Programı

19-05-2007, 14:22:13

~~peep~~

Üyeliği durduruldu

Forma 8 tane picturebox ekleyin. 1 de textbox

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Form1.Caption = "DİJİTAL SAAT PROGRAMI"
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
currenttime = Format(Time, "hh:mm")
 Text1.Text = Time
  so = Mid(Time, 1, 1)
Picture1.Picture = LoadPicture(so + ".jpg")
sd = Mid(Time, 2, 1)
Picture2.Picture = LoadPicture(sd + ".jpg")
doo = Mid(Time, 4, 1)
Picture3.Picture = LoadPicture(doo + ".jpg")
dd = Mid(Time, 5, 1)
Picture4.Picture = LoadPicture(dd + ".jpg")
ss = Mid(Time, 7, 1)
Picture5.Picture = LoadPicture(ss + ".jpg")
sss = Mid(Time, 8, 1)
Picture6.Picture = LoadPicture(sss + ".jpg")
End Sub

Bunun için "" ":","0'dan 9'a" "" kadar olan resimleriniz olması gerekiyor. Resimleri Mail adresinizi bırakırsanız yollarım. Yada kendiniz çizmeniz gerekiyor. Küçük Çizmenizi tavsiye ederim.
Alıntıdır:Vbturk.net

14-08-2007, 22:00:48

#2

lanetli

Kimlik doğrulama veya yönetimden onay bekliyor.

zuhaha

hocam sana delphi kodlarını yazayım bu kadar kasmaya hiç gerek yok

bi tane label koy bitanede timer

timer a

label1.caption:=timetostr(time);

yaz yeter

sonra font kısmından istediğin gibi büyükt küçült yazıyı

12-09-2007, 22:18:46

#3

yasarkemaldag

lanetli adlı üyeden alıntı: mesajı görüntüle

zuhaha

hocam sana delphi kodlarını yazayım bu kadar kasmaya hiç gerek yok

bi tane label koy bitanede timer

timer a

label1.caption:=timetostr(time);

yaz yeter

sonra font kısmından istediğin gibi büyükt küçült yazıyı

o yolla vb dede yapılıyor ama arkadaş tam digital saat olması için picture yani resimler ile çalışmış.

bu arada timerın intervalını vermessen saat kafayı yiyebilir

buyrun vb de kısa yoldan digital saat:

1 adet timer 1 adet label ekleyin ve aşağıdaki kodları ekleyin.

Private Sub Form_Load()
Form1.Caption = "DİJİTAL SAAT PROGRAMI (YKD)"
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
label1.caption=time$
End Sub

23-09-2007, 14:30:52

#4

lanetli

yasarkemaldag adlı üyeden alıntı: mesajı görüntüle

o yolla vb dede yapılıyor ama arkadaş tam digital saat olması için picture yani resimler ile çalışmış.

bu arada timerın intervalını vermessen saat kafayı yiyebilir

buyrun vb de kısa yoldan digital saat:

1 adet timer 1 adet label ekleyin ve aşağıdaki kodları ekleyin.

Private Sub Form_Load()
Form1.Caption = "DİJİTAL SAAT PROGRAMI (YKD)"
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
label1.caption=time$
End Sub

delphi de zaten timer nesnesini koyduğun zaman forma otomatik olarak interval değeri 1000 oluyor

yane kodla bidaha bi cümle yazmama gerek yok