Ir para conteúdo
Fórum Script Brasil
  • 0

Calculadora em VBScript


Carlos Magno P.

Pergunta

Então, estou estudando os códigos de um exemplo de uma calculadora q me foi passado, porém eu preciso q a calculadora faça o seguinte:

quando eu efetuar a operação 3+3+3=9 por exemplo deve ser feito o seguinte:

3+3 e quando eu for somar +3, ao clicar o sinal de + da calculadora o resultado da operação anterior já tem q aparecer no display, tipo... 3+3=6+3=9, entende? como acontece em uma calculadora normal!

como eu faço isso pessoal, alguém pode me ajudar nesta rotina?

Abaixo os códigos da minha calculadora:

<HTML>
<HEAD>
<script LANGUAGE=VBScript>
dim operation
dim resetnext
dim value1
dim pointlock

Sub igual_OnClick

if operation = 1 Then
display.value = CDbl(value1) + CDbl(display.value)
End if

if operation = 2 Then
display.value = CDbl(value1) - CDbl(display.value)
End if

if operation = 3 Then
display.value = CDbl(value1) * CDbl(display.value)
End if

if operation = 4 Then
display.value = CDbl(value1) / CDbl(display.value)
End if

operation = 0
resetnext = 1
End Sub

Sub limpar_OnClick
operation = 0
resetnext = 1
display.value = ""
End Sub

Sub mais_OnClick

value1 = display.value
operation = 1
resetnext = 1
End Sub

Sub menus_OnClick

value1 = display.value
operation = 2
resetnext = 1
End Sub

Sub multiplica_OnClick

value1 = display.value
operation = 3
resetnext = 1
End Sub

Sub divide_OnClick

value1 = display.value
operation = 4
resetnext = 1
End Sub


Sub um_OnClick

if resetnext = 0 Then
display.value = display.value & "1"
Else
display.value = 1
resetnext = 0
End if

End Sub

Sub dois_OnClick

if resetnext = 0 Then
display.value = display.value & "2"
Else
display.value = 2
resetnext = 0
End if

End Sub

Sub tres_OnClick

if resetnext = 0 Then
display.value = display.value & "3"
Else
display.value = 3
resetnext = 0
End if

End Sub

Sub quatro_OnClick

if resetnext = 0 Then
display.value = display.value & "4"
Else
display.value = 4
resetnext = 0
End if

End Sub

Sub cinco_OnClick

if resetnext = 0 Then
display.value = display.value & "5"
Else
display.value = 5
resetnext = 0
End if

End Sub

Sub seis_OnClick

if resetnext = 0 Then
display.value = display.value & "6"
Else
display.value = 6
resetnext = 0
End if

End Sub

Sub sete_OnClick

if resetnext = 0 Then
display.value = display.value & "7"
Else
display.value = 7
resetnext = 0
End if

End Sub

Sub oito_OnClick

if resetnext = 0 Then
display.value = display.value & "8"
Else
display.value = 8
resetnext = 0
End if

End Sub


Sub nove_OnClick

if resetnext = 0 Then
display.value = display.value & "9"
Else
display.value = 9
resetnext = 0
End if

End Sub

Sub zero_OnClick

if resetnext = 0 Then
display.value = display.value & "0"

End if

End Sub

</SCRIPT>

</HEAD>

<BODY>
<TABLE ALIGN=CENTER cellpadding="3" cellspacing="3"><TR><TD>
<TR><TH colspan=4><INPUT TYPE=TEXT Name=display size=14 maxlength=12></TH></TR>

<TR>
<TD>&nbsp;</TD>
<TD></TD><TD></TD>

<TD>&nbsp;</TD>
</TR>


<TR>
<TD><input type=BUTTON  name=sete value="7"></TD>
<TD><input type=BUTTON  name=oito value="8"></TD>
<TD><input type=BUTTON  name=nove value="9"></TD>
<TD><input type=BUTTON  name=divide value="/"></TD>
</TR><TR>
<TD><INPUT TYPE=BUTTON  Name=quatro VALUE="4"></TD>
<TD><INPUT TYPE=BUTTON  Name=cinco VALUE="5"></TD>
<TD><INPUT TYPE=BUTTON  Name=seis VALUE="6"></TD>
<TD><INPUT TYPE=BUTTON  Name=multiplica VALUE="*"></TD>
</TR>
<TR>
<TD><input type=BUTTON  name=um  value="1"></TD>
<TD><input type=BUTTON  name=dois value="2"></TD>
<TD><input type=BUTTON  name=tres value="3"></TD>
<TD><input type=BUTTON  name=menus value="-"></TD>
</TR>
<TR>

<TD><INPUT TYPE=BUTTON  Name=zero VALUE="0"></TD>
<TD><input type=BUTTON  name=limpar value="C"></TD>
<TD><input type=BUTTON name=igual value="="></TD>
<TD><input type=BUTTON name=mais value="+"></TD>
</TR>
</TABLE>
</TR></TD></TABLE>
</HTML>

Link para o comentário
Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Até agora não há respostas para essa pergunta

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,2k
    • Posts
      651,9k
×
×
  • Criar Novo...