Pues principalmente estás abriendo el Form2 siempre, porque secuencialmente primero lees el archivo y luego abres el form, no bifurcas la opción, para eso tienes que usar un if alternativo.
Me equivoqué, porque vi que cierras el programa dentro de ese if.. pero bueno como te he puesto funciona xD

Yo haría algo así:

Private Sub Command1_Click()
Dim Pass As String
Dim Temp As String
    nFic = FreeFile
    Open "C:\a.txt" For Input As nFic
    Do Until EOF(nFic)
    Input #nFic, Temp
    Text1.Text = Text1.Text + Temp
    Pass = Text1.Text
  Loop
     Close nFic
 
    If Pass = "x" Then
        Form2.Show
    Else
        MsgBox "Error, vuelva a intentarlo", vbCritical
        End
    End If
End Sub

Metes un TextBox y ya está, funciona perfectamente 

Saludos.

Sí, si que hace eso, tan sólo tienes que probarlo.

Saludos.

Photoshop 

Recorre la cadena caracter a caracter y cuando encuentres un "_" suma uno a un contador, ejemplo:

Dim x As Integer
Dim cadena As String
 
Public Function Contador()
Dim i As Integer
Dim c As String
x = 0
cadena = "Hola_HJZR4_Quetal_bien"
For i = 1 To Len(cadena)
    c = Mid(cadena, i, 1)
    If c = "_" Then
        x = x + 1
    End If
Next i
End Function
 
 

Ahora solo tienes que hacer un for que haga el split desde 0 hasta x-1 y ya está

Tughack tan simpático como siempre... ^^

Saludos.

No quedó nada claro, pero si te refieres al % de C, osea da elresto de la división, en C:
10%2 = 0

En Visual Basic: 10 Mod 2

No sé si será quizás esa la duda 

Saludos.

Un apunte.. he leído el post y habláis sólo de memoria y procesador, creo que os dejáis algo muy importante que es la tarjeta gráfica... si vas a trabajar con gráficos es bueno tener una buena tarjeta gráfica de al menos 512Mb para poder desarrollar bien. Sobre todo algo como imágenes 3d.

Otra cosa Chomesy es que para programar videojuegos necesitas también saber de programación claro depende de a que parte del videojuego se refiera uno, puede que tu quieras solo dedicarte al modelo y diseño del videojuego pero para hacer un videojuego completo obviamente hay que programar, a escribir líneas... hace poco vi un manual de videojuegos 3d en el foro si buscas un poco tal vez lo encuentres yo he buscado por encima y no lo encontré.


Una copia de respaldo, backup o copia de seguridad...
Se refiere a la copia de datos de tal forma que estas copias adicionales puedan restaurar un sistema después de una pérdida de información.

La copia de seguridad es útil por varias razones:

1.- Para restaurar un ordenador a un estado operacional después de un desastre (copias de seguridad del sistema)

2.- Para restaurar un pequeño número de ficheros después de que hayan sido borrados o dañados accidentalmente (copias de seguridad de datos).

3.- En el mundo de la empresa, además es útil y obligatorio, para evitar ser sancionado por las órganos de control en materia de protección de datos. Por ejemplo, en España la Agencia Española de Protección de Datos (AEPD).

Osea se refiere que guardes todos tus proyectos que hagas en DVD's o Discos duros extraíbles, PenDrives... para en caso de que se dañe el sistema operativo o te infectase un virus o cualquier cosa parecida pudieses siempre recuperar tus datos y no pierdas tus muchísimas horas de trabajo. Para ello es aconsejable hacer copias de seguridad a menudo, sobre todo si son trabajos importantes

Saludos.

Podrías hacer un bucle que avanzase por la cadena desde el primer caracter hasta que el caracter sea " " (osea un espacio) o bien el retorno de carro (osea vbcrlf  cuyo valor ascii es el 13), cada vez que avance la cadena suma 1 a una variable y en el momento que llegue al espacio o al retorno de carro quiere decir que la url ha terminado y el tamaño que tenga la variable de incremento sería el tamaño de la cadena que quieres.. te pongo un ejemplo:

Private Sub Form_Load()
Dim cadena, url, c, url_final As String 'declaracion de variables
Dim x, i As Integer 'variable x para tamaño de cadena e i para caracter ascii
x = 1 'iniciamos x al primer caracter osea 1
 
cadena = "blablablablablanlkablabajnkajnakj" & vbCrLf & _
"blablablablablanlkablabajnkajnakj" & vbCrLf & _
"Location: http://www.url.com" & vbCrLf & _
"dwflkjdsflksdfjlksdfjlksdfjlksfdklsdfsfdsfdlkfsd"
 
 url = InStr(1, cadena, "Location:")
 c = Mid(cadena, url)
 url_final = Replace(c, "Location: ", "")
 
While x < Len(url_final) 'mientras x sea menor que el tamaño total de url_final
    i = Asc(Mid(url_final, x, 1)) 'i es igual al valor ascii del caracter x de url_final
    If i = 13 Or Mid(url_final, x, 1) = " " Then 'si el caracter es vbcrlf o el caracter es un espacio
        url_final = Left(url_final, x) 'ya tenemos el tamaño de la url final en x
        MsgBox url_final 'mostramos la url final
    Else
        x = x + 1 'sino seguimos recorriendo la cadena
    End If
Wend
 
 End Sub

A mi me funciona perfectamente, comprobado si tienes algún problema postealo, creo que era eso lo que querías.

Saludos.

Yo no estoy muy seguro de esto.. ¿¿pero podrías crearlo a lo mejor con un bucle?? Lo digo porque lo he estado pensando y se me vino esa idea pero no tengo ni idea de si se puede... yo pensé algo así... siendo Shape y Bloque arrays.

Public m_System As New dx_System_Class
'numero de bloques es el total de los bloques que quieres crear
Dim Bloque(1 to numero de bloques) As GFX_Rect
Dim Char As GFX_Rect
 
Dim i as integer
 
Private Sub Form_Load()
 
For i=1 To Numero de bloques
     Bloque(i).X = Shape(i).Left
     Bloque(i).Y = Shape(i).Top
     Bloque(i).Height = Shape(i).Height
     Bloque(i).Width = Shape(i).Width
Next i
 
End Sub
 

Es una teoría eh, yo no sé si eso se podrá hacer o no porque en mi vida he programado un juego en Visual Basic pero viendo el problema eso es lo que se me ocurrió.

Saludos.

Hombre claro.... un bucle infinito que suma 1.... aiiiiss

Nos referimos a un bucle infinito un poco más complejo tal y como se ha posteado en el primer mensaje de este post, ese es el bucle que hay que evitar que se pete. Un bucle infinito que sume 1 ya sabemos que no se peta. Pero yo al menos no consigo que no se pete el programa este en concreto ni con DoEvents ni nada.

Lo que quería dejar claro es que ya hemos comprobado que esto no pasa con cualquier bucle infinito, que hay muchos bucles infinitos que funcionan perfectamente, pero este en concreto hace que se cuelgue la interface del programa y por eso intentábamos solucionarlo pero no encontramos la forma.

Tienes toda la razón.

Saludos.

Para mí el tema es que la has cagado y te has dado cuenta tarde... Sé poner un DoEvents y ponga donde lo ponga no funciona, si yo no sé y tu eres tan listo que sabes hacerlo todo ¿por qué no te dejas de tonterías y vienes y pones ese código con los DoEvents bien colocados (como tú sabes) para que no se pete el programa?

A ver si así haces algo útil para la comunidad porque de momento el creerte que sabes más que los demás sin hacer NADA sirve para poco.

Por cierto podrías apuntarte a unas clases de ortografía porque no pones bien ni una maldita tilde xDDD