send
Grupo de Telegram
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[CrapCode] Codigo que tira rayos por los ojos.

  • 0 Respuestas
  • 1498 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado 79137913

  • *
  • Moderator
  • Mensajes: 615
  • Actividad:
    1.67%
  • Reputación 10
  • 4 Esquinas
    • Ver Perfil
    • Doors.Party
    • Email
  • Skype: fg_mdq@hotmail.com
« en: Febrero 07, 2013, 09:18:02 am »
HOLA!!!

Estaba aburrido, y como nadie contesta el reto hice esto:
Código: Visual Basic
  1.     'armen un form con:
  2.    ' 2 shapes
  3.    ' 2 lines
  4.    ' 1 timer
  5.    ' y denle a f5
  6.    
  7.     Private Sub Form_Load()
  8.        Me.ScaleMode = vbPixels
  9.        Me.ScaleHeight = 600
  10.        Me.ScaleWidth = 800
  11.        Shape1.Top = Me.ScaleHeight / 2 - 200
  12.        Shape2.Top = Me.ScaleHeight / 2 - 200
  13.        Shape1.Left = Me.ScaleWidth / 2 - 150
  14.        Shape2.Left = Me.ScaleWidth / 2 + 150
  15.        Shape1.Shape = 2
  16.        Shape2.Shape = 2
  17.        Shape1.Width = 150
  18.        Shape2.Width = 150
  19.        Shape1.Height = 300
  20.        Shape2.Height = 300
  21.        Line1.BorderColor = &HFF&
  22.        Line2.BorderColor = &HFF&
  23.        Line1.X1 = Shape1.Left + Shape1.Width / 2
  24.        Line1.Y1 = Shape1.Top + Shape1.Height / 2
  25.        Line2.X1 = Shape2.Left + Shape2.Width / 2
  26.        Line2.Y1 = Shape2.Top + Shape2.Height / 2
  27.        Timer1.Interval = 100
  28.     End Sub
  29.      
  30.     Private Sub Timer1_Timer()
  31.        Randomize
  32.        neg = 1
  33.        If Rnd() * 2 > 1 Then neg = -1
  34.        Line1.X2 = Shape1.Left + Shape1.Width / 2 + Rnd() * 300 * neg
  35.        neg = 1
  36.        If Rnd() * 2 > 1 Then neg = -1
  37.        Line1.Y2 = Shape1.Top + Shape1.Height / 2 + Rnd() * 300 * neg
  38.        neg = 1
  39.        If Rnd() * 2 > 1 Then neg = -1
  40.        Line2.X2 = Shape2.Left + Shape2.Width / 2 + Rnd() * 300 * neg
  41.        neg = 1
  42.        If Rnd() * 2 > 1 Then neg = -1
  43.        Line2.Y2 = Shape2.Top + Shape2.Height / 2 + Rnd() * 300 * neg
  44.     End Sub
  45.      

GRACIAS POR LEER!!!
"Algunos creen que soy un bot, puede que tengan razon"
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

*Shadow Scout Team*                                                   You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login

 

¿Te gustó el post? COMPARTILO!



Compactar una base de datos, usando código VB

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1365
Último mensaje Julio 26, 2010, 10:47:07 am
por ANTRAX
EAN13: Verificar y generar codigo de control

Iniciado por ANTRAX

Respuestas: 0
Vistas: 3100
Último mensaje Julio 26, 2010, 04:22:33 pm
por ANTRAX
Dibujar Codigo de Barras (Bar Code)

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1168
Último mensaje Julio 26, 2010, 11:01:14 am
por ANTRAX
Leer un Tag de un código HTML

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1080
Último mensaje Julio 26, 2010, 01:54:51 pm
por ANTRAX