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.
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!
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.
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
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
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.