Etiketler
|
|
|
Yazar: leventm - Cevaplar: 3 - İzleme: 4173
Sayfada Mekanik Saat
|
Değerli Arkadaşlar
Yine excel.web.tr sitesindede yayınlanmış olan yaptığım ilk saat çalışmalarından birini sizlerle paylaşmak istiyorum. Bu çalışmamda özellikle excelin önemli özelliklerinden bir olan koşullu biçimlendirme kullanılmıştır.
|
Sayfada Dijital saat
|
Değerli Arkadaşlar
Bu örnektede sayfa üzerinde bir dijital saat örneği göreceksiniz. Örnekte yine koşullu biçimlendirme özelliği kullanılmıştır.
|
Form Üzerinde Analog Saat
|
Formlarınıza altform olarak ekleyebileceğiniz saat örnekleri
[Resim: http://ekim09.kucukresim.com/uploads/adsize14f9.jpg]
|
Transparan Analog Saat
|
işinize yarar umarım
|
Degisik Bir Saat
|
progress barlar ile sekillendirilen bir saat örneği.
|
Yazar: serg - Cevaplar: 6 - İzleme: 5590
küçük saat
|
visual basic öğrenmeye başladım ,bu da ilk denemem
|
Yazar: ODRBCR - Cevaplar: 12 - İzleme: 8780
Digital Saat
|
Selam herkese, Digital bir saat'e ihtiyacım var ek'te bir şey yaptım ama her saniye formu yeniden sorgulama yaptırıyorum. Hem saniye düzgün gitmiyor. Hemde sistemi kastırıyo gibi geldi bana. Doğru ve stabil bir digital saat örneği bulamadım. Yardım edebilirseniz sevinirim.
|
Bir Sade Saat
|
Bir Sade Saat de ben ekleyim dedim. uygulamalarda alt form olarak kullanabilirsiniz..
iyi çalışmalar...
|
Çok Kolay bir Analog Saat Yapalım
|
formumuza sadece 2 tane timer koyalım ve kodları yapştıralım. işte bu kadar kolay
[code]Private Sub Form_Load()
Dim aci, i, t
AutoRedraw = True
Timer1.Interval = 1000 ' 1 saniye
Timer2.Interval = 10 '1 saniye
'zemin desenini çiz
ScaleMode = 3 'pixel moduna geçir
For i = 0 To ScaleHeight
Line (0, i)-(ScaleWidth, i), i * 256
Next
ScaleMode = 1 'normal moda dön
'form yüksekli?ini ve genisligini ayni yap
Width = ScaleHeight
'matematiksel koordinatlara göre y
|
Basit bir saat daha tarihli
|
gerekli olanlar formumuza bir adet label ve bir adet timer.
[code]Private Sub Form_Load()
Timer1.Interval = 1000
Label1.ForeColor = &H8000000D
Label1.Font = Arial
Label1.FontSize = 14
Label1.AutoSize = True
Form1.Height = 930
Form1.ScaleHeight = 525
Form1.ScaleWidth = 3500
Form1.Width = 3500
Form1.BackColor = &H8000000E
Label1.BackStyle = 0
Form1.BorderStyle = 4
Form1.Caption = Saat
End Sub
Private Sub Label1_Click()
MsgBox ("ACCESSTR.net - ERKAN")
End Sub
Private Sub Timer
|