Practica sobre dibujo con básic

Esta linea de códigos te permite hacer un dibujo con basic lo puedes hacer con cruzes o con rirculos de diferentes colores, espero que lo disfruten,aqui les dejo el codigo:

# c10_mouseclick.kbs

# X marca el punto en donde se hizo el click

print "Mueva el mouse en la ventana gráfica."

print "Presione botón izquierdo para marcar su punto "

print "Presions botón derecho para salir."

clg

clickclear

while clickb <> 2

# limpie último click y espere a que se presione un botón

clickclear

while clickb = 0

pause.01

end while

color blue

stamp clickx, clicky, 5, {-1, -2, 0, -1, 1, -2, 2, -1, 1, 0, 2, 1, 1, 2, 0, 1, -1, 2,-2, 1, -1, 0, -2, -1}

end while

print "Terminado."

end

Modificando algunos numeros puedes cambiar a cruces y añadiendo una pocas lineas de codigo que son desde end while hasta endwhile y asi ponemos mas circulos creando un efecto epileptico.

Espero que lo disfruten aqui les de dejo una captura del resultado.

Robot Chistoso Parlante

Hola este e mi fantastico trabajo q he realizado cn mi amigo antonio que trata sobre un robot parlantes q cuenta chistes muy malos,en el cual hemos usado comandos como el rect para hacer lineas,el circle para los circulos y el say q este es el mas importante,poque es el que hace posible q este robot hable.Os dejo aqui los comandos

#TolCopiayPega

# c2_talkingface.kbs

# dibuje el fondo de cara con ojos

color yellow

rect 0,0,300,300

color black

rect 125,90,50,18

rect 75,75,50,50

rect 175,75,50,50

Color blue

Circle 200,100,20

Color blue

Circle 100,100,20

# borre la vieja boca

color white

rect 0,150,300,150

# dibuje la nueva boca

color Red

rect 125,175,50,100

# diga la palabra

say "Hola"

color white

rect 0,150,300,150

color blue

rect 100,200,100,50

say "A"

color white

rect 0,150,300,150

color blue

rect 125,175,50,100

say "Todos"

color white

rect 0,150,300,150

color purple

rect 125,200,50,50

say "Soy"

color white

rect 0,150,300,150

color black

rect 100,200,100,50

say "El"

color white

rect 0,150,300,150

color darkblue

rect 125,200,50,50

say "Robot"

color white

rect 0,150,300,150

color yellow

rect 125,200,50,50

say "De"

color white

rect 0,150,300,150

color red

rect 100,200,100,50

say "Los"

color white

rect 0,150,300,150

color black

rect 125,200,50,50

say "Chistes"

color white

rect 0,150,300,150

color red

rect 100,200,100,50

say ""

color white

rect 0,150,300,150

color black

rect 125,200,50,50

say "Agarraos eqisde"

color white

rect 0,150,300,150

color red

rect 100,200,100,50

say "Si Car"

color white

rect 0,150,300,150

color black

rect 125,200,50,50

say "Es coche"

print "car=coche"

color white

rect 0,150,300,150

color red

rect 100,200,100,50

say "Y men"

color white

rect 0,150,300,150

color black

rect 125,200,50,50

say "es hombre"

print "men=hombre"

color white

rect 0,150,300,150

color red

rect 100,200,100,50

say "entonces"

color white

rect 0,150,300,150

color black

rect 125,200,50,50

say "Mi amiga"

color white

rect 0,150,300,150

color red

rect 100,200,100,50

say "Carmen"

color white

rect 0,150,300,150

color black

rect 125,200,50,50

say "Es"

color white

rect 0,150,300,150

color red

rect 100,200,100,50

say " un Transformer"

print "car+men=Transformer"

color white

rect 0,150,300,150

color black

rect 125,200,50,50

say "eqisdeeeeeeee"

# dibuje toda la cara nueva con una sonrisa.

color blue

rect 0,0,300,300

color red

circle 145,180,100

color blue

circle 150,150,100

color green

rect 125,90,50,18

rect 75,75,50,50

rect 175,75,50,50

color white

circle 100,100,25

color white

circle 200,100,25

color blue

circle 100,100,12

color blue

circle 200,100,12

Color red

rect 135,140,30,40

say "Jajajajajaj lol"

Si quereis saber mas poende un comentario,bonito,hermoso,pq habra dulces para el q de mas likesss

hHecho x Lorenzo gomez y Antonio Guadix

Practica 4 Lorenzo Gómez Y Antonio Guadix

Practica 4 de T.I.C hecho por Lorenzo Y Antonio,

cls

Print "Ecuación de 2º Grado"

Print "ax^2+bx+c=0"

Input "pon el valorcito de a", a

Input "pon el valorcito de b", b

Input "pon el valorcito de c", c

d=b^2-4*a*c

If d>=0 then

gosub solucion

else

gosub sinsolucion

End if

solucion:

x1=(-b+SQR(d))/(2*a)

x2=(-b-sqr(d))/(2*a)

Print "x1,x2"

End

sinsolucion:

Cls

Este es una serie de codigos que son capaces de calcularte un 2 soluciones como si fuera una calculadora,es muy util para corregir los ejercicios de matematicas,pero siempre haciendolos uno primero un saludito LorenzoGomez69

Piramide egipcia en Basic

Hola buenas a todos hoy os presenta una piramide egipcia q es 100%REAL.Estos codigos te permitiran crear una piramide personalizada a tu gusto,como si fuera un bufet,no es muy dificl son solo un par de codigos y un par de numeros,si usted quiere mi preciada ayuda Contacteme por google+.Un saludo Lorenzo Gómez.

CODIGOS:

fastgraphics
graphsize 600,300
For n = 1 to 300
plot (300,1)
Print "Fractal rule every "+n+" rows"
For y = 1 to 300
For x = 1 to 600
a=0
if pixel(x-1,y)=black then a=a+1
if pixel(x,y)=black then a=a+10
if pixel(x+1,y)=black then a=a+100

if y/n = int (y/n) then 
gosub fractal
else
gosub chaotic
end if

next x
refresh
next y
refresh
clg
next n

chaotic:
if a=001 or a=110 or a =010 or a=100 then plot (x,y+1)
return
fractal:
if a=001 or a=010 or a=100 then plot (x,y+1)

return

Resultado Final.

No se olviden de los signos,las comillas,los puntos y esas letras que se cuelan JIJI.

Un Saludo Lorenzo Gomez

Trabajo area T.I.C

Esta linea de codigos te permite hallar el area de un rectangulo solo dandole un par de datos,y tambien te dibuja el rectangulo resultante,un saludo Lorenzo Gomez



cls
print "datos"
input "Lado mayor del rectangulo = ", l1
input "Lado menor del rectangulo = ", l2
perimetro=2*l1+2*l2
area=l1*l2
print "perimetro del rectangulo = "+perimetro
print "Area del rectangulo = "+area

clg
color green,yellow

rect 50,100,l1,l2

nombre1$= "Brenda"

nombre2$= " r e p e l o t u d o"

nombre3$= "Loren"

nombre5$= "Antonio"

nombre6$= "Amado"

print nombre5$ + ": Estamos despegando, aviso a torre Eiffel, cambio."

print nombre3$ + ": Estabilizando alas del motor pájaro avión."

print nombre6$ + ": —entra en cabina, toqueteando todos los botones y desastibilizando el avión— AWIOOOOOO."

print nombre3$ + ": ¿¡Pero qué hasés', " + nombre2$ + "!?"

print nombre5$ + ": We're going down, we're going down. We've some problems right here!"

print nombre6$ + ": AWIOOOOOOOO AWIOOOOOOOOO AWIOOOOOOOOOOOOOOO LA CARNE DE GATO ES LA MEJOR CARNE DEL PLANETA."

print nombre3$ + ": ¡Por la mulata de mi tía " + nombre1$ +"!"



Historia original de Lorenzo Gómez y Antonio Guadix. Todos los derechos reservados.©

Trabajo Basic-256

Hola buenas este es mi trabajo de Basic-256

color yellow

rect 0,0,graphwidth,graphheight

color red

font "Arial",30,80

text 10,100,"he fucked up"

color blue

font "Tahoma",28,100

text 10,200,"Compramé!!!"

color black

font "Times New Roman",10,25

text 20,150,"No me compraras pq soy negro :("

nombre1$= "lorenzo"

nombre2$= "antonio"

print nombre1$+" es el pequeño duende bailarín "

print nombre2$+" hizo awIOOOOOOOO"

PRINT "GG"

PRINT "it was at this moment he knew"

numero4$="999999999999999"

numero6$="77777777777777777777777777777"

print numero6$+" suspensos sacó, con un 4`"+numero4$