aumenta o diminuiscsi la matrice..............

Aggiornamento a CalcolatriceTEXT_steno12.vbp


'code---------------------------------
Private Sub Command1_Click()

Dim numeri(10) 'aumenta o diminiusci la matrice
Dim segno(10), bx As String
risultato = 0

lung = Len(Text1.Text)

okk = 0: n = 0: nn = 0: ok = 0
bx = ""
For i = 1 To lung

If Mid$(Text1.Text, i, 1) = "*" Or Mid$(Text1.Text, i, 1) = "+" Or Mid$(Text1.Text, i, 1) = "-" Or Mid$(Text1.Text, i, 1) = "/" Then
ok = 1
n = n + 1: numeri(n) = Val(bx)
nn = nn + 1
segno(nn) = Mid(Text1.Text, i, 1)
bx = ""
ok = 0
Else
If ok = 0 Then

bx = bx + Mid(Text1.Text, i, 1)
Else
bx = Mid(Text1.Text, i, 1)
End If
End If

Next i

If bx <> "" Then n = n + 1: numeri(n) = Val(bx)
risultato = numeri(1)
For i = 2 To n
If segno(i - 1) = "*" Then
If risultato = 0 Then risultato = 1
risultato = risultato * numeri(i)
End If

If segno(i - 1) = "/" Then
If numeri(i) = 0 Then
Else
risultato = risultato / numeri(i)
End If
End If

If segno(i - 1) = "+" Then
risultato = risultato + numeri(i)
End If

If segno(i - 1) = "-" Then
risultato = risultato - numeri(i)
End If

Next i
Label1.Caption = risultato

End Sub
'end code----------------------



+--------------+
|----by Ten--|
+--------------+