elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Introducción a la Factorización De Semiprimos (RSA)


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 [8] 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
71  Programación / Programación Visual Basic / Re: ayuda urgente para una aplicacion en: 15 Abril 2006, 02:51 am
podes hacer que no se sierre:
Private Sub Form_Unload(Cancel As Integer)
 Cancel = 1
End Sub
72  Programación / Programación Visual Basic / Re: Problema con algoritmo de compresion en: 14 Abril 2006, 01:31 am
http://www.planet-source-code.com/vb/scripts/BrowseCategoryOrSearchResults.asp?txtCriteria=compression&blnWorldDropDownUsed=TRUE&txtMaxNumberOfEntriesPerPage=10&blnResetAllVariables=TRUE&lngWId=1&B1=Quick+Search&optSort=Alphabetical

Saludos que te sea de ayuda!!!
73  Programación / Programación Visual Basic / Re: pasar info del list a una BD en: 14 Abril 2006, 01:29 am
poder se puede ahora vere como te lo explico!

agregas un dataenviroment al proyecto, luego verificas que la conexión este bien con tu BD, kreas un comando y agregas las tablas que utilizaras, luego en el codigo fuente haces referencia al record source para poder agregar campos, de manera tal que sea con el "ejecute", y aplicando la clausula "INSERT"

para agregar todo lo del list lo que haces es un for desde 0 hast la cantidad de elementos!!

Solo te pongo el codigo de agregar el del data enviroment no lo puedo poner aka
Código:
For I=0 To List1.ListCount-1
 DE.RSCommand1.Ejecute("INSERT INTO tabla VALUES (" & I & ",'" & List1.List(I) & "')")
Next

Saludos y suerte espero que te sea de ayuda!
74  Programación / Programación Visual Basic / Re: leer un archivo txt en: 14 Abril 2006, 01:12 am
weno fiera poneme unas velitas!!!!! jejejeje no mentira:


Código:
Private Sub Form1_Load()
Open "c:\texto.txt" For Input As #1
    contenido = Input(LOF(1), 1)
Close
Text1.Text = contenido
End Sub

Private Sub Command1_Click()
sw1 = 0: sw2 = 0: X = 1 'Iniciamos las variables
sw3 = 0
Dim Numeros(1 To 10000) 'Creamos un vector
'rellenamos el vector (no es nesesario pero sirve
For I = 1 To UBound(Numeros)
Numeros(I) = ""
Next
'**************************************************
For I = 1 To Len(Text1.Text)
   car = Mid(Text1.Text, I, 1)
   If sw1 = 1 Then
     numero = numero & car
     sw2 = 1
   End If
   If sw2 = 1 And car = " " Then
     Numeros(X) = Trim(numero)
     X = X + 1
     numero = ""
     sw1 = 0: sw2 = 0: sw3 = 0
   End If
   If car = " " And sw3 = 1 Then sw1 = 1
   If car = "=" And sw3 = 0 Then sw3 = 1
Next
'***********************************************
Dim tmptxt
tmptxt = ""
For I = 1 To UBound(Numeros)
If Numeros(I) <> "" Then
   tmptxt = Numeros(I) & vbNewLine & tmptxt
Else
  Exit For
End If
Next
Text2 = tmptxt
End Sub
75  Programación / Programación Visual Basic / Re: leer un archivo txt en: 13 Abril 2006, 16:54 pm
aver provemos esto pone un punto de corte en
tmptxt = ""
y fijate el contenido del array Numeros()

fijate si tiene algo

podes hacer que te los muestre en la ventana de inmediato haci:

msgbox Numeros(1)

si te muestra algo es que se guardan los numeros pero sino es que hay otro problema...
hoy me llevo el codigo este y lo pruevo en mi casa!!
76  Programación / Programación Visual Basic / Re: Mover Titulo del Form en: 13 Abril 2006, 16:48 pm
ok esto es mas o menos facil solo nesesitas un timer unas funciones y listo!!

comenzemos

declaramos como global (en la general)
Código:
dim x as integer,z as integer
 z=1
 x=0

en el timer (cada 1 segundo o un cacho menos)!!
Código:
espacio = " "
 if x=0 then
   for i =1 to z
    comp = comp & espacio
   next
   form1.caption = comp & " Cicklow SOFT®"
   z=z+1
   if z>10 then x=0:z=0
 else
   form1.caption = left("Cicklow SOFT®",len("Cicklow SOFT®")-z)
   z=z-1
   if z <=0 then z=1:x=0
 endif

nidea si funciona bien.. ya que no lo puedo provar, pero esto te dara una idea de coso seria!!
77  Programación / Programación Visual Basic / Re: leer un archivo txt en: 12 Abril 2006, 00:29 am
por una sensilla razon... el texbox no tiene la propiedad value (la tiene pero es  de solo lectura), asike usa
Código:
beto.text = ?
78  Programación / Programación Visual Basic / Re: Como Crear Una como quien diria "Un Login" en: 11 Abril 2006, 19:25 pm
es por eso que uso varias variables separadas!!!
79  Programación / Programación Visual Basic / Re: iniciar programa con windows en: 11 Abril 2006, 18:33 pm
no se si en VB.net, pero en VB comun hay OCX's

en google hay monton, y tambien hay de .net

o

www.planet-source-code.com
80  Programación / Programación Visual Basic / Re: leer un archivo txt en: 11 Abril 2006, 18:32 pm
  perdon cicklow te sigo al pie dela letra y aun no lo logro te paso tal cual como lo puse y fijate:






Private Sub Command1_Click()
beto.Value = tmptxt
End Sub

Private Sub Form_Load()
Open "c:\texto.txt" For Input As #1
contenido = Input(LOF(1), 1)
Close
Text1.Text = contenido

sw1 = 0: sw2 = 0: X = 1 'Iniciamos las variables
Dim Numeros(1 To 10000) 'Creamos un vector
'rellenamos el vector (no es nesesario pero sirve
For I = 1 To UBound(Numeros)
Numeros(I) = ""
Next
'**************************************************
For I = 1 To Len(Text1.Text) 'desde 1 hasta lo que tiene el text1
   car = Mid(Text1.Text, I, 1) 'guardamos de a 1 caracter
   If sw1 = 1 Then '1
     numero = numero & car
     sw2 = 1
   End If
   If sw2 = 1 And car = " " Then '2
     Numeros(X) = numero
     X = X + 1
     numero = ""
     sw1 = 0: sw2 = 0
   End If
   If car = "=" Then sw1 = 1 '3
Next
'***********************************************
Dim tmptxt
tmptxt = ""
For I = 1 To UBound(Numeros)
If Numeros(I) <> "" Then
   tmptxt = Numeros(I) & vbNewLine & tmptxt
Else
  Exit For
End If
Next

End Sub

si no declaramos tmptxt como global no funcionara.
mejoremoslo!::

Código:
Private Sub Command1_Click()
Open "c:\texto.txt" For Input As #1
  contenido = Input(LOF(1), 1)
Close
Text1.Text = contenido

sw1 = 0: sw2 = 0: X = 1 'Iniciamos las variables
Dim Numeros(1 To 10000) 'Creamos un vector
'rellenamos el vector (no es nesesario pero sirve
For I = 1 To UBound(Numeros)
Numeros(I) = ""
Next
'**************************************************
For I = 1 To Len(Text1.Text) 'desde 1 hasta lo que tiene el text1
   car = Mid(Text1.Text, I, 1) 'guardamos de a 1 caracter
   If sw1 = 1 Then '1
     numero = numero & car
     sw2 = 1
   End If
   If sw2 = 1 And car = " " Then '2
     Numeros(X) = numero
     X = X + 1
     numero = ""
     sw1 = 0: sw2 = 0
   End If
   If car = "=" Then sw1 = 1 '3
Next
'***********************************************
Dim tmptxt 'en el anterior si la colokas aka a la variable
tmptxt = "" 'la lee el evento load nada mas!!!!!! colokalas     
                 'colokalas en la general para que te la lean todos!
For I = 1 To UBound(Numeros)
If Numeros(I) <> "" Then
   tmptxt = Numeros(I) & vbNewLine & tmptxt
Else
  Exit For
End If
Next

beto.Value = tmptxt

End Sub
Te digo que este script (por asi decirlo), no lo he provado porke donde estoy no tengo el VB. cualkier cosa avisame!!!

podes usar el script anterior si declaras "Dim tmptxt" en la general!!, y asi te ahorras de amontonar todo!
Páginas: 1 2 3 4 5 6 7 [8] 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines