Skip to main content

AccessTr.neT


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.
Yazar: leventm - Cevaplar: 10 - İzleme: 7770
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.
Yazar: ozanakkaya - Cevaplar: 8 - İzleme: 6898
Form Üzerinde Analog Saat
Formlarınıza altform olarak ekleyebileceğiniz saat örnekleri


[Resim: http://ekim09.kucukresim.com/uploads/adsize14f9.jpg]
Yazar: chopper07 - Cevaplar: 7 - İzleme: 6906
Transparan Analog Saat
işinize yarar umarım
Yazar: chopper07 - Cevaplar: 1 - İzleme: 3416
Degisik Bir Saat
progress barlar ile sekillendirilen bir saat örneği. Img-grin
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.
Yazar: onur_can - Cevaplar: 4 - İzleme: 3852
Bir Sade Saat
Bir Sade Saat de ben ekleyim dedim. uygulamalarda alt form olarak kullanabilirsiniz..

iyi çalışmalar...
Yazar: chopper07 - Cevaplar: 0 - İzleme: 4133
Ç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
Yazar: chopper07 - Cevaplar: 0 - İzleme: 3589
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
Task