Visual Basic

Crear un visualizador de fuentes en VB 6.0

Bueno este post lo escribí hace algunos días en mi blog pero para ser sincero creo que puede servir mas por acá, ya que yo no cuento con muchas visitas :lol:

Bueno para crear el visualizador necesitamos lo siguiente:

    1 CommandButton: con el que hacemos la orden para cargar las fuentes
    1 ListBox: con la propiedad Sorted = True (aquí es donde se cagaran nuestras fuentes)
    1 TextBox: que es donde podremos testear las fuentes

Bueno aquí el código:

Visual Basic:
  1. Private Sub Command1_Click()
  2. Dim font As Integer
  3. List1.Clear
  4. For font= 0 To Screen.FontCount - 1
  5. List1.AddItem Screen.Fonts(font)
  6. Next font
  7. List1.ListIndex = 0
  8. End Sub
  9. Private Sub List1_Click()
  10. Text1.Text = List1.List(List1.ListIndex)
  11. Text1.Font = List1.List(List1.ListIndex)
  12. End Sub

(continue reading...)

e8d7e3d21a00fc0ada98381ecfaf5b56
Share via email

Búsqueda Secuencial por Bloques en Visual Basic .Net (vb)

Continuando con los métodos de búsqueda, seguimos con la busqueda secuencial por bloques que es mas eficiente que las busquedas secuenciales normales, ya

que suma la ventaja de que tiene el vector ordenado más la busqueda en un vector dividido en bloques.

El algoritmo es el siguiente:

Se divide el vector entero en bloques de (int (raíz(tamaño del vector))) elementos por bloque.
Se recorre el vector con un contador que se ira incrementando en saltos de (int (raíz(tamaño del vector))) y se va tomando el ultimo numero de cada

bloque para compararlo con el numero buscado.
Si el ultimo numero de cada bloque es igual al numero encontrado, entonces "el numero fue encontrado" de lo contrario se pregunta si el ultimo numero de

cada bloque es mayor al numero buscado, sí si, entonces se incrementa el contador en (int (raíz(tamaño del vector))) elementos. Si no entonces significa

que el numero buscado esta dentro de ese bloque, por lo que se comienza a buscar secuencialmente dentro de ese bloque.

Pero una imagen dice más que mil palabras:

Aquí está el codigo en VB.Net
(continue reading...)

25045f52b171217de0289ec3deeca8f2
Share via email

Búsqueda Binaria (Búsqueda Dicotómica) en Visual Basic .NET (vb)

Continuando con los métodos de búsqueda, seguimos con la búsqueda binaria. Este método es el que habitualmente utilizamos los humanos para encontrar un determinado elemento en una lista previamente ordenada.

El algoritmo es el siguiente:

  1. Se compara el valor buscado con el del elemento central del vector
    • Si coinciden, se ha encontrado el numero y se finaliza la búsqueda.
    • Si no coinciden, se determina si el valor buscado debe estar en la mitad izquierda o derecha del vector, dependiendo de si es inferior o superior, respectivamente, del elemento central.

La posición del elemento central del vector es calculado con la siguiente formula:

pMitad = int((pInicial + pFinal)/2)

Donde pInicial y pFinal son las posiciones inicial y final del subVector que se está considerando.

  1. En la mitad donde se deba continuar la búsqueda, se continua de la misma manera, es decir; se compara el valor buscado con el elemento central de esa mitad.
    • Si coinciden, se ha encontrado el numero y se finaliza la búsqueda.
    • Si no coinciden, se determinaen cúal de las dos mitades de esta subMitad debe estar el valor buscado.
  1. Se continua de este modo (dividiendo el vector en subMitades) hasta que la búsqueda:
    • Finalice con exito (se encuentre el elemento)
    • Se finalice sin exito (no se encontro el elemento)
  1. Cuando pInicial sea mayor o igual a pFinal y su contenido sea diferente del valor buscado, entonces se considera que el valor buscado no existe en el vector.

Este es el algoritmo:
Click para agrandar

Aquí está el código en VB.Net
(continue reading...)

bb1c8e8699bdfa071d34312466986a38
Share via email

Búsqueda Secuencial en Vector Ordenado en Visual Basic .NET (vb)

Continuando con los métodos de búsqueda, seguimos con la busqueda secuencial pero ahora en un vector ordenado, lo cual tiene mas eficiencia que el mismo método pero en vector desordenado. Aquí la ventaja es de que como tu ya sabes que el vector ya esta ordenado de antemano, es más fácil y rapido detectar cuando el elemento no se encuentra dentro del vector. Pero esto no significa que este método sea el más rápido.

El algoritmo es el siguiente:

Se toma el elemento a buscar y se compara con cada una de las posiciones del vector donde esta el conjunto de datos.
Esto se hace dentro de un ciclo el cual dejará de girar cuando se encuentre un numero igual al buscado o cuando se termine el vector o cuando se detecte que un elemento dentro del vector es mayor que el buscado (en un vector ordenado ascendente).
Sí no se encontró el numero buscado, se envía un mensaje indicando que el elemento buscado no fue encontrado, de lo contrario haces lo que tu decidas con el elemento encontrado.

Aquí está el codigo en VB.Net
(continue reading...)

89ebdfcb3a4f26e1caa059ea384f1dc0
Share via email

Búsqueda Secuencial en Vector Desordenado en Visual Basic .NET (vb)

Un tema importante en la estructura de datos, es la búsqueda de estos. Muchas veces se pueden tener cantidades enormes de datos y su manipulación se vuelve cada vez mas complicada y tardada, es por esto que los métodos de búsquedas deben ser bastante eficaces para poder encontrar un dato especifico dentro de una gran cantidad de datos y en el menor tiempo posible.

Este método de búsqueda (secuencial) es sin duda el más sencillo y recomendable cuando tienes una cantidad de datos mínima, ya que es muy fácil de programar. La desventaja es que no es recomendable para bucar algun dato dentro de una cantidad muy grande de datos ya que su desempeño sería bastante lento.

El algoritmo es el siguiente:

Se toma el elemento a buscar y se compara con cada una de las posiciones del vector donde esta el conjunto de datos.
Esto se hace dentro de un ciclo el cual dejará de girar cuando se encuentre un numero igualal buscado o cuando se termine el vector.
Sí no se encontró el numero buscado, se envía un mensaje indicando que el elemento buscado no fue encontrado, de lo contrario haces lo que tu decidas con el elemento encontrado.

He aquí el diagrama de flujo:

Y aquí está el codigo en VB.Net
(continue reading...)

aa2d4df51490fde1f26f53172aa3461f
Share via email

Copyright © 1996-2010 Recursos Del Web. All rights reserved.
iDream theme by Templates Next | Powered by WordPress