Reparando tu compu!

Contáctanos

Telefónos: 4421193047-4423239841 Mailito: Mafic e-mail Guillo e-mail

miércoles, 31 de mayo de 2017

Juego en BASIC ensamblador

Bibliografiia

"JUEGOS PARA EL DRAGOON"

M.James / S.M. Gee / K. Ewbank, 1983.

ENSAMBLADOR, "BASIC" O "BEGINNERS ALL PURPOSE SYMBOLIC INSTRUCTION CODE"

Invasores

Bucle principal
Inicializacioon de la cadena de invasores
Inicializacioon de la pantalla
Loogica de movimiento y disparo
Disparo de los misiles
Movimiento de los misiles y comprobasioon del impacto
Rutina de explosioon
Borrado del invasor destruido
Visualizacioon de la cadena de invasores
Movimiento de los invasores de un lado al otro
Final del juego.

Programa

Rem Invasores
Clear 2000
Gosub 150
Gosub 260
Gosub 330
Gosub 280
If F=1 then gosub 480 else for Q=1 to 20:Next Q
if h=1 then gosub 540
M=M+1
If M>4 then M=0:Gosub 740
If RND(0)>.98 then print@L, B
$; :L+32:Gosub 720
If L>319 then gosub 800
If L$=B$ Then goto 890
goto 50

I$=CHR$(158)+CHR$(157)+CHR$()
FOR I=1 TO 8
L$=L$+I$+CHR$(128)
NEXT I
E=O
L$=L$+ST5RING$(65,128)+LEFT$(L$,LEN(L$)-2)
X=31
B$=STRING$(127,128)
K=0
L=32
RETURN

CLSO
PRINT@L,L$;
SET(X,31,2)

SET(X+1,31,2)
SET(X+2,31,2)
SET(X+1,30,2)
RETURN
X$=INKEY$
IF X$="" THEN RETURN
IF X$=CHR$(94) THEN GOTO 420
RESET(X,31)
RESET(X+1, 30)
RESET(X+2,31)
IF X$=CHR$(8) AND X>2 THEN X =X-1
IF X$CHR$(9) AND X<60 THEN
X=X+1
RETURN
RESET (XM, YM)

XM=X+1
YM=29
SET (XM,YM,0)
F=1
RETURN

RESET(XM, YM)
YM= YM-1
IF YM=0 THEN F=0:RETURN
IF POINT(XM,YM)=2 THEN H=1:R
RETURN
SET(XM, YM,0)

FOR Q=1 TO 10
SET (XM+2-RND(4),YM+1-RND(2),RND(5))
SOUND RND(255), 1
NEXT Q
FOR I=XM-2 TO XM+1
FOR J=YM-1 TO YM
RESET(I,J)
NEXT J
NEXT I

IF E=1 THEN RETURN
F=0
H=0
D=INT (XM/2)+INT(YM/2)*32-L
IF D=1 THEN D=2
L$=LEFT$(L$,D-2)+CHR$(128)+C HR$(128)+CHR$(128)+CHR$(128)+RIGHT$(L$,LEN(L$)-D-2)
GOSUB 720
YM=30
RETURN
PRINT@L,L$:
RETURN

IF K THEN L$=RIGHT$(L$,LEN(L$)-2)+CHR$(128)+CHR$(128) IF NOT K THEN L$=CHR$(128)
+CHR$(128)+LEFT$(L$, LEN(L$)-2) K=NOT K
IF K THEN SOUND 50,1
IF NOT K THEN SOUND 25.1
GO TO 720
XM=X:YM=31
E=1
GOSUB 540

PRINT@1."HAS PERDIDOO!!.";
INPUT"OTRA PARTIDA":A$
IF A$="S" THEN RUN
IF A$<>"N" THEN GOTO 840
CLS
END
PRINT@1, "HAS GANADO!!.";
GOTO 840

Este es un ejemplo, de un juego en lenguaje BASIC ensamblador.

lunes, 29 de mayo de 2017

UltraNeuroWave Software en construcciooon

 UNW~ Ultra Neuro Wave

Para erradicar el analfabetismo en México. 

Mis primas me sugirierooon hacer un software asiii, por la implementacioon de grandes maaquinas como las que acabaron de construir en londres; pero pues, por siimple loogica, de Infrarrojo en cuanto a penetraciioon en la piel es igual a 2.5cm, en cuanto a la onda siguiente que es la ultrasooonica, deberiiia comprender ya lo que son los rayos equis en una equivalencia, sino es que la tecnologiiia nucleear de radiografiia nuclear, tiene un costo para visioon de oorgaanos en rayos x aprooximado a 7,000 pesos mexicanos; la tecnologiia de ultrasooonido es algo que voy a estar experiimentando como hobbie, para poder conseguir este software efectivo.

Empezareee por el desarrollo del mismo, en cuaanto compre mi ultrasooonido...y haga un visoor de rayooos equis.....

Dado que la tabla del espectro electromagneeetico esta mal, por este dato del infrarrojo (IR) sino es que la mismisiiima Marie Curie lo podriiia comentar.....



En construcciooon...

 

Scratch

https://scratch.mit.edu/

Es un lenguaje y programa para haceer juegos, animaciones ...

Graphe Fonctionnel de Commande Etape Transition GRAFCET

Es un lenguaje de programacioon por graaficos SFC o Secuencial Function Chart; se basa en operaciones secuenciales.

Sirve para programar procesos.

jueves, 18 de mayo de 2017

programa SQL Server

Para hacer bases de datos.

https://www.microsoft.com/es-es/sql-server/sql-server-downloads

miércoles, 17 de mayo de 2017

Programas para hacer videojuegos

Godot

https://godotengine.org/download

Cocos 2d

https://www.cocos2d-x.org

Unity

https://unity3d.com/unity

Superpowers

https://sparklinlabs.itch.io/superpowers

Programas freeware para hacer música

http://www.audacityteam.org/

https://www.virtualdj.com/products/virtualdj/index.html

http://garagebandpc.org/

Instrumentos virtuales

https://www.virtualdj.com/products/virtualdj/index.html

http://click-musicalkeys.uptodown.com/windows

Crea la tabla de una canciooon

http://tabledit.uptodown.com/windows

sábado, 6 de mayo de 2017

Oracle Forms

http://www.oracle.com/technetwork/developer-tools/forms/downloads/index.html

Hay que hacer una cuenta ; el programa ayuda a hacer "forms" u sistemas de oracle, en "forms".

jueves, 4 de mayo de 2017

Sistemas Operativos

Un sistema operativo Es un conjunto de órdenes y programas que controlan los procesos básicos de una computadora y permiten el funcionamiento de otros programas.


Endless Os

https://endlessos.com/es/


Trisquel

https://trisquel.info/es


Ubuntu

https://www.ubuntu.com

Solaris

www.oracle.com/technetwork/server.../solaris11/downloads/

Memu

S.O. que emula Android. 

https://alternativeto.net/software/memu/ 

Elementary OS

https://elementary.io/es/ 

AryaLinux 

Linux From Scratch (LFS), o creando "linux desde cero", o para "crear" tu propio Linux, en base a un "conjunto de scripts automatizados". 

aryalinux.org 

Qubes OS

Es una distribucioon Xen, maas que Linux, se ejecuta sobre una maaquina virtual Xen. 

www.qubes-os.org

Ref: www.neeonez.com, datosobrecompus.blogspot.com.mx, https://www.google.com.mx/search?q=sistema+operativo...