calcoltarice

[alexrm]

Stò sperimentando una calcolatrice con codice controllo utente:

<script language="vb" runat="server">

private answer as double
Sub btOperator_Click(obj as object, e as eventargs)
if (hiddenvalue.value <> " " and hiddenvalue.value <> "0")
tbNumber.Text = Operate(obj.Text, hiddenvalue.value, tbNumber.Text)
hiddenvalue.value = " "
hiddenoperator.value = " "
else
"salva il vecchio numero come campo
"nascosto e ripulisci il text box
hiddenvalue.value = tbNumber.Text
hiddenoperator.value = obj.Text
tbNumber.Text = "0"
end if
End sub

Sub btSpecOperator_Click(obj as object, e as eventargs)
tbNumber.Text = Operate(obj.Text, hiddenvalue.value, tbNumber.Text)
hiddenvalue.value = tbNumber.Text
hiddenoperator.value = obj.Text
End sub

Sub btOperator_Click(obj as object, e as eventargs)
response.write(answer.ToString)
if tbNumber.Text <> "0" then
tbNumber.Text = tbNumber.Text & obj.Text
else
tbNumber.Text = obj.Text
answer = nothing
end if
end sub

Sub btClear_Click(obj as object, e as eventargs)
tbNumber.Text = "0"
hiddenvalue.value = " "
hiddenoperator.value = " "
end sub

Sub btBS_Click(obj as object, e as eventargs)
if tbNumber.Text <> "0" then
tbNumber.Text = Left(tbNumber.Text, len, (tbNumber.Text)-1)
end if
end sub

Sub btMemory_Click(obj as object, e as eventargs)
select case obj.text
case "MC"
Session("memory") = " "
Indicator.Text = " "
case "MS"
Session("memory") = tbNumber.Text
Indicator.Text = "M"
case "MR"
tbNumber.Text = Session("Memory")
case "M+"

end seclect
end sub

Sub btEqual_Click(obj as object, e as eventargs)
if hiddenvalue.value <> " " then
if hiddenoperator.value <> " " then
"opera i numeri
tbNumber.Text = Operate(hiddenoperator.value, hiddenvalue.value, tbNumber.Text)
hiddenvalue.value = " "
hiddenoperator.value = " "
answer = tbNumber.Text
else
"nessuna operazione
end if
else
"nessuna operazione
end if
end sub

private function Operate(operator as string, number1 as string, optional number2 as string = "1") as double
select case operator
case "+"
Operate = CDbl(number1) + CDbl(number2)
case ""
Operate = CDbl(number1) - CDbl(number2)
case "*"
Operate = CDbl(number1) * CDbl(number2)
case "/"
Operate = CDbl(number1) / CDbl(number2)
case "sqrt"
Operate = CDbl(Math.sqrt(number2))
case "1/x"
Operate = CDbl(1 / cdbl(number2))
case "+/-"
Operate = CDbl(-cdbl(number2))
end select
end function
</script>

<asp:Panel id="Frame" runat="server">
<table widht="250">
<tr>
<td widht="100%" colspan="7">
<asp:TextBox id="tbNumber" runat="server"
text="0"
enabled="false"
widht="100%" />
</td>
</tr>
<tr>
<td align="right" widht="100%" colspan="7">
<asp:Label id="Indicator" text=" " runat="server"/>
<asp:Button id="btBS" Text="Backspace"
OnClick= "btBS_Click runat="server" widht="75"/>
<asp:Button id="btClear" Text="C"
OnClick= "btClear_Click runat="server" widht="35"/>
</td>
</tr>
<tr>
<td widht="32%" valign="top">
<asp:button id="tbMC" Text="MC"
OnClick="btMemory_Click" runat="server"
widht="35"
</td>
<td widht="58"></td>
<td widht="32">
<asp:Button id="bt7" Text="7"
OnClick= "btClear_Click runat="server"
widht="35"/>


</td>
<td widht="32">
<asp:Button id="bt8" Text="8"
OnClick= "btClear_Click runat="server"
widht="35"/>


</td>
<td widht="32">
<asp:Button id="bt9" Text="9"
OnClick= "btClear_Click runat="server"
widht="35"/>


</td>
<td widht="32">
<asp:Button id="btDivide" Text="/"
OnClick= "btClear_Click runat="server"
widht="35"/>


</td>
<td widht="32">
<asp:Button id="btSqrt" Text="sqrt"
OnClick= "btClear_Click runat="server"
widht="35"/>


</td>
</tr>
<tr>
<td widht="32%" valign="top">
<asp:button id="tbMR" Text="MR"
OnClick="btMemory_Click" runat="server"
widht="35"
</td>
<td widht="8"></td>
<td widht="32">
<asp:Button id="bt4" Text="4"
OnClick= "btClear_Click runat="server"
widht="35"/>


</td>
<td widht="32">
<asp:Button id="bt5" Text="5"
OnClick= "btClear_Click runat="server"
widht="35"/>


</td>
<td widht="32">
<asp:Button id="bt6" Text="6"
OnClick= "btClear_Click runat="server"
widht="35"/>


</td>
<td widht="32">
<asp:Button id="btMultiply" Text="*"
OnClick= "btClear_Click runat="server"
widht="35"/>


</td>
<td widht="32">
<asp:Button id="btPercent" Text="%"
OnClick= "btClear_Click runat="server"
widht="35"/>


</td>
</tr>
<tr>
<td widht="32%" valign="top">
<asp:button id="tbMS" Text="MS"
OnClick="btMemory_Click" runat="server"
widht="35"
</td>
<td widht="8"></td>
<td widht="32">
<asp:Button id="bt1" Text="1"
OnClick= "btNumber_Click runat="server"
widht="35"/>


</td>
<td widht="32">
<asp:Button id="bt2" Text="2"
OnClick= "btNumber_Click runat="server"
widht="35"/>


</td>
<td widht="32">
<asp:Button id="bt3" Text="3"
OnClick= "btNumber_Click runat="server"
widht="35"/>


</td>
<td widht="32">
<asp:Button id="btSubtract" Text="-"
OnClick= "btOperator_Click runat="server"
widht="35"/>


</td>
<td widht="32">
<asp:Button id="btOneOver" Text="1/x"
OnClick= "btSpecOperator_Click runat="server"
widht="35"/>


</td>
</tr>
<tr>
<td widht="32%" valign="top">
<asp:button id="tbMP" Text="MP"
OnClick="btMemory_Click" runat="server"
widht="35"
</td>
<td widht="8"></td>
<td widht="32">
<asp:Button id="bt0" Text="0"
OnClick= "btNumber_Click runat="server"
widht="35"/>


</td>
<td widht="32">
<asp:Button id="btNegate" Text="+/-"
OnClick= "btSpecOperator_Click runat="server"
widht="35"/>


</td>
<td widht="32">
<asp:Button id="btDot" Text="."
OnClick= "btNumber_Click runat="server"
widht="35"/>


</td>
<td widht="32">
<asp:Button id="btAdd" Text="+"
OnClick= "btNumber_Click runat="server"
widht="35"/>


</td>
<td widht="32">
<asp:Button id="btEqual" Text="="
OnClick= "btNumber_Click runat="server"
widht="35"/>


</td>
</tr>
</table>
</asp:Panel>
<input type="hidden" id="hiddenvalue" value=" "
runat="server" >
<input type="hidden" id="hiddenoperator" value=" "
runat="server" >






e codice ASP.NET:

<%@ Page Language="VB" %>
<%@ Register TagPrefix="TYASPNET" TagName="Calculator" src="Calculator.ascx" %>

<html><body>
<form runat="server">
<TYASPNET:Calculator id="Calc1" runat="server"/>
</form>
</body></html>

Come va inserito correttamente nel codice controllo utente questo codice ASP.NET?Se qualcuno può rispondermi grazie.

[alexrm]

<%@ Page Language="VB" %>
<%@ Register TagPrefix="TYASPNET" TagName="Calcolatrice" src="Calcolatrice.ascx" %>

<script runat="server">
Sub btOperator_Click(obj as object, e as eventargs)
if (hiddenvalue.value <> " " and hiddenvalue.value <> "0")
tbNumber.Text = Operate(obj.Text, hiddenvalue.value, tbNumber.Text)
hiddenvalue.value = " "
hiddenoperator.value = " "
else
"salva il vecchio numero come campo
"nascosto e ripulisci il text box
hiddenvalue.value = tbNumber.Text
hiddenoperator.value = obj.Text
tbNumber.Text = "0"
end if
End sub

Sub btSpecOperator_Click(obj as object, e as eventargs)
tbNumber.Text = Operate(obj.Text, hiddenvalue.value, tbNumber.Text)
hiddenvalue.value = tbNumber.Text
hiddenoperator.value = obj.Text
End sub

Sub btOperator_Click(obj as object, e as eventargs)
response.write(answer.ToString)
if tbNumber.Text <> "0" then
tbNumber.Text = tbNumber.Text & obj.Text
else
tbNumber.Text = obj.Text
answer = nothing
end if
end sub

Sub btClear_Click(obj as object, e as eventargs)
tbNumber.Text = "0"
hiddenvalue.value = " "
hiddenoperator.value = " "
end sub

Sub btBS_Click(obj as object, e as eventargs)
if tbNumber.Text <> "0" then
tbNumber.Text = Left(tbNumber.Text, len, (tbNumber.Text)-1)
end if
end sub

Sub btMemory_Click(obj as object, e as eventargs)
select case obj.text
case "MC"
Session("memory") = " "
Indicator.Text = " "
case "MS"
Session("memory") = tbNumber.Text
Indicator.Text = "M"
case "MR"
tbNumber.Text = Session("Memory")
case "M+"

end seclect
end sub

Sub btEqual_Click(obj as object, e as eventargs)
if hiddenvalue.value <> " " then
if hiddenoperator.value <> " " then
"opera i numeri
tbNumber.Text = Operate(hiddenoperator.value, hiddenvalue.value, tbNumber.Text)
hiddenvalue.value = " "
hiddenoperator.value = " "
answer = tbNumber.Text
else
"nessuna operazione
end if
else
"nessuna operazione
end if
end sub

private function Operate(operator as string, number1 as string, optional number2 as string = "1") as double
select case operator
case "+"
Operate = CDbl(number1) + CDbl(number2)
case ""
Operate = CDbl(number1) - CDbl(number2)
case "*"
Operate = CDbl(number1) * CDbl(number2)
case "/"
Operate = CDbl(number1) / CDbl(number2)
case "sqrt"
Operate = CDbl(Math.sqrt(number2))
case "1/x"
Operate = CDbl(1 / cdbl(number2))
case "+/-"
Operate = CDbl(-cdbl(number2))
end select
end function
</script>

<html><body>
<form runat="server">
<asp:Panel id="Frame" runat="server">
<table widht="250">
<tr>
<td widht="100%" colspan="7">
<asp:TextBox id="tbNumber" runat="server"
text="0"
enabled="false"
widht="100%" />
</td>
</tr>
<tr>
<td align="right" widht="100%" colspan="7">
<asp:Label id="Indicator" text=" " runat="server"/>
<asp:Button id="btBS" Text="Backspace"
OnClick= "btBS_Click runat="server" widht="75"/>
<asp:Button id="btClear" Text="C"
OnClick= "btClear_Click runat="server" widht="35"/>
</td>
</tr>
<tr>
<td widht="32%" valign="top">
<asp:button id="tbMC" Text="MC"
OnClick="btMemory_Click" runat="server"
widht="35"
</td>
<td widht="58"></td>
<td widht="32">
<asp:Button id="bt7" Text="7"
OnClick= "btClear_Click runat="server"
widht="35"/>


</td>
<td widht="32">
<asp:Button id="bt8" Text="8"
OnClick= "btClear_Click runat="server"
widht="35"/>


</td>
<td widht="32">
<asp:Button id="bt9" Text="9"
OnClick= "btClear_Click runat="server"
widht="35"/>


</td>
<td widht="32">
<asp:Button id="btDivide" Text="/"
OnClick= "btClear_Click runat="server"
widht="35"/>


</td>
<td widht="32">
<asp:Button id="btSqrt" Text="sqrt"
OnClick= "btClear_Click runat="server"
widht="35"/>


</td>
</tr>
<tr>
<td widht="32%" valign="top">
<asp:button id="tbMR" Text="MR"
OnClick="btMemory_Click" runat="server"
widht="35"
</td>
<td widht="8"></td>
<td widht="32">
<asp:Button id="bt4" Text="4"
OnClick= "btClear_Click runat="server"
widht="35"/>


</td>
<td widht="32">
<asp:Button id="bt5" Text="5"
OnClick= "btClear_Click runat="server"
widht="35"/>


</td>
<td widht="32">
<asp:Button id="bt6" Text="6"
OnClick= "btClear_Click runat="server"
widht="35"/>


</td>
<td widht="32">
<asp:Button id="btMultiply" Text="*"
OnClick= "btClear_Click runat="server"
widht="35"/>


</td>
<td widht="32">
<asp:Button id="btPercent" Text="%"
OnClick= "btClear_Click runat="server"
widht="35"/>


</td>
</tr>
<tr>
<td widht="32%" valign="top">
<asp:button id="tbMS" Text="MS"
OnClick="btMemory_Click" runat="server"
widht="35"
</td>
<td widht="8"></td>
<td widht="32">
<asp:Button id="bt1" Text="1"
OnClick= "btNumber_Click runat="server"
widht="35"/>


</td>
<td widht="32">
<asp:Button id="bt2" Text="2"
OnClick= "btNumber_Click runat="server"
widht="35"/>


</td>
<td widht="32">
<asp:Button id="bt3" Text="3"
OnClick= "btNumber_Click runat="server"
widht="35"/>


</td>
<td widht="32">
<asp:Button id="btSubtract" Text="-"
OnClick= "btOperator_Click runat="server"
widht="35"/>


</td>
<td widht="32">
<asp:Button id="btOneOver" Text="1/x"
OnClick= "btSpecOperator_Click runat="server"
widht="35"/>


</td>
</tr>
<tr>
<td widht="32%" valign="top">
<asp:button id="tbMP" Text="MP"
OnClick="btMemory_Click" runat="server"
widht="35"
</td>
<td widht="8"></td>
<td widht="32">
<asp:Button id="bt0" Text="0"
OnClick= "btNumber_Click runat="server"
widht="35"/>


</td>
<td widht="32">
<asp:Button id="btNegate" Text="+/-"
OnClick= "btSpecOperator_Click runat="server"
widht="35"/>


</td>
<td widht="32">
<asp:Button id="btDot" Text="."
OnClick= "btNumber_Click runat="server"
widht="35"/>


</td>
<td widht="32">
<asp:Button id="btAdd" Text="+"
OnClick= "btNumber_Click runat="server"
widht="35"/>


</td>
<td widht="32">
<asp:Button id="btEqual" Text="="
OnClick= "btNumber_Click runat="server"
widht="35"/>


</td>
</tr>
</table>
</asp:Panel>
<input type="hidden" id="hiddenvalue" value=" "
runat="server" >
<input type="hidden" id="hiddenoperator" value=" "
runat="server" >
<TYASPNET:Calculator id="Calc1" runat="server"/>
</form>
</body></html>

Ho inserito il codice ASP.NET,ma in questa riga:
<%@ Register TagPrefix="TYASPNET" TagName="Calcolatrice" src="Calcolatrice.ascx" %>

mi genera il seguente errore:

Impossibile trovare il file "c:\inetpub\wwwroot\day6\Calcolatrice.ascx".
come mai avviene?C'è qualcuno che può o vuole rispondermi?
Grazie

[[-MaRcO3-]]

Originariamente inviato da alexrm

Ho inserito il codice ASP.NET,ma in questa riga:
<%@ Register TagPrefix="TYASPNET" TagName="Calcolatrice" src="Calcolatrice.ascx" %>

mi genera il seguente errore:

Impossibile trovare il file "c:\inetpub\wwwroot\day6\Calcolatrice.ascx".
come mai avviene?C'è qualcuno che può o vuole rispondermi?
Grazie

Il file Calcolatrice.ascx c'è effettivamente a quell'indirizzo? Se non c'è o il percorso non è corretto devi pettere il suo percorso assoluto o relativo nell'attributo src

Controlla i percorsi.
Ciao


Marco

[alexrm]

Ho modificato l'estensione in aspx,ma c'è il codice ASP.NET a richiamarlo,quindi non dovrebbe dare problemi,ma anche quando l'estensione era ascx,non me lo trovava,mi diceva addirittura che la risorsa era inesistente e ti premetto il percorso era ed è giusto.Mi colpisce il perchè mi dà così.

[alexrm]

niente di niente,mi dà sempre uguale,ho provato e riprovato ma stò andando ai pazzi per piacere aiutatemi,altrimenti non posso procedere.Grazie

[Ottavio]

perchè è na volta <%@ Register TagPrefix="TYASPNET" TagName="Calculator" src="Calculator.ascx" %>

e l'altra <%@ Register TagPrefix="TYASPNET" TagName="Calcolatrice" src="Calcolatrice.ascx" %>
!??!?
hai controllato che nn sia quello....

[[-MaRcO3-]]

Controlla tutto il codice che è pieno di errori!

ho copiato e incollato la tua pagina,
riscontrando i seguenti errori
linee:
121
154
187
220

Tag Button chiusi in maniera errata

557
richiamo tag sbagliato TYASPNET:Calcolatrice

Hai più prodedure con lo stesso nome
btOperator_Click


"salva il vecchio numero come campo
"nascosto e ripulisci il text box

Se queste due linee sono commenti,
devi usare l'apice singolo '

Poi non ho guardato se ne n'erano altri,
ma credo bastino questi per ora :master:

Ciao


Marco

[alexrm]

121
154
187
220
mi sembra che questi tre siano errori fatti in fotocopia,
alla 257 ho inserito Calcolatrice al posto da calculator.

I 4 errori elencati prima sono quasi tutti sulla stessa riga:
<asp:button id="tbMC" Text="MC"

più prodedure con lo stesso nome
btOperator_Click
significa che sono stato ripetitivo nel farlo??

Il mio IIS 5.0 mi segnala solo errore per errore,tu hai qualche cos'altro per rilevare gli errori tutti insieme??

[[-MaRcO3-]]

Originariamente inviato da alexrm
più prodedure con lo stesso nome
btOperator_Click
significa che sono stato ripetitivo nel farlo??

Il mio IIS 5.0 mi segnala solo errore per errore,tu hai qualche cos'altro per rilevare gli errori tutti insieme??

Puoi associare una sola procedura all'evento di un bottone. Nella stessa pagina non puoi usare due procedure uguali con lo stesso nome altrimenti quele esegue il bottone???

Io non ho rilevato gli errori tutti insieme, ne ho corretto uno per volta e ho segnato il numero di linea per darti un riferimento.
Ciao


Marco

[alexrm]

Il codice è un controllo utente che viene inserito in una pagina ASP.NET e va salvato in ascx.Io l'ho salvato nella stessa cartella in cui ho inserito tutti i file aspx creati nelle precedenti eserci=
tazioni ma non in ascx ma in aspx(in ascx non me lo trovava direttamente diceva che era inesistente per questo l'ho ripoprtato in aspx).Perchè continua a dirmi che non lo trova???Non riesco proprio a venirne fuori,non vorrei che ho preso un esempio sbagliato a cui ispirarmi.Mi sembra che ci stanno più errori fatti a ripetizio=
ne in questo codice.Chi ha un codice completo esatto per poter confrontare con il mio??E soprattutto c'è un modo per poter compilare il codice in maniera più breve,visto che questa è la base per quelli che sono i calcoli automatici in un sito web(ad esempio il costo di un viaggio,di un mutuo,etc...).Ci tengo moltissimo a capire questo errore e confrontarlo.