---

Hej NG
Mit tidligere spørgsmål var forkert, og derfor prøver jeg igen.
Mit Analogt Ur der har jeg sekundtviser og minutviser kører fint med
følgende kode:
Dette er sekundtviseren:
Sub Stegnviser(nu As Integer, max As Integer)
ForeColor = "640000"
Line (0, 0)-(-Cos(max / 60 * 6 * (nu + 15) / 180 * pi), Sin(max / 60 * 6
* (nu + 15) / 180 * pi))

End Sub

Jeg sætter tiden med:
s = Second(Now)
Stegnviser s, 60

Jeg kan ikke få timeviseren til at køre rigtigt, er der en der har en god
ide.
På forhånd tak.
m.v.h.
ole

---

"Ole J. Hansen" <ojh@hansen.mail.dk> skrev i en meddelelse
news:3c5fb44e$0$22397$edfadb0f@dspool01.news.tele.dk...
> Hej NG
> Mit tidligere spørgsmål var forkert, og derfor prøver jeg
igen.
> Mit Analogt Ur der har jeg sekundtviser og minutviser
kører fint med
> følgende kode:
> Dette er sekundtviseren:
> Sub Stegnviser(nu As Integer, max As Integer)
> ForeColor = "640000"
> Line (0, 0)-(-Cos(max / 60 * 6 * (nu + 15) / 180 *
pi), Sin(max / 60 * 6
> * (nu + 15) / 180 * pi))
>
> End Sub
>
> Jeg sætter tiden med:
> s = Second(Now)
> Stegnviser s, 60
>
> Jeg kan ikke få timeviseren til at køre rigtigt, er der en
der har en god
> ide.

Uden at teste:

h = Hour(Now()) Mod 12
Stegnviser h, 12

Dette burde placere timevisere præcis på et af de 12
klokkeslet. Hvis klokken er 17:59, så er timeviseren på 5.
Hvis du vil have den til at være tættest på 6, så må du selv
klare resten


--

/\ preben nielsen
\/\ prel@post.tele.dk


> På forhånd tak.
> m.v.h.
> ole
>
>

---

Ole J. Hansen skrev:
> Mit tidligere spørgsmål var forkert, og derfor prøver jeg igen.
> Mit Analogt Ur der har jeg sekundtviser og minutviser kører fint med
> følgende kode:
> Dette er sekundtviseren:
> Sub Stegnviser(nu As Integer, max As Integer)
> ForeColor = "640000"

Hvad er idéen med at forsøge at tildele en streng til ForeColor?
ForeColor er da et tal!

> Line (0, 0)-(-Cos(max / 60 * 6 * (nu + 15) / 180 * pi), Sin(max
/ 60 * 6
> * (nu + 15) / 180 * pi))

Dette udtryk kan gøres en hel del enklere, f.eks:

Pos = 2 * Nu / Max * PI
Line (0, 0)-(Sin(Pos), Cos(Pos))

....
> Jeg kan ikke få timeviseren til at køre rigtigt, er der en der har
en god ide.

Du kan regne viserne position "med decimaler" ud på følgende måde:

Dim dDatoTid As Date
Dim dLigeNu As Double
Dim dNySek As Double
Dim dNyMin As Double
Dim dNyTim As Double

dDatoTid = Now
dLigeNu = CDbl(dDatoTid) - Int(CDbl(dDatoTid))
dNyTim = dLigeNu * 24
dNyMin = (dNyTim - Int(dNyTim)) * 60
dNySek = Second(dDatoTid)

Hvor resultatet altså er dNyTim, dNyMin og dNySek.

Med denne udregning, vil den nøjagtige placering af time- og
minut-viserne blive udregnet.

Bemærk at da opløsningen i funktionen Now alligevel kun er 1 (et)
sekund, kan man ligeså godt bruge Second(dDatoTid) frem for at regne
sig frem til resultatet.

For at kunne udnytte resultatet, kræver det naturligvis at du ændrer
din visertegningsprocedure, så den vi modtage kommatal i stedet for
heltal. Den KUNNE f.eks. se således ud:

Sub Viser(ByVal dNu As Double, ByVal dMax As Double, ByVal dLængde As
Double, ByVal iBredde As Integer, ByVal lFarve As Long)
Dim dPos As Double
dPos = 2 * dNu / dMax * PI
pbUr.DrawWidth = iBredde
pbUr.Line (0, 0)-(dLængde * Sin(dPos), dLængde * Cos(dPos)), lFarve
End Sub

Her er tilmed mulighed for at angive viserens farve, tykkelse og
længde.
pbUr er den picturebox, som jeg har tegnet uret i. Ændr det til hvad
du måtte ønske.

-------
Tomas