Başlangıç > Kodlar > Visual Basic 6 ile Ülkeler arası saat

Visual Basic 6 ile Ülkeler arası saat


ülkeler asaı kaç saat oldugunu yazan program

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


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: