/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Tid og hastighed
Fra : Jens


Dato : 07-08-02 22:50


Jeg er begyndt og løbe en tur på 7100 meter 3 gange om ugen

Jeg ville gerne lave sådan et lille program som regner hvor mange km i timen
jeg løber

I dag løb jeg turen på 43 min.

Hvordan laver jeg en lille funktion i vb6 som regner ud hvor mange km i
timen jeg løb


/ Jens



 
 
Mads Chr. Olesen (08-08-2002)
Kommentar
Fra : Mads Chr. Olesen


Dato : 08-08-02 07:10

øøhhh... hvad med:

hastighed = distance / tid

hvis du har din distance i meter og din tid i minutter skal du for at få det
i km/time gange med 0,06



"Jens" <til@infojens.dk> skrev i en meddelelse
news:3d5195eb$0$72754$edfadb0f@dspool01.news.tele.dk...
>
> Jeg er begyndt og løbe en tur på 7100 meter 3 gange om ugen
>
> Jeg ville gerne lave sådan et lille program som regner hvor mange km i
timen
> jeg løber
>
> I dag løb jeg turen på 43 min.
>
> Hvordan laver jeg en lille funktion i vb6 som regner ud hvor mange km i
> timen jeg løb
>
>
> / Jens
>
>



Tim Sørensen (08-08-2002)
Kommentar
Fra : Tim Sørensen


Dato : 08-08-02 13:51


"Mads Chr. Olesen" <MadsChrO@Yahoo.com> wrote in message
news:ait1rq$79a$1@sunsite.dk...
> øøhhh... hvad med:
> hastighed = distance / tid
> hvis du har din distance i meter og din tid i minutter skal du for at få
det
> i km/time gange med 0,06

Kald mig bare Mads, men det forstod jeg sikke :-/

--
Mvh.... Tim Sørensen
http://www.dondata.dk/



Lars Hoffmann (08-08-2002)
Kommentar
Fra : Lars Hoffmann


Dato : 08-08-02 13:56


"Tim Sørensen" <dondata@vip.cybercity.dk> escribió

> Kald mig bare Mads, men det forstod jeg sikke :-/

Eksempel:

Jens løber 7100 meter på 43 minutter (han er da i god form ham jens)

Hastighed= 7100meter/43minutter =
165 meter/minut =
165/1000 Km/minut =
0,165 Km/minut =
0,165*60 km/time =
9,9 km/timen

(der er afrundet lidt her og der)

Med venlig hilsen
Lars Hoffmann



Jesper \(OZ5PC\) (08-08-2002)
Kommentar
Fra : Jesper \(OZ5PC\)


Dato : 08-08-02 15:54

165 meter/minut =
165/1000 Km/minut =
0,165 Km/minut =
0,165*60 km/time =

Og disse 4 erstattes af * 0.06

"Lars Hoffmann" <lars@intercambiodvd.com> skrev i en meddelelse
news:aitprs$t4u$1@newsreader.mailgate.org...
>
> "Tim Sørensen" <dondata@vip.cybercity.dk> escribió
>
> > Kald mig bare Mads, men det forstod jeg sikke :-/
>
> Eksempel:
>
> Jens løber 7100 meter på 43 minutter (han er da i god form ham jens)
>
> Hastighed= 7100meter/43minutter =
> 165 meter/minut =
> 165/1000 Km/minut =
> 0,165 Km/minut =
> 0,165*60 km/time =
> 9,9 km/timen
>
> (der er afrundet lidt her og der)
>
> Med venlig hilsen
> Lars Hoffmann
>
>



Jens (08-08-2002)
Kommentar
Fra : Jens


Dato : 08-08-02 22:18

Jeg har kommet til en løsning i Excel...

hvis nogle skulle være nysgerrig blev min kode sådan her

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Dim s As String
Dim temp As Single

s = Replace(Target.Address, "$", "")

If Left(s, 1) = "A" Then
s = Right(s, Len(s) - 1)
If ActiveSheet.Range("a" & s).Value = "" Then Exit Sub
temp = 7100 / ActiveSheet.Range("a" & s).Value * 60
temp = temp / 1000
ActiveSheet.Range("b" & s).Value = Format(temp, "##,##0.00") & " km/t"
End If

End Sub

Men her er der altså kun tale om minutterne


/ Jens

"Lars Hoffmann" <lars@intercambiodvd.com> skrev i en meddelelse
news:aitprs$t4u$1@newsreader.mailgate.org...
>
> "Tim Sørensen" <dondata@vip.cybercity.dk> escribió
>
> > Kald mig bare Mads, men det forstod jeg sikke :-/
>
> Eksempel:
>
> Jens løber 7100 meter på 43 minutter (han er da i god form ham jens)
>
> Hastighed= 7100meter/43minutter =
> 165 meter/minut =
> 165/1000 Km/minut =
> 0,165 Km/minut =
> 0,165*60 km/time =
> 9,9 km/timen
>
> (der er afrundet lidt her og der)
>
> Med venlig hilsen
> Lars Hoffmann
>
>



Tomas Christiansen (09-08-2002)
Kommentar
Fra : Tomas Christiansen


Dato : 09-08-02 23:17

Jens skrev:
> Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
....
> End Sub
>
> Men her er der altså kun tale om minutterne

Ja, jeg ved godt at det ikke har meget med VB at gøre, men hvorfor
bruger du ikke blot en formel direkte i Excel?

Eksempelvis kan denne formel vise hastigheden som kilometer pr. time,
hvis A1 indholder afstanden i meter og B1 indeholder tiden angivet på
formen HH:MM:SS (kræver at man først sætter cellens format til
"Klokkeslet":

=A1/1000/(TIME(B1)+MINUT(B1)/60+SEKUND(B1)/3600)

Bemærk: Undskyld funktionsnavnene, men jeg havde kun en dansk Excel
lige ved hånden.

-------
Tomas


test test (21-08-2002)
Kommentar
Fra : test test


Dato : 21-08-02 14:41

> Eksempel:
>
> Jens løber 7100 meter på 43 minutter (han er da i god form ham jens)

Mener du seriøst at man er i god form, hvis man løber 7,1 km på 43 minutter?




Tomas Christiansen (21-08-2002)
Kommentar
Fra : Tomas Christiansen


Dato : 21-08-02 22:01

test test skrev:
> Mener du seriøst at man er i god form, hvis man løber 7,1 km på 43
minutter?

Mener du seriøt at du hedder "test test"?

-------
Tomas


Henrik (03-09-2002)
Kommentar
Fra : Henrik


Dato : 03-09-02 10:10

Juhuuu - jeg har fået ændret mit navn!



Tomas Christiansen (03-09-2002)
Kommentar
Fra : Tomas Christiansen


Dato : 03-09-02 19:58

Henrik skrev:
> Juhuuu - jeg har fået ændret mit navn!

Det ka' vi li' at se!

-------
Tomas


Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste