IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 19 Temmuz 2008, 16:54   #1
Çevrimiçi
Yardımcı Admin
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Analog ve Dijital Saat




ALINTIDIR
PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
Public gme As Integer
Public As Single
Public mm As Integer
Public hh As Single
Public chane As Boolean
Public fr As Integer
Public As Integer
Private Sub Command1_Click()
Timer2.Enabled True
End Sub
 
Private Sub Form_Load()
tim Time$
at Right(tim2)
45 at
If 60 Then g 60
am 
Right(tim5)
am Left(am2)
mm 45 am
If mm 60 Then mm mm 60
 
ah 
Left(tim2)
ah ah 12
hh 
45 + (ah 5)
If 
hh 60 Then hh hh 60
 
Shape1
.Height 3600
Shape1
.Width 3600
Shape1
.Top 0
Shape1
.Left 0
Line4
(0).X1 1800
Line4
(0).Y1 1800
Line4
(0).Y2 1800
Line4
(0).X2 1800
Me
.Width 3725
End Sub
 
Private Sub Timer1_Timer()
f0 = (3.14) / 60
1
If 61 Then
1
End 
If
If 
mm 61 Then
mm 
1
End 
If
If 
hh 61 Then
hh 
1
End 
If
 
If 
45 Then
mm 
mm 1
If fr 2 Then
fr 
fr 1
End 
If
chane False
End 
If
 
If 
mm 45 And chane False Then
hh 
hh 5
chane 
True
End 
If
f0
1500 Cos(f)
1500 Sin(f)
 
Line1.X1 1800
Line1
.Y1 1800
Line1
.Y2 1800
Line1
.X2 1800
 
If fr 1 Then
1
Load Line4
(i)
Line4(i).Visible True
Line4
(i).X1 Line1.X2
Line4
(i).X2 Line1.X2
Line4
(i).Y1 Line1.Y2
Line4
(i).Y2 Line1.Y2
 
qw 
= (1) \ 5
qw 5
If 1 Then
Line4
(i).BorderColor = &HC0C000
Line4
(i).BorderWidth 5
End 
If
End If
 
fm mm f0
xm 
1250 Cos(fm)
ym 1250 Sin(fm)
 
Line2.X1 1800
Line2
.Y1 1800
Line2
.X2 xm 1800
Line2
.Y2 ym 1800
 
fh 
hh f0
xh 
900 Cos(fh)
yh 900 Sin(fh)
 
Line3.X1 1800
Line3
.Y1 1800
Line3
.X2 xh 1800
Line3
.Y2 yh 1800
Label1
.Caption Time$
End Sub 


__________________
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Cevapla

Etiketler
analog, dijital, saat


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Dijital Saat (Hareketli) aSi C ve C++ 0 24 Şubat 2012 22:24
Dijital saat addonu neobre mIRC Scripting Sorunları 7 05 Ekim 2009 20:40
Analog Saat Cemalizim Visual Basic 0 19 Temmuz 2008 16:54
Java Script ile Dijital Saat uygulaması Cheki HTML/CSS/JavaScript 4 04 Temmuz 2006 13:12