frmipm.vb

Examen Practico 1 de ssd4 visual 2008

Option Strict Off
Option Explicit On
Friend Class frmIPM
	Inherits System.Windows.Forms.Form
	
	'Arreglo para almacenar las IPMs y realizar la busqueda'
	Private relaciones(4) As String
	
	Public Function getIpmValue(ByRef i As Short) As String
		getIpmValue = relaciones(i)
	End Function
	
	Private Sub cmdDisplay_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdDisplay.Click
		Const conMsg As String = "Por Favor ingresa un valor entre 1 y 5"
		Const conBtns As Short = MsgBoxStyle.OKOnly + MsgBoxStyle.Exclamation + MsgBoxStyle.DefaultButton1 + MsgBoxStyle.ApplicationModal
		Const titleMsgBox As String = "Buscar Texto"
		Dim choice As Short
		
		On Error GoTo DebugErrHandler
		choice = Val(txtNumber.Text)
		If choice >= 1 And choice <= 5 Then
			desplegarEleccion((choice))
		Else
			MsgBox(conMsg, conBtns, titleMsgBox)
			With txtNumber
				.Focus()
				.SelectionStart = 0
				.SelectionLength = Len(.Text)
			End With
		End If
		
DebugErrHandler: 
		Select Case Err.Description
			Case "Overflow", "Type mismatch"
				MsgBox(conMsg, conBtns, titleMsgBox)
				With txtNumber
					.Focus()
					.SelectionStart = 0
					.SelectionLength = Len(.Text)
				End With
		End Select
		
	End Sub
	
	Sub desplegarEleccion(ByRef eleccion As Short)
		
		Select Case (eleccion)
			Case 1, 2, 3, 4, 5
				txtDisplay.Text = getIpmValue(eleccion - 1)
				With txtNumber
					.Focus()
					.SelectionStart = 0
					.SelectionLength = Len(.Text)
				End With
		End Select
	End Sub
	
	Sub buscarTexto(ByRef texto As String)
		Const conMsg As String = "Solamente se presenta la primer relaci髇 encontrada que contiene la " & "palabra clave. Por lo tanto, se recomienda que las palabras claves" & " sean tan aut閚ticas como sea posible."
		Const conBtns As Short = MsgBoxStyle.OKOnly + MsgBoxStyle.DefaultButton1 + MsgBoxStyle.ApplicationModal + MsgBoxStyle.Information
		Const titleMsgBox As String = "Buscar Texto"
		
		Dim position As Short
		Dim result As Short
		Dim result2 As Short
		Dim intCount As Short
		Dim count2 As Short
		Dim count3 As Short
		
		position = 1
		
		For intCount = 0 To 4
			
			'Busqueda de la coincidencia'
			result = (InStr(position, relaciones(intCount), texto, CompareMethod.Text))
			If (result <> 0) Then
				With txtDisplay
					.Text = CStr(intCount + 1) & ". Existe una ocurrencia en la heuristica " & CStr(intCount + 1) & vbNewLine & vbNewLine & relaciones(intCount)
				End With
				
				With txtBusqueda
					.Focus()
					.SelectionStart = 0
					.SelectionLength = Len(.Text)
				End With
				MsgBox(conMsg, conBtns, titleMsgBox)
				
				'Busqueda de las dem醩 coidencias a partir de la primera ocurrencia'
				For count2 = (intCount + 1) To 4
					result2 = (InStr(position, relaciones(count2), texto, CompareMethod.Text))
					If result2 <> 0 Then
						'Para llevar un control de que labels est醤 disponibles para desplegar la siguiente coincidencia'
						For count3 = 0 To 3
							If (lblCoincidencia(count3).Text = "") Then
								lblCoincidencia(count3).Visible = True
								lblCoincidencia(count3).Text = CStr(count2 + 1) & ". Existe una ocurrencia en la heuristica " & CStr(count2 + 1)
								Exit For
							End If
						Next count3
					End If
				Next count2
				Exit For
			End If
			'Cuando no se encuentra ninguna coincidencia'
			With txtDisplay
				.Text = "El texto " & Chr(34) & texto & Chr(34) & " no se encontro"
			End With
		Next intCount
	End Sub
	
	Private Sub cmdSearch_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdSearch.Click
		Const conMsg As String = "Por Favor ingrese un palabra con al menos tres caracteres"
		Const conBtns As Short = MsgBoxStyle.OKOnly + MsgBoxStyle.Exclamation + MsgBoxStyle.DefaultButton1 + MsgBoxStyle.ApplicationModal
		Const titleMsgBox As String = "Buscar Texto"
		If Len(txtBusqueda.Text) >= 3 Then
			buscarTexto((txtBusqueda.Text))
		Else
			MsgBox(conMsg, conBtns, titleMsgBox)
			With txtBusqueda
				.Focus()
				.SelectionStart = 0
				.SelectionLength = Len(.Text)
			End With
		End If
	End Sub
	
	Private Sub frmIPM_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
		
		relaciones(0) = "El uso de conceptos conocidos, lenguaje com鷑 y convenciones del mundo rea" & "l, nos permiten utilizar el conocimiento con el que cuentan ya los usuar" & "ios, as