PDA

Visualizza la versione completa : funzione matrice controlli


mau4
11-09-2011, 17:47
Ciao a tutti, da una matrice le seguenti funzioni
io vorrei ottenere la seguente operazione se ad es. faccio 3+3=6 e poi ancora uguale deve fare 9 ed ancora 12 ecc.
pero' se invece faccio 3+3=6 e poi invece di = premo ad es. + mideve fare 6 + e non 9 + spero che adesso sia stato piu' chiaro grazieeeee

ecco il codice

Private Sub operator_Click(Index As Integer)
Select Case OpFlag
Case "+"
Op1 = CDbl(Op1) + CDbl(Op2)
Case "-"
Op1 = CDbl(Op1) - CDbl(Op2)
Case "*"
Op1 = CDbl(Op1) * CDbl(Op2)
Case "/"
If Op2 = 0 Then
MsgBox "impossibile dividere per zero", 48, "Calculator"
Op1 = "0,"
Else
Op1 = CDbl(Op1) / CDbl(Op2)
End If
Case "="
Op1 = display
End Select
display = Op1
NumOps = 1
End Select
End Select
End Select
End Select
End Select
If LastInput <> "NEG" Then
LastInput = "OPS"
OpFlag = operator(Index).Caption
End If
If OpFlag = "=" Then
Risultato = display
End If
End Sub

LeleFT
12-09-2011, 09:28
E dopo questa discussione (http://forum.html.it/forum/showthread.php?s=&postid=12356905#post12356905), siamo a 3 e avviso gli amministratori.


Ciao. :ciauz:

Loading