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 17:38 Video ikoner Af Malm i Windows
I går 17:27 Video ikoner Af logbuilders i Windows
16/0110:29 Negativ billeder på samsung Af ALICE i Småopgaver
15/0115:45 HJÆLP - Lopslag, Indeks? Hvad gør jeg! Af Eva i Excel
14/0119:38 Webmail yousee Af nu_igen i E-mail programmer
White papers
Flere white papers »