Mensajes

[@79137913:]

@79137913: Dudé si estaba mal o si yo lo entendí mal, puesto que eres tú quien suele corregirme y ayudarme en lo que respecta al Visual Basic 6, x)

Un saludo

[x]

O bien entendí mal, o el código de 79137913 es incorrecto... He entendido que se debían mostrarse en un ListBox los números pares de una secuencia (p.ej: desde 2 (que sería x) hasta el 30 (que sería y), vuestros códigos muestran números pares hasta 60 sin contar el 2). Entonces... ¿Qué es esa R que ponéis?

Código Nightwinds [incorrecto]:

Código (vb) [Seleccionar] Expandir

Private Sub Vw_Click()
Dim x1 As Integer
Dim y1 As Integer
Dim z As Integer
r = 2
x1 = Val(x.Text)
y1 = Val(y.Text)
For x1 = r To y1

z = x1 * r
c.AddItem z
Next x1
End Sub

Código 79137913 [incorrecto]:

Código (vb) [Seleccionar] Expandir

Private Sub Vw_Click()
DIM X1 AS INTEGER
DIM X2 AS INTEGER
DIM Z AS INTEGER
DIM R AS INTEGER
    x1 = Val(x.Text)
    y1 = Val(y.Text)
    R=2
    FOR X1 = X1 TO Y1
        Z = X1*R
        IF X1 > Y1 THEN EXIT FOR 'Este X1 se deberia cambiar por Z
        c.AddItem z
    NEXT
End Sub

Código 79137913 [corregido]:

Código (vb) [Seleccionar] Expandir

Private Sub Vw_Click()
Dim X1 As Integer
Dim X2 As Integer
Dim Z As Integer
Dim R As Integer
    X1 = Val(x.Text)
    Y1 = Val(y.Text)
    R = 2
   
    For X1 = X1 To Y1
        Z = X1 * R
        If Z > Y1 Then Exit For 'Con el cambio hecho
        c.AddItem Z
    Next
End Sub

El código que yo propuse antes ahora manteniendo la estructura de Nightwinds [correcto]:

Código (vb) [Seleccionar] Expandir

Private Sub Vw_Click()
Dim x As Integer
Dim y As Integer

x = Text1.Text 'desde
y = Text2.Text 'hasta

While x <= y
If x / 2 = CInt(x / 2) Then
    List1.AddItem (x)
End If
x = x + 1
Wend
End Sub

Corríganme si me equivoco,
Un saludo

[x1]

En realidad, eso que tu has hecho no muestra los números pares de una secuencia, si no que multiplica x1 por r unas y veces: (y(x1*r)). Aquí te dejo lo que yo haría:

Código (vb) [Seleccionar] Expandir

Dim i As Integer
Dim j As Integer

i = Text1.Text
j = Text2.Text

While i <= j
If i / 2 = CInt(i / 2) Then
    List1.AddItem (i)
End If
i = i + 1
Wend

Eso haría que aparecieran en el ListBox los números pares desde i hasta j, es decir: [i, j]
Espero que te sirva,

Un saludo

[SaveSetting ()]

Lo primero, muchas gracias a todos por intentar ayudarme 

Bueno, a quienes me dijeron que podía guardar los cambios en un archivo aparte (o demás), ya lo había pensado, pero no me viene bien pues quiero que se pueda utilizar el programa en diferentes ordenadores, sin necesidad de nada más que el ejecutable.

Por lo que miré el código de BlackZeroX pero no entendí nada... :S
Es decir, si yo utilizo el SaveSetting (), y quiero guardar una variable, ¿Cómo debo hacerlo?

Gracias de nuevo,
Un saludo

[un textbox]

Quisiera saber si hay algún modo de que se pueda editar una variable en tiempo de ejecución y guardar los cambios producidos aunque se cierre el ejecutable, es decir, que se guarden los cambios para la siguiente ejecución.

Por ejemplo: tengo un textbox (texto: text1), una Label (caption: label1) y un botón (caption: command1).
Cuando lo ejecuto no me aparece más que eso y no hay ninguna acción.

Lo que yo quiero es que al pulsar el botón se escriba el contenido del textbox en el label1 (label1.caption = text1.text) y se quede así de tal modo, que después de cerrar el ejecutable y abrirlo otra vez el caption del label sea: text1



No encontré nada, quizás porque no busqué bien, le estaría enormemente agradecido a quien me puediera orientar o ayudar. Gracias de antemano,

Un saludo

Oks, pues lo probaré y ya diré qué tal me fue.
Gracias por el consejo

Un saludo

Windows es muy windows y se jode con ná.

Sí, pero aún así Windows es muy Windows y se sigue con Windows. 

Me dice que no se puede aplicar puesto que no se cambió nada... Sigo igual.

Un saludo

Label1.Caption ="Se ha activado la Autodestruccion del equipo, para cancelar presione el boton Abortar, sino espere " &  (60 - Z) & " seg a que empiece la Autodestruccion"

¡No se me había ocurrido! 
Muchas gracias 79137913

Un saludo

Entre tú y yo y sin que se entere el resto del foro, anda dímelo y prometo no enfadarme 

Si pensara que pude haber hecho algo mal, lo diría, por muy vergonzoso que fuera... Si pregunto algo será para intentar dar con la solución, por ello no pondré obstáculos ridículos a quienes me intenten ayudar (creo que actúo con lógica).

Pero bueno, aunque bastante seguro de que esto nada tiene que ver:

• Arranqué el SuperAntiSpyware
  
• Pase un archivo que tenía al USB
  
  Nada más... Gracias por responder
  Un saludo

[booteé]

Buenas;
Hace dos días booteé desde Hiren's BootCD, en el computador (con CD) y en el netbook (por USB). En ambos inicié sesión con "Mini Windows Xp" (sin necesidad alguna, únicamente por probar) y apenas hice nada.

Ahora que intento guardar un .txt en el HD, me aparece el siguiente mensaje en el computador (Windows XP Professional) "No se puede guardar en la carpeta especificada. Elija otra ubicación."

Me pasa lo mismo cuando intento guardar algo en los Documentos del netbook (Windows 7 Ultimate), me aparece el mensaje y no me deja guardar.

Tengo la sensación de que aunque me salga asignada la letra "C:\" al disco duro, al intentar algo con "Guardar como" lo hace en la letra "E:\", la cual me asignó el Hiren's a los Discos Duros de cada uno de los ordenadores cuando inicié sesión con el Mini Windows Xp...

¿Alguien sabe cómo solucionarlo? Gracias de antemano,

Un saludo.