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

 

 


Tema destacado: Rompecabezas de Bitcoin, Medio millón USD en premios


  Mostrar Mensajes
Páginas: 1 ... 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 [82] 83 84 85
811  Programación / Programación Visual Basic / Re: Visor de estado de Ram en: 13 Enero 2008, 17:56 pm
 ¿y esto? http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-api3.htm

812  Programación / Programación Visual Basic / Re: como saco u programa de visual basic 6 en: 12 Enero 2008, 19:11 pm
 Te paso que no sepas compilar el proyecto, con vb en ingles es cuestión de buscar y si no se te da el lenguaje ¡todo un tedio! ¡pero que no sepas guardar! uhmm... ¡básico! ¡no! bueno... aunque dices ya estar dominándolo  :huh:

 
Citar
hola buenas tardes como saco un programa del visual basic 6 para instalar en mi PC  gracias

Citar
he hecho un cliente en visual basic 6 pero esta en ingles como podriar extraer el cliente para poder ejecutarlo en otra PC y grabarlo a un disco no se

 Bien... te lo explico de la manera mas facil...

 ¿Compilar? ¡si, y mas! --> http://www.elguille.info/vb/cursos_vb/BASICO/basicob1.htm

 Después de compilarlo lo puedes llevar a donde quieras, si por otro lado queres algo parecido a un sistemas de instalación, lo mas fácil que podrías hacer es usar el empaquetador que trae el vb, porque no creo que estés capacitado para hacerte uno tu mismo (sin ánimos de ofender, ¡en serio!)...  :-X

Básico, pero muy, muy básico:
 Creas tu proyecto, "lo guardas, una vez lo inicies" (por si acaso), programas lo que queráis, lo guardas al terminar, lo compilas (el guille te lo explica mejor que yo) y luego...

 Te vas a inicio --> programas --> Microsoft Visual Studio 6.0 --> Herramientas de Microsoft Visual Studio 6.0 -->  y clickeas "Asistente para empaquetado y distribución"

 Aparecerá una ventanita "Asistente de Empaquetado y Distribución" (en tu caso creo que te saldrá en ingles), selecciona examinar, busca tu proyecto .vbp y le das a empaquetar y después siguiente, siguiente, hasta que finalice y ¡ya esta! no es gran cosa, en la carpeta "Paquete" que se creara, encontraras tu setup, al ejecutarlo y seguir las instrucciones, instalará tu proyecto en la maquina donde le des run...

 Existen otras opciones para esto de las instalaciones usando aplicaciones externas, InoSetup es uno de ellos si no recuerdo mal... otros por hay... esta es la opción que yo te doy, lo demás...

Pd: Yo no he probado el resultado del empaquetado en otras maquinas diferentes a la mía, así que no se como se comportará...  :¬¬ ¡pues eso poco me importa! ¡tal vez te resulte!

Pd2: también podes guardar el setup resultante del empaquetado (con todos sus archivos correspondientes) junto con un Autorun, todo en un disco... todo dependerá de lo que realmente deseáis...

 S4lu2!  y recuerda que no es malo no saber… ¡malo es no buscar...!
813  Programación / Programación Visual Basic / Re: si no compilas en visual basic 6 en: 10 Enero 2008, 23:24 pm
Citar
si no compilas los proyectos en visual basic 6 se pierde el proyecto al abrir un nuevo proyecto

 Depende! si no guardas el proyecto lo pierdes! mientras tengas tu proyecto guardado nunca lo perderas si sos cuidadoso, debe ser constumbre guardar el proyecto una vez iniciado...

 No se porque te enrredas tanto con esto, guardar no es cosa de otro mundo:
 menu Archivo --> Guardar Proyecto...  :rolleyes:

Edit: Podes tener cantidades de proyectos guardados sin compilar y aun asi no los perderas.

 para ponerte un ejemplo si haces un trabajo en word y no lo guardas al cerrar... ¡lo pierdes! ¿cierto?
814  Programación / Programación Visual Basic / Re: ayuda con la funcion rnd en: 6 Enero 2008, 19:30 pm
Prueba asi...

Código:
Option Explicit

Private Sub Command1_Click()
Dim Numero As Integer
    Randomize
    Numero = Rnd * 10
    If Text1.Text = "" Then Exit Sub
    If Val(Text1.Text) = Numero Then
        MsgBox "acertaste! el numero era: '" & Numero & "'"
    Else
        MsgBox "fracasaste! el numero era: '" & Numero & "'"
    End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
'Este procedimiento permite que se incerten, solo las teclas deseadas usando la Ascii.

    If KeyAscii <> 8 Then 'Verifica si se presionó las teclas de direcciones.
        If KeyAscii < 48 Or KeyAscii > 57 Then
                KeyAscii = 0
        End If
    End If
End Sub

Saludos!
815  Programación / Programación Visual Basic / Re: consulta en: 1 Enero 2008, 02:02 am
Citar
eso si pero lo que siempre me preguntado el tanto porciento lo marginan nunca e savido como se hace lo pregunte mas de una vez pero no me entere

 Si te refieres al porcentaje de un  número...

 El porcentaje a% de b se calcula multiplicando el resultado del cociente a:100 por b

 Seria algo como esto:

Código:
Private Sub CmdPorcentaje_Click()
    MsgBox (TextCantidad_Absoluta / 100) * (TextCantidad_de_Referencia)
End Sub

 Si usamos el code para calcular el 50% de 2000, obviamente deberia mostrar en pantalla 1000, ¿cierto?

 TextCantidad_Absoluta --> 50
 TextCantidad_de_Referencia --> 2000
 50% de 2000 --> 1000

 Saludos!...
816  Programación / Programación Visual Basic / Re: consulta en: 1 Enero 2008, 01:17 am
Citar
LO que quiero hacer ES UNA CALCULADORA I NO ME ACUERDO COMO hacer que SUME O MULTIPLIKE I que MUESTRE UN MENSAJE CON EL RESULTADO ESTO ES LO que hago I NO SE que hago MAL:
No es necesario que se alteren...  :huh:

Citar
si con "sumar" te refieres a otra cosa... Se mas especifico.

 Opino lo mismo, estas dudas son muy básicas, puedes leer manuales como el siguiente:
http://mat21.etsii.upm.es/ayudainf/aprendainf/VisualBasic6/vbasic60.pdf

 Aprenderas mas leyendo y practicandolo.

 Para que comiences te dejo esto:
Código
  1. Private Sub CmdDivision_Click()
  2.    MsgBox Val(Text1.Text) / Val(Text2.Text)
  3. End Sub
  4.  
  5. Private Sub CmdMultiplicacion_Click()
  6.    MsgBox Val(Text1.Text) * Val(Text2.Text)
  7. End Sub
  8.  
  9. Private Sub CmdResta_Click()
  10.    MsgBox Val(Text1.Text) - Val(Text2.Text)
  11. End Sub
  12.  
  13. Private Sub CmdSuma_Click()
  14.    MsgBox Val(Text1.Text) + Val(Text2.Text)
  15. End Sub
  16.  

 ¡hay que aprender a buscar amigo! :¬¬
817  Programación / Programación Visual Basic / Re: consulta en: 1 Enero 2008, 00:48 am
Citar
mi pregunta es como puedo sumar en vb6 gracias

 Creo que eso tiene que ver con simple lógica algebraica...

 Suma = Variable1 + variable2 + variable3

 No entendi... explicate mejor...
818  Programación / Programación Visual Basic / Re: comondialog en: 30 Diciembre 2007, 20:21 pm
 No entendi muy bien! si lo que queres es agregar el componente, has esto, sino... explicate un poco mejor... :huh:

 Os vais a menu Proyecto --> Componentes --> y chequeáis el Microsoft Common Dialog Control 6.0, luego simplemente le das doble click al componente que aparecerá en el cuadro de herramientas y ¡ya esta! observareis que se añade al formulario que tenga el foco en ese momento (el que esteis usando, claro esta)...

 Espero, sea lo que queres, ¡saludos!  :P
819  Programación / Programación Visual Basic / Re: problema con CommonDialog en: 30 Diciembre 2007, 20:07 pm
 Hola... con un poco más de tiempo...

Citar
pense q seria como el msgbox... pero se ve q no xD jejej alguna idea de como hacerlo? aca no puedo usar el On Error Goto xq lo use para el caso de q en el puerto pongan una palabra...

 Al parecer, no!

Código
  1. Puerto = InputBox("Ingrese Puerto para Escuchar:", "Share Escuchar", "200")
  2. If Puerto = vbCancel Then' <--- ???
  3.   Exit Sub
  4. End If

 Cuando se presiona el botón Cancelar o se cierra el imputBox usando la X, el programa devuelve una cadena de caracteres igual a 0, por lo tanto --> Puerto = "" y la comparación deberia ser:
Código
  1. If Puerto <> "" Then
  2.   'Hago algo...
  3. End If
  4.  
  5. 'ó asi:
  6.  
  7. If Puerto = "" Then
  8.   'Hago algo...
  9. End If

 Usando tu code, yo lo haria asi:

Código
  1. Option Explicit
  2. '----------------------------------- _
  3.  Controlando entradas de un ImputBox _
  4. ------------------------------------
  5.  
  6. Private Sub Form_Load()
  7. Dim Puerto As String 'Almacenará el puerto de escucha
  8.  
  9. Repetir: 'Repetir hasta que se presione cancelar, se cierre la ventanita "X" ó hasta _
  10. que el valor devuelto sea valido
  11.  
  12.    'Almacenamos el valor
  13.    Puerto = InputBox("Ingrese Puerto para Escuchar:", "Share Escuchar", "200")
  14.  
  15.    'Si "Puerto" tiene algun valor, es porque NO se ha cancelado
  16.    If Puerto <> "" Then
  17.        'En ese caso, verificamos que sea un valor de puerto válido, sino repetimos
  18.        If IsNumeric(Puerto) Then
  19.            'Tu code
  20.            WS.Close 'Cerrando el socket
  21.            WC.Close
  22.  
  23.            WC.LocalPort = Puerto 'Asignando puerto
  24.            WC.Listen 'Escuchando...
  25.            Command1.Enabled = False
  26.            Form1.Caption = "Share - Esperando Conexión"
  27.            Color (3)
  28.        Else
  29.            GoTo Repetir
  30.        End If
  31.    Else
  32.        'Si cancelamos, nos vamos... :-[
  33.        MsgBox "¡Se cancelo!...", vbInformation, "Share Escuchar"
  34.        Exit Sub
  35.    End If
  36.  
  37.    'Mostramos el número de puerto...
  38.    MsgBox "El número de puerto introducido es el '" & Puerto & "'"
  39. End Sub

 Saludos! espero que te sea de utilidad...  :P
820  Programación / Programación Visual Basic / Re: problema con CommonDialog en: 30 Diciembre 2007, 02:49 am
Citar
si yo no pongo abrir y pongo cancelar tira un error y se cierra el programa...

 Para evitar que se cierre al cancelar, yo hacia esto:

Código:
Private Sub Command1_Click()
On Error Resume Next

    With CommonDialog1
        .CancelError = True 'Esto hará que VB devuelva un error al pulsar Cancelar
        .ShowOpen 'Muestra el cuadro de diálogo Abrir
       
        'Si no se ha producido ningún error, es que NO se ha pulsado Cancelar
        If Err.Number = 0 Then
            'Aqui tu code
        End If
    End With
   
   
    '-------------------------->> Control de Errores <<------------------------------
    'Es buena costumbre volver a ponerlo a cero... así dejamos de detectar errores
    Err = 0 'cancelamos el error/ 0 es que no hay error
    On Local Error GoTo 0 'sirve si queremos dejar de detectar errores
End Sub

 Saludos! ¡quizas sirva de algo! voy rápido y no me da tiempo de leer más... :rolleyes:
Páginas: 1 ... 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 [82] 83 84 85
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines