Noen som har kode til å beregne soloppgang og...

[Hondaen]

Ønsker et eksempel på hvordan man beregner soloppgang og solnedgang. Gjerne for måne også..

 

Har lett endel på nettet men finner ikke et brukenes eksempel :-|

 

mvh

[aadnk]

Vel, jeg benyttet engang en class-module som kunne gjøre akkurat dette i programmet YourTime, men jeg er nokså usikker på om den gav riktige resultater.

 

Du kan laste ned modulen her..

 

Feilaktig utdata eller ei, således initialiserer man modulen:

 

Sun.Latitude =  59.22 ' Breddegrader
Sun.Longitude =  11.00 ' Lengdegrader
Sun.Sommertid = True ' Sommertid?
Sun.TimeZone = 1 

' Bruk nåværende dato
Sun.cCurrentDate = Now

' Kalkuler soloppgang og solnedgang
Sun.Calculate

 

Deretter kan man få tidspunktene som følger:

 

MsgBox "Solen går opp kl. " & Sun.SunRise & " og ned kl. " & Sun.SunSet, vbInformation, "Soloppgang og solnedgang"

 

EDIT: Linket til feil modul.

Endret 13. mars 2005 av aadnk

[fenris1979]

du kjenne vel ingen styrmenn eller kapteiner som kan hjelpe deg da ?

[endrebjo]

du kjenne vel ingen styrmenn eller kapteiner som kan hjelpe deg da ?

Er vel mer flo og fjære de kan hjelpe med.

[fenris1979]

endrebjorsvik89 Skrevet 06/03/2005 : 00:27

 

 

 

Er vel mer flo og fjære de kan hjelpe med. 

nei de skal jo oså kunne beregne sol oppgang og nedgang dette vet eg fordi at eg jobber på båt selv

[Hondaen]

Vel, jeg benyttet engang en class-module som kunne gjøre akkurat dette i programmet YourTime, men jeg er nokså usikker på om den gav riktige resultater.

 

Du kan laste ned modulen her..

 

Feilaktig utdata eller ei, således initialiserer man modulen:

 

Sun.Latitude =  59.22 ' Breddegrader
Sun.Longitude =  11.00 ' Lengdegrader
Sun.Sommertid = True ' Sommertid?
Sun.TimeZone = 1 

' Bruk nåværende dato
Sun.cCurrentDate = Now

' Kalkuler soloppgang og solnedgang
Sun.Calculate

 

Deretter kan man få tidspunktene som følger:

 

MsgBox "Solen går opp kl. " & Sun.SunRise & " og ned kl. " & Sun.SunSet, vbInformation, "Soloppgang og solnedgang"

Heisann!

 

Dette så interessant ut!

 

Får dessverre ikke koden din til å fungere. Har du prøvd denne her selv ?

 

Takker for hjelp :-)

 

mvh

[aadnk]

Beklager så meget.

 

Jeg glemte rent at class-modulen jeg linket til ikke kan eksekveres utenfor Your Time-prosjektet mitt, idet det krever tilstedeværelsen av visse funksjoner og moduler for å fungere. Det er denne versjonen her du skal bruke:

 

http://home.lyse.net/aadnk/Filer/clsSun.cls

[Hondaen]

Hmm... får opp feilmelding selv med den nye class filen: "Object required" på

 

Sun.Latitude = 59.22 ' Breddegrader

 

?

 

[Jonas]

Jeg prøve det og fikk samme error.

 

Den kommer ikke på grund av koden, men at ingen av oss husket å deklarere Sun

 

Dim Sun As New clsSun

[aadnk]

Heh. Jeg trodde det var innlysende ...

 

Nei, jeg burde kan hende være litt mer nøyaktig i mine besvarelser, men feiltakelsene blir i hvert fall oppklart.

[Hondaen]

Jah...............der funket det, eller sånn delvis. "Solen går opp kl 00.00.00 og ned klokken 00.00.00" ................?

 

 

Skal ikke være enkelt

[aadnk]

For meg høres dette ut som om du ikke initialiserer modulen før du henter informasjonen om tidspunkter ved solnedgang og soloppgang. Kjører du koden noenlunde slik:

 

   Dim Sun As New clsSun
   
   Sun.Latitude = 59.22  ' Breddegrader
   Sun.Longitude = 11#    ' Lengdegrader
   Sun.Sommertid = True ' Sommertid?
   Sun.TimeZone = 1
   
   ' Bruk nåværende dato
   Sun.cCurrentDate = Now
   
   ' Kalkuler soloppgang og solnedgang
   Sun.Calculate
   
   ' Returner tidspunkt for soloppgang og solnedgang
   MsgBox "Solen går opp kl. " & Sun.SunRise & " og ned kl. " & Sun.SunSet, vbInformation, "Soloppgang og solnedgang"