Game Source Studios ©

Posted on 02-10-2008

Flash - Información desde un TXT

Filed Under (ActionScript, Desarrollo) by Programlocura

Buenas,

Hace tiempo que no escribia nada... Ya no tengo más excusas... :S

Pero bueno, hoy vuelvo con un tutorial sobre como levantar datos desde un *.txt a flash

Colocar en la escena:

Una caja de texto (Nombre de instancia: titulo_texto)
Una caja de texto (Nombre de instancia: texto)

El Actionscript:

PLAIN TEXT

Actionscript:

myData = new LoadVars();
myData.load("el_txt_que_quieran_levantar.txt");
myData.onLoad = function(succes) {
if(succes) {
titulo_texto.text = this["titulo"];
texto.text = this["texto"];
}
}

Contenido del archivo de texto:

titulo=Titulo cualquiera&texto=Esto es un texto cualquiera que se va a levantar desde flash

Explicación:
Basicamente en el primer paso creamos una variable que va a proceder a cargar los datos levantados desde un archivo (con LoadVars).

La clase "LoadVars" tiene un metodo llamado "Load" al cual, como parametro debemos pasarle la ruta del archivo que deseamos abrir.

Creamos una funcion a la cual como parametro le pasaremos un "success" que indicará si se pudo o no abrir el archivo correctamente.
Preguntamos si "success" es verdadero (if (success)) Y levantamos los datos del archivo de la siguiente manera:

PLAIN TEXT

Actionscript:

// This hace referenciá al objeto de la clase, o sea a myData.
// Como vemos se llaman los nombres de las "variables" en el archivo de texto plano
// que deberán estar declaradas con el formato que se pasan en PHP (Excepto que
// la primera no necesitará "?").
// Para agregár más variables al ejercicio bastará con anteponer un "&" y luego
// colocando un nombre para esa variable.
titulo_texto.text = this["titulo"];
texto.text = this["texto"];

Espero les sea util! A mi se me hizo muy facil. Espero les sirva

(0) Comments Read More

Posted on 17-09-2008

VB.Net - La Mosqueta, el juego de los vasos

Filed Under (Desarrollo, Game Development, VB.NET) by Programlocura

PLAIN TEXT

Visual Basic:

Module Module1
Sub Main()
Jugar()
End Sub
Sub Titulo()
Console.WriteLine("---------------------------------------")
Console.WriteLine("Mosqueta")
Console.WriteLine("---------------------------------------")
Console.WriteLine()
End Sub
Sub Tablero()
Console.WriteLine("1 2 3")
Console.WriteLine("O O O")
End Sub
Sub Jugar()
Dim ball, opcion, vaso As Short
Dim veces_ganadas As Short = 0
Dim dinero As Short = 500
Dim apuesta As Short
Dim Pantalla As New ClearConsole
Do
Pantalla.Clear()
Titulo()
Tablero()
Console.WriteLine()
Console.WriteLine("Veces Ganadas: " + CStr(veces_ganadas))
Console.WriteLine("Usted tiene: " + CStr(dinero) + " $ de Saldo")
Do
Console.Write("Cuanto desea apostar? $")
apuesta = Console.ReadLine()
If (apuesta> dinero) Then
Console.WriteLine("No puedes apostar mas de lo que tienes")
ElseIf (apuesta = 0) Then
Console.WriteLine("No puedes apostar 0")
End If
Loop While (apuesta> dinero Or apuesta = 0)
Do
Console.Write("Seleccione una opcion: ")
opcion = Console.ReadLine()
If (opcion> 3) Then
Console.WriteLine("Ingrese una opcion Valida")
End If
Loop While (opcion> 3)
Randomize()
vaso = Rnd() * 3 + 1
If (opcion = vaso And veces_ganadas <= 3) Then
Console.WriteLine("Ganaste!")
Console.WriteLine("Has recibido: " + CStr((apuesta * 2)) + " $")
dinero += apuesta * 2
veces_ganadas += 1
ElseIf (opcion = vaso And veces_ganadas> 3) Then
Console.WriteLine("Perdiste! 3 Veces Seguidas no podia ser!")
Console.WriteLine("Te han quitado: " + CStr(apuesta * 2) + " $")
dinero -= apuesta * 2
If (veces_ganadas> 0) Then
veces_ganadas -= 1
End If
Else
Console.WriteLine("Perdiste!")
Console.WriteLine("Te han quitado: " + CStr(apuesta) + " $")
dinero -= apuesta
If (veces_ganadas> 0) Then
veces_ganadas -= 1
End If
End If
Console.ReadLine()
Loop While (dinero>= 0)
End Sub
End Module

Proximamente la explicacion :). No falten

(8) Comments Read More

Posted on 13-09-2008

La emocionante vida del Programador

Filed Under (Curiosidades, Personal) by Programlocura

Bueno, antes que nada: Feliz dia del Programador !!!! jeje (Por fin un dia para nosotros). No me acuerdo bien dado a que era que caía esta fecha, pero seguramente era algo relacionado con nuestra profesión.

Y para festejar les dejo este video, en ingles, que no puede decir de mejor manera lo que vivimos dia a dia en nuestro trabajo.

En breve estaran listos los nuevos tutoriales, nuevo diseño de GSS. Tenemos nuevo logo y varias sorpresas para los lectores.

(0) Comments Read More

Posted on 02-09-2008

En proceso de cambios

Filed Under (Personal, Varios) by Programlocura

Buenas,

Hace tiempo que no escribo y es por causa de que la computadora familiar tuvo que ser formateada por varios problemas que daba cada tanto y a parte, ya iba siendo tiempo que quedara a 0 (Es lo que tiene Windows >_<).

Igualmente esto no es excusa para no escribir, el problema es que dentro de poco tiempo se suma un integrante a la familia de Game Source Studios ©, mi amada Laptop ! ... Entonces estoy esperando que llegue para poder configurar, y escribir Posts desde ahi entre otras cosas, ya que estoy aún respaldando información de la vieja PC.

Esperen un tiempo que pronto vuelvo con nuevo contenido, y quien sabe... Alguna que otra sorpresa

(1) Comment Read More

Posted on 24-08-2008

PHP - Frases aleatorias

Filed Under (Desarrollo, PHP) by Programlocura

Buenas,

Hoy vamos a ver en un tutorial MUY rapido, como insertar frases aleatorias en nuestro sitio (Weblog, fotolog, webpage, etc) levantandolas desde un archivo de texto plano (*.txt).

PLAIN TEXT

PHP:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Frases | Aleatorios |</title>
</head>
<?php
$arch = "frases.txt";
$file = fopen($arch, "r");
$linea = array();
$i = 0;
while(!feof($file)) {
$linea[$i] = fgets($file);
$i++;
}
$l_num = count($linea) - 1;
$azar = round(rand(0, $l_num));
?>
<body>
La frase aleatoria del dia es: <h2><?php echo $linea[$azar]; ?></h2>
</body>
</html>

Explicación del Código:
1. Creamos una variable con la ruta al archivo de texto (frases.txt) que deberá estar guardado en alguna parte del servidor.

PLAIN TEXT

PHP:

$arch = "frases.txt";

2. Con la función fopen creamos un handler al archivo de texto previamente creado/abierto. Lo llamaremos $file. Llamamos el archivo, como verán, en modo "solo lectura" ("r") ya que no vamos a escribir en el, siempre deberá estar creado para poder acceder a su contenido.

PLAIN TEXT

PHP:

$file = fopen($arch, "r");

3. Creamos un array llamado $linea que conservará linea por linea del texto a parsear, e inicializamos una variable $i a 0, para guardar la posición del array.

PLAIN TEXT

PHP:

$linea = array();
$i = 0;

4. Esto es lo más importante del ejemplo. Con la función "feof", preguntamos si el archivo termino de leer ( como utilizamos el signo de exclamación el bucle significa: "mientras no termine de leer"), pero aqui la usamos opuesta. A esta función le pasamos como parametro el puntero al archivo.
Acto seguido guardaremos cada linea que haya en el archivo en una posición del array $linea, con la función fgets que lee un texto hasta el final de linea (Salto de linea).
Sumamos uno a la variable $i para continuar guardando datos en el array.

PLAIN TEXT

PHP:

while(!feof($file)) {
$linea[$i] = fgets($file);
$i++;
}

5. Creamos una variable $l_num y hacemos un conteo de la cantidad de elementos que tiene el array, a la cual debermos extraer 1, ya que sino nos daria error (por salirnos de los limites del array).

PLAIN TEXT

PHP:

$l_num = count($linea) - 1;

6. Aqui hacemos la magia :P. Creamos una variable $azar que nos devolverá un numero redondeado (round) de 0 (Primera posición del array) hasta $l_num (Ultima posición del array).

PLAIN TEXT

PHP: