Visual basic Klok sneller laten lopen.

[Devis]

Hallo,

Mijn vraag was hoe of ik de tijd ook sneller kan laten lopen op een klok. Hij moet zegmaar 3x zo snel als een normale klok.

Weet iemand hier iets op?

Grtz

 

[JoZ1]

Even een Timer aanmaken, interval op 333 zetten.

Dan deze code gebruiken:

[CPP]Private Uren As Integer = 0
Private Minuten As Integer = 0
Private Seconden As Integer = 0
Private Tijd As String

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
If Seconden < 59 Then
Seconden += 1
Else : Seconden = 0
If Minuten < 59 Then
Minuten += 1
Else : If Uren < 23 Then
Uren += 1
Minuten = 0
Else : Uren = 0
Minuten = 0
End If
End If
End If
Dim strUren As String = Uren.ToString
Dim strMinuten As String = Minuten.ToString
Dim strSeconden As String = Seconden.ToString

If Uren < 10 Then strUren = "0" & Uren.ToString
If Minuten < 10 Then strMinuten = "0" & Minuten.ToString
If strSeconden < 10 Then strSeconden = "0" & Seconden.ToString

Tijd = strUren & ":" & strMinuten & ":" & strSeconden
End Sub[/CPP]

 

[Devis]

Ik gebruik nu dit:

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
Label1.Text = TimeOfDay
End Sub



Weet u dan hoe ik dit moet vervangen daar in ?

 

[JoZ1]

Zo heel veel hoef je niet aan te passen:

[CPP]
Private Uren As Integer = 0
Private Minuten As Integer = 0
Private Seconden As Integer = 0
Private Tijd As String

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 333 ''// Is 1/3 van een seconde
Timer1.Start()
End Sub

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
If Seconden < 59 Then
Seconden += 1
Else : Seconden = 0
If Minuten < 59 Then
Minuten += 1
Else : If Uren < 23 Then
Uren += 1
Minuten = 0
Else : Uren = 0
Minuten = 0
End If
End If
End If

Dim strUren As String = Uren.ToString
Dim strMinuten As String = Minuten.ToString
Dim strSeconden As String = Seconden.ToString

If Uren < 10 Then strUren = "0" & Uren.ToString
If Minuten < 10 Then strMinuten = "0" & Minuten.ToString
If strSeconden < 10 Then strSeconden = "0" & Seconden.ToString

Tijd = strUren & ":" & strMinuten & ":" & strSeconden
End Sub
[/CPP]

Waarin de string Tijd steeds veranderd.

 

[Devis]

Error

Bedankt voor de info
Maar ik heb die Code er nu ingezet, alleen krijg ik dan deze errors als ik Start Debugging klik:

Error 1 Statement is not valid in a namespace. D:\Users\Laurens\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb 1 1 WindowsApplication1
Error 2 Statement is not valid in a namespace. D:\Users\Laurens\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb 2 1 WindowsApplication1
Error 3 Statement is not valid in a namespace. D:\Users\Laurens\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb 3 1 WindowsApplication1
Error 4 Statement is not valid in a namespace. D:\Users\Laurens\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb 4 1 WindowsApplication1
Error 5 Statement is not valid in a namespace. D:\Users\Laurens\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb 6 1 WindowsApplication1
Error 6 Statement is not valid in a namespace. D:\Users\Laurens\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb 11 1 WindowsApplication1

 

[JoZ1]

Jij gebruikt Visual Studio met VB.NET ?

Heb je trouwens wel een Class aangemaakt? (Public Class Form1 etc.)

 

[Devis]

Ja ik gebruik visual studio.
Ik dacht dat daar visual basic in zat ofzo

Maar ik instraleer nu visual basic 2010, kijken of het dan lukt

 

[JoZ1]

Ik denk dat je gewoon een class vergeten bent.

Voeg helemaal aan het begin dit toe:

[cpp]Public Class Form1[/cpp]

En aan het einde:

[cpp]End Class[/cpp]

Er van uitgaande dat je Form 'Form1' heet.

 

[Devis]

Dat is al een stuk beter Heb geen errors meer.
Alleen nu heb ik weer een probleem , en dat is dat de tijd maar op 00:00 blijft staan

 

[JoZ1]

Zoals ik al zei: de string Tijd veranderd steeds.

 

[Devis]

Ik heb gewoon een label waar 00:00 instaat, die moet dan toch lopen ofniet?

Sorry ik ben nog niet bekend met VB

 

[JoZ1]

Dan onder dit: [cpp]Tijd = Uren & ":" & Minuten & ":" & Seconden[/cpp]

Dit zetten:

[cpp]Label1.Text = Tijd[/cpp]

 

[Devis]

Nu werkt het

Maar als de klok op 22:59 staat , gaat hij naar 0:59 inplaats van 23:00.

 

[JoZ1]

Oeps . Ik heb die code dan ook vrij snel geschreven.

Ik heb mijn post aangepast, de code is nu goed.

 

[Devis]

Nu gaat ie van 23:59 naar 0:59, en als die op 0:59:59 staat gaat ie wel gewoon naar 1:0:0.

 

[JoZ1]

Ik heb mijn post weer aangepast en de code getest .

 

[Devis]

Ah dat is beter
Kan ook de tijd ook zo: 00:00:00 , inplaats van 0:0:0?

Als dat niet lukt, alvast bedankt voor je hulp!

 

[JoZ1]

Code weer aangepast

 

[Devis]

Helemaal Top!


Bedankt voor je hulp

 

[JoZ1]

Graag gedaan :thumb:.

Wil je de vraag op 'Opgelost' zetten?