Mensajes

Buenas a todos, soy aprendiz en VB6 y quisiera que me ayuden con este problema, NO se como usar Do Loop y quiero Determinar si un numero es primo usando Do Loop.

Si alguien tiene conocimiento sobre esto, ayudarme por favor. 

Saludos

¿Otra vez quieres que te hagamos la tarea?

Yo una vez hice un bingo, pero era en C no en VB. Aunque no encuentro el código, lo que hice fue tener un array de dos dimensiones. En una todos los posibles números que podían salir, por ejemplo del 1 al 50. Y en la segunda dimensión del array un 0 si el número no había salido y un 1 cuando ya había salido.
Así generaba números aleatorios con random y comprobaba si el número había salido si la segunda dimensión del array estaba en 1 por lo tanto creaba un bucle que no terminase mientras el valor de la segunda dimensión fuese 1.

Es fácil la idea. Si lo haces así no te será demasiado complicado hacerlo.

Saludos!

Con el Reshacker lo podrías traducir de todas formas sin problemas aunque no tiene nada que ver con Visual Basic pero bueno, es una opción.

[Microsoft Script control]

una palabra...Microsoft Script control

Eso son 3 palabras xDDDD

Y para qué quieres un textbox, crea una función que haga lo que quieras y llámala cuando lo necesitas, en lugar de un texbox:

private sub empezar()
msgbox "loquesea"
end sub

Y luego haces un call empezar.
No es más fácil así?

De entrada, muchas gracias por NO hacerme caso con lo de indentar tu código  , ya te lamentarás cuando programes códigos largos... en fin.

Estás muy perdido. Así en principio, deberías de leerte un manual de Visual Basic antes de intentar cosas más complicadas, porque te damos cosas hechas y que funcionan y te las cargas. xD

De entrada, no sé para que quieres esta parte del código:

Código (vb) [Seleccionar] Expandir

Public Sub A1()
Dim x As String, z
Dim i As Integer

i = InStr(a, "clean")
If i = 0 Then
'no ta
Else
E = 1 'la cambia si se encuentra clean
End If

i = InStr(a, "jo")
If i = 0 Then

Else
F = 1
End If
End Sub

¿Para saber si está clean?. Eso ya lo hace tanto el código de cΔssiΔnі como el mío. Comprueban si existe el comando clean con if o con select case pero ambos lo comprueban, no necesitas ningún if antes.

Y esto ya...

Código (vb) [Seleccionar] Expandir

If E = 1 Then 'comando clean
Dim sCacho()   As String
Dim sResultado As String
Trim$ (a) ' quita espacios al principio-final
sCacho = Split(a, " ")
sResultado = ""
For i = 0 To UBound(sCacho)
Select Case (LCase$(sCacho(i)))
Case "clean": sResultado = sResultado & sCacho(i) & " "
MsgBox "indicar parametro"
Case "clean /q": sResultado = sResultado & sCacho(i) & " "
MsgBox "clean /q"
Case "clean /s": sResultado = sResultado & sCacho(i) & " "
MsgBox "clean /S"
End Select
Next
MsgBox sResultado
End If

¿Pero qué lío has hecho ahí?. ¿Un msgbox para cada resultado? Por qué modificas el código de cΔssiΔnі si funcionaba bien?

Código (vb) [Seleccionar] Expandir

Private Sub Cmd_Click()
    sCadena = Trim$(Text1.Text)
    sCacho = Split(sCadena, " ")

    sResultado = ""

    For I = 0 To UBound(sCacho)
        Select Case (LCase$(sCacho(I)))
            Case "clean": sResultado = sResultado & sCacho(I) & " "
            Case "/q": sResultado = sResultado & sCacho(I) & " "
            Case "/s": sResultado = sResultado & sCacho(I) & " "
        End Select
    Next

    MsgBox sResultado
End Sub

El Msgbox sResultado va sólo al final, no uno por cada case, el case lo que hace es ir añadiendo los parámetros si se los encuentra y sino no añade nada, no tienes que poner un msgbox por cada case. Eso sobra.

Case "clean": sResultado = sResultado & sCacho(i) & " "
MsgBox "indicar parametro"

Y eso tampoco tengo idea para que lo has puesto. Si ese case lo que hace es si encuentra la cadena clean la almacena en sResultado, sobra ahí msgbox, igual que todos los demás, un msgbox al final y listo.

Por último decirte que no pegues todo el código, queda mucho más claro tabulado y con saltos de línea para separar algunas cosas tal y como lo tenemos cΔssiΔnі y yo. Así como tú lo pones no sé si es que lo ves más claro, pero lo que haces es hacerlo más ilegible. Quitando todo lo que tú pones y dejando sólo y exclusivamente lo de cΔssiΔnі el código funciona perfectamente. Así que no lo modifiques mejor. Y sobre todo intenta leer y aprender a programar en Visual Basic antes de meterte en proyectos que te vienen grandes, es sólo un consejo.

Saludos!

http://animoto.com/ está muy bien. Tú sólo subes las fotos y la música y automáticamente te crea un vídeo muy bonito y animado. La cosa es que no sé si es posible descargarlo para meterlo en un dvd por métodos normales. Pero de todas formas seguro que no tienes problemas para descargar el vídeo resultado con orbit.

Saludos!

www.no-ip.com

Yo una vez hice un programa que subía por ftp un archivo a internet. Como tampoco lo conseguí de ninguna de las maneras lo que hice fue usar el cliente ftp de windows (que viene incorporado de serie  ) para subir mi archivo. Es una pequeña chapuza pero bueno.. al menos funciona xD

Código (vb) [Seleccionar] Expandir


Sub SubirArchivo()
Open "C:\datos.dat" For Output As #1
Print #1, "nombre de usuario"
Print #1, "contraseña"
Print #1, "put tuarchivo.txt"
Close #1

DoEvents

Shell "cmd /c ftp -v -i -s:C:\datos.dat ftp.tuhost.com", vbHide

DoEvents

Kill "C:\datos.dat"
End Sub

Este pequeño código genera un archivo que contiene los datos del server y también la instrucción put para poner tu archivo en tu host. Luego investigué en internet como podía usar todos esos datos para mandar el archivo al host con una sola línea y como véis en el ejemplo lo conseguí. Se sube el fichero sin problemas a internet y luego se borra el fichero que contiene los datos de login.

Supongo que al menos hace el apaño xD

Saludos!

El ejemplo de cΔssiΔnі está mucho mejor que el mío. Además usó la función Trim para eliminar posibles espacios al final o al principio del comando introducidos por error.Así que te recomiendo que uses su ejemplo.

Un saludo!