Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic hazır kodlar » DUVAR SAATİ
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

Excel VBA ile listede kaç kişi olduğunu bulmanın kısayolu.

Yazar: mustafaozudogru

Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 8734
Yayın Tar:07.05.2007
Yazar : FHAKAN
Hit :1699

Bu Yazarın Yazıları Sadece bu yazarın örnek kod göster
Bu Yazıyı Tavsiye Et

'ÖNCELİKLE FORM ÜZERİNE BİR TANE TİMER VE BİR TANE PICTURE BOX EKLEYELİM VE 'FORMUN NAME KISMINI Saat_Form OLARAK DE?İŞTİRELİM

'PICTUREBOX İÇİN
'APPEARANCE = 0 - FLAT
'BORDERSTYLE = 0-NONE
'BACKCOLOR = &H8000000F& ( FORM RENGİ )



Option Explicit
Dim YAZI As String
Function derecedenradyana(DERECE As Integer) As Single
Dim pi As Single
pi = Atn(1) * 4
derecedenradyana = DERECE * pi / 180
End Function
Private Sub Form_Load()
YAZI = String(5, " ") + " ÖRNEK S A A T UYGULAMASI"
Saat_Form.Show
Saat_Form.Height = 5055
Saat_Form.Left = 15
Saat_Form.ScaleHeight = 4575
Saat_Form.ScaleWidth = 4710
Saat_Form.Top = -90
Saat_Form.Width = 4800
Picture1.Top = 1035
Picture1.Left = 1260
Picture1.Height = 2175
Picture1.Width = 2175
Timer1.Interval = 1000
Picture1.Refresh
Saat_Form.Refresh
End Sub
Private Sub Form_Paint()
Dim sani As Integer
Dim sa As Integer, dak As Integer
kadran 'Saatin Kadranını Çiz
sa = Hour(Time) 'Saat Değerini Windows'tan al
dak = Minute(Time) 'Dakika Değerini Windows'tan al
sani = Second(Time) 'Saniye Değerini Windows'tan al
If sa > 12 Then sa = sa - 12 'Saati PM Cinsine çevir
sa = (sa * 30) + Fix(dak / 12 * 5) ' Saatin Kadrandaki Açısını Belirle
dak = dak * 6 ' Dakikanın Kadrandaki Açısını Belirle
sani = sani * 6 ' Saniyenin Kadrandaki Açısını Belirle
gösterge sa, dak, sani 'Açı değerlerini Çiz
End Sub
Sub gösterge(saat As Integer, dakika As Integer, san As Integer)
Dim c As Integer
Dim t As Single, k As Integer

Picture1.Cls ' Eski Çizimi Sil
k = 8: ' k :akrep yelkovanın kalınlığı
c = 100 'Akrep Yelkovanın boyu
Picture1.Scale (-100, 100)-(100, -100) ' Eksenleri Tanımla

t = derecedenradyana(san) ' saniye Açı değerini Radyana Çevir


' Saniye Çubuğu

Picture1.Line (c * Sin(t), c * Cos(t))-(0, 0)

t = derecedenradyana(saat) 'Saat Açı Değerini Radyana Çevir

'Saat Çiz
Picture1.Line (k * Cos(t), -k * Sin(t))-(-c / 5 * Sin(t), -c / 5 * Cos(t))
Picture1.Line (-k * Cos(t), k * Sin(t))-(-c / 5 * Sin(t), -c / 5 * Cos(t))
Picture1.Line (c / 1.5 * Sin(t), c / 1.5 * Cos(t))-(-k * Cos(t), k * Sin(t))
Picture1.Line (k * Cos(t), -k * Sin(t))-(c / 1.5 * Sin(t), c / 1.5 * Cos(t))

t = derecedenradyana(dakika)

k = k / 2 'Dakika Çubuğunda Kalınlığı azalt

'Dakika Çiz
Picture1.Line (k * Cos(t), -k * Sin(t))-(-c / 5 * Sin(t), -c / 5 * Cos(t))
Picture1.Line (-k * Cos(t), k * Sin(t))-(-c / 5 * Sin(t), -c / 5 * Cos(t))
Picture1.Line (c * Sin(t), c * Cos(t))-(-k * Cos(t), k * Sin(t))
Picture1.Line (k * Cos(t), -k * Sin(t))-(c * Sin(t), c * Cos(t))
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
Private Sub Timer1_Timer()
Dim sani As Integer
Dim sa As Integer, dak As Integer
sa = Hour(Time)
dak = Minute(Time)
sani = Second(Time)
If sa > 12 Then sa = sa - 12
sa = (sa * 30) + Fix(dak / 12 * 5)
dak = dak * 6
sani = sani * 6
gösterge sa, dak, sani
YAZI = Mid(YAZI, 2) & Left(YAZI, 1)
Saat_Form.Caption = YAZI
End Sub
Sub kadran()
Dim a As Integer, b As Integer, c As Integer
Dim i As Integer, t As Single
a = -10
b = 10
c = 7
Cls
Scale (a, b)-(b, a)
'Saniye Noktalarını Çiz
For i = 0 To 360 Step 6
t = derecedenradyana(i)
Line (c * Cos(t), c * Sin(t))-((c + 0.1) * Cos(t), (c + 0.1) * Sin(t))
Next
Saat_Form.DrawWidth = 3 'Saat Noktaları Daha Kalın
'Saat Noktalarını Çiz
For i = 0 To 360 Step 30
t = derecedenradyana(i)
Line (c * Cos(t), c * Sin(t))-((c + 0.2) * Cos(t), (c + 0.2) * Sin(t))
Next
Saat_Form.DrawWidth = 1 ' Çizim Genişliğini eski haline getir
End Sub





Yorumlar, eklemeler ve düşünceler
        Çalışıyomu diye denemedim ama çok düzenli yazılmış güzel algoritma tebrikler :)

   Shadow, 10.05.2007 19:41
   güzel bir kod


   TOTAL, 20.05.2007 11:54
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin