Ingeniero Técnico en Informática de Sistemas


Programa informático


' PROGRAMA PARA EVALUAR UNA EXPRESION

Dim igual, error_tipo, no_texto, abierto, cerrado As Integer

Dim cadena, aux As String

Dim vector(1 To 40) As String

Private Sub Command1_Click()

Command2.Visible = True

Command1.Visible = False

abierto = 0

cerrado = 0

error_tipo = 0

igual = 0

no_texto = 2

ya1 = 0

ya2 = 0

ya3 = 0

If (Text1.Text = Null) Then

long_cad = 0

no_texto = 1

Else

long_cad = Len(cadena)

End If

For i = 1 To long_cad

vector(i) = Mid(cadena, i, 1)

Next i

' I N I C I A E V A L U A C I O N

' calculando posición del signo igual

For i = 1 To long_cad

If vector(i) = "=" Then

igual = i

Exit For

End If

Next i

' error tipo 1

If (vector(1) = "=") Then

error_tipo = 1

MsgBox "ERROR 1 Ausencia de identificador", vbExclamation, "Mensaje de error"

End If

' error tipo 2

For i = 2 To igual - 1

If (vector(i) = ".") Then

error_tipo = 2

MsgBox "ERROR 2 No es correcto incluir un punto en el identificador", vbExclamation, "Mensaje de error"

End If

Next i

' error tipo 3

For i = 0 To 9

If (vector(1) = i) Then

error_tipo = 3

MsgBox "ERROR 3 No es correcto iniciar un identificador con un numero", vbExclamation, "Mensaje de error"

Exit For

End If

Next i

' error tipo 4

If (igual <> 0) Then

If (vector(1) = "*" Or vector(1) = "/" Or vector(1) = "+" Or vector(1) = "-" Or vector(1) = "(" Or vector(1) = ")" Or vector(1) = ".") Then

error_tipo = 4

MsgBox "ERROR 4 No es correcto iniciar un identificador con un operador o un punto", vbExclamation, "Mensaje de error"

End If

End If

' error tipo 5

If (vector(igual + 1) = "=") Then

error_tipo = 5

MsgBox "ERROR 5 No es correcto colocar más de un signo de igual consecutivo", vbExclamation, "Mensaje de error"

End If

' error tipo 6

If (igual <> 0) Then

If (vector(igual + 1) = "*" Or vector(igual + 1) = "/" Or vector(igual + 1) = "+" Or vector(igual + 1) = ")") Then

error_tipo = 6

MsgBox "ERROR 6 No es correcto colocar un parentesis derecho o un operador diferente de -, despues del signo =.", vbExclamation, "Mensaje de error"

End If

End If

' error tipo 7

If (no_texto = 2) Then

For i = igual + 1 To long_cad

If (vector(i) = "(") Then

abierto = abierto + 1

If (ya3 = 0) Then

If (vector(i + 1) = ")") Then

error_tipo = 7

MsgBox "ERROR 7 Es incorrecto no colocar nada entre los parentesis ().", vbExclamation, "Mensaje de error"

ya3 = 1

End If

End If

If (ya1 = 0) Then

If (vector(i + 1) = "*") Or vector(i + 1) = "/" Or vector(i + 1) = "+" Then

error_tipo = 7

MsgBox "ERROR 7.1 No es correcto colocar un operador diferente de -, despues de ""("", vbExclamation, ", "Mensaje de error"

ya1 = 1

End If

End If

End If

If (vector(i) = ")") Then

cerrado = cerrado + 1

If (vector(i - 1) = "*" Or vector(i - 1) = "/" Or vector(i - 1) = "+" Or vector(i - 1) = "-") Then

error_tipo = 7

MsgBox "ERROR 7.2 No es correcto colocar un operador antes de "")"", vbExclamation", "Mensaje de error"

End If

If (ya2 = 0) Then

If (cerrado > abierto) Then

error_tipo = 7

MsgBox "ERROR 7.3 No es correcto colocar un "")"" sin un ""("" previo.", vbExclamation, "Mensaje de error"

ya2 = 1

End If

End If

End If

Next i

If (abierto <> cerrado) Then

error_tipo = 7

MsgBox "ERROR 7.4 El número de parentesis que se abre es diferente a los cerrados.", vbExclamation, "Mensaje de error"

End If

End If

' error tipo 8

For i = igual + 1 To long_cad

If (vector(i) = "*" Or vector(i) = "/" Or vector(i) = "+" Or vector(i) = "-") Then

If (vector(i + 1) = "*" Or vector(i + 1) = "/" Or vector(i + 1) = "+" Or vector(i + 1) = "-") Then

error_tipo = 8

MsgBox "ERROR 8 No es correcto colocar más de un operador consecutivo.", vbExclamation, "Mensaje de error"

Exit For

End If

End If

Next i

' error tipo 9

If (igual <> 0) Then

If (long_cad <> 0) Then

If (vector(long_cad) = "*" Or vector(long_cad) = "/" Or vector(long_cad) = "+" Or vector(long_cad) = "-") Or vector(long_cad) = "=" Then

error_tipo = 9

MsgBox "ERROR 9 No es correcto colocar un operador al final de la expresion", vbExclamation, "Mensaje de error"

End If

End If

End If

' error tipo 10

If (no_texto = 2) Then

If (igual = 0) Then

error_tipo = 10

MsgBox "ERROR 10 No se escribio una ecuacion. Ausencia de signo igual.", vbExclamation, "Mensaje de error"

End If

End If

' EN ESTA SECCION SE EVALUA SI EXISTE UNA CADENA Y SI ES CORRECTA

' DE SER CORRECTA, SE VISUALIZA LA SEGUNDA IMAGEN

If (error_tipo = 0) Then

If (no_texto = 2) Then

Label3.Visible = True

'image1.Visible = True

End If

End If

End Sub

Private Sub Command2_Click()

Text1.Text = ""

error_tipo = 0

Command1.Visible = True

Command2.Visible = False

Label3.Visible = True

'image1.Visible = True

End Sub

Private Sub text1_change()

cadena = Text1.Text

End Sub

Private Sub Text1_keyPress(keyAscii As Integer)

If (keyAscii = vbKeyReturn) Then

Call Command1_Click

End If

If keyAscii = Asc(";") Or keyAscii = Asc(",") Or keyAscii = Asc(":") Or keyAscii > Asc("Z") Or keyAscii < Asc("(") Or keyAscii = Asc("_") Or keyAscii = Asc("<") Or keyAscii = Asc(">") Or keyAscii = Asc("?") Then

keyAscii = 0

Beep

End If

End Sub




Descargar
Enviado por:Zalazar
Idioma: castellano
País: México

Te va a interesar