send
Grupo de Telegram
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Tuto, crear un buscador de seriales

  • 0 Respuestas
  • 1934 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado alexander1712

  • *
  • Underc0der
  • Mensajes: 851
  • Actividad:
    0%
  • Reputación -2
    • Ver Perfil
    • El blog del programador
    • Email
« en: Enero 26, 2013, 03:03:30 am »
¿como crear un buscador de seriales?

1) necesitamos un archivo txt con un monton de seriales, como por ejemplo este que es mío: seriales.txt

2) le cambiaremos el nombre por data.srl y lo meteremos en la carpeta que tendremos nuestro proyecto :D

3) creamos un nuevo proyecto de vb6 (un exe)

agregamos un label en el que pondremos "ingrese el nombre de la aplicación" y un textbox al lado donde la persona ingresará el nombre del programa al que quiere buscar el serial. luego un command button en donde ingresaremos de caption "buscar"

abajo pondremos un listbox donde quedará la lista de los seriales encontrados.

4) crearemos un modulo bas. (ingresaremos la funciones)

en el modulo bas pondremos esto:

Código: You are not allowed to view links. Register or Login
'#########################
'#  Modulo Especial para el tutorial   #
'#   Del buscador de seriales           #
'#########################
option explicit
dim seriales as string

public function abrir_seriales() 'esta será la funcion para abrir la lista de seriales
    Open app.path & "\data.srl" For Input As #1
        seriales = Input(LOF(1), #1)
    Close #1
end function

public function buscar(byval lista as listbox, palabra as string) 'funcion que buscará los seriales
Dim t() As String
Dim linea As String
dim response as string
t = Split(Text1.Text, vbCrLf)
For cuenta = 0 To UBound(t)
linea = t(cuenta)
response = instr(1,linea,palabra,vbtextcompare)
if response <> 0 then
lista.additem linea
end if
Next cuenta
end function

public function separate(byval index as integer, texto as string) 'separamos y devolvemos las palabras utilizando un index
dim alex, ins1, ins2 as integer
for alex=1 to index
ins2= instr(ins1,texto," ",vbtextcompare)
separate= mid(texto,ins1,ins2-ins1)
ins1= instr(ins2,texto," ",vbtextcompare)
next alex
end function

public function wath_index(byval texto as string) 'devuelve la cantidad de indexes en el texto
dim alex as integer
alex = 1
dim contador as integer
dim yn as boolean
do while yn <> true
alex = instr(alex,texto," ",vbtextcompare)
if alex <> 0 then
contador = contador + 1
else
yn=true
end if
loop
wath_index=contador
end function

de que nos sirve esto? pues piensen, con la funcion abrir_seriales se guardan todos los seriales en memoria para luego buscarlos. con la funcion wath_index devuelve la cantidad de palabras que hay en lo que el usuario ingresa para buscar. con separate devuelve la palabra que le indiquemos en el texto que ingresa el usuario. si le ponemos

Código: You are not allowed to view links. Register or Login
separate 1,text1.text
sacará la primer palabra del text1 podríamos separar cada una de las palabras y realizar una busqueda con la funcion buscar, para que busque cada palabra en la lista de seriales, y devuelva el serial correspondiente a esa palabra.

lindo modulo no? pues con eso ya tendríamos hecho todo el code, pero no se los terminaré, terminenlo ustedes, para algo tienen el bocho :D las funciones estan explicadas en el texto anterior.
« Última modificación: Mayo 12, 2014, 02:54:28 pm por Expermicid »

 

¿Te gustó el post? COMPARTILO!



Vídeotutorial: Crear Binder en Visual Basic 2008

Iniciado por Stiuvert

Respuestas: 1
Vistas: 1733
Último mensaje Septiembre 02, 2011, 11:14:03 am
por Ov3rd34th
Crear change icon by m3x1c0h4ck

Iniciado por m3x1c0h4ck

Respuestas: 2
Vistas: 1741
Último mensaje Mayo 26, 2012, 03:09:00 pm
por Slore