İKİ DAKİKA GÜNCEL HABER MERKEZİ

Ülkeler arası saat

Yazar jawscod2

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

Bu yazı toplamda 27, bugün ise 0 kez görüntülenmiş

Bu konularda ilginizi çekebilir

• İnternet Programı
• String Fonksiyonlari
• Adam Asmaca Oyunu
• Tek Tusla Windows Kapama
• Renk Geçişi
• Titreyen Form
• Bilgisayarı Konuşturma
• Dll Kullanımı
• Adodc Bağlantı Yöntemleri
• Taksitli Satış Programı

Aradığınız konu hakkında yeterli içeriği sitemizde bulamadıysanız, aşağıdaki kutucuklardan google ve yahoo arama motorlarında arama yapabilirsiniz.

	Arama terimlerinizi girin Arama formu g�nder
	Web www.ikidakika.com