Konu: Ülkeler Arası Saat !!! VB Perş. Kas. 27, 2008 11:39 pm
Dim a, b, c, d As Integer Private Sub Form_Load() Combo1.ListIndex = 0 Label3.ForeColor = vbRed Label5.ForeColor = vbRed a = Hour(Time) b = Minute(Time) c = Second(Time) Label2.Caption = Hour(Time) Label4.Caption = Minute(Time) Label6.Caption = Second(Time) End Sub Private Sub Timer1_Timer() Label3.ForeColor = vbGreen Label5.ForeColor = vbGreen Label2.Caption = Hour(Time) If Combo1.ListIndex = 0 Then Label1.Caption = " TÜRKİYE" Label2.ForeColor = vbBlue Label4.ForeColor = vbBlue Label6.ForeColor = vbBlue Label4.Caption = Minute(Time) Label6.Caption = Second(Time) End If If Minute(Time) < 10 Then Label4.Caption = "0" & Minute(Time) End If If Second(Time) < 10 Then Label6.Caption = "0" & Second(Time) End If If Combo1.ListIndex = 1 Then a = Hour(Time) Label2.Caption = a + 1 Label1.Caption = "Çin" Label2.ForeColor = vbBlue Label4.ForeColor = vbBlue Label6.ForeColor = vbBlue Label4.Caption = Minute(Time) Label6.Caption = Second(Time) Label7.Caption = "Türkiye İle arasında 1 saat vardır" End If If Minute(Time) < 10 Then Label4.Caption = "0" & Minute(Time) End If If Second(Time) < 10 Then Label6.Caption = "0" & Second(Time) End If If Combo1.ListIndex = 2 Then a = Hour(Time) Label2.Caption = a + 2 Label1.Caption = "Japonya" Label2.ForeColor = vbBlue Label4.ForeColor = vbBlue Label6.ForeColor = vbBlue Label4.Caption = Minute(Time) Label6.Caption = Second(Time) Label7.Caption = "Türkiye İle arasında 2 saat vardır" End If If Minute(Time) < 10 Then Label4.Caption = "0" & Minute(Time) End If If Second(Time) < 10 Then Label6.Caption = "0" & Second(Time) End If If Combo1.ListIndex = 3 Then a = Hour(Time) Label2.Caption = a + 3 Label1.Caption = "Rusya" Label2.ForeColor = vbBlue Label4.ForeColor = vbBlue Label6.ForeColor = vbBlue Label4.Caption = Minute(Time) Label6.Caption = Second(Time) Label7.Caption = "Türkiye İle arasında 3 saat vardır" End If If Minute(Time) < 10 Then Label4.Caption = "0" & Minute(Time) End If If Second(Time) < 10 Then Label6.Caption = "0" & Second(Time) End If If Combo1.ListIndex = 4 Then a = Hour(Time) Label2.Caption = a + 4 Label1.Caption = "İtalya" Label2.ForeColor = vbBlue Label4.ForeColor = vbBlue Label6.ForeColor = vbBlue Label4.Caption = Minute(Time) Label6.Caption = Second(Time) Label7.Caption = "Türkiye İle arasında 4 saat vardır" End If If Minute(Time) < 10 Then Label4.Caption = "0" & Minute(Time) End If If Second(Time) < 10 Then Label6.Caption = "0" & Second(Time) End If End Sub Private Sub Timer2_Timer() Label3.ForeColor = vbRed Label5.ForeColor = vbRed Label2.ForeColor = vbYellow Label4.ForeColor = vbYellow Label6.ForeColor = vbYellow End Sub
WRECH
Detaylı Mesaj
Bilgileri
Mesaj No: 69
Mesajın Ana Konusu:Ülkeler Arası Saat !!! VB
Gönderilme Tarihi:Perş. Kas. 27, 2008 11:39 pm
Bu Mesajı Şikayet Et:
Ülkeler Arası Saat !!! VB
1 sayfadaki 1 sayfası
1 -
Arama Yapmadan Konu Açmayın. 2 - Mesaj Yazarken Başlıklar Konularla Alakalı Olmalır. 3 - Konularımızı Alakalı Başlıklar Altında Açalım. 4 - Aynı Konuya Ard Arda Mesaj Atmayın(flood Yapmayın) 5 - Bu Kurullara Uymamakta Israr Edenler Siteden Belirli Bir Süreliğine Yada Tamamen Uzaklaştırılır.
Anasayfa 
Latest images 
] 
Perş. Kas. 27, 2008 11:39 pm
WRECH
