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

Sammentælling, udregning og videre brug2 - VB Script

Hejsa!

I nedenstående \"stump\" kode, får jeg nogle tal ind, i nogle input-felter(html) - når alle disse er blevet indskrevet, skal jeg bruge dem videre, så brugerne, kan se hvor mange hold de har skrevet ind, og hvor meget dette kommer til at koste - FØR de trykker på knappen, jeg har fået lidt hjælp, men jeg er ingen haj til VBScript, så jeg håber at der er nogen derude, som kan lave det for mig...? (Jeg skal bruge det senest i morgen formiddag...)

<FORM METHOD=\"POST\" NAME=\"Minitilmelding\">
<BR>
<!-- Kluboplysninger -->
<TABLE BORDER=\"0\">
<TR>
    <TD>Klub </TD>
    <TD><INPUT TYPE=\"text\" SIZE=\"20\" MAXLENGTH=\"20\" NAME=\"Klub\"></TD>
    <TD></TD>
</TR>
<TR>
    <TD><B>Spilledragt:</B></TD>
    <TD></TD>
    <TD></TD>
</TR>
<TR>
    <TD>Trøje:</TD>
    <TD><INPUT TYPE=\"text\" SIZE=\"10\" MAXLENGTH=\"10\" NAME=\"Troeje\"> Bukser: <INPUT TYPE=\"text\" SIZE=\"10\" MAXLENGTH=\"10\" NAME=\"Bukser\"></TD>
    <TD></TD>
</TR>
    <TD>Alternativ spilledragt:</TD>
    <TD></TD>
    <TD></TD>
</TR>
<TR>
    <TD>Trøje:</TD>
    <TD><INPUT TYPE=\"text\" SIZE=\"10\" MAXLENGTH=\"10\" NAME=\"alttroeje\"> Bukser: <INPUT TYPE=\"text\" SIZE=\"10\" MAXLENGTH=\"10\" NAME=\"altBukser\"></TD>
    <TD></TD>
</TR>
<TR>
    <TD>Kontakt person:</TD>
    <TD><INPUT TYPE=\"text\" SIZE=\"40\" MAXLENGTH=\"40\" NAME=\"Kontakt\"></TD>
    <TD></TD>
</TR>
<TR>
    <TD>Tlf.:</TD>
    <TD><INPUT TYPE=\"text\" SIZE=\"8\" MAXLENGTH=\"8\" NAME=\"Telefon\"></TD>
    <TD></TD>
</TR>
<TR>
    <TD>Adresse:</TD>
    <TD><INPUT TYPE=\"text\" SIZE=\"40\" MAXLENGTH=\"40\" NAME=\"Adresse\"></TD>
    <TD></TD>
</TR>
</TABLE>
<!-- 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>
<!-- Her er mit forsøg....! -->
<SCRIPT LANGUAGE-VBSCRIPT>
samlet = Miniputpiger7AntalA + Miniputpiger7AntalB + Lilleputpiger7AntalA + Lilleputpiger7AntalB + miniputdrenge7AntalA + miniputdrenge7AntalB + Mikro7AntalA + Mikro7AntalB + Mikro5A + Mikro5B

I alt \"mellemresultat\" Hold á 375 kr. = samlet 

I alt \"udregning\" Hold á 375 kr. = \"udregning\"
</SCRIPT>
</FORM>
Avatar billede brian Nybegynder
23. august 2000 - 12:31 #1
En måde er at oprette et tekstfelt og lave en OnChange i alle de andre tekstfelter.

Øjeblik - laver lige en stump kode til dig
Avatar billede martin181 Nybegynder
23. august 2000 - 12:34 #2
fino
Avatar billede brian Nybegynder
23. august 2000 - 13:11 #3
I de tekstbokse der skal indeholde tal der skal med i beregningen tilføjer du efter Name=\"navnpåtekstboksen\" :

OnChange=Udregn()

tilføj følgende script før din </Form> :

<Script Language=\"VBScript\">

Sub Udregn()
Dim Miniputpiger7AntalA, Miniputpiger7AntalB, Pris
//Hent værdierne i tekstfelterne
Miniputpiger7AntalA = int(Minitilmelding.Miniputpiger7AntalA.value)
Miniputpiger7AntalB = int(Minitilmelding.Miniputpiger7AntalB.value)
//Læg tallene sammen
Pris = Miniputpiger7AntalA + Miniputpiger7AntalB
//Vis den samleder pris
Minitilmelding.SamletPris.value = Pris
End Sub
</Script>

Hent værdien med formnavn.elementnavn.value.

Prøv evt. at forkorte dine tekstboksnavne lidt.

Håber det hjælper dig til at komme videre.

Brian
Avatar billede martin181 Nybegynder
23. august 2000 - 13:31 #4
jeg forsøger - ellers må jeg jo spørge igen...!!
Avatar billede brian Nybegynder
23. august 2000 - 13:54 #5
Her er den færdige kode :

<FORM METHOD=\"POST\" NAME=\"Minitilmelding\">
<BR>
<!-- Kluboplysninger -->
<TABLE BORDER=\"0\">
<TR>
<TD>Klub </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"20\" MAXLENGTH=\"20\" NAME=\"Klub\"></TD>
<TD></TD>
</TR>
<TR>
<TD><B>Spilledragt:</B></TD>
<TD></TD>
<TD></TD>
</TR>
<TR>
<TD>Trøje:</TD>
<TD><INPUT TYPE=\"text\" SIZE=\"10\" MAXLENGTH=\"10\" NAME=\"Troeje\"> Bukser: <INPUT TYPE=\"text\" SIZE=\"10\" MAXLENGTH=\"10\" NAME=\"Bukser\"></TD>
<TD></TD>
</TR>
<TD>Alternativ spilledragt:</TD>
<TD></TD>
<TD></TD>
</TR>
<TR>
<TD>Trøje:</TD>
<TD><INPUT TYPE=\"text\" SIZE=\"10\" MAXLENGTH=\"10\" NAME=\"alttroeje\"> Bukser: <INPUT TYPE=\"text\" SIZE=\"10\" MAXLENGTH=\"10\" NAME=\"altBukser\"></TD>
<TD></TD>
</TR>
<TR>
<TD>Kontakt person:</TD>
<TD><INPUT TYPE=\"text\" SIZE=\"40\" MAXLENGTH=\"40\" NAME=\"Kontakt\"></TD>
<TD></TD>
</TR>
<TR>
<TD>Tlf.:</TD>
<TD><INPUT TYPE=\"text\" SIZE=\"8\" MAXLENGTH=\"8\" NAME=\"Telefon\"></TD>
<TD></TD>
</TR>
<TR>
<TD>Adresse:</TD>
<TD><INPUT TYPE=\"text\" SIZE=\"40\" MAXLENGTH=\"40\" NAME=\"Adresse\"></TD>
<TD></TD>
</TR>
</TABLE>
<!-- Alle indtastningerne i de enkelte input bokse, skal gemmes i nogle variabler, der senere skal bruges ved udregning af samlet pris... -->
<BR>
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><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=\"\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"Mp7A\" value=0 OnChange=Udregn()></TD>
<TD>Række B</TD>
<TD><INPUT TYPE=\"\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"Mp7B\" value=0 OnChange=Udregn()></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=\"Lp7A\" value=0 OnChange=Udregn()></TD>
<TD>Række B </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"Lp7B\" value=0 OnChange=Udregn()></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=\"md7A\" value=0 OnChange=Udregn()></TD>
<TD>Række B </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"md7B\" value=0 OnChange=Udregn()></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=\"M7A\" value=0 OnChange=Udregn()></TD>
<TD>Række B </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"M7B\" value=0 OnChange=Udregn()></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=\"M5A\" value=0 OnChange=Udregn()></TD>
<TD>Række B </TD>
<TD><INPUT TYPE=\"text\" SIZE=\"2\" MAXLENGTH=\"2\" NAME=\"M5B\" value=0 OnChange=Udregn()></TD>
</TR>
</TABLE>
<BR>
Samlet pris :

<input type=\"text\" name=\"SamletPris\" size=\"20\">
<BR>

<Script Language=\"VBScript\">

Sub Udregn()
Dim Mp7A, Mp7B,Lp7A, Lp7B, md7A, md7B, M7A, M7B, M5A, M5B, Pris
//Hent værdierne i tekstfelterne
Mp7A = int(Minitilmelding.Mp7A.value)
Mp7B = int(Minitilmelding.Mp7B.value)
Lp7A = int(Minitilmelding.Lp7A.value)
Lp7B = int(Minitilmelding.Lp7B.value)
md7A = int(Minitilmelding.md7A.value)
md7B = int(Minitilmelding.md7B.value)
M7A = int(Minitilmelding.M7A.value)
M7B = int(Minitilmelding.M7B.value)
M5A = int(Minitilmelding.M5A.value)
M5B = int(Minitilmelding.M5B.value)
//Læg tallene sammen
Pris = Mp7A + Mp7B + Lp7A + Lp7B + md7A + md7B + M7A + M7B + M5A + M7B
//Vis den samleder pris
Minitilmelding.SamletPris.value = Pris
End Sub
</Script>
</FORM> 
Avatar billede brian Nybegynder
23. august 2000 - 19:43 #6
virker det efter hensigten ???
Avatar billede martin181 Nybegynder
24. august 2000 - 08:19 #7
Desværre - den melder fejl i script i linie: 57, 59, 66, 68, 75, 77, 84, 86, 93, 95, 108

Når jeg tester det..Jeg har bare kopieret din kode rent ind...
Avatar billede brian Nybegynder
24. august 2000 - 09:10 #8
Hmm, det gør den ikke hos mig. hvilken ver. af IE bruger du
Avatar billede martin181 Nybegynder
24. august 2000 - 09:11 #9
4.72 - tror jeg nok...;-)
Avatar billede brian Nybegynder
24. august 2000 - 09:19 #10
øjeblik
Avatar billede brian Nybegynder
24. august 2000 - 10:04 #11
Jeg ved godt at det ikke rigtig er det du spurgte efter, men prøv lige denne stump kode :

<Script Language=\"JavaScript\">
<!--
function Udregn(){
var Mp7A = parseInt(document.forms[0].elements[8].value);
var Mp7B = parseInt(document.forms[0].elements[9].value);
var Lp7A = parseInt(document.forms[0].elements[10].value);
var Lp7B = parseInt(document.forms[0].elements[11].value);
var md7A = parseInt(document.forms[0].elements[12].value);
var md7B = parseInt(document.forms[0].elements[13].value);
var M7A = parseInt(document.forms[0].elements[14].value);
var M7B = parseInt(document.forms[0].elements[15].value);
var M5A = parseInt(document.forms[0].elements[16].value);
var M5B = parseInt(document.forms[0].elements[17].value);
var Pris= Mp7A + Mp7B + Lp7A + Lp7B + md7A + md7B + M7A + M7B + M5A + M5B;
document.forms[0].elements[18].value = Pris;
}
//-->
</Script>

istedet for vb-scriptet.
Avatar billede martin181 Nybegynder
24. august 2000 - 10:14 #12
Den tæller fint nok antal hold sammen, men hvad med udregningen af samlet pris? Det er ok, hvis du bare sender de linier....kan man give point flere gange for et spørgsmål, for du har vel efterhånden fortjent lidt flere...?
Avatar billede brian Nybegynder
24. august 2000 - 10:19 #13
Udregningen klarer du i linien hvor du lægger tallene sammen :

var Pris = (Mp7A * 350) + (Mp7B * 200) o.s.v
Avatar billede brian Nybegynder
24. august 2000 - 10:21 #14
Du kunne jo også definere nogle variabler hvor tallene lå i :
var Miniput = 350;
var Lilleput = 200;

Pris = (Mp7A * Miniput) + (Mp7B * Miniput) + (Lp7A * Lilleput) o.s.v.
Avatar billede brian Nybegynder
24. august 2000 - 10:23 #15
M.h.t. point så mener jeg ikke man kan give flere point når først man har accepteret svaret.

Avatar billede brian Nybegynder
25. august 2000 - 10:17 #16
Har du fået det til at virke ?
Avatar billede martin181 Nybegynder
25. august 2000 - 10:19 #17
så nogenlunde...tak for hjælpen!
Avatar billede brian Nybegynder
25. august 2000 - 10:31 #18
Du skal sgu ikke stille dig tilfreds med nogenlunde - sig til så vi kan få det til at virke som du vil have det.
Avatar billede martin181 Nybegynder
25. august 2000 - 10:38 #19
Jeg har fået det til at virke, med dit JavaScript, så den tæller antal hold sammen, men det med udregning af samlet pris den kan jeg ikke finde ud af - jeg ved ikke om det bare er mig der kager for vildt rundt i det hele...den samlede pris 375 pr. hold, skal vises i en ny boks til sidst....

Nåja...under optælling af hold - den registrerer først det sidste felt, når jeg går ud af dette - det virker fint nok, det er jo kun en detalje...men alligevel....
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 »