Categoria Curiosidades, Personal por Programlocura el 04-10-2008
Desde hace un tiempo que me invitaron a este meme (Todavia no habia tenido tiempo para crear o participar en alguno :P. Muchas gracias Sebastian) que es medio meme medio concurso! Y el gran premio gran es un Iphone!…
Este meme llega desde RubiaGuru! un excelente blog que descubrí hace poco desde QuéTupé! … Dos excelentes blogs que trato de seguirlos asiduamente.
El meme-concurso trata sobre crear una camiseta con una frase que nos guste… (La colocaré luego porque ahora no tengo mi amado Photoshop en la PC).
Pueden leer aqui las bases del concurso y si quieren participar serán bienvenidos! (Yo invito xD)
Como es un meme voy a invitar, por ahora a:
Juan (ZonaCG)
Luego colocaré más y la camiseta… tengo la frase perfecta
jeje
Ahí se vén o.O
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:
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:
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 
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 
Categoria Curiosidades, Personal por Programlocura el 13-09-2008
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.
Categoria Personal, Varios por Programlocura el 02-09-2008
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 