Chequeo de parentesis

[alej_PT]

Hola estoy realizando una parte de un programa de vb6 que permite ingresar formulas personalizadas pero basicas + - * /. Estas incluyen operaciones combinadas con parentesis x ej:((123*43)/43)-5

El temas es como puedo chequear que se utilizaron bien los parentesis:
x ej: (()) o ()() y no )()( o ))((

Debe haber algun codigo en vb6 hecho por ahi que realize este chequeo, si alguno lo conoce por favor aviseme donde o cual es para reutilizarlo. Como sucede casi siempre en la programación uno a veces quiere "reinventar la rueda, sin saber que la rueda ya existe"

Muy agradecido estaré por la mano

[pkj]

Ese tipo de fórmulas las resuelve VB usando una referencia al Microsoft Script Control 1.0

Lo de los paréntesis puedes probar algo como esto en el evento LostFocus del textbox:

Código vb:

Private Sub Text1_LostFocus()
  MiraErrores Text1
End Sub
 
Sub MiraErrores(TB As TextBox)
  Dim F As Long
  Dim Contador As Long
  For F = 1 To Len(TB.Text)
    If Mid$(TB.Text, F, 1) = "(" Then Contador = Contador + 1
    If Mid$(TB.Text, F, 1) = ")" Then Contador = Contador - 1
    If Contador < 0 Then Exit For
  Next F
  If Contador <> 0 Then GoTo HayError
  Exit Sub
HayError:
  TB.SelStart = F - 1
  TB.SelLength = 1
  MsgBox "Los paréntesis no están usados correctamente en el TextBox " & TB.Name
End Sub
 

Saludos

[lokoman]

Hola!!!

Yo lo hice de esta forma, ademas solo acepta numeros en el textbox:

Código vb:

Public Cont As Double
 
Private Sub Command1_Click()
    MsgBox "Faltan " & Cont & " parentesis"
End Sub
 
Private Sub Text1_Change()
    If Text1.Text = Empty Then Cont = 0
End Sub
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If Not KeyAscii = 40 Then 'KEYASCII=40 ES (
        If Not KeyAscii = 41 Then 'KEYASCII=41 ES )
            If Not KeyAscii = 8 Then 'KEYASCII=8 ES BACKSPACE
                If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
                    KeyAscii = 0
                End If
            End If
        End If
    End If
    
    If KeyAscii = 40 Then Cont = Cont + 1
    
    If Cont = 0 Then
        If KeyAscii = 41 Then
            KeyAscii = 0
            MsgBox "Falta un '('"
            Exit Sub
        End If
    Else
        If Not KeyAscii = 40 Then 'KEYASCII=40 ES (
            If Not KeyAscii = 41 Then 'KEYASCII=41 ES )
                If Not KeyAscii = 8 Then 'KEYASCII=8 ES BACKSPACE
                    If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
                        KeyAscii = 0
                    End If
                End If
            Else
                Cont = Cont - 1
                If Cont < 0 Then MsgBox "Faltan " & Abs(Cont) & " parentesis"
            End If
        End If
    End If
End Sub
 

[erbuson]

Hola lokoman, en la rutina, deberías permitirle también la introduccion de los signos de operación que se tengan previstos ya que de lo contrario no podrá escribir expresiones matemáticas, sólo paréntesis y números.

Se me ocurre que lo mejor seria un Instr en una cadena de 0123456789-+/*^ y los simbolos que se le ocurran, incluso el . decimal

Saludos

[alej_PT]

Atencion colegas ayer me mate pensando en mi casa con sacar de los parentesis y me salio les paso el codigo para que lo tenga manden opiniones!!!!

Private Function la_igualacion_de_parentesis_es_correcta() As Boolean
'debe chequear el orden de los parentesis
'se guardan en dos vectores las posiciones los parentesis abiertos y cerrado
'luego verifico la posiciones de los parentesis en los vectores
'siempre la posicion de los parentesis cerrados debe ser mayor que la de los abiertos
'si en algun momento la comparacion da falso indicar que estan mal los parentesis
'devolver true si el 'matching' de los parentesis que usa la formula es correcta

Dim abr() As Integer 'def vector para abierto
Dim cier() As Integer 'def vector para cerrados
Dim a As Integer 'def entero para recorrer formula
Dim b As Integer 'def entero para recorrer parentesis
Dim i_abr As Integer 'def indice pare contar abiertos
Dim i_cier As Integer 'def indice para contar cerrados
Dim tope As Integer 'def var para largo de la formula
Dim pos_abr As Integer 'def entero para recordar los parentesis
Dim pformula As String 'def para obtener la formula
Dim caracter As String 'def recorrer cada caracter

pformula = Me.TxtFormula.Text 'obtiene la formula de la ventana
tope = Len(pformula) 'def largo de la formula
ReDim abr(tope) 'redimenciona vector con largo de formula
ReDim cier(tope) 'redimenciona vector con largo de formula

i_abr = 0: i_cier = 0 'inicializa indice
la_igualacion_de_parentesis_es_correcta = True

For a = 0 To tope 'para recorrer los vectores
abr(a) = 0: cier(a) = 0 'inicializa posicion del vector
Next
For a = 0 To tope 'recorre la formula
caracter = MiD$(pformula, a + 1, 1) 'toma el caracter actual
If caracter = "(" Then 'chequea parentesis abierto
abr(i_abr) = a 'guarda la posicion actual
i_abr = i_abr + 1 'agrega uno al contador
End If
If caracter = ")" Then 'chequea parentesis cerrado
cier(i_cier) = a 'guarda la posicion actual
i_cier = i_cier + 1 'agrega uno al contador
End If
Next
tope = i_cier - 1
ReDim Preserve abr(tope)
ReDim Preserve cier(tope)
a = 0
Do While a <= tope 'recore los parentesis cerrados
If cier(a) = 0 Then Exit Do 'si no encuetra parentesis sale
For b = tope To 0 Step -1 'recorre los parentesis abiertos
If abr(b) < cier(a) And abr(b) <> 0 Then 'verifica con los cerrados
abr(b) = 0: cier(a) = 0 'inicializa si los encuentra
Exit For 'sale del for
End If
Next
a = a + 1 'incrementa el contador principal
Loop
For a = 1 To tope 'recorre lo parentesis abiertos
If abr(a) <> 0 Then 'si encuentra alguno entonces los parentesis esta mal
MsgBox "Parentesis mal utilizados!" 'muestra mensaje correspondiente
la_igualacion_de_parentesis_es_correcta = False 'retorna mal
Exit Function 'sale de la funcion
End If
Next
End Function


Saludos!!