VB 8 Ufak Sorun

ffuurrkkaann10.07.20111 cevap1.443 görüntüleme

2011'den beri17 mesaj

#1
10.07.2011 17:37

merhaba arkadaşlar programı öğrenmek için bilgisayarı kapatma programı yapmaya çalşışıyorum yalnzı şöyle bir sorunum var.

timeofday.hour ve timeofday.minute yi labele aktarıyorum labellede girilen saat aynı olduğu zaman bilgisayarı kapatıcağım herşey sorunsuz çalışıyor ama saat 07:05 olduğunu düşünelim labele saat 7 : 5 olarak gözüküyor e haliyle labeldeki zamanla yazılan zaman aynı olmuyor bunun için şöyle bir kod denedim çalışıyor ama yine sorunlu saat 07:50 olursa çalışıyor ama saat 07:05 olursa bunu labele 07:5 olarak aktarıyor buyrun kod

   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick        
        a = TimeOfDay.Hour
        b = TimeOfDay.Minute
        c = ":"
        If a <= 9 And a >= 0 And b <= 9 And b >= 0 Then
            Label1.Text = ("0" + a + c + "0" + b)
        Else
            If b <= 9 And b >= 0 Then
                Label1.Text = (a + c + "0" + b)


            Else
                If a <= 9 And a >= 0 Then
                    Label1.Text = ("0" + a + c + b)
                End If
                Label1.Text = (a + c + b)
            End If


        End If
    End Sub

yardımlarınızı bekliyorum:yes:

Cevaplar

algea

2011'den beri505 mesaj

#2
15.07.2011 13:01

Aşağıdaki code'u ekleyerek başarabilirsin
örnek:
n =0...99
Dim retval as String =GeNNumber(n,2)

Public Function GetNNumber(ByVal n As Long, ByVal maxrange As Integer) As String
        Dim retval As String = ""
        retval = StrDup(maxrange - Len(Trim(Str(n))), "0") + Trim(Str(n))
        Return retval
    End Function

Sevgiler

Cevabını yaz

Cevap yazmak için giriş yap ya da üye ol. Eski forum kullanıcı adın ve parolanla girebilirsin.