Søg
Avatar billede morphman Nybegynder
11. april 2003 - 00:38 Der er 2 kommentarer og
1 løsning

Alko Script

Hey there, jeg er igang med at lave en script der kan beregne ens promile, hvis personen angiver sin vægt, antal gram alko. og timer af indtagelsen. Indenstående er det jeg har lavet men den gider ikke at spyte promile  ud :(
Jeg håber i kan hjælpe mig (hurtig) og det SKAL være i VBS.
<html>
<head>
<title>Rapport 4</title>
</head>
<BODY>
<H2> Indtast din promille</H2>
Hankøn
  <Input type="radio" name=Hankon value = Hankøn id = han checked> <font face="Verdana">

Hunkøn
  <Input type="radio" name=Hankon value = Hunkøn id = hun >

<BR></BR>
<H4>Angiv din vægt i kg: </H4>
<INPUT type = "text" name = txtvaegt value ="" size="10">

<BR> </BR>
<H4> Hvor mange gram alkohol har du drukket:</H4>
<Input type = "text" name = "vaeskebrok"  value = "" size = "10">

<BR></BR>
<H4> Drukket over?: timer </H4>
<Input type = "text" name = "txtDrikketid" value = "" size="20">

<BR><BR>

<H4> Altså, er din promille så:</H4>

<input type = "button" name = "knap" value = "Klik">

<Input type = "label" name = "lblpromille" value = "" Size = "10">


<script Language = "VBScript">

Private Sub Beregn()
Dim G ,vaeskebrok
Dim vaegt, promille, drkketid

Const forbraendinghast = 0.1
//g alkohol pr legemes vægt

If han.checked Then
    vaeskebrok = 0.68
Else
    vaeskebrok = 0.55
End If

vaegt = txtvaegt.value
drikketid = txtDrikketid.value

If vaegt > 0 Then
    g = g - forbraendinghast * vaegt * Drikketid / 2

    If g < 0 Then G = 0
    promille = G / (vaegt * vaeskebrok)
    promille = Formalnumber  (promille,2)
    lblPromille.value = promille
    End If
    End Sub

Sub knap_OnClick
Beregn
End  Sub

</script>
</body>
</html>
Avatar billede grunken Nybegynder
11. april 2003 - 01:40 #1
ved bestemt ikke om udregningen er rigtig, men nu gør den da noget :)

<html>
<head>
<title>Rapport 4</title>
</head>
<BODY>
<H2> Indtast din promille</H2>
Hankøn
  <Input type="radio" name=Hankon value = Hankøn id = han checked> <font face="Verdana">

Hunkøn
  <Input type="radio" name=Hankon value = Hunkøn id = hun >

<BR></BR>
<H4>Angiv din vægt i kg: </H4>
<INPUT type = "text" name = txtvaegt value ="" size="10">

<BR> </BR>
<H4> Hvor mange gram alkohol har du drukket:</H4>
<Input type = "text" name = "gram"  value = "" size = "10">

<BR></BR>
<H4> Drukket over?: timer </H4>
<Input type = "text" name = "txtDrikketid" value = "" size="20">

<BR><BR>

<H4> Altså, er din promille så:</H4>

<input type = "button" name = "knap" value = "Klik">

<Input type = "label" name = "lblpromille" value = "" Size = "10">


<script Language = "VBScript">

Private Sub Beregn()
Dim G ,vaeskebrok
Dim vaegt, promille, drkketid

Const forbraendinghast = 0.1
//g alkohol pr legemes vægt

If han.checked Then
    vaeskebrok = 0.68
Else
    vaeskebrok = 0.55
End If


g = gram.value
vaegt = txtvaegt.value
drikketid = txtDrikketid.value

If vaegt > 0 Then
    g = g - forbraendinghast * vaegt * Drikketid / 2

    If g < 0 Then G = 0
    promille = G / (vaegt * vaeskebrok)
    promille = Formatnumber  (promille,2)
    lblPromille.value = promille
    End If
    End Sub

Sub knap_OnClick
Beregn
End  Sub

</script>
</body>
</html>

-grunken
Avatar billede grunken Nybegynder
11. april 2003 - 01:41 #2
btw, den kunne altså osse skrive før, men du havde bare stavet formatnuber med l :/
Avatar billede morphman Nybegynder
26. september 2003 - 16:07 #3
- LUKKER -
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra VBscript kategorien

Titel Indlæg Oprettet Seneste aktivitet
Ændre navn på folder Af bsn i VBscript 12 07/07/202312:45 09/07/202307:04
Outlook makro Af Webnoob i VBscript 6 09/02/202313:32 16/02/202315:51
Sti / Filname med mellemrum ??? Af ksor i VBscript 10 07/10/202200:43 07/10/202215:40
GetLastRow - Google spreadsheet Af rickiegrayholm i VBscript 2 22/04/202213:23 22/04/202214:55
Batch fil Af BDV i VBscript 1 12/01/202210:00 12/01/202210:05
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 20:13 PIHOLE Af dcedata1977 i Linux
13/0312:06 SDKORT / SSD Af dcedata1977 i Linux
13/0309:12 Kan min telefon høre en samtale og lave annonce tilbud efter det Af Niels Ebbe Schmidt Huus i Mobiltelefoner
11/0307:12 Fastnettelefon Af nu_igen i Andet hardware
11/0306:03 Tilføje info til filegenskaber Af Malm i Windows
White papers
Flere white papers »