Merhaba arkadaslar ;

Bu kodu yabanci bir sitede buldum ve birkac ulke de ben ekledim.
Programin mantigi su : Cesitli RadioButton lar var.Hangi ulkenin yazdigi RadioButton a tiklarsaniz o ulkenin saatini ve bir sehirini goruntuluyorsunuz.Ben kaynak olarak TRT1'in teletextindeki saatleri kullandim...

Programin calismasi icin 2 Label, 1 Timer nesnesi ve sehirler icin 13 tane RadioButton eklemelisiniz.Tabii istediginiz sehirlere gore bu RadioButton'larinin sayisini azaltabilirsiniz...
1.Label da saatleri , 2.Label da sectiginiz ulkenin sehirini goruntuleyeceksiniz.
İste kod :
Kod:
Public Class Form1 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Label1.Text = System.DateTime.Now.AddHours(-2) Label2.Text = "London" If RadioButton2.Checked Then Label1.Text = System.DateTime.Now Label2.Text = "Ankara" ElseIf RadioButton3.Checked Then Label1.Text = System.DateTime.Now.AddHours(-1) Label2.Text = "Berlin" ElseIf RadioButton4.Checked Then Label1.Text = System.DateTime.Now.AddHours(-1) Label2.Text = "Rome" ElseIf RadioButton5.Checked Then Label1.Text = System.DateTime.Now.AddHours(-1) Label2.Text = "Paris" ElseIf RadioButton6.Checked Then Label1.Text = System.DateTime.Now.AddHours(-7) Label2.Text = "New York" ElseIf RadioButton7.Checked Then Label1.Text = System.DateTime.Now.AddHours(-7) Label2.Text = "Vancouver" ElseIf RadioButton8.Checked Then Label1.Text = System.DateTime.Now.AddHours(+1) Label2.Text = "Moscow" ElseIf RadioButton9.Checked Then Label1.Text = System.DateTime.Now.AddHours(+7) Label2.Text = "Tokyo" ElseIf RadioButton10.Checked Then Label1.Text = System.DateTime.Now.AddHours(+1) Label2.Text = "Bagdat" ElseIf RadioButton11.Checked Then Label1.Text = System.DateTime.Now.AddHours(+7) Label2.Text = "Sydney" ElseIf RadioButton12.Checked Then Label1.Text = System.DateTime.Now.AddHours(+6) Label2.Text = "Pekin" ElseIf RadioButton13.Checked Then Label1.Text = System.DateTime.Now.AddHours(-8) Label2.Text = "Mexico" End If End Sub
RadioButtonlar sirasiyla soyledir:
G.M.T, Turkiye, Almanya, İtalya, Fransa, A.B.D, Kanada, Rusya, Japonya, Irak, Avustralya, Cin, Meksika

Program VB 2005 ile uyumludur.İsteyenler diger versiyonlara uyarlayabilirler...
__________________