Cambiando records en Winlinez
Publicado: Vie, 06 Mar 2026, 22:27
Con este código lo que se pretende es modificar los records de un juego. El juego en sí es uno muy simple, pero este algoritmo sirve de base para hacer lo mismo con otras aplicaciones que que almacenen sus datos en archivos separados. Para que este código resulte efectivo, la única condición que debe existir es que el archivo de los rercords (winlinez.res) esté en la misma dirección del programa. De todas formas, en este código falta un simple detalle, es algo más bien del juego, se trata de...
En dependencia de la aceptación que tenga este tipo de código, en próximas ediciones trataremos de buscarle solución a otros juegos.
Código: Seleccionar todo
Private Sub Command1_Click()
Dim nom As String * 16 'hasta 16 es donde llega la cadena que guarda el nombre.
Dim rec As Integer 'El record en este caso es un número.
Dim cont As Integer
cont = 0
Open (App.Path & "\winlines.res") For Binary As #1 'Se abre el archivo de forma binaria.
For i = 2 To 150 Step 16
nom = Text1(cont).Text 'La variable nombre toma el nombre del cuadro de texto
Put #1, i, nom 'Se escribe el nombre en el archivo
cont = cont + 1
Next
cont = 0
For j = 15 To 159 Step 16
rec = Text2(cont).Text 'La variable rec toma el record del cuadro de texto
Put #1, j, rec 'Se escribe el record en el archivo
cont = cont + 1
Next
Close #1
End Sub
Se crean diez TextBox para poner los nombres y otros diez para los records
Private Sub Form_Load()
For i = 0 To 9
Text1(i).Text = "Alien." 'Se escribe algo por defecto
Text2(i).Text = 100 'Se pone un record inicial por defecto
Next
End Sub