Avatar billede bojohansen Nybegynder
06. juli 2005 - 19:30 Der er 7 kommentarer og
1 løsning

TekstField til Tal i beregning

Nu er det længe siden jeg har leget med ASP, og jeg kan bare overhovedet ikke huske hvordan jeg får tal indtastet i Text Field brugbart i en beregning???
Avatar billede nielle Nybegynder
06. juli 2005 - 21:10 #1
Sådan:

<%
ditTalSomTekst = Request("NavnetIDinForm");
ditTalSomTal = CInt(ditTalSomTekst)
%>
Avatar billede bojohansen Nybegynder
06. juli 2005 - 23:30 #2
Cint ødelægger samtidigt tallet

Dim MyDouble, MyInt
MyDouble = 2345.5678    ' MyDouble is a Double.
MyInt = CInt(MyDouble)  ' MyInt contains 2346.
Avatar billede nielle Nybegynder
07. juli 2005 - 06:36 #3
Avatar billede bojohansen Nybegynder
08. juli 2005 - 23:01 #4
Hej.

Hvorfor vil den så ikke godtage feks. 0.0001 i Thicknes, den regner det som om det bare er 1
Avatar billede bojohansen Nybegynder
08. juli 2005 - 23:04 #5
Glemte da vist lige den lille kode

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Option Explicit %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
</head>

<body>
<form name="form1" method="post" action="/tapecalc.asp">
  <table width="300" border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td width="150">Thicknes</td>
      <td width="150"><input name="Thick" type="text" id="Thick" value="1"></td>
    </tr>
    <tr>
      <td>Outer Diameter </td>
      <td><input name="OutDia" type="text" id="OutDia" value="50"></td>
    </tr>
    <tr>
      <td>Inner Diameter </td>
      <td><input name="InDia" type="text" id="InDia" value="40"></td>
    </tr>
    <tr>
      <td><input name="Calc" type="submit" id="Calc" value="Calc"></td>
      <td><input name="Reset" type="submit" id="Reset" value="Reset"></td>
    </tr>
  </table>
</form>
<p>&nbsp;
</p>
<p>
<%
Dim Length, OutDia, InDia, Thick, TempLength
Length = 0
OutDia = CDbl(Request.Form("OutDia"))
InDia = CDbl(Request.Form("InDia"))
Thick = CDbl(Request.Form("Thick"))

Do Until OutDia =< InDia
TempLength = OutDia * 3.14
OutDia = OutDia - Thick - Thick
Length = Length + TempLength
TempLength = 0
Response.Write "" & Length & "<br>"
Response.Write "" & OutDia & "<br>"
Response.Write "" & inDia & "<br><br>"
Loop 'Until OutDia > InDia

Response.Write "Total length is " & Length
%>
   
</p>
</body>
</html>
Avatar billede nielle Nybegynder
08. juli 2005 - 23:11 #6
Måsk er den sat op til at regne med kommatal efter dansk notation i stedet for amerikansk? Altså:

0,0001

- i stedet for:

0.0001

Dette ville i hvert fald forklare hvorfor 0.0001 bliver til 1, idet '.' så ville blive fortolket som en 1000-seperator.
Avatar billede bojohansen Nybegynder
09. juli 2005 - 16:26 #7
Ja for s...., jeg tænker jo med røven........

Smid lige et svar
Avatar billede nielle Nybegynder
09. juli 2005 - 16:56 #8
Svar :^)
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
Kurser inden for grundlæggende programmering

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.

Du kan også logge ind via nedenstående tjenester