Ir para conteúdo
Fórum Script Brasil

Carlos Magno P.

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    5

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que Carlos Magno P. postou

  1. Carlos Magno P.
    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>
  2. Carlos Magno P.
    VLW!!!!
  3. Carlos Magno P.
    Isso deve ser a parte de sub rotinas q eu estou aprendendo, pode me dar um exemplo?
  4. Carlos Magno P.
    Não deu certo, preciso de um exemplo melhor, mas vlw aí! clicar no botão e aparecer o mesmo no display da calculadora, como???? HELP!
  5. Carlos Magno P.
    Boa tarde galera! Estou aprendendo VBScript na facul e estou desenvolvendo uma calculadora básica, porém não sei como faço para quando eu clicar no botão de algum número da calculadora o número deste botão aparecer no display. Se possível alguém pode me dar um exemplo? Abaixo segue o código da minha calculadora: <html> <head><title>Calculadora</title></head> <body> <div align=center> <form name=frmcalc action="calc2.asp" method="post"> <table border=1> <th colspan=5 align=left>Calculadora</th> <tr> <td colspan=5 align=center> <input type="text" name="display" value="" size="23" align=right> </td> </tr> <tr> <td width=30><input type="button" name="bt7" value="7"></td> <td width=30><input type="button" name="bt8" value="8"></td> <td width=30><input type="button" name="bt9" value="9"></td> <td><input type="button" name="bt/" value="/"></td> </tr> <tr> <td><input type="button" name="bt4" value="4"></td> <td><input type="button" name="bt5" value="5"></td> <td><input type="button" name="bt6" value="6"></td> <td><input type="button" name="btx" value="x"></td> </tr> <tr> <td><input type="button" name="bt1" value="1"></td> <td><input type="button" name="bt2" value="2"></td> <td><input type="button" name="bt3" value="3"></td> <td><input type="button" name="bt-" value="-"</td> </tr> <tr> <td><input type="button" name="bt0" value="0"></td> <td><input type="button" name="btC" value="C"</td> <td><input type="button" name="bt=" value="="></td> <td><input type="button" name="bt+" value="+"></td> </tr> </table> </form> </div> </body> </html>
×
×
  • Criar Novo...