Søg
Avatar billede martin181 Nybegynder
23. august 2000 - 11:52 Der er 18 kommentarer og
1 løsning

Udregning og sammenlægninger...VBScript

Hejsa!

Ja, jeg ved egentlig slet ikke om det er her, at jeg skal søge oplysninger, om dette men jeg prøver nu alligevel:

Jeg skal oprette en side, hvor folk skal indtaste nogle værdier i nogle felter (indtil videre har jeg brugt alm. inputfelter - HTML-form) når der er blevet indtastet noget i disse felter, kan man så ikke få lagt dette sammen og vist resultatet? Når resultatet er kendt, skal dette bruges videre til at regne en samlet pris ud.

Her er min kode:

<FORM METHOD=\"POST\" NAME=\"Minitilmelding\">
<TABLE BORDER=\"0\">
<!-- Alle indtastningerne i de enkelte input bokse, skal gemmes i nogle variabler, der senere skal bruges ved udregning af samlet pris... -->
Herunder bedes I indtaste hvilke rækker i ønsker at tilmelde jeres hold i.
<BR>
Desuden vil vi gerne vide hvor mange af disse hold, der spiller i A og B rækken til dagligt.
<BR>
<TABLE BORDER=\"0\">
<TR>
    <TD>Miniputpiger, 7-mands</TD>
    <TD>........</TD>
    <TD>årg. 91 og yngre</TD>
    <TD>Række A  </TD>
    <TD><INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"Miniputpiger7AntalA\"></TD>
    <TD>Række B</TD>
    <TD><INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"Miniputpiger7AntalB\"></TD>
</TR>
<TR>
    <TD>Lilleputpiger, 7-mands</TD>
    <TD>........</TD>
    <TD>årg. 89/90</TD>
    <TD>Række A </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"Lilleputpiger7AntalA\"></TD>
<TD>Række B </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"Lilleputpiger7AntalB\"></TD>
</TR>
<TR>
    <TD>Miniputdrenge, 7-mands</TD>
    <TD>........</TD>
    <TD>årg. 91 og yngre</TD>
    <TD>Række A </TD>
    <TD><INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"miniputdrenge7AntalA\"></TD>
    <TD>Række B </TD>
    <TD><INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"miniputdrenge7AntalB\"></TD>
</TR>
<TR>
    <TD>Micro, 7-mands</TD>
    <TD>........</TD>
    <TD>årg. 93A, 93B, 94A, 94B</TD>
    <TD>Række A </TD>
    <TD><INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"Mikro7AntalA\"></TD>
    <TD>Række B </TD>
    <TD><INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"Mikro7AntalB\"></TD>
</TR>
<TR>
    <TD>Micro, 5-mands</TD>
    <TD>........</TD>
    <TD>årg. 95/96A - 95/96B</TD>
    <TD>Række A </TD>
    <TD><INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"Mikro5A\"></TD>
    <TD>Række B </TD>
    <TD><INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"Mikro5B\"></TD>
</TR>
</TABLE>
<BR>
I alt \"mellemresultat\" Hold á 375 kr. = \"udregning\"
<BR>
<INPUT TYPE=\"submit\" VALUE=\"Tilmeld\" NAME=\"Tilmeld\"> <INPUT TYPE=\"reset\" VALUE=\"Rens felter\" NAME=\"Reset\">
</FORM>
Avatar billede sjensen Nybegynder
23. august 2000 - 11:59 #1
brug:

samlet = Mikro5A + Mikro5B o.s.v. og så

I alt \"mellemresultat\" Hold á 375 kr. = samlet
Avatar billede martin181 Nybegynder
23. august 2000 - 12:01 #2
Nu ligger det sådan at jeg er rimelig ny mht. VBScript - var dt sådan at du ville lave dette for ekstra kredits?
Avatar billede sjensen Nybegynder
23. august 2000 - 12:09 #3
Martin181 jeg ville gerne, men jeg er ikke så skarp til den del. Prøv at se om ikke der er andre der melder sig, og hvis ikke så kunne jeg måske nok, men ikke før om et par dage. Jeg har en kollega der ved noget mere om den del end jeg og når han kommer tilbage kan han evt. lige kigge på det.
Avatar billede martin181 Nybegynder
23. august 2000 - 12:10 #4
ok - men tak for det svar jeg har fået, jeg skal nok give dig kredit!
Avatar billede helle_fred Nybegynder
23. august 2000 - 14:21 #5
Hvorfor laver du det ikke i JavaScript i stedet for? Så kan siden også køre med Netscape.
Avatar billede martin181 Nybegynder
24. august 2000 - 08:09 #6
Det kan jeg da også godt - hvordan?
Avatar billede helle_fred Nybegynder
24. august 2000 - 09:29 #7
<script>
function beregn(x){
    var i=0
    var res=0;
    while(i<x.elements.length-4){
        res=res+parseFloat(x.elements[i].value)
        i=i+1}
    x.mellem.value=res
    x.res.value=x.mellem.value*375
}
</script>



<FORM METHOD=\"POST\" NAME=\"f\">
<TABLE BORDER=\"0\">
<!-- Alle indtastningerne i de enkelte input bokse, skal gemmes i nogle variabler, der senere skal bruges ved udregning af samlet pris... -->
Herunder bedes I indtaste hvilke rækker i ønsker at tilmelde jeres hold i.
<BR>
Desuden vil vi gerne vide hvor mange af disse hold, der spiller i A og B rækken til dagligt.
<BR>
<TABLE BORDER=\"0\">
<TR>
<TD>Miniputpiger, 7-mands</TD>
<TD>........</TD>
<TD>årg. 91 og yngre</TD>
<TD>Række A  </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" value=\"0\" MAXLENGTH=\"2\" NAME=\"Miniputpiger7AntalA\" onChange=\"beregn(f)\"></TD>
<TD>Række B</TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" value=\"0\" MAXLENGTH=\"2\" NAME=\"Miniputpiger7AntalB\" onChange=\"beregn(f)\"></TD>
</TR>
<TR>
<TD>Lilleputpiger, 7-mands</TD>
<TD>........</TD>
<TD>årg. 89/90</TD>
<TD>Række A </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" value=\"0\" MAXLENGTH=\"2\" NAME=\"Lilleputpiger7AntalA\" onChange=\"beregn(f)\"></TD>
<TD>Række B </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" value=\"0\" MAXLENGTH=\"2\" NAME=\"Lilleputpiger7AntalB\" onChange=\"beregn(f)\"></TD>
</TR>
<TR>
<TD>Miniputdrenge, 7-mands</TD>
<TD>........</TD>
<TD>årg. 91 og yngre</TD>
<TD>Række A </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" value=\"0\" MAXLENGTH=\"2\" NAME=\"miniputdrenge7AntalA\" onChange=\"beregn(f)\"></TD>
<TD>Række B </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" value=\"0\" MAXLENGTH=\"2\" NAME=\"miniputdrenge7AntalB\" onChange=\"beregn(f)\"></TD>
</TR>
<TR>
<TD>Micro, 7-mands</TD>
<TD>........</TD>
<TD>årg. 93A, 93B, 94A, 94B</TD>
<TD>Række A </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" value=\"0\" MAXLENGTH=\"2\" NAME=\"Mikro7AntalA\" onChange=\"beregn(f)\"></TD>
<TD>Række B </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" value=\"0\" MAXLENGTH=\"2\" NAME=\"Mikro7AntalB\" onChange=\"beregn(f)\"></TD>
</TR>
<TR>
<TD>Micro, 5-mands</TD>
<TD>........</TD>
<TD>årg. 95/96A - 95/96B</TD>
<TD>Række A </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" value=\"0\" MAXLENGTH=\"2\" NAME=\"Mikro5A\"></TD>
<TD>Række B </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" value=\"0\" MAXLENGTH=\"2\" NAME=\"Mikro5B\"></TD>
</TR>
</TABLE>
<BR>

I alt \"mellemresultat\" Hold á 375 kr. <INPUT TYPE=\"text\" SIZE=\"10\" NAME=\"mellem\" value=0> I alt <INPUT TYPE=\"text\" SIZE=\"10\" NAME=\"res\">
<BR>
<INPUT TYPE=\"submit\" VALUE=\"Tilmeld\" NAME=\"Tilmeld\"> <INPUT TYPE=\"reset\" VALUE=\"Rens felter\" NAME=\"Reset\">
</FORM>
Avatar billede martin181 Nybegynder
24. august 2000 - 09:32 #8
Fedest - det virker - takker mange gange!
Avatar billede martin181 Nybegynder
24. august 2000 - 10:20 #9
Problem - når jeg tester \"udenfor\" Stones Webwriters Interne Browser - får jeg ikke en descideret fejlmelding, men der står blot \"NaN\" i sammenlægningsfelterne....det er jo noget skrammel...
Avatar billede helle_fred Nybegynder
24. august 2000 - 10:28 #10
NaN betyder at en af talværdierne er et \"ikke-tal\". Kan du have indtastet et bogstav i et af felterne? eller har du ændret på koden - det er vigtigt at alle input-felterne har deres value sat til nul ved indlæsning. Send evt. din fil til mig: helle_fred@hotmail.com.

vh Helle
Avatar billede martin181 Nybegynder
24. august 2000 - 10:29 #11
jeg sender den lige til dig
Avatar billede martin181 Nybegynder
24. august 2000 - 10:32 #12
Jeg har prøvet at sende den, men den melder at jeg ikke kunne send den - er det den helt rigtige adr?
Avatar billede helle_fred Nybegynder
24. august 2000 - 10:34 #13
ja, den er god nok.
Avatar billede martin181 Nybegynder
24. august 2000 - 10:36 #14
Jeg fik følgende at vide:

Meddelelsen nåede ikke frem til nogle af eller alle de ønskede modtagere.

      Emne:    Filer fra Martin 181
      Sendt:    24-08-00 10:30

Der kunne ikke leveres til følgende modtager(e):

      \'helle_fred@hotmail.com.\' den 24-08-00 10:30
            Modtagernavnet kan ikke genkendes

Det er da list træls!!
Avatar billede helle_fred Nybegynder
24. august 2000 - 11:09 #15
Nå, jeg får ellers mail fra mange andre, og har for eksempel lige fået en fra eksperten om at der var indlæg fra dig. Brug evt. h.frederiksen@idg.dk i stedet.

Men der var nogle problemer med scriptet: det her med at taste bogstaver ind skal ikke få scriptet til at gå ned. Prøv denneher;

<TD><INPUT TYPE=\"text\" SIZE=\"2\" value=\"0\" MAXLENGTH=\"2\" NAME=\"miniputdrenge7AntalB\" onChange=\"beregn(document.f)\"></TD>
</TR>
<TR>
<TD>Micro, 7-mands</TD>
<TD>........</TD>
<TD>årg. 93A, 93B, 94A, 94B</TD>
<TD>Række A </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" value=\"0\" MAXLENGTH=\"2\" NAME=\"Mikro7AntalA\" onChange=\"beregn(document.f)\"></TD>
<TD>Række B </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" value=\"0\" MAXLENGTH=\"2\" NAME=\"Mikro7AntalB\" onChange=\"beregn(document.f)\"></TD>
</TR>
<TR>
<TD>Micro, 5-mands</TD>
<TD>........</TD>
<TD>årg. 95/96A - 95/96B</TD>
<TD>Række A </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" value=\"0\" MAXLENGTH=\"2\" NAME=\"Mikro5A\"></TD>
<TD>Række B </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" value=\"0\" MAXLENGTH=\"2\" NAME=\"Mikro5B\"></TD>
</TR>
</TABLE>
<BR>

I alt \"mellemresultat\" Hold á 375 kr. <INPUT TYPE=\"text\" SIZE=\"10\" NAME=\"mellem\" value=0 onChange=\"beregn(document.f)\"> I alt <INPUT TYPE=\"text\" SIZE=\"10\" NAME=\"res\" onChange=\"beregn(document.f)\">
<BR>
<INPUT TYPE=\"submit\" VALUE=\"Tilmeld\" NAME=\"Tilmeld\"> <INPUT TYPE=\"reset\" VALUE=\"Rens felter\" NAME=\"Reset\">
</FORM> 
Avatar billede martin181 Nybegynder
24. august 2000 - 11:14 #16
Har sendt filen til dig...håber du kan finde ud af det....jeg er lidt lost lige nu..;-)
Avatar billede helle_fred Nybegynder
24. august 2000 - 11:14 #17
hov - jeg fik ikke starten med:

<script>
function beregn(x){
    var i=0
    var res=0;
    while(i<x.elements.length-4){
    var z=parseFloat(x.elements[i].value)
    if(isNaN(z))alert(\"du må ikke indtaste en værdi her!\")
        res=res+z
        i=i+1}
    x.mellem.value=res
    x.res.value=x.mellem.value*375
}
</script>



<FORM METHOD=\"POST\" NAME=\"f\">
<TABLE BORDER=\"0\">
<!-- Alle indtastningerne i de enkelte input bokse, skal gemmes i nogle variabler, der senere skal bruges ved udregning af samlet pris... -->
Herunder bedes I indtaste hvilke rækker i ønsker at tilmelde jeres hold i.
<BR>
Desuden vil vi gerne vide hvor mange af disse hold, der spiller i A og B rækken til dagligt.
<BR>
<TABLE BORDER=\"0\">
<TR>
<TD>Miniputpiger, 7-mands</TD>
<TD>........</TD>
<TD>årg. 91 og yngre</TD>
<TD>Række A  </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" value=\"0\" MAXLENGTH=\"2\" NAME=\"Miniputpiger7AntalA\" onChange=\"beregn(document.f)\"></TD>
<TD>Række B</TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" value=\"0\" MAXLENGTH=\"2\" NAME=\"Miniputpiger7AntalB\" onChange=\"beregn(document.f)\"></TD>
</TR>
<TR>
<TD>Lilleputpiger, 7-mands</TD>
<TD>........</TD>
<TD>årg. 89/90</TD>
<TD>Række A </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" value=\"0\" MAXLENGTH=\"2\" NAME=\"Lilleputpiger7AntalA\" onChange=\"beregn(document.f)\"></TD>
<TD>Række B </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" value=\"0\" MAXLENGTH=\"2\" NAME=\"Lilleputpiger7AntalB\" onChange=\"beregn(document.f)\"></TD>
</TR>
<TR>
<TD>Miniputdrenge, 7-mands</TD>
<TD>........</TD>
<TD>årg. 91 og yngre</TD>
<TD>Række A </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" value=\"0\" MAXLENGTH=\"2\" NAME=\"miniputdrenge7AntalA\" onChange=\"beregn(document.f)\"></TD>
<TD>Række B </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" value=\"0\" MAXLENGTH=\"2\" NAME=\"miniputdrenge7AntalB\" onChange=\"beregn(document.f)\"></TD>
</TR>
<TR>
<TD>Micro, 7-mands</TD>
<TD>........</TD>
<TD>årg. 93A, 93B, 94A, 94B</TD>
<TD>Række A </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" value=\"0\" MAXLENGTH=\"2\" NAME=\"Mikro7AntalA\" onChange=\"beregn(document.f)\"></TD>
<TD>Række B </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" value=\"0\" MAXLENGTH=\"2\" NAME=\"Mikro7AntalB\" onChange=\"beregn(document.f)\"></TD>
</TR>
<TR>
<TD>Micro, 5-mands</TD>
<TD>........</TD>
<TD>årg. 95/96A - 95/96B</TD>
<TD>Række A </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" value=\"0\" MAXLENGTH=\"2\" NAME=\"Mikro5A\"></TD>
<TD>Række B </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" value=\"0\" MAXLENGTH=\"2\" NAME=\"Mikro5B\"></TD>
</TR>
</TABLE>
<BR>

I alt \"mellemresultat\" Hold á 375 kr. <INPUT TYPE=\"text\" SIZE=\"10\" NAME=\"mellem\" value=0 onChange=\"beregn(document.f)\"> I alt <INPUT TYPE=\"text\" SIZE=\"10\" NAME=\"res\" onChange=\"beregn(document.f)\">
<BR>
<INPUT TYPE=\"submit\" VALUE=\"Tilmeld\" NAME=\"Tilmeld\"> <INPUT TYPE=\"reset\" VALUE=\"Rens felter\" NAME=\"Reset\">
</FORM> 
Avatar billede martin181 Nybegynder
24. august 2000 - 11:17 #18
Nu virker det simpelthen bare - mange tak for hjælpen endnu en gang!
Avatar billede helle_fred Nybegynder
24. august 2000 - 11:22 #19
... jeg kan se at den besked jeg fik lagt i alert-boksen siger det stikmodsatte af, hvad den skulle...
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 Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic 5 29/08/202512:28 04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic 0 05/08/202510:10 -
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic 0 16/05/202512:31 -
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic 1 22/04/202514:55 25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
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 dag 16:09 Bitdefender brokker sig Af FinnRasmussen i Andet sikkerhed
I går 21:00 Libre Office Impress Af Frank i Andre styresystemer
I går 11:47 VB script Af Jenshentze i Word
I går 11:21 Popup ved opstart Af mort1 i Windows
04/0918:50 Slet lokal konto Af ErikHg i Windows
White papers
Flere white papers »