Merhaba dostlar, her yerde deli gibi aradım ama istediğimi bir türlü bulamadım
o yüzden bulamayan olursa diye hepinizle paylaşmak istedim.
Malum türkçe kaynak çok az bize gerekenler
sadece 1 Adet Button, 1 Adet Timer, 1 Adet Textbox
Kod:
Dim ms As Integer = 0
Dim sn As Integer = 0
Dim dk As Integer = 0
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If MS = 100 Then 'sorun yaşarsan bunu 65 yada 60 yap
MS = 0
sn += 1
End If
If sn = 60 Then
sn = 0
dk += 1
End If
Dim deger As String = ""
If dk < 10 Then
deger = deger & "0" & dk.ToString() & "."
Else
deger = deger & dk.ToString() & "."
End If
If sn < 10 Then
deger = deger & "0" & sn.ToString() & "."
Else
deger = deger & sn.ToString() & "."
End If
deger = deger & MS.ToString()
TextBox1.Text = deger
MS += 1
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Timer1.Start()
End Sub
Moderatör tarafında düzenlendi:
