Exercicio de vb.net sobre busca

Disponível somente no TrabalhosFeitos
  • Páginas : 5 (1073 palavras )
  • Download(s) : 0
  • Publicado : 14 de novembro de 2011
Ler documento completo
Amostra do texto
• Classe Mecanismo de Busca
Public Class MecanismoDeBusca
Private nome(10) As String ' Quando as variáveis são declaradas fora do método, tornam-se globais
Private indice As Integer = -1 ' e são reconhecidas e acessadas por todos os métodos desta classe
'O propósito deste método é receber o texto do form e guardá-lo, sequencialmente no array
Public FunctionsetNome(ByVal nome As String) As Boolean
Dim cheio As Boolean = False
indice = indice + 1
Me.nome(indice) = nome
If indice = 9 Then cheio = True
Return cheio
End Function
'O propósito deste método é recuperar a posição da primeira ocorrência do nome procurado
Public Function getPosicaoSequencial(ByVal nome As String) As Integer
Dimposicao As Integer = -1
For i = 0 To indice
If (Me.nome(i) = nome) Then
posicao = i
Exit For
End If
Next
Return posicao
End Function
'O propósito deste método é recuperar quantas ocorrências existem da no vetor
Public Function getOcorrenciasSequencial(ByVal nome As String) As Integer
Dimocorrencias As Integer = 0
For i = 0 To indice
If (Me.nome(i) = nome) Then ocorrencias = ocorrencias + 1
Next
Return ocorrencias
End Function
'Este método tem o objetivo de apagar todo o conteúdo do array
Public Sub zeraArray()
For i = 0 To indice
nome(i) = ""
Next
indice = -1
End Sub
'Retorna oarray
Public Function getNome() As String()
Return Me.nome
End Function
• Form Classifica vetor
Public Class Form
Dim classifica As New Classifica ' Quando as variáveis são declaradas fora do método, tornam-se globais e são reconhecidas e acessadas por todos os métodos desta classe. Neste caso, se eu a colocasse dentro do método, a cada declaração eu iniciaria um processonovo e o array nunca seria carregado sequencialmente (a cada click, um novo array seria criado)
'Sai do Programa
Private Sub bSair_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bSair.Click
End
End Sub
'Limpa o Array. Torna o botão de incluir habilitado.
Private Sub bLimpar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles bLimpar.Click
classifica.zeraArray()
bIncluir.Enabled = True
txtNome.Text = ""
atualizaArray()
End Sub
'Invoca o método de inclusão da classe "Classifica". Se o array estiver cheio, desabilita botão incluir
Private Sub bIncluir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bIncluir.Click
If(Trim(txtNome.Text) = "") Then Exit Sub
If (classifica.setNome(txtNome.Text)) Then bIncluir.Enabled = False
txtNome.Text = ""
txtNome.Focus()
atualizaArray()
End Sub
'Invoca o método que retorna o conteúdo do array
Private Sub atualizaArray()
Dim nomes(10) As String
Dim indice As Integer = classifica.getIndice
nomes =classifica.getNome()
lstNomes.Items.Clear()
For i = 0 To indice
Me.lstNomes.Items.Add(nomes(i))
Next
End Sub
' Método chamado pelo botão
Private Sub bClassificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bClassificar.Click
classifica.ordenaArray()
atualizaArray()
End Sub
End Class
• Form PesquisaPublic Class Pesquisa
Dim mBusca As New MecanismoDeBusca ' Quando as variáveis são declaradas fora do método, tornam-se globais e são reconhecidas e acessadas por todos os métodos desta classe. Neste caso, se eu a colocasse dentro do método, a cada declaração eu iniciaria um processo novo e o array nunca seria carregado sequencialmente (a cada click, um novo array seria criado)
'Sai do...
tracking img