Skip to main content

AccessTr.neT M.



Etiketler
Yazar: leventm - Cevaplar: 3 - İzleme: 3333
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: 6527
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: 5619
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: 5614
Transparan Analog Saat
işinize yarar umarım
Yazar: chopper07 - Cevaplar: 1 - İzleme: 2653
Degisik Bir Saat
progress barlar ile sekillendirilen bir saat örneği. Img-grin
Yazar: serg - Cevaplar: 6 - İzleme: 4405
küçük saat
visual basic öğrenmeye başladım ,bu da ilk denemem
Yazar: ODRBCR - Cevaplar: 12 - İzleme: 6520
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: 3134
Bir Sade Saat
Bir Sade Saat de ben ekleyim dedim. uygulamalarda alt form olarak kullanabilirsiniz..

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