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 » Analog 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

Bir msgbox programı nasıl iğrençleştirir.

Yazar: spider58
Bunu yapmayın!!!


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 № : 3728
Yayın Tar:19.07.2005
Yazar : memox
Hit :2199

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

'Forma bir adet Timer ekleyin

Dim csize As Long
Private Const WM_NCLBUTTONdOWN = &Ha1
Private Const HTCapTiON = 2
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function sendMessage Lib "user32" alias "sendMessagea" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wparam As Long, lparam As any) As Long
Private Declare Function CreateellipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function setWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long
Const pi = 3.14159

Private Sub Form_dblClick()
End
End Sub

Private Sub Form_Keypress(Keyascii As Integer)
If Keyascii = 27 Then
End
End If
End Sub

Private Sub Form_Load()
If app.previnstance Then End
csize = CreateellipticRgn(4, 23, 270, 290)
setWindowRgn Me.hWnd, csize, True
Call Timer1_Timer
End Sub

Private Sub Form_MouseMove(Button As Integer, shift As Integer, X As Single, Y As Single)
Dim ReturnValue As Long
If Button = 1 Then
Call ReleaseCapture
ReturnValue = sendMessage(Me.hWnd, WM_NCLBUTTONdOWN, HTCapTiON, 0&)
End If
End Sub

Private Sub Timer1_Timer()
Dim H As Single, M As Single, s As Single
Dim TotHours As Single

H = Hour(Time)
M = Minute(Time)
s = second(Time)
TotHours = H + M / 60

LH.X2 = 700 * Cos(pi / 180 * (30 * TotHours - 90)) + LH.X1
LH.Y2 = 700 * sin(pi / 180 * (30 * TotHours - 90)) + LH.Y1

LM.X2 = 1200 * Cos(pi / 180 * (6 * M - 90)) + LH.X1
LM.Y2 = 1200 * sin(pi / 180 * (6 * M - 90)) + LH.Y1

Ls.X2 = 1200 * Cos(pi / 180 * (6 * s - 90)) + LH.X1
Ls.Y2 = 1200 * sin(pi / 180 * (6 * s - 90)) + LH.Y1

End Sub




Yorumlar, eklemeler ve düşünceler
        benimde buna benzer bir çalışmam var... Ancak memox 'un yaptığı form bir hata üretiyor.

csize = CreateellipticRgn(4, 23, 270, 290)

satırında hata veriyor....

NOT : Çalıştırmadam önce Timer eklendi...

   tuna87, 09.11.2005 13:01
© 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