maurizio74 (Normal User)
Pro
Messaggi: 116
Iscritto: 30/03/2009
|
Questo topic è stato chiuso dal moderatore 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
|