ur

Du mener vel en timer?
Der er ikke nogen ure i VB, men du kan lave en timer der opdatere hvert sekund (Interval 1000) og herefter smide Label1.caption = time i timer koden. Dette kræver naturligvis at du har en label kaldet Label1.

Jimmi

Hvad vil du have?, hvis det \"bare\" er et ur med opdatering hvert sekund, kan du oprette en timer der kalder en metode der opdaterer en label...

har i en kode til en timer i en label

Det her er for Basic, det må du selv lure!
Drag and Drop en timer i din form!
Hvis du spørger hvad en form er, så kan jeg kun sige, du har ikke engang brugt 20 minutter på at kigge dig omkring i VB!

Det er altså ikke svært:

Private Sub Timer1_Timer()
  labur.Caption = Format(Now, \"hh:mm\")
End Sub

Timeren skal så have sat sin option til f. eks. 10000 ms  - millisekunder

Eller:  labur.Caption = Format(Now, \"hh:mm:ss\")

sæt så 1000 ms

M.v.h.  Jørn

Dette er den nemmeste måde at gøre det på!!

Private Sub Timer1_Timer()
  Label1.Caption = Time
End Sub

Selvfølgelig skal Timer1.Interval være 1000 eller mindre!.

rasmuss >> din ide opdatere ikke ....

bsp >> jørn\' virker

jørn >> taktak ;O) den er nyttig at have

Analogt ur.

Jeg har også engang hygget mig med et analogt ur med to visere.  Der skal bruges en shape og lidt cosínus og sinus.  Hvis nogen er interesseret kan jeg finde koden frem.

M.v.h.  Jørn

joern >> jow tak :O)) jeg er interesseret

Programmet er et VB3 program.

Der er en checkbox \"chktid\" der afgør om uret skal vise maskinens tid eller den indstilles med et scrollpanel.  (Blanket til dagseddel for SID-arbejder).  Scrollpanelet har max 720 og min 0, smallchange 1 og largechange 60 (1 time).
Der er en shape med formen \"cirkle\" med centrum samme sted som de to lines \"stor\" og \"lille\" (viserne), de har hver sin farve og tykkelse.  Deres ene koordinat er selvfølgelig shapen\'s center.  Endelig er der en timer, dennes kode vises til sidst.  Timeren styrer ikke viserne direkte, men derimod scrollpanelet.  Vil du ikke kunne flytte viserne manuelt, skal timerens kode selvfølgelig indeholde cos/sin-delen.

Sub scrtid_Change ()
  grad2 = 90 - (scrtid.Value / 2)
 
  If scrtid.Value > 60 Then
      grad = 90 - (6 * (scrtid.Value - (60 * Int(scrtid.Value / 12))))
    Else
      grad = 90 - (6 * scrtid.Value)
  End If
 
  stor.X2 = 4440 + 360 * Cos(grad * (pi / 180))
  stor.Y2 = 480 - 360 * Sin(grad * (pi / 180))
  lille.X2 = 4440 + 240 * Cos(grad2 * (pi / 180))
  lille.Y2 = 480 - 240 * Sin(grad2 * (pi / 180))
End Sub


Sub Timer1_Timer ()
  If chktid.Value = False Then Exit Sub
  min = Format(Now, \"n\")
  tim = Format(Now, \"h\")
 
  If tim >= 12 Then
    t1 = tim - 12
    scrtid.Value = t1 * 60 + min
    chkpm.Value = True
  End If
   
  If tim < 12 Then
    t1 = tim
    scrtid.Value = t1 * 60 + min
    chkpm.Value = False
  End If
End Sub

Der kan mangle noget jeg har overset.  Koden er jo klippet ud af en sammenhæng.  Det er klart at variable skal \"dimmes\".

M.v.h.  Jørn