Mensajes

 ¿y esto? http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-api3.htm

[InoSetup]

 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 

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

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!)... 

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...!

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... 

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?

Prueba asi...

Código [Seleccionar] Expandir

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!

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 [Seleccionar] Expandir

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!...

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... 

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 (vb) [Seleccionar] Expandir

Private Sub CmdDivision_Click()
    MsgBox Val(Text1.Text) / Val(Text2.Text)
End Sub

Private Sub CmdMultiplicacion_Click()
    MsgBox Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub CmdResta_Click()
    MsgBox Val(Text1.Text) - Val(Text2.Text)
End Sub

Private Sub CmdSuma_Click()
    MsgBox Val(Text1.Text) + Val(Text2.Text)
End Sub


¡hay que aprender a buscar amigo!

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...

[Microsoft Common Dialog Control 6.0]

 No entendi muy bien! si lo que queres es agregar el componente, has esto, sino... explicate un poco mejor...

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! 

 Hola... con un poco más de tiempo...

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 (vb) [Seleccionar] Expandir

Puerto = InputBox("Ingrese Puerto para Escuchar:", "Share Escuchar", "200")
If Puerto = vbCancel Then' <--- ???
   Exit Sub
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 (vb) [Seleccionar] Expandir

If Puerto <> "" Then
   'Hago algo...
End If

'ó asi:

If Puerto = "" Then
   'Hago algo...
End If

Usando tu code, yo lo haria asi:

Código (vb) [Seleccionar] Expandir

Option Explicit
'----------------------------------- _
Controlando entradas de un ImputBox _
------------------------------------

Private Sub Form_Load()
Dim Puerto As String 'Almacenará el puerto de escucha
   
Repetir: 'Repetir hasta que se presione cancelar, se cierre la ventanita "X" ó hasta _
que el valor devuelto sea valido
   
    'Almacenamos el valor
    Puerto = InputBox("Ingrese Puerto para Escuchar:", "Share Escuchar", "200")
   
    'Si "Puerto" tiene algun valor, es porque NO se ha cancelado
    If Puerto <> "" Then
        'En ese caso, verificamos que sea un valor de puerto válido, sino repetimos
        If IsNumeric(Puerto) Then
            'Tu code
            WS.Close 'Cerrando el socket
            WC.Close
   
            WC.LocalPort = Puerto 'Asignando puerto
            WC.Listen 'Escuchando...
            Command1.Enabled = False
            Form1.Caption = "Share - Esperando Conexión"
            Color (3)
        Else
            GoTo Repetir
        End If
    Else
        'Si cancelamos, nos vamos... :-[
        MsgBox "¡Se cancelo!...", vbInformation, "Share Escuchar"
        Exit Sub
    End If
       
    'Mostramos el número de puerto...
    MsgBox "El número de puerto introducido es el '" & Puerto & "'"
End Sub

Saludos! espero que te sea de utilidad... 

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 [Seleccionar] Expandir

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...